VBA常用语句

2019独角兽企业重金招聘Python工程师标准>>>

ThisWorkbook.Path	获取当前目录
MsgBox("hello world")	弹窗
Dim data As Worksheet     Set data = Sheets("录入表")	定义
Debug.print	立即窗口
Dim targetarray() As String	定义数组
IsNumeric(mtotalcharge)	判断是数字
originArray = Split(origin, Chr(10))	用回车来分割
UBound(originArray)	数组最大下标
LBound(originArray)	数组最小下标
Dim i As Integer For i = LBound(originArray) To UBound(originArray)     If i = 2 Then Exit For     Debug.Print originArray(i)     Debug.Print "-----------" Next	循环数组 跳出数组
Cstr	转换成文本
Dim date1 As Date date1 = sheetSource.Range("A1").Value   datestr = UCase(Format(date1, "ddMMM"))	日期格式化
UCase	大写
Cells(24, 4)	根据行号列号选中单元格
sheet_FHL.Range("b2", "c2").Clear	清理数据
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$4" Then Dim barcode     barcode = Range("B3").Value     Range("B9") = barcode     Range("B3").Select End If End Sub	单元格内回车触发事件
Sub createFile() Application.ScreenUpdating = False     '目录处理     Dim folder As String     folder = "c:\test"     If Dir(folder, vbDirectory) = "" Then         MkDir (folder)     End If     '输出当前Excel的名字     Debug.Print ThisWorkbook.Name          '生成新文件     Dim wb As Workbook     Dim ws As Worksheet     Dim fileName As String     Set wb = Workbooks.Add     Set ws = wb.Worksheets.Add     'sheet 名字     ws.Name = "xxxxxxxxxxxxx"     '单元格填充     ws.Cells(1, 1).Value = ThisWorkbook.Name     fileName = Format(Date, "yyyymmdd") & Hour(Time) & Minute(Time) & Second(Time) & ".xls"     'Application.DisplayAlerts = False     ws.SaveAs (folder & "\" & fileName), FileFormat:=xlExcel8     Workbooks(fileName).Close (False)     'ThisWorkbook.Activate     'Application.DisplayAlerts = True     Debug.Print ("文件路径：" & folder & "\" & fileName)      Application.ScreenUpdating = True End Sub	生成excel文件

转载于:https://my.oschina.net/u/3301706/blog/3048724