VBA基础之Excel VBA 表格的操作(一)
一、Excel VBA 表格的操作
1. Excel表格的指定以及表格属性的设置
Sub main() '把表格B2的值改为"VBA Range和Cells函数" Range("B2").Value = "VBA Range和Cells函数" '把D4:E6范围内的每一个表格的值都改为"Excel VBA" Range("D4:E5").Value = "Excel VBA" End Sub Sub main() Cells(2, 2).Value = "VBA Range和Cells函数" Cells(4, 4).Value = "Excel VBA" Cells(4, 5).Value = "Excel VBA" Cells(5, 4).Value = "Excel VBA" Cells(5, 5).Value = "Excel VBA" End Sub Sub main() 'Worksheets("工作表名称").Activate Worksheets("Sheet2").Activate End Sub Sub main() Worksheets("Sheet2").Activate Worksheets("Sheet2").Range("D4").Value = "Excel VBA" Worksheets("Sheet2").Cells(5, 5).Value = "Excel VBA" End Sub Sub main() Worksheets("Sheet2").Activate '修改表格的值 Worksheets("Sheet2").Range("D4").Value = "Excel VBA" '修改表格的宽度 Worksheets("Sheet2").Range("D4").ColumnWidth = 20 '修改表格的高度 Worksheets("Sheet2").Range("D4").RowHeight = 30 '修改表格的文字颜色为红色 Worksheets("Sheet2").Range("D4").Font.ColorIndex = 3 '修改表格的背景颜色为绿色 Worksheets("Sheet2").Range("D4").Interior.ColorIndex = 4 End Sub Sub main() Worksheets("Sheet2").Activate '修改表格的值 Worksheets("Sheet2").Range("D4").Value = "Excel VBA" '修改表格的宽度 Worksheets("Sheet2").Range("D4").ColumnWidth = 20 '修改表格的高度 Worksheets("Sheet2").Range("D4").RowHeight = 30 '修改表格的文字颜色为红色 Worksheets("Sheet2").Range("D4").Font.ColorIndex = 3 '修改表格的背景颜色为绿色 Worksheets("Sheet2").Range("D4").Interior.ColorIndex = 4 End Sub ‘功能同上 Sub main() With Worksheets("Sheet2") .Activate .Range("D4").Value = "Excel VBA" .Range("D4").ColumnWidth = 20 .Range("D4").RowHeight = 30 .Range("D4").Font.ColorIndex = 3 .Range("D4").Interior.ColorIndex = 4 End With End Sub ‘功能同上 Sub main() With Worksheets("Sheet2") .Activate With .Range("D4") .Value = "Excel VBA" .ColumnWidth = 20 .RowHeight = 30 .Font.ColorIndex = 3 .Interior.ColorIndex = 4 End With End With End Sub
2. Excel表格范围的指定
'Rang params Sub main() Range("A3:D5").Value = "Excel VBA入门" '或者 Range("A3", "D5").Value = "Excel VBA入门" End Sub 'Cells params Sub main() Range(Cells(3, 1), Cells(5, 4)).Value = "Excel VBA入门" End Sub
3. Excel行的选择
Sub setRowValueAndBgColor() Range("B2:D3").EntireRow.Value = "Excel VBA" Range("B2:D3").EntireRow.Interior.ThemeColor = 5 End Sub Sub setRowValueAndBgColor() Range(Cells(2, 2), Cells(3, 4)).EntireRow.Value = "Excel VBA" Range(Cells(2, 2), Cells(3, 4)).EntireRow.Interior.ThemeColor = 5 End Sub Sub hideRowAndSetRowValue() Range("A2").EntireRow.Hidden = True Range("A4").EntireRow.Value = "Excel VBA" End Sub
4. Excel列的选择
Sub setColumnValueAndBgColor() Range("B2:D3").EntireColumn.Value = "Excel VBA" Range("B2:D3").EntireColumn.Interior.ThemeColor = 5 End Sub Sub setColumnValueAndBgColor() Range(Cells(2, 2), Cells(3, 4)).EntireColumn.Value = "Excel VBA" Range(Cells(2, 2), Cells(3, 4)).EntireColumn.Interior.ThemeColor = 5 End Sub
Sub hideColumnAndSetRowValue()
Range("A2").EntireColumn.Hidden = True
Range("A4").EntireColumn.Value = "Excel VBA"
End Sub
5. Excel表格的删除
| 方法名 | 参数 | 常量 | 说明 |
|---|---|---|---|
| Delete | Shift | xlShiftToLeft | 向左移动 |
| xlShiftUp | 向上移动 |
'表格的删除 Sub deleteCells() '删除当前工作表的表格范围B1-D3(行数等于列数，剩余表格向上移动) Range(Cells(1, 2), Cells(3, 4)).Delete End Sub Sub deleteCells() '删除当前工作表的表格范围C1-D2(行数大于列数，剩余表格向左移动) Range("C1:D2").Delete End Sub '行和列的删除 Sub deleteRow() '剩余表格整体向上移动 Range(Cells(1, 2), Cells(3, 4)).EntireRow.Delete End Sub Sub deleteColumn() '剩余表格整体向左移动 Range(Cells(1, 2), Cells(3, 4)).EntireColumn.Delete End Sub
6. Excel表格内容的清除
| 方法 | 说明 |
|---|---|
| ClearContents | 清除表格内容 |
| ClearFormats | 清除表格格式 |
| ClearComments | 清除表格注释 |
| ClearOutline | 清除表格组合 |
| Clear | 清除所有（内容、格式、注释、组合） |
Sub clearCells() '清除当前工作表B1-D3范围表格的所有设置 Range(Cells(1, 2), Cells(3, 4)).Clear End Sub Sub clearCellContents() '清除当前工作表A1-D4范围表格的内容（表格的其余设置不发生改变） Range("A1:D4").ClearContents End Sub Sub clearCellComments() '清除Sheet2工作表所有表格的注释 Worksheets("Sheet2").Cells.ClearComments End Sub Sub clearCellFormat() '清除当前工作表A1-D4表格的格式 Range("A1:D4").ClearFormats End Sub Sub clearCellOutline() '当前工作表的所有组合 Cells.ClearOutline End Sub
7. Excel表格的插入
| 方法名 | 参数 | 常量 | 说明 |
|---|---|---|---|
| Insert | Shift | xlShiftToLeft | 向左移动 |
| xlShiftUp | 向上移动 |
8. Excel表格的拷贝和粘贴
| 方法名 | 参数 | 说明 |
|---|---|---|
| Copy | Destination | 指定粘贴位置的Range对象 |
Sub copyCells() '把B1-D3拷贝到F5-H7 Range(Cells(1, 2), Cells(3, 4)).Copy Destination:=Cells(5, 6) End Sub Sub copyCells() '把B1-D3拷贝到F5-H7 Range("B1:D3").Copy Destination:=Range("F5") End Sub Sub copyCells() '把当前工作表的B1-D3拷贝到F5-H7 ActiveSheet.Range("B1:D3").Copy Destination:=Range("F5") End Sub Sub copyCells() '把工作表Sheet1的B1-D3拷贝到工作表Sheet2的F5-H7 Worksheets("Sheet1").Range("B1:D3").Copy Destination:=Worksheets("Sheet2").Range("F5") End Sub
9. Excel表格的剪切和粘贴
| 方法名 | 参数 | 说明 |
|---|---|---|
| Cut | Destination | 指定粘贴位置的Range对象 |
Sub copyCells() '把B1-D3剪切到F5-H7 Range(Cells(1, 2), Cells(3, 4)).Cut Destination:=Cells(5, 6) End Sub Sub copyCells() '把B1-D3剪切到F5-H7 Range("B1:D3").Cut Destination:=Range("F5") End Sub Sub copyCells() '把当前工作表的B1-D3剪切到F5-H7 ActiveSheet.Range("B1:D3").Cut Destination:=Range("F5") End Sub Sub copyCells() '把工作表Sheet1的B1-D3剪切到工作表Sheet2的F5-H7 Worksheets("Sheet1").Range("B1:D3").Cut Destination:=Worksheets("Sheet2").Range("F5") End Sub
10. VBA单元格数据有效性设置
Sub addValidation() With Range("A1:A20").Validation .Delete ' 删除现在的有效数据设置 ' 设置新的有效数据数据（男，或者女） .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="男,女" .InCellDropdown = True ' 显示下拉框 .ShowError = True ' 提示输入错误 .IgnoreBlank = True ' 空白可 End With End Sub Sub addValidation() With Range("B2").Validation .Delete ' 删除现在的有效数据设置 ' 设置新的有效数据数据（18-60之内的数字） .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="18", Formula2:="60" .InCellDropdown = False ' 隐藏下拉框 .ShowError = True ' 提示输入错误 .IgnoreBlank = True ' 空白可 End With End Sub
