16.Excel VBA - Rows & Columns Insert
Sub insert_row_column()
'在C列前添加一列
Range("c:c").Insert
'在第一行之前添加一行
Range("1:1").Insert
'在第5行前添加一行
Range("b5").EntireRow.Insert
'在第b列前添加一列
Range("b5").EntireColumn.Insert
End Sub
17. Excel VBA - Column Width
Sub Column_width()
'两种方式调整列宽
Range("a1").ColumnWidth = 15
Range("a1").ColumnWidth = 25
Range("a1").ColumnWidth = 4
Range("a1").Columns.ColumnWidth = 15
Range("a1").Columns.ColumnWidth = 25
Range("a1").Columns.ColumnWidth = 4
End Sub
18. Excel VBA - Row Height
Sub row_height()
Range("a1").RowHeight = 100
Range("a1:a5").RowHeight = 10
Range("a1:a5").RowHeight = 20
Range("a1:a5").RowHeight = 30
Range("a1:a5").RowHeight = 40
Range("a1:a5").RowHeight = 50
Range("a1:a5").Rows.RowHeight = 10
End Sub
19. Excel VBA - Activate & Select 这两个好像没有什么区别
Sub activate_select()
Range("a2").Select
Range("a2:a5").Select
Range("a3").Activate
End Sub
20.Excel VBA - Columns Hide & Unhide
选中一列才有“hide隐藏”
Sub hide_unhide_columns()
Range("a:a").Columns.Hidden = True
Range("a:a").Columns.Hidden = False
Range("b:d").Columns.Hidden = True
Range("b:d").Columns.Hidden = False
End Sub
21.Excel VBA - Rows Hide and Unhide
Sub hide_unhide_rows()
Range("1:1").Rows.Hidden = True
Range("1:1").Rows.Hidden = False
Range("1:9").Rows.Hidden = True
Range("1:9").Rows.Hidden = False
End Sub
22.Excel VBA - Sheets Introduction
如何指定某个sheet(工作表)的某个单元格
Tips:右键单击这个小箭头会出现所有的sheets
Sub sheet_referencing()
Sheets(1).Range("a1:a10") = "Excel VBA"
Sheets("TutorialPoint").Range("a1:a10") = "Excel VBA"
End Sub
23. Excel VBA - Add Sheets
Sub add_sheets()
Sheets.Add
Worksheets.Add
Sheets.Add after:=Sheets("TutorialPoint")
Sheets.Add before:=Sheets("TutorialPoint")
End Sub
24. Excel VBA - Add Sheet with Names
Sub Add_Sheets_With_Names()
Sheets.Add
Sheets.Add.Name = "Properties"
End Sub
25. Excel VBA - Rename Sheets
Sub Rename_Sheets()
Sheets(1).Name = "Hello"
Sheets(5).Name = "World"
Sheets(7).Name = "Details"
End Sub
26. Excel VBA - Get Sheet Names
Sub Get_Sheet_Name()
MsgBox (Sheets(1).Name)
MsgBox (Sheets(2).Name)
MsgBox (Sheets(3).Name)
MsgBox (Sheets(4).Name)
MsgBox (Sheets(5).Name)
End Sub
27. Excel VBA - Move Sheets
Sub move_sheets()
'properties移动到details后面
Sheets("Properties").Move after:=Sheets("Details")
Sheets("Details").Move before:=Sheets("Hello")
End Sub
28. Excel VBA - Copy Sheets
Sub Copy_Paste_Sheet()
Sheets("Hello").Copy after:=Sheets("Properties")
Sheets("Hello").Copy before:=Sheets("Details")
End Sub
29. Excel VBA - Change Sheet Tab Color
Sub Tab_Color()
Sheets("Details").Tab.Color = vbBlack
Sheets("Details").Tab.Color = vbRed
Sheets("Details").Tab.Color = vbBlue
Sheets("Details").Tab.Color = vbCyan
Sheets("Details").Tab.Color = vbMagneta
Sheets("Details").Tab.ColorIndex = 1
Sheets("Details").Tab.ColorIndex = 10
Sheets("Details").Tab.ColorIndex = 20
Sheets("Details").Tab.Color = False
End Sub
30. Excel VBA - Hide and Unhide Sheets
Sub Hide_Unhide_Sheets()
Sheets("Details").Visible = False
Sheets("Details").Visible = True
Sheets("Properties").Visible = False
Sheets("Properties").Visible = True
End Sub