VBA 学习记录 20181103——初识VBA宏编辑

随笔
各种实用函数

判断字符串长度
len（单个汉字算一个字符）
lenb（单个汉字算两个字符）

判断是否数字
VBA.IsNumeric

InputBox区分取消和输入空值
Application.InputBox(“Input a year please”, “year”, Year(Date), , , , , 1)

合并单元格
Range(“g1:h3”).Merge

字符对齐：转载自链接（https://blog.csdn.net/u012867174/article/details/23272697 ）
①左对齐、右对齐、居中对齐

'选择区域或单元格右对齐　　
　　Selection.HorizontalAlignment = Excel.xlRight

'选择区域或单元格左对齐
　　Selection.HorizontalAlignment = Excel.xlLeft

'选择区域或单元格居中对齐　　
　　Selection.HorizontalAlignment = Excel.xlCenter

固定区域的对齐方式的代码：

Range(“A1:A9”).HorizontalAlignment = Excel.xlLeft

②字体、字号、字型

'当前单元格字体为粗体
　　Selection.Font.Bold = True

'当前单元格字体为斜体
　　Selection.Font.Italic = True

'当前单元格字体为宋体20号字

With Selection.Font
　　　.Name = “宋体”
　　　.Size = 20
　　End With
　　
数字转汉字
Application.Text(1, “[DBNum1]”) 1 一