登 录
1.0版本中有两个问题，现在已经修正了
'履历<br /> '2010/10/23（周六）下午第一版做成<br /> '2010/10/26（周二）晚上，对于两个问题进行了修改（1不含有下划线的情况，2开头字母不应大写）</p> <p>'版权所属：孙学智 2010/10/23<br /> Private Sub underLine_Click()<br /> '版权所属：孙学智 2010/10/23<br /> '数据库中的列名<br /> Dim dbColumnStr As String</p> <p> '开始的位置，由横竖坐标确认<br /> Dim index As Integer<br /> Dim rangeStr<br /> '行（横）<br /> index = 6</p> <p> '列（竖）<br /> rangeStr = "B"</p> <p> '生成单元个位置，这里没有自动装箱，所以要用一个函数把数字转换一下<br /> rangeStr = rangeStr + CStr(index)</p> <p> '单元个位置生成正确与否，测试用<br /> 'MsgBox rangeStr</p> <p> '判断不为空，注意这里要用""空串，而不能使用null，null时永远false<br /> Do While Sheet1.Range(rangeStr).Value <> ""</p> <p> '进入循环测试用<br /> 'MsgBox rangeStr</p> <p> 'Excel中的数据（数据库中的列名）<br /> dbColumnStr = Sheet1.Range(rangeStr).Value</p> <p> '调用对数据库中列明处理的函数<br /> Call underLineEscape_upcase(dbColumnStr)</p> <p> '处理之后位置，稍微往右移动一下<br /> rangeStr = "C"<br /> '通过横竖两个坐标，组合出生成的位置<br /> rangeStr = rangeStr + CStr(index)<br /> '输出处理之后的数据<br /> Sheet1.Range(rangeStr).Value = dbColumnStr</p> <p> '读取下一个数据<br /> index = index + 1<br /> '源数据的位置还要变回来<br /> rangeStr = "B"<br /> '通过横竖两个坐标，组合出源数据的位置<br /> rangeStr = rangeStr + CStr(index)</p> <p> Loop</p> <p> MsgBox "end"<br /> '版权所属：孙学智 2010/10/23<br /> End Sub</p> <p>'发现下划线，去掉，得到以下划线分割的字符串 （不知道是否有java中split的功能）<br /> Sub underLineEscape_upcase(ByRef dbColumnStr As String)<br /> '版权所属：孙学智 2010/10/23<br /> '存放分割后组合的字符串<br /> Dim str As String</p> <p> '存放每一个分割的字符串<br /> Dim splitStr As String</p> <p> '初始化一下<br /> str = ""</p> <p> '在VBA中，字符串索引从1开始<br /> Dim index</p> <p> '如果返回的不是0，就表明查到数据了，则继续循环<br /> Dim flag</p> <p> '初始化开始位置<br /> index = 1<br /> '初始化flag<br /> flag = 1</p> <p> '获取字符串长度<br /> length = Len(dbColumnStr)</p> <p> '获取第一个"_"的位置，不在循环里面<br /> index = InStr(index, dbColumnStr, "_")</p> <p> '20100206 修改 （原因1：当不含有"_"的情况），直接在循环最后一步，会把受str的值付给dbColumnStr，而str的初值是""<br /> If index = 0 Then str = dbColumnStr</p> <p> '20100206 修改 （原因1：当不含有"_"的情况） 添加条件 And index <> 0 当不含下划线时，便不会进入循环，之前忘记以对flag的初值设为1，不能再用flag判断<br /> '当没有找到 flag=0，或 超过长度时，退出循环<br /> Do While (flag <> 0 And index <= length And index <> 0)</p> <p> '获取字符串中"_"的位置<br /> index = InStr(index, dbColumnStr, "_")</p> <p> '如果最后一次没有查到那么index=0，而之前还查到了（一次也没有的情况不会进入循环）,<br /> '这时flag中，保存的还是是上一个"_"的位置，但是由于下面的判断flag不等于一时会加一<br /> '所以，这里还要加一，否则最后一个串会少一个长度<br /> If index = 0 Then index = length + 1</p> <p> '如果是从找到"_"的位置开始需要加1，因为flag存的是"_"的位置<br /> If flag <> 1 Then flag = flag + 1</p> <p> '获取字符串，以"_"分割<br /> splitStr = Mid(dbColumnStr, flag, index - flag)</p> <p> '20100206 修改 （原因2：开始的第一个字母大写了），增加判断条件，当第一次时，不调用字母转换函数（不将取得串的第一个字母变为大写）<br /> '20100206 修改 （原因2：开始的第一个字母大写了），因为flag代表开始的位置，flag=1表明是第一个<br /> '20100206 修改 （原因2：开始的第一个字母大写了），注意这里Call好像不能换行（中间再隔一行干注释），否则编译出错，不知道为什么？反正现在好用了！<br /> '把第一个字母变成大写<br /> If flag <> 1 Then Call firstCharToUpcase(splitStr)</p> <p> '测试时使用<br /> 'MsgBox splitStr</p> <p> '把每一个分割后并且转换为大写的字符串组合起来<br /> str = str + splitStr</p> <p> '因为有0的判断，所以不能加1。同时在上面还有使用，这样就不用再定义一个临时变量存index了<br /> flag = index</p> <p> '改变下一个索引开始的位置，也就是"_"之后那个字母的索引<br /> index = index + 1</p> <p> Loop</p> <p> '分割后的字符串，因为是应用传值，这里就相当于return<br /> dbColumnStr = str</p> <p>'版权所属：孙学智 2010/10/23<br /> End Sub<br /> '把字符串中的第一个字母变成大写<br /> Sub firstCharToUpcase(ByRef str As String)<br /> '版权所属：孙学智 2010/10/23<br /> Dim tempStr</p> <p> Dim length</p> <p> '获取长度<br /> length = Len(str)</p> <p> '为了保留小写部分，使用后两位<br /> tempStr = str</p> <p> '使用转换为大写的第一位<br /> str = StrConv(str, vbUpperCase)</p> <p> '把第一位和后两位拼接起来<br /> str = Mid(str, 1, 1) + Mid(tempStr, 2, length)<br /> '版权所属：孙学智 2010/10/23<br /> End Sub<br />
抱歉!评论已关闭.