Excel 宏基础知识-2

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隐藏”

image.png

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

image.png

所有工作表.png

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

image.png

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

image.png

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

image.png

Sub Hide_Unhide_Sheets()
Sheets("Details").Visible = False
Sheets("Details").Visible = True

Sheets("Properties").Visible = False
Sheets("Properties").Visible = True
End Sub