下面介绍一些常用的VBA程序代码和短代码。
1. 打开文件
Sub OpenFile()
Dim FilePath As String
FilePath = "C:\Users\UserName\Documents\Example.xlsx" '文件路径
Workbooks.Open (FilePath) '打开文件
End Sub
2. 保存文件
Sub SaveFile()
ActiveWorkbook.Save '保存当前工作簿
End Sub
3. 插入行
Sub InsertRow()
Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '在第二行插入一行
End Sub
4. 删除行
Sub DeleteRow()
Rows("2:2").Delete Shift:=xlUp '删除第二行
End Sub
5. 复制单元格
Sub CopyCell()
Range("A1").Copy Destination:=Range("B1") '将A1单元格复制到B1单元格
End Sub
6. 粘贴单元格
Sub PasteCell()
Range("B1").PasteSpecial Paste:=xlPasteValues '将B1单元格的值粘贴到其他单元格
End Sub
7. 循环语句
Sub LoopStatement()
Dim i As Integer
For i = 1 To 10 '循环10次
Range("A" & i).Value = i '将i的值赋给A列的第i行
Next i
End Sub
8. 条件语句
Sub IfStatement()
Dim Score As Integer
Score = Range("A1").Value '获取A1单元格的值
If Score >= 60 Then '如果分数大于等于60分
Range("B1").Value = "及格" '在B1单元格显示“及格”
Else '否则
Range("B1").Value = "不及格" '在B1单元格显示“不及格”
End If
End Sub
以上是一些常用的VBA程序代码和短代码，可以帮助提高工作效率和减少重复劳动。