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(, ).Value = "VBA Range和Cells函数"
Cells(, ).Value = "Excel VBA"
Cells(, ).Value = "Excel VBA"
Cells(, ).Value = "Excel VBA"
Cells(, ).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(, ).Value = "Excel VBA"
End Sub Sub main()
Worksheets("Sheet2").Activate '修改表格的值
Worksheets("Sheet2").Range("D4").Value = "Excel VBA" '修改表格的宽度
Worksheets("Sheet2").Range("D4").ColumnWidth = '修改表格的高度
Worksheets("Sheet2").Range("D4").RowHeight = '修改表格的文字颜色为红色
Worksheets("Sheet2").Range("D4").Font.ColorIndex = '修改表格的背景颜色为绿色
Worksheets("Sheet2").Range("D4").Interior.ColorIndex =
End Sub Sub main()
Worksheets("Sheet2").Activate '修改表格的值
Worksheets("Sheet2").Range("D4").Value = "Excel VBA" '修改表格的宽度
Worksheets("Sheet2").Range("D4").ColumnWidth = '修改表格的高度
Worksheets("Sheet2").Range("D4").RowHeight = '修改表格的文字颜色为红色
Worksheets("Sheet2").Range("D4").Font.ColorIndex = '修改表格的背景颜色为绿色
Worksheets("Sheet2").Range("D4").Interior.ColorIndex =
End Sub ‘功能同上
Sub main()
With Worksheets("Sheet2")
.Activate
.Range("D4").Value = "Excel VBA"
.Range("D4").ColumnWidth =
.Range("D4").RowHeight =
.Range("D4").Font.ColorIndex =
.Range("D4").Interior.ColorIndex =
End With
End Sub ‘功能同上
Sub main()
With Worksheets("Sheet2")
.Activate
With .Range("D4")
.Value = "Excel VBA"
.ColumnWidth =
.RowHeight =
.Font.ColorIndex =
.Interior.ColorIndex =
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(, ), Cells(, )).Value = "Excel VBA入门"
End Sub
3. Excel行的选择
Sub setRowValueAndBgColor()
Range("B2:D3").EntireRow.Value = "Excel VBA"
Range("B2:D3").EntireRow.Interior.ThemeColor =
End Sub Sub setRowValueAndBgColor()
Range(Cells(, ), Cells(, )).EntireRow.Value = "Excel VBA"
Range(Cells(, ), Cells(, )).EntireRow.Interior.ThemeColor =
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 =
End Sub Sub setColumnValueAndBgColor()
Range(Cells(, ), Cells(, )).EntireColumn.Value = "Excel VBA"
Range(Cells(, ), Cells(, )).EntireColumn.Interior.ThemeColor =
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(, ), Cells(, )).Delete
End Sub Sub deleteCells()
'删除当前工作表的表格范围C1-D2(行数大于列数,剩余表格向左移动)
Range("C1:D2").Delete
End Sub '行和列的删除
Sub deleteRow()
'剩余表格整体向上移动
Range(Cells(, ), Cells(, )).EntireRow.Delete
End Sub Sub deleteColumn()
'剩余表格整体向左移动
Range(Cells(, ), Cells(, )).EntireColumn.Delete
End Sub
6. Excel表格内容的清除
方法 | 说明 |
---|---|
ClearContents | 清除表格内容 |
ClearFormats | 清除表格格式 |
ClearComments | 清除表格注释 |
ClearOutline | 清除表格组合 |
Clear | 清除所有(内容、格式、注释、组合) |
Sub clearCells()
'清除当前工作表B1-D3范围表格的所有设置
Range(Cells(, ), Cells(, )).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(, ), Cells(, )).Copy Destination:=Cells(, )
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(, ), Cells(, )).Cut Destination:=Cells(, )
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:="", Formula2:=""
.InCellDropdown = False ' 隐藏下拉框
.ShowError = True ' 提示输入错误
.IgnoreBlank = True ' 空白可
End With
End Sub
VBA基础之Excel VBA 表格的操作(一)的更多相关文章
- VBA基础之Excel 工作薄(Book)的操作(三)
三. Excel 工作薄(Book)的操作1. Excel 创建工作薄(Book) Sub addWorkbook() Workbooks.Add End Sub 2. Excel 打开工作薄(Boo ...
- 【VBA研究】Excel VBA利用ADODB访问数据库使用小结
[转自] http://blog.csdn.net/iamlaosong/article/details/18043433 作者:iamlaosong ▲连接Oracle数据库 Set cnn = C ...
- VBA基础之Excel 工作表(Sheet)的操作(二)
二. Excel 工作表(Sheet)的操作1. Excel 添加工作表(Sheet) 方法名 参数 参数值 说明 Add Before 工作表名称 在指定的工作表前面插入新的工作表 After 工作 ...
- 来吧!带你玩转 Excel VBA
来吧!带你玩转 Excel VBA 从错失良机到艰辛的DOS征程,从坎坷购机自学路到转机起程,从爱好到事业,他从一个完全不懂电脑的人到VBA高级应用者,一切全是自学…… 我是罗刚君,来自四川的一个小县 ...
- Excel VBA 操作 Word(入门篇)
原文地址 本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用 需要首先创建一个对 Word A ...
- Excel VBA基础教程
https://www.w3cschool.cn/excelvba/excelvba-basics.html Excel VBA语言基础 VBA语言的基础认识 详解VBA编程是什么 excel处理录制 ...
- Excel VBA入门(九)操作工作薄
虽然我前面讲过,在VBA中操作工作薄并不是件明智的事,但有些时候,还是避免不了要这么做.绝大多数情况下,我们要做的是获取到某个工作薄对象,并以此来获得其中的工作表对象,然后再对工作表中的数据进行处理. ...
- Excel VBA入门(五)Excel对象操作
本章是本系列教程的重点.但我觉得应该不是难点.从第零章开始到学完本章,应该可以把VBA用于实战中了. Excel对象主要有4个: 工作薄 Workbook 工作表 Worksheet 单元格区域 Ra ...
- Excel VBA表格自行开发计划
Excel VBA表格自行开发计划 要求功能 1. 批量删除 2. [X] 批量填充 3. [X] 批量重命名 4. [ ] 按颜色求和 5. [ ] 按底纹色选中单元格 6. [ ] 统计底纹颜色个 ...
随机推荐
- 浅谈HashMap与线程安全 (JDK1.8)
HashMap是Java程序员使用频率最高的用于映射(键值对)处理的数据类型.HashMap 继承自 AbstractMap 是基于哈希表的 Map 接口的实现,以 Key-Value 的形式存在,即 ...
- java中反射的基本使用
fanShe.java package example5;class fanShe{ /*1.应用在一些通用性比较高的代码中. *2.后面学的框架,大多数都是应用框架来实现的. ...
- iOS手势识别器
UIGestureRecognizer UIGestureRecognizer类,用于检测.识别用户使用设备时所用的手势.它是一个抽象类,定义了所有手势的基本行为.以下是UIGestureRecogn ...
- 一、Vue项目构建
Attention:以下内容为Mac机上运行,windows可能有所偏差- Step1 打开终端,键入npm install -g vue-cli,使用vue-cli脚手架搭建vue项目能省很多事儿- ...
- Android简单的编写一个txt阅读器(没有处理字符编码),适用于新手学习
本程序只是使用了一些基本的知识点编写了一个比较简单粗陋的txt文本阅读器,效率不高,只适合新手练习.所以大神勿喷. 其实想到编写这种程序源自本人之前喜欢看小说,而很多小说更新太慢,所以本人就只能找一个 ...
- mysql的char,varchar,text,blob
mysql的char,varchar,text,blob是几个有联系但是有有很大区别的字段类型,这算是mysql的基础吧,可是基础没有学好,恶补一下. 先简单的总结一下: char:定长,最大255个 ...
- python教程(二)·第一个python程序
几乎所有的计算机语言教程,不仅仅是python,都以这样一个相似的示例程序开始讲解--Hello World! 代码如下,简简单单的一行.想必稍微了解英语的读者,都能猜到这段代码功能吧. print( ...
- tutorials
https://github.com/HadrienG/tutorials https://github.com/galaxyproject/training-material/blob/master ...
- ORB-SLAM(五)KeyFrameDataBase类
关键帧数据库通过预先训练好的词典,维护一个向量std::vector<list<KeyFrame*> > mvInvertedFile; 该向量中mvInvertedFile[ ...
- struts2-01:作用域传值
方式一.使用ServletActionContext(耦合度高,不建议使用) public String login(){ ServletActionContext.getRequest().getS ...