VBA | 时鹏亮的Blog

有时Excel需要添加个按钮直接调用宏，那么如何添加按钮呢？方法如下：

假设A列是完整的名字，复姓不考虑： B列公式：

=MID(A1,1,1)

C列公式：

=SUBSTITUTE(A1,B1,"")

这样就提取好了，B列是姓氏，C列就是名字[……]

还记得3月6日总结的遍历指定列的所有行的代码吗？

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

在这个循环里是在当前激活的She[……]

以下函数可以解码UTF-8地址的中文关键词。

Function URLDecode(ByVal strIn)  
        URLDecode = ""  
        Dim sl : sl = 1          Dim tl : t[......]

B="SDFSDdsfsdf" A=LCase(B)

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

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

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

Sub test()
	MsgBox &[......]

Len(string)

计算string长度

Left(string, x)

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

Right(string, x)

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

Mid(string, st[......]

Dim 变量 as 类型 '定义为局部变量，如 Dim xyz as integer
Private 变量 as 类型 '定义为私有变量，如 Private xyz as bytePublic 变量 as 类型 '定义为公有变量，如[……]

VBA 具有四种过程：Sub 过程、Function 函数、Property 属性过程和 Event 事件过程[……]

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

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

时鹏亮的Blog