VBA数据类型判断转化、对话框、空、正则表达式语法_vba变量类型判断

link管理
链接快照平台
输入网页链接，自动生成快照
标签化管理网页链接
结束exit语句

exit do ’ 结束do循环
eixt for ’ 结束for循环
exit sub ’ if condition then ~~~ : end end是结束整个程序。exit sub只是结束这个过程。
exit function ’ 结束函数运行
sub test()
	num = 1
	if num=1 then exit sub   ' 如果num的值为1，则结束过程，下面的语句不会执行
	debug.print "do other things"
end sub
for循环1：
 exit for 表实结束for循环，可以结合if判断结束循环。
 for i = 1 to n
 …
 next 
for循环2，遍历的变量必须是变体型变量variable，不然会报错
 for each var in list
 …
 next 
do循环类型1：
 do while +条件 while表示符合条件时执行循环
 …
 loop 
do循环类型2：
 do until + 条件 until表示当符合条件时跳出循环
 …
 loop 
do循环类型3： 
 使用if + exit do 结束循环。
 do
 if + 条件
 exit do
 end if
 loop 
do循环4：
 do
 …
 loop until+ 条件 while和until灵活使用，一个符合条件执行循环，一个符合条件跳出循环。 
sub test()
' 示例：从1打印到99
num = 1
do while num<100 
	debug.print num    
	num = num + 1
end sub
.Range("a6:at6").Copy
.Range("a7:a7").PasteSpecial Paste:=xlPasteFormats
shell打开txt文件
 
Shell "Notepad.exe " & f, vbNormalFocus	' f:txt文件完整路径
选择性粘贴为值
 
With ActiveSheet.UsedRange
    .Copy
    .PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False		'复制后要清空剪切板，不然再操作复制，会出错。
End With
on error resume next		' 遇到错误忽略继续
on error goto line		' 遇到错误跳转
on	error goto 0		' 遇到错误报错。可以再on error resume next 后调用恢复报错。
' goto是跳转语句，也可以结合判断使用
If VBA.IsError(Range("A1").Value) = True Then		' 判断单元公式返回的是否是错误值
ActiveCell.AddComment ("Hello")  
自动调整列宽
 
Range("a1:h1").EntireColumn.AutoFit
公式自动向下填充
 
Cells(2, 3).Formula = "=a2&b2"	输入公式
Range(Cells(2, 3), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3)).FillDown	' 使用filldown公式向下填充
range("a2:b" & usedrange.rows.count).filldown   ' 假设分别在a1和b1单元格输入公式的情况下，下面单元格自动填充
隐藏excel网格线，隐藏行列
 
ActiveWindow.DisplayGridlines = False     ' 隐藏网格线
Range("C:C,E:E").EntireColumn.Hidden = True   ' 隐藏列
' 取消行列隐藏
Cells.EntireColumn.Hidden = False 
Cells.EntireRow.Hidden = False
背景颜色索引
 
range("a1").Interior.ColorIndex = xlNone   ' 取消背景颜色
range("a1").Interior.ColorIndex =3    ' 红色
Range("h:l,o:o,r:s,aa:ab").Interior.Color = vbGreen  ' 也可以直接设置color
判断字符串是否包含xx字符：instr
 
index = instr("who you are","are")
数据类型的判断
 
类型判断：返回bool值； 
typename(i) ：判断数据格式
IsNumeric：判断变量的值是否为数值
isdate：判断变量的值是否为日期
isnull：判断变量的值是否包含任何有效数据
isempty：判断变量的值是否为空
IsArray ： 判断出变量是否为一个数组。
IsError：判断变量是否返回的是一个错误值
IsObject：判断变量是否表示对象变量 
数据类型转化
 
很多时候在判断时候，数据类型不一致会带来干扰，这时候可以使用类型转化函数。 
CBool ：Boolean
CDate ：Date 任何有效的日期表达式。可以使用isdate判断date是否可以被转化为日期或时间。
CInt ：Integer -32,768 至 32,767，小数部分四舍五入。
CLng ：Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。
CSng ：Single 负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。
CStr ：String 依据 expression 参数返回Cstr。
CVar ：Variant 若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。
Val ：将数字转化为值value。
int： 转化为整数。比如int(“10”) 
关于“空”
 
