B="SDFSDdsfsdf"A=LCase(B)

把B转换成小写字母赋值给A 

For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数A = Cells(hang, lie)Next

遍历第2[……]

Read more

VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符:chr(10) 可以生成换行符chr(13) 可以生成回车符vbcrlf 换行符和回车符vbCr 等同于chr(10)vblf 等同于chr(13)例:

Sub test()	MsgBox "1&q[......]

Read more

Len(string)

计算string长度 

Left(string, x)

取string左段x个字符组成的字符串 

Right(string, x)

取string右段x个字符组成的字符串 

Mid(string, start,[......]

Read more

Dim 变量 as 类型 ‘定义为局部变量,如 Dim xyz as integerPrivate 变量 as 类型 ‘定义为私有变量,如 Private xyz as bytePublic 变量 as 类型 ‘定义为公有变量,如 Public xyz as singleGlobal 变[……]

Read more

最近有个同事需要编写个宏,Excel-VBA中需要用到类似php中的swith-case的功能,翻了下,将VBA中类似的示例代码列出来供需要的人参考:

Select Case income	Case Is <= 0		profitrank = "<=0"	Case[......]

Read more

好吧,其他部门的同事找我帮忙写个宏,写好了本机调试OK,他发给别人就不灵了,经过他的尝试,原来是安全设置的问题,求教了下经验,发布出来给碰到同样问题的孩子一个解决办法:本文针对的是Excel 2007。1.首先要显示出开发工具,如果没有,点Excel左上的开始按钮,点Excel选项,然后[……]

Read more