Excel教程：实用的VBA代码，赶紧保藏！-外链论坛

5ep9lzv 发表于 2024-10-1 19:22:23

Excel教程：实用的VBA代码，赶紧保藏！

回复[目录]学习113篇Excel教程
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMyNDmBGzGRtxMH3iaH2Y4ymrult7ic3Qxz8fZib5LJF78otFT256MRPNwoSMUx1E4frA4Lsiaj2P6XwSA/640?tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
全套Excel视频教程，扫码观看！
编按： 
哈喽，大众好！昨天和大众承诺，“在看”数超过30，博主明天就继续爆肝更新VBA!感谢大众的支持，没想到昨天的文案“在看”数已然快100了！既然如此，那博主自然亦不可辜负大众的信任，今天咱们继续学习VBA！
【前言】
在上一篇文章中，作者E图表述给大众分享了关于RANGE对象引用的办法。经过回馈的信息来看，和作者想的同样——确实有非常多的朋友，晓得并且想学习EXCEL VBA知识。
那就让咱们继续上次的内容，依然来讲RANGE。亦许朋友们会问，为何还是RANGE呢？由于在EXCEL中，只要是数据处理的问题，最后都会归结为单元格的引用和操作。即便是操作其他的对象，最后亦会将内存中计算或提取的数据结果，赋值到单元格中来，因此说基本永远是基本，根基稳了，高级操作才可压的住。
1
单元格的偏移
在工作表函数中，有一个OFFSET函数，作者E图表述之前亦专门写过它的文案《<a style="color: black;">月薪上万必学10大excel函数之十：它身负5大绝技，是动态统</a>计之王》，不熟练这个函数的朋友能够瞧瞧，由于倘若朋友们理解了这个函数的原理，那样对下面的两个RANGE属性，将有很大的帮忙。温馨提示：加入下面QQ群：1043683754，下载教程配套的课件练习操作。
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNBD1clsic64kHta8l6SGxJIhPxpZp17ru4ozaL4aTduCPosePO2x7keQ/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
1.RANGE.OFFSET属性
大众能够看出OFFSET的写法都是同样的，在工作表函数中，OFFSET函数是既有偏移的功能，亦有指定引用范围是几行几列的功能。可是在VBA中RANGE.OFFSET属性仅有偏移的功效。如下代码：Sub 求和() Dim rg As Range Set rg = Range("C2")rg.Value = rg.Offset(0, -2) + rg.Offset(0, -1)End Sub
<img src="https://mmbiz.qpic.cn/mmbiz_gif/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNSNdlqnuOsacE2icFUSvW2YQSvzsoG6VznJ4BJ4mTibdjJWQEekicmZWdQ/640?wx_fmt=gif&tp=webp&wxfrom=5&wx_lazy=1" style="width: 50%; margin-bottom: 20px;">
【代码解析】：
Line1：定义rg为单元格变量；
Line2：将单元格位置C2赋值给rg变量；
Line3：rg向左偏移两个位置的单元格+rg向左偏移一个位置的单元格，最后将计算结果赋值给rg变量。
经过上面的代码解析，咱们能够看出OFFSET属性的功效，其含义便是按照基点单元格，根据参数进行偏移，以偏移后的位置做为新的基点。
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNchctv88RJhSS8jTFOJCyb6sJNn5H8ziabF8v42ibholicOYoibtc2oH8dQ/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
2.RANGE.RESIZE属性
相针对一个基点的位置，咱们能够运用VBA来选取引用区域的面积有多大，这儿就需要运用RANGE.RESIZE属性了，如下代码：Sub 统计()Range("B5") = Application.WorksheetFunction.Sum(Range("B2").Resize(1, 3)) Range("B6") = Application.WorksheetFunction.Average(Range("B2").Resize(1, 3))Range("B7") = Application.WorksheetFunction.Max(Range("B2").Resize(1, 3)) Range("B8") = Application.WorksheetFunction.Min(Range("B2").Resize(1, 3))End Sub
<img src="https://mmbiz.qpic.cn/mmbiz_gif/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNHtsWsn2HLHTclwymbiacA8ZfpgBcQXMNCNvaCGjAKdxdBlLGNYnSCsA/640?wx_fmt=gif&tp=webp&wxfrom=5&wx_lazy=1" style="width: 50%; margin-bottom: 20px;">
【代码解析】：
Line1：调用工作表函数SUM，对基于单元格位置B2起始的1行3列的区域进行求和运算，并将结果赋值给单元格B5；
Line2：调用工作表函数AVERAGE，原理同Line1，对该区域进行平均值运算，并将结果赋值给单元格B6；
Line3：调用工作表函数MAX，原理同Line1，对该区域进行最大值运算，并将结果赋值给单元格B7；
Line4：调用工作表函数MIN，原理同Line1，对该区域进行最小值运算，并将结果赋值给单元格B8；
尤其提示
Application.WorksheetFunction这句代码便是调用工作表函数的语句，后面接写工作表函数，与平常运用函数的办法同样，只需记得单元格对象的表达方式，写成RANGE或CELLS就可。这个语句咱们在前一篇文案《<a style="color: black;">花了</a>6小时，仅为你写出一篇能够学懂的VBA教程！》中亦说到过。
经过上面的代码解析，咱们能够看出RESIZE属性的功效，其含义便是按照基点单元格，根据参数进行扩展，以扩展后的区域做为新的操作对象。
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNvyJYRzusBaLvfhc8AMKSHxaZibMCPgydaj2WPsCqIjO4LtPX2RbopJA/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
小结
RANGE的OFFSET属性和RESIZE属性的结合，和工作表函数OFFSET的功能是同样的，这在以后咱们讲到数组、字典时，都会有非常多的应用，期盼朋友们能够在文案中有所把握。
2
“首行、首列”与“末行、末列”
在本小节中，作者E图表述将带领大众一块学习在运用EXCEL VBA过程中最频繁的语句之一，“查询数据源的起末范围，以及引出行列号”。
在之前的学习中，咱们已然说过，单元格的操作将是朋友们日后运用EXCEL VBA中操作最多的对象（无之一），因此针对引用一个单元格区域，晓得这个区域的起末范围，针对快速写出对应的引用表达式是非常关键的。例如下面的数据源：
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNug7ePbRcVKRGvzKmOBKY2lT1k29PwtNPicsTBuvurvnmWKPzgncSoZA/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
这般的一个数据源，有几行几列呢？很简单，数一数，15行8列。然则电脑不会像咱们这般“数”，计算机的任何操作都是基于人工赋予的指令。因此它需要咱们写出EXCEL能够识别的语言，才可执行和咱们同样“数”的过程。
1.RANGE.END属性
咱们都晓得一个小技巧，便是在一个工作表数据源范围内，选中某一个单元格，分别按：
CTRL+←，能找到连续区域的左边界；
CTRL+→，能找到连续区域的右边界；
CTRL+↑，能找到连续区域的上边界；
CTRL+↓，能找到连续区域的下边界。
在VBA中有一样效果的语句，便是RANGE.END属性，对应的规律亦是相当的易懂易记，不信你看下表：
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNkUXlpXTpmmImKiceVl4iaXJxVSqKvrlmafFjFtDxNv4PibRG9InRDRZsA/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
照片有误end3暗示↑，end4暗示↓。举个例子看一下，数据源如下：
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNvXicGB7CH4EKdGMn0O6CW5cszpvGNNhHiaYuJRIutqncWeORC6H6aXKA/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
为了更好地说明代码的应用，作者E图表述去掉了行号和列号的标题栏，用VBA来确定这个行列的起止范围，代码如下：Sub 末行末列() With Sheets("范围确认") a = .Range("A100000").End(xlUp).Row b = .Range("AX1").End(1).Column .Cells(a + 2, b - 1) = "末行号是：" & a.Cells(a + 3, b - 1) = "末列号是：" & b End WithEnd Sub
<img src="https://mmbiz.qpic.cn/mmbiz_gif/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNF1Dm5oukUbz0q8LuQibeGawtrppyoOBWY4hBViaPELuAUoVuo19FB4PA/640?wx_fmt=gif&tp=webp&wxfrom=5&wx_lazy=1" style="width: 50%; margin-bottom: 20px;">
【代码解析】：
Line1：WITH语句，提取代码中相同的父级对象（Sheets("范围确认")），做为公共从属关系；
Line2：以A100000单元格为基点，End（xlUp）向上取连续区域的边界，用Row属性表示此边界单元格的行号，并赋值给变量a；
Line3：以AX1单元格为基点，End（1）向左取连续区域的边界，用Column属性表示此边界单元格的列号，并赋值给变量b；
Line4：Cells（a+2，b-1），咱们上次已然说过怎样用CELLS表达单元格位置，那样把末行下移两行，末列左移一列，做为输入单元格，输入字符串，这儿的&和工作表中的&是一样的效果；
Line5：原理同Line4；
Line6：WITH语句的结束语句。
这段代码中只写出了End（xlUp）和End（xlLeft）的用法，大众能够尝试着写写其他的效果。
小思考
1.为何我的单元格基点，用了“A100000”和“AX1”？
2.为何网上有的代码会用A65000这个单元格行号？
3.倘若要找到首行或首列，是不是从末行再End（xlUp）便是首行，或从数据中部的某个单元格End（xlUp）亦是首行；首列同理？
倘若你还无思路，就想想CTRL+箭头，你是从哪个单元格做为基点的。
3
单元格的“行”和“列”
行列交叉，整齐有序，纵横间便是咱们的电子表格，那样“既要纵横，岂能不谈行列”。
经过上面的代码，咱们应该已然发掘RANGE.ROW和RANGE.COLUMN两个属性，分别是表率指定单元格的“行号”和“列号”，这个记起来应该亦不难，毕竟在工作表函数中，亦有ROW函数和COLUMN函数。
那朋友们可能会说，工作表函数中亦有ROWS和COLUMNS函数，机智如你，是的，VBA中亦有 RANGE.ROWS和RANGE.COLUMNS属性。那样结合这些属性，咱们一块举一个案例看一下：
<img src="https://mmbiz.qpic.cn/mmbiz_png/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNvOGO5M0lpFvWtyqDHfw5QPs0dqX2VwXuvVQq6mLFrcmOt0G3WDz3icw/640?wx_fmt=png&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
【Step1】：新建一个工作表，命名为“RC属性”；
【Step2】：在工程窗口中，双击“RC属性”工作表对象，在通用菜单栏中选取Worksheet；
【Step3】：在右边的菜单栏中选取SelectionChange事件（选择改变时，触发代码）；
【Step4】：输入代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <= 10 And Target.Column = 1 Thena = Target.Row Range(Cells(1, 3), Cells(a, 3 + a - 1)).Select Set Rng = Selection.Rows MsgBox Rng.Address End IfEnd Sub
<img src="https://mmbiz.qpic.cn/mmbiz_gif/k6kCsib3eJMwhTOkH3Peu5jf8j1zyYJKNkNMNY3o6zf44RRnGHg86b6qeXmDuTDibXTb3ibCMJibaPOt5ZibYl0RnRQ/640?wx_fmt=gif&tp=webp&wxfrom=5&wx_lazy=1" style="width: 50%; margin-bottom: 20px;">
【代码解析】：
Line1：判断当被选中对象的行号少于等于10，并且列号等于1的时候；
Line2：将被选中的单元格行号赋值给一个变量a；
Line3：运用Range（cells，cells）的表达式，构建一个按照备选单元格行号，列出的单元格区域。例如：选取第3行，就构建以C1单元格为左上角的3*3单元格矩阵，并且选中这个区域；
Line4：运用ROWS属性，将SELECTION（被选中的单元格）中触及的单元格赋值给Rng变量；
Line5：运用MSGBOX函数，表示Rng.ADDRESS（位置）属性信息框。
【编后语】
今天的信息量又是不少（我从来不写单一的内容），每日进步一点点，忘了就回来再瞧瞧，持之以恒的前提下，更应该明白“天道酬勤”的道理。“多看、多练、多总结”永远是成功者的不二法门。扫二维码免费学Excel等视频
<img src="https://mmbiz.qpic.cn/mmbiz_jpg/k6kCsib3eJMzLMNY3tmydYrMXwms5VVgIyTvkIdB7lmxzeuYFk4aMNZIthiaqNe6b3on1No13UPp6T3jNPWDEVOA/640?wx_fmt=jpeg&tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;"><img src="https://mmbiz.qpic.cn/mmbiz_png/b96CibCt70iabwjyojLhA03PtxUnkNPREnYMIXQoTgtW6libdMibQVNic3eZhU08VyWfSQWdI82zIYSzSTq4Y3YV9nQ/640?tp=webp&wxfrom=5&wx_lazy=1&wx_co=1" style="width: 50%; margin-bottom: 20px;">
Excel教程关联举荐<a style="color: black;">花了6小时，仅为你写出一篇能够学懂的VBA教程！</a><a style="color: black;">Excel教程：19秒，搞定16000行Excel数据自动分组编号！</a><a style="color: black;">再见Ctrl+C！提取1000个文件名，用它10秒都嫌多！【Excel教程】</a><img src="data:image/svg+xml,%3C%3Fxml version=1.0 encoding=UTF-8%3F%3E%3Csvg width=1px height=1px viewBox=0 0 1 1 version=1.1 xmlns=http://www.w3.org/2000/svg xmlns:xlink=http://www.w3.org/1999/xlink%3E%3Ctitle%3E%3C/title%3E%3Cg stroke=none stroke-width=1 fill=none fill-rule=evenodd fill-opacity=0%3E%3Cg transform=translate(-249.000000, -126.000000) fill=%23FFFFFF%3E%3Crect x=249 y=126 width=1 height=1%3E%3C/rect%3E%3C/g%3E%3C/g%3E%3C/svg%3E" style="width: 50%; margin-bottom: 20px;">
让工作提速百倍的「Excel极速贯通班」
↓ 点击阅读原文，可直接购买。
倘若对你有帮忙，点下“在看”呦<img src="data:image/svg+xml,%3C%3Fxml version=1.0 encoding=UTF-8%3F%3E%3Csvg width=1px height=1px viewBox=0 0 1 1 version=1.1 xmlns=http://www.w3.org/2000/svg xmlns:xlink=http://www.w3.org/1999/xlink%3E%3Ctitle%3E%3C/title%3E%3Cg stroke=none stroke-width=1 fill=none fill-rule=evenodd fill-opacity=0%3E%3Cg transform=translate(-249.000000, -126.000000) fill=%23FFFFFF%3E%3Crect x=249 y=126 width=1 height=1%3E%3C/rect%3E%3C/g%3E%3C/g%3E%3C/svg%3E" style="width: 50%; margin-bottom: 20px;">

4zhvml8 发表于 2024-10-18 20:14:47

回顾历史，我们感慨万千；放眼未来，我们信心百倍。

页: [1]

外链论坛's Archiver

Excel教程：实用的VBA代码，赶紧保藏！