Excel_VBA_编程教程(完整版)excel高级教程VBA - Excel编程概念之：【单元格和区域】一、如何引用单元格和区域
使用Visual Basic的普通任务是指定单元格或单元格区域，然后对该单元格或单元格区域进行一些操作，如输入公式或更改格式。通常用一条语句就能完成操作，该语句可标识单元格，还可更改某个属性或应用某个方法。
在Visual Basic中，Range 对象既可表示单个单元格，也可表示单元格区域。下列主题说明了标识和处理Range对象最常用的方法。
用A1样式记号引用单元格和单元格区域可使用Range属性来引用A1引用样式中的单元格或单元格区域。下述子程序将单元格区域A1:D5的字体设置为加粗。
Sub FormatRa nge()
Workbooks("Book1").Sheets("Sheet1").Ra nge("A1:D5") _
.Fo
nt.Bold :
End Sub
下表演示了使用=True
Range属性的一些A1样式引用。
引用
Ran ge("A1") Ra
nge("A1:B5") 含义
单元格A1
从单元格A1到单元格B5的区域
Ra nge("C5:D9,G9:H16")多块选定区域
Ran ge("A:A") Ran ge("1:1") Ran ge("A:C") Ran ge("1:5")
A列
第一行
从A列到C列的区域从第一
行到第五行的区域
Range("1:1,3:3,8:8") 第1、3 和8 行
Range("A:A,C:C,F:F") A、C 和F 列
用编号引用单元格
通过使用行列编号，可用Cells属性来引用单个单元格。该属性返回代表单个单元格的Range对象。下例中，Cells(6,1)返回Sheet1上的单元格A6，然后将Value属性设置为10。
Sub En terValue()
Worksheets("Sheet1").Cells(6, 1).Value = 10
End Sub
因为可用变量替代编号，所以Cells属性非常适合于在单元格区域中循环，如
下例所示。
Sub CycleThrough()
Dim Coun ter As In teger
For Cou nter = 1 To 20
Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
Next Cou nter
End Sub
注意如果要同时更改某一单元格区域中所有单元格的属性或对其应用方法，可使用Range属性。有关详细信息，请参阅用A1样式记号引用单元格。
引用行和列
可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单元格区域的Range对象。下例中，用Rows⑴返回Sheet1上的第一行，然后将单元格区域的Font对象的Bold属性设置为True。
Sub RowBold()
Worksheets("Sheet1").Rows(1).Fo nt.Bold = True
End Sub
下表举例说明了使用Rows和Columns属性的一些行和列的引用。
引用含义
Rows(1) 第一行
Rows 工作表上所有的行
Colu mn s(1) 第一列
Colum ns("A") 第一列
Columns 工作表上所有的列
若要同时处理若干行或列，请创建一个对象变量并使用Union方法，将对Rows属性或Columns属性的多个调用组合起来。下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。
Sub SeveralRows()
Worksheets("Sheet1").Activate
Dim myU nion As Range
Set myU nio n = Un io n(Rows(1), Rows(3), Rows(5))
myU nion .F on t.Bold = True
End Sub
用快捷记号引用单元格
可用方括号将A1引用样式或命名区域括起来，作为Range属性的快捷方式。这样就不必键入单词“ Range或使用引号，如下例所示。
Sub ClearRa nge()
Worksheets("Sheet1").[A1:B5].CIearCo nte nts
End Sub
Sub SetValue()
[MyRa nge].Value = 30
End Sub
引用命名区域
用名称比用A1样式记号更容易标识单元格区域。若要命名选定的单元格区域，请单击编辑栏左端的名称框，键入名称，再按En ter。
引用命名区域
下例引用了名为“ MyBook.xls的工作簿中的名为“ MyRa nge的单元格区域。
Sub FormatRa nge()
Ran ge("MyBook.xls!MyRa nge").Fo nt.ltalic = True
End Sub
下例引用名为“ Report.xls的工作簿中的特定工作表单元格区域“ Sheet1!Sales
Sub FormatSales()
Ra nge("[Report.xls]Sheet1!Sales").BorderArou nd Weight:=xlthin
End Sub
若要选定命名区域，请用GoTo方法，该方法将激活工作簿和工作表，然后选
定该区域
Sub ClearRa nge()
Applicatio n.Goto Refere nce:="MyBook.xls!MyRa nge"
Selecti on. ClearC ontents
End Sub
下例显示对于活动工作簿将如何编写相同的过程。
Sub ClearRa nge()
Applicatio n. Goto Refere nce:="MyRa nge"
Selecti on. ClearC ontents
End Sub
在命名区域中的单元格上循环
下例用For Each...Next循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过limit的值，就将该单元格的颜色更改为黄色。
Sub ApplyColor()
Const Limit As In teger = 25
For Each c In Ra nge("MyRa nge")
If c.Value > Limit Then
c.ln terior.ColorI ndex = 27
End If
Next c
End Sub
相对于其他单元格来引用单元格
处理相对于另一个单元格的某一单元格的常用方法是使用Offset属性。下例中, 将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。
Sub Un derli ne()
ActiveCell.Offset(1, 3).Fo nt.U nderli ne = xlDouble
End Sub
注意可录制使用Offset属性(而不是绝对引用)的宏。在工具”菜单上，指向宏”再单击录制新宏”然后单击确定”再单击录制宏工具栏上的相对引用” 按钮。
若要在单元格区域中循环，请在循环中将变量与Cells属性一起使用。下例以5 为步长，用5至V 100之间的值填充第三列的前20个单元格。变量counter 用作Cells 属性的行号。
Sub CycleThrough()
Dim coun ter As In teger
For coun ter = 1 To 20
Worksheets("Sheet1").Cells(cou nter, 3).Value = coun ter * 5 Next coun ter
End Sub
用Range对象引用单元格
如果将对象变量设置为Range对象，即可用变量名方便地操作单元格区域。
下述过程创建了对象变量myRange，然后将活动工作簿中Sheetl上的单元格区域A1:D5赋予该变量。随后的语句用该变量代替该区域对象，以修改该区域的属性。
Sub Ran dom()
Dim myRa nge As Range
Set myRa nge = Worksheets("Sheet1").Ra nge("A1:D5")
myRa nge.Formula = "=RAND()"
myRa nge.F on t.Bold = True
End Sub
引用工作表上的所有单元格
如果对工作表应用Cells属性时不指定编号，该属性将返回代表工作表上所有单元格的Range对象。下述Sub过程清除活动工作簿中Sheet1上的所有单元格的内容。
Sub ClearSheet()
Worksheets("Sheet1").Cells.ClearCo nte nts
End Sub
引用多个单元格区域
使用适当的方法可以很容易地同时引用多个单元格区域。可用Range和Union
方法引用任意组合的单元格区域；用Areas属性可引用工作表上选定的一组单元格区域。
使用Range属性
通过在两个或多个引用之间放置逗号，可使用Range属性来引用多个单元格区域。下例清除了Sheet1上三个单元格区域的内容。
Sub ClearRa nges()
Worksheets("Sheet1").Ra nge("C5:D9,G9:H16,B14:D18"). _
ClearC ontents
End Sub
命名区域使得用Range属性处理多个单元格区域更为容易。下例可在三个命名区域处于同一工作表时运行。
Sub ClearNamed()
Ran ge("MyRa nge, YourRa nge, HisRa nge").CIearCo nte nts
End Sub
使用Union方法
用Union方法可将多个单元格区域组合到一个Range对象中。下例创建了名
为myMultipleRange 的Range 对象，并将其定义为单元格区域A1:B2和
C3:D4的组合，然后将该组合区域的字体设置为加粗。
Sub MultipleRa nge()
Dim r1, r2, myMultipleRa nge As Range
Set r1 = Sheets("Sheet1").Ra nge("A1:B2")
Set r2 = Sheets("Sheet1").Ra nge("C3:D4")
Set myMultipleRa nge = Union (r1, r2)
myMultipleRa nge.F on t.Bold = True
End Sub
使用Areas属性
可用Areas属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目，如果有多个块，就显示一则警告消息。
Sub Fi ndMultiple()
If Selection.Areas.Count > 1 Then
MsgBox "Ca nnot do this to a multiple selectio n."
End If
End Sub
VBA - Excel编程概念之：【单元格和区域】二、在单元格区域中循环
在单元格区域中循环
使用Visual Basic时，经常需要对某一单元格区域内的每个单元格运行同一段语句。为达到这一目的，可组合循环语句和一个或多个方法来标识每个单元格，一次针对一个单元格，并执行该操作。
在单元格区域中循环的一种方法是将For...Next循环语句与Cells属性配合
使用。使用Cells属性时，可用循环计数器(或其他变量或表达式)来替代单元格索引编号。下例中，变量counter代替了行号。此过程将在单元格区域
C1:C20中循环，将所有绝对值小于0.01的数字都设置为0 (零)。
Sub Rou ndToZero1()
For Cou nter = 1 To 20
Set curCell = Worksheets("Sheet1").Cells(Counter, 3)
If Abs(curCell.Value) < 0.01 Then curCell.Value = 0
Next Cou nter
End Sub
在单元格区域中循环的另一种简便方法是使用For Each...Next循环语句和由Range属性指定的单元格集合。在每一次循环过程中，Visual Basic都为下一个单元格自动设置一个对象变量。下述过程在单元格区域A1:D10中循环，将所有绝对值小于0.01的数字都设置为0 (零)。
Sub Rou ndToZero2()
For Each c In Worksheets("Sheet1").Ra nge("A1:D10").Cells
If Abs(c.Value) < 0.01 Then c.Value = 0
Next
End Sub
如果不知道要循环的单元格区域的边界，可用Curre ntRegi on属性返回活动单元格周围的区域。例如，下述过程在工作表上运行时，将在活动单元格周围的区域内循环，将所有绝对值小于0.01的数字都设置为0 (零)。
Sub Rou ndToZero3()
For Each c In ActiveCell.Curre ntRegio n. Cells
If Abs(c.Value) < 0.01 Then c.Value = 0
Next
End Sub
Excel培训教材 目录 1 Excel简介 5 1.1 Excel界面简介 6 1.2 输入和编辑数据8 1.2.1 选定操作区域8 1.2.2 定位的使用9 1.2.3 复制、移动和删除9 1.2.4 撤消和恢复10 1.2.5 查找和替换10 1.2.6 在单元格中输入数据11 1.2.7 其他填充方式12 1.2.8 简单的计算13 1.2.9 相对引用和绝对引用14 1.2.10 名称的使用15 1.3 添加、删除单元格、行和列15 1.4 改变列宽和行高16 1.5 设置工作表的格式17 1.5.1 单元格的格式设置17 1.5.2 数据表的美化18 1.5.3 样式的使用和设置19 1.5.4 格式的复制和删除19 1.5.5 条件格式的设置19 1.5.6 隐藏行和列19 1.5.7 拼音的设置20 1.5.8 自动套用格式20 1.6 改变字体21 1.7 设置页面属性、预览和打印22
1.7.1 打印预览22 1.7.2 页面设置22 1.7.3 设置打印区域26 1.7.4 打印选项27 2 Excel的自定义功能 27 2.1 启动选项27 2.2 设置Excel选项28 2.3 自定义屏幕29 2.3.1 调色板的使用30 2.3.2 使用全屏视图30 2.3.3 储存当前工作簿中的视图30 2.4 录制和使用宏31 2.4.1 定义宏的键盘快捷键31 2.5 保存自定义工具栏的布局32 2.5.1 创建常规自定义工具栏32 3 EXCEL先进的浏览和选择功能33 3.1 移动浏览33 3.1.1 知道所处的位置33 3.1.2 键盘浏览33 3.1.3 跳转到定义名称34 3.1.4 用滚动条浏览34 3.2 选择的技巧35 3.2.1 Shift键的使用35 3.2.2 Ctrl键的使用35 3.2.3 在选区内浏览35 3.2.4 进行选择的快捷键35 3.3 数据输入36 3.3.1 正确输入36 3.3.2 从邻近的单元格复制数据36 3.3.3 充分利用“记忆式键入”功能36
Excel表格的基本操作——163种技巧 目录 一、基本方法7 1.快速选中全部工作表7 2.快速启动E XCEL7 3.快速删除选定区域数据 8 4.给单元格重新命名 8 5.在E XCEL中选择整个单元格范围9 6.快速移动/复制单元格9 7.快速修改单元格式次序 9 8.彻底清除单元格内容10 9.选择单元格10 10.为工作表命名11 11.一次性打开多个工作簿 11 12.快速切换工作簿13 13.选定超级链接文本（微软O FFICE技巧大赛获奖作品）13 14.快速查找14 15.修改默认文件保存路径 14 16.指定打开的文件夹 15 17.在多个E XCEL工作簿间快速切换15 18.快速获取帮助16 19.创建帮助文件的快捷方式16 20.双击单元格某边移动选定单元格16 21.双击单元格某边选取单元格区域17 22.快速选定不连续单元格 17 23.根据条件选择单元格17 24.复制或移动单元格 18
25.完全删除E XCEL中的单元格18 26.快速删除空行19 27.回车键的粘贴功能 19 28.快速关闭多个文件 20 29.选定多个工作表20 30.对多个工作表快速编辑 20 31.移动和复制工作表 21 32.工作表的删除21 33.快速选择单元格21 34.快速选定E XCEL区域（微软O FFICE技巧大赛获奖作品）22 35.备份工件簿22 36.自动打开工作簿23 37.快速浏览长工作簿 23 38.快速删除工作表中的空行23 39.绘制斜线表头24 40.绘制斜线单元格25 41.每次选定同一单元格26 42.快速查找工作簿26 43.禁止复制隐藏行或列中的数据27 44.制作个性单元格27 二、数据输入和编辑技巧28 1.在一个单元格内输入多个值 28 2.增加工作簿的页数 28 3.奇特的F4键29 4.将格式化文本导入E XCEL29 5.快速换行30 6.巧变文本为数字30 7.在单元格中输入0值31 8.将数字设为文本格式32
Excel表格学习教程（精心整理） 本人最近需要用的excel，所以就查到了一些觉得比较好的文章，稍加整理。整理的过程中才发现excel竟是如此强大，以前知道、用到的竟真的只是皮毛，可以说认真学会了这款办公软件，对你的帮助真的很大，绝对能让你的工作事半功倍！特记之！ ———题记本人共收集了网上广为流传的excel18个学习资料，去伪存真，整理在一起，希望看到的朋友批评指正！另外根据特殊人的需求编辑了另一篇比较高级的《Excel表格的35招必学秘技》放在本文最后，有兴趣研究excel的可以看看。 也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 目录 一、基本方法 1.快速选中全部工作表 2.快速启动EXCEL 3.快速删除选定区域数据 4.给单元格重新命名7 5.在EXCEL中选择整个单元格范围 6.快速移动/复制单元格 7.快速修改单元格式次序 8.彻底清除单元格内容 9.选择单元格 10.为工作表命名 11.一次性打开多个工作簿 12.快速切换工作簿 13.选定超级链接文本（微软OFFICE技巧大赛获奖作品） 14.快速查找 15.修改默认文件保存路径 16.指定打开的文件夹 17.在多个EXCEL工作簿间快速切换 18.快速获取帮助 19.创建帮助文件的快捷方式 20.双击单元格某边移动选定单元格 21.双击单元格某边选取单元格区域 22.快速选定不连续单元格 23.根据条件选择单元格 24.复制或移动单元格