variant类型
 
A = Null '一个variant变量可以赋值为Null
 IsNull(A) '判断一个varint变量是否为Null
 一个尚未初始化的variant变量是empty
 a = empty
 A 等于 Empty， 因为尚未初始化的“不定型变量”都等于 Empty。
 isempty(a)可判断是否为空对象
 '但如果检测 A = “” 或 A = 0， 也都可以得到 True 值。 
string类型
 
判断一个string变量为""(空字符串)
 a = “” 
integer类型
 
定义一个integer变量后，它自动初始化为0
 a = 0 
object类型
 
定义一个object变量后，它自动初始化为nothing。对象要使用is判断
 a is nothing 
对话框的使用
 
这里主要涉及到inputbox输入框、msgbox弹出框、以及选择文件、文件夹对话框 
输入框：inputbox
 
 Application.inputbox(prompt,title,default,left,top,helpfile,helpcontextid,type) 
  prompt：提示信息 - 必选参数
title：标题
default：输入框内默认显示内容
Left：指定对话框相对于屏幕左上角的 X 坐标（以磅为单位）
Top：指定对话框相对于屏幕左上角的 Y 坐标（以磅为单位）
HelpFile：此输入框使用的帮助文件名， 如果有 HelpFile 和 HelpContextID 参数，对话框中会显示帮助按钮
HelpContextID：HelpFile 中帮助主题的上下文 ID 号
Type：指定返回的数据类型， 如果省略此参数，则对话框返回文本 
    type参数： {0：公式，1：数字，2：文本，4：逻辑值，8：range单元格引用，16：错误值，64：数值数组}
 
  inputbox和Application.inputbox区别：
 点击取消，前者返回是空。后者返回是false，用以区分返回输入是空还是点击了取消；后者可以限定输入的数据类型，如果输入数据类型与要求不符合会报错。
 Sub inputbox()
'通过inputbox传入单元格
Dim inputbx
On Error GoTo 100
Set inputbx = Application.inputbox("请选择单元格", "Title", "点击工作表单元格", , , , , 8)
inputbx.Interior.Color = vbGreen
End Sub
消息框：MsgBox
 
 MsgBox(prompt[,buttons][,title][,helpfile,context]) 
    prompt - 必需的参数。在对话框中显示为消息的字符串。提示的最大长度大约为1024个字符。 如果消息扩展为多行，则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。
buttons - 可选参数。一个数字表达式，指定要显示的按钮的类型，要使用的图标样式，默认按钮的标识以及消息框的形式。如果留空，则按钮的默认值为0。
title - 可选参数。 显示在对话框的标题栏中的字符串表达式。 如果标题留空，应用程序名称将被放置在标题栏中。
helpfile - 可选参数。一个字符串表达式，标识用于为对话框提供上下文相关帮助的帮助文件。
Context - 可选参数。一个数字表达式，用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。 如果提供上下文，则还必须提供helpfile。
 
Buttons参数
 该参数可以是用过数字或者英文标志，同时也可以多个一起使用，中间使用‘+’号连接。 
    0 vbOKOnly - 仅显示“确定” 按钮。
1 vbOKCancel - 显示“确定” 和“取消” 按钮。
2 vbAbortRetryIgnore - 显示“中止”，“重试”和“忽略” 按钮。
3 vbYesNoCancel - 显示“是”，“否”和“取消” 按钮。
4 vbYesNo - 显示“是”和“否”按钮。
5 vbRetryCancel - 显示“重试”和“取消”按钮。
16 vbCritical - 显示严重消息图标。
32 vbQuestion - 显示警告查询图标。
48 vbExclamation - 显示警告消息图标。
64 vbInformation - 显示信息消息图标。
0 vbDefaultButton1 - 第一个按钮是默认的。
256 vbDefaultButton2 - 第二个按钮是默认的。
512 vbDefaultButton3 - 第三个按钮是默认的。
768 vbDefaultButton4 - 第四个按钮是默认的。
0 vbApplicationModal 应用程序模式 - 当前的应用程序将不会工作，直到用户响应消息框。
4096 vbSystemModal 系统模式 - 所有的应用程序将不会工作，直到用户响应消息框。
 
MsgBox函数返回值 
    vbOK - 确定 按钮被点击。
vbCancel - 取消 按钮被点击。
vbAbort - 中止 按钮被点击。
vbIgnore - 忽略 按钮被点击。
vbYes - 是 按钮被点击。
vbNo - 否 按钮被点击。
 
 msb = MsgBox("选择是、否或取消", vbYesNoCancel + vbInformation, "标题")
返回文件路径：GetOpenFilename
 
返回文件完整路径：fullname
 可以调用改对话框选择文件，再打开对应的文件。
 Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名) 
  限制文件为excel文件：
 f = Application.GetOpenFilename("Excel文件,*.xls")
  打开多种文件类型(word和excel)：
 f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc")
  打开多种文件类型,默认显示word文件(最后的参数2表示根据前边的选项，默认打开第几个)：
 f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2)
  设置对话框名称：
 f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2, "选择要汇总的文件")
  选择多个文件,并以数组形式返回：
 Dim f
ChDrive "E"
ChDir Application.Path
f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 1, MultiSelect:=True)
MsgBox f(1)		'返回数组第一个
返回文件夹：FileDialog
 
选择并返回文件夹：FileDialogFileDialog属性和方法： 
  AllowMultiSelect 如果允许用户从文件对话框中选择多个文件，则返回 True。Boolean 类型，可读写
SelectedItems 选取的多个文件集合
InitialFileName 属性:设置初始路径和文件名称
InitialView 属性 :可以设置初始文件的显示样多
show 可以判断用户是否点击了取消按钮,如果点击取消会返回0,否则返回-1
 Sub test()
On Error Resume Next
Dim dig As Object
Set dig = Application.FileDialog(msoFileDialogFolderPicker)
With dig
.InitialFileName = "d:\"		'对话框初始从d盘选择文件夹
	.Show
	MsgBox .SelectedItems(1)
End With
Set dig = Nothing
On Error GoTo 0
End Sub
遍历文件夹下的文件：dir
 
Dir [ (pathname, [ attributes ] ) ] 
pathname 
 可选。 指定文件名的字符串表达式，可包括目录或文件夹和驱动器。 如果未找到 pathname，则返回零长度字符串 ("")。
attributes 
 可选。 其和指定文件属性的常量或数值表达式。 如果省略它，则返回与 pathname 匹配但没有属性的文件。参数设置为： 
  vbNormal 0 （默认）指定没有属性的文件。
vbReadOnly 1 指定只读文件以及不带属性的文件。
vbHidden 2 指定隐藏文件以及不带属性的文件。
vbSystem 4 指定系统文件以及不带属性的文件。 在 Macintosh 上不可用。
vbVolume 8 指定卷标；如果指定任何其他属性，则忽略 vbVolume。 在 - Macintosh 上不可用。
vbDirectory 16 指定目录或文件夹以及不带属性的文件。
vbAlias 64 指定文件名为别名。 仅在 Macintosh 上可用。
  
Sub find_file()
' 遍历f\Others文件夹下的excel文件
ChDrive "f"
ChDir "f:\Others"
f = Dir("*.xls*")
Do While f <> ""
	Debug.Print f
	f = Dir    ' 找下一个符合条件的文件
End Sub
正则表达式
 
Global： 如果值为True,则搜索全部字符；如果值为False,则搜索到第1个即停止
IgnoreCase：bool类型，是否区分大小写
Pattern：正则表达式
Multiline：字符串是不是使用了多行,如果是多行,$（表示以…结尾）适用于每一行的最后一个 
replace：替换
 
replace(string,replace_str) 
   Sub test()
       Dim regexp As Object
       Dim sr
	Set regexp = CreateObject("vbscript.regexp")
       sr = "苹果12斤"
       With reg
         .Global = True
         .Pattern = "[\u4e00-\u9fa5]"
         Debug.Print .Replace(sr, "")		'把文字替换成空，取出数字
       End With
     End Sub
test：是否匹配
 
正则表达式是否能在字符串匹配到，返回bool值;test(string) 
Execute：执行
 
执行返回一个 MatchCollection （集合）对象，该对象包含每个成功匹配的 Match 对象,如果只匹配一个的话，可以用数组m(0)直接返回匹配结果。如果有使用小括号“()”分组匹配，可以使用MatchCollection对象的SubMatches获取分组的内容，再使用数组切片到对应内容。 
 如果有使用多个小括号分组，submatches的排序先从左往右，从外到里； 
比如.Pattern = "(from|join)\s+((\w+\.?\w+)(\))?(\s+)?(\w+)?)"
 submatches(0)：(from|join)
 submatches(1)：((\w+.?\w+)())?(\s+)?(\w+)?)
 submatches(2)：(\w+.?\w+)
 submatches(3)：(\))
 submatches(4)：(\s+)
 submatches(5)：(\w+) 
Sub test()
Dim regexp As Object
Dim sr
Dim collections As Object
Dim submat
Dim m
sr = "5月2号销售量15，销售金额30，5月3号销售量20，销售金额40；"
Set regexp = CreateObject("vbscript.regexp")
With regexp
    .Global = True
    .Pattern = "销售量(\d+).+?销售金额(\d+)"
    If .test(sr) Then		'如果能匹配到再输入
        Set collections = .Execute(sr)
        For Each m In collections
            Debug.Print m
            For Each submat In m.submatches
                Debug.Print submat
    End If
    Debug.Print collections(0).submatches(1)   '我们也可以直接切片，比如第一个匹配对象的第二个分组
End With
End Sub
MatchCollection对象的属性 
  FirstIndex : 匹配内容在整个字符串中的起始位置
Length : 匹配长度
Value：匹配的值
count：匹配对象的数量
item：匹配对象，如上使用集合或者对象索引切片，比如：collections(0)
 
SubMatches对象属性 
  count：匹配的分组数量
value：匹配的值
item：使用对象的索引切片，比如：collections(0).submatches(1)
 
  
关于正则的语法各编程语言基本一致，这里就不再多赘述了，有需要mina就网上搜罗吧~~~
 关于程序调试，以及查看对象的属性，查看VBE的本地窗口变量的变化及详情会是个不错的选择，此外，VBA帮助有中文译本，阅读容易，遇到问题可以查找官方文档。以下为官方文档链接：
 https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home 
正则表达式测试工具分享：
 链接：https://pan.baidu.com/s/1Smn65HVXcpS6H3Bes9VjvQ
 提取码：6j6w 
参考：《兰色幻想》VBA教程
				在VBA中使用`InputBox`方法可以让用户选择单元格区域，交互体验和输入公式参数基本上相同，其返回值为Range对象。语法格式参见微软帮助文档：
如果用户选择了多个区域，如下图中黄色区域所示，那么使用Range对象的`Address`属性获取单元格引用地址时，结果为`$B$5:$B$7,$B$13,$B$19`。
如果希望得到每个单元格的单独地址（`$B$5,$B$6,$B$7,$B$13,$B$19`），那么可以使用VBA处理一下。
				解决apt-get安装中的E: Sub-process /usr/sbin/dpkg-preconfigure --apt || true received a segmentation fault.
E: Failure running script /usr/sbin/dpkg-preconfigure --apt || true
E: Sub-process /usr/bin/dpkg returned an error code (1)问题
cd /var/lib/dpkg/
sudo mv inf
				使用VBA打印工作表和工作簿文件都很容易实现，但是有时需要使用VBA打印已经保存在本机的其他文件，例如PDF文件格式的账单，如果这个PDF并非由Excel生成的那么就无法使用前述方法实现。
调用Windows的Shell命令可以实现打印PDF文件。
shell 函数只可以执行.exe .com .bat 的可执行文件。
ShellExecute 是个api函数，可以执行与Windows系统相关联的文件。比如： 
shell "c:\1.doc" 应该报错的，因为shell只能执行.exe .com .bat 
应：ShellExecute Me.hwnd, "open", "C:\1.doc", "", "", 0
ShellEx...
				相比一些常用的字符串操作函数，正则表达式才是王者啊，功能强大很多！'一 正则表达式
   '正则表达式是处理字符串的外部工具，它可以根据设置的字符串对比规则，进行字符串的对比、替换等操作。
   '正则表达式的作用：
     '1、完成复杂的字符串判断
     '2、在字符串判断时，可以最大限度的避开循环，从而达到提高运行效率的目的。
'二 使用方法
   '1、引用...