网易首页 > 网易号 > 正文 申请入驻

零基础学会VBA循环嵌套,让复杂化工作变为可能,简直不要太简单

0
分享至

Hi,大家好,本专栏将会从零开始和大家用图文的方式,让你从零基础学会VBA!有兴趣的小伙伴可以持续关注我,或者在专栏自我查看学习,愿与君携手共进!

经过前面的几个章节的学习,相信你已经见识了很多种循环了的基本使用方法和语法,熟悉了解每种循环过程示范每个循环结构的使用。你殊不知在我们日常的编写过程中,经常会遇到将一个循环放置在另外一循环中的,通俗意义上说的是循环嵌套的使用。VBA允许将不同类型的循环(For和Do循环)“嵌套”在同一个过程里。因此当我们编写循环嵌套时,请确保每个内部的循环在外部循环里面已经完成。另外,每个循环都必须有其自己独特的计数器变量(如i,j)。如果使用循环嵌套,那么你可以更有效地,更加高效的执行特定的任务。

下面显示的过程ColorLoop示范如何嵌套一个For…Next循环在另一个For…Next循环里面,此段代码使用了两个For…Next循环来改变工作表中前面八行和七列里的每个单元格的颜色。当外部的循环在追踪行号的时候,内部的循环在做更多的事情,它首先确定当前的列号,基于当前的行号的列号选择适当的单元格,然后给所选的单元格设置颜色。

具体的运行原理所示所示,有兴趣的小伙伴可以看看:

现在我们举一个实际应用简单的例子,我们非常常见的九九乘法表的制作,当然这个也可以使用函数公式(A1=IF(COLUMN()>ROW(),"",ROW()&"X"&COLUMN()&"="&ROW()*COLUMN())

)来完成制作,但是我们今天要和你分享的是如何使用代码来完成这个制作。现在我们一起来学习制作一个九九乘法表的思路。

Step-01 首先我们分析九九乘法表的数据结构,我们最终要得到的结果如下所示。

数据的基本结构为axb=c,那么这个结构就是我们的数据处理核心结构。如何将这个转化为代码呢?axb=c代码可以写成i & "x" & j & "=" & j * i。i和j是我们循环的变量,使用“&”将他们进行连接。

Step-02 有了第一步的数据结构,那么如何将数据按照要求写入到工作表中间呢?按照我们的顺序写入,这个就要使用我们的循环嵌套了,对单元格进行判断。具体代码如下所示:这个代码是最最简单的一个代码了,简单的嵌套循环。

Sub nine9()

Dim i As Byte, j As Byte, s As Byte

For i = 1 To 9

For j = i To 9

Cells(j, i) = i & "x" & j & "=" & j * i

Next j

Next i

End Sub

Step-03 如下我们说说要在这个循环嵌套里面在加入IF判断,那么代码应该如何写呢?如下所示:

Sub aaa()

Dim arr(1 To 9, 1 To 9)

Dim i, j As Integer

For j = 1 To 9

For i = 1 To 9

If j <= i Then

arr(i, j) = j & "x" & i & "=" & i * j

End If

Next i

Next j

Range("A1:I9") = arr

End Sub

Step-04 可能有的小伙伴们会说,如何使用Do Loop语句来完成这个呢?其实他也可以实现这个功能的,也是非常简单,如下所示。有兴趣的小伙伴们可以自行试试看。

Sub nine99()

Dim i As Byte, j As Byte, s As Byte

i = 1

j = 1

Do

Do Until j = 9

If j >= i Then

Cells(j, i) = i & "x" & j & "=" & j * i

End If

j = j + 1

Loop

i = i + 1

j = 1

Loop Until i = 9

End Sub

以上使用了三种方式实现九九乘法表的制作,这个其实非常的简单,相信你已经可以自行写下这个的代码。在这里你学习了如何在使用单层循环和多层循环嵌套。通过使用好几种类型的循环,你看到了每种循环都有他们自己的优点。当你在后面的学习中间有了一些经验后,你将更容易地选择合适的循环控制结构来执行你的需求。

在本专栏后续的章节中,将会有越来越多的使用循环的例子。例如,在下章里,你将看到如何使用数组合嵌套的循环来创建一个VBA过程,该过程将帮你选择彩票号码。在下章里,你将学习如何处理大量的数据,而不会迷失在变量的海洋里。

好啦!快乐的时间总是非常短暂的,又到了和大家说再见的时候,如果大家感觉本文如果对你有所帮助的话,请帮忙转发点赞,谢谢您能观看到现在,我们下期再见!

我是Excel教案,关注我持续分享更多的Excel技巧!

如果有不明白的或者不懂的可以在下方留言,我们会一一解答的。

特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.

相关推荐
热点推荐
房租没谈拢?北京劳力士闭店了,涉及商场涨价?网友议论纷纷!

房租没谈拢?北京劳力士闭店了,涉及商场涨价?网友议论纷纷!

眼光很亮
2024-12-23 14:20:53
韩国警方要求执政党前党鞭26日到案接受调查

韩国警方要求执政党前党鞭26日到案接受调查

环球网资讯
2024-12-23 14:59:23
集腋成裘:航空自卫队F-15J“全身补丁”中国77B式手枪现身拍卖会

集腋成裘:航空自卫队F-15J“全身补丁”中国77B式手枪现身拍卖会

hawk26讲武堂
2024-12-23 13:10:16
为什么胸口会“刺痛”几秒?是猝死前兆,还是心脏病?真相来了

为什么胸口会“刺痛”几秒?是猝死前兆,还是心脏病?真相来了

DrX说
2024-12-17 13:17:56
海南渔民捕上罕见龙趸鱼,像猪一样被人抬着走,卖5位数还亏了?

海南渔民捕上罕见龙趸鱼,像猪一样被人抬着走,卖5位数还亏了?

水泥土的搞笑
2024-12-23 14:58:54
梅根再遭公开打脸,被严厉抨击,苦苦支撑熬日子,不知能坚持多久

梅根再遭公开打脸,被严厉抨击,苦苦支撑熬日子,不知能坚持多久

译言
2024-12-23 10:48:25
黄蓉不俏了,华筝不多情了,徐克版的《射雕》雷到了不少人

黄蓉不俏了,华筝不多情了,徐克版的《射雕》雷到了不少人

蜜桔娱乐
2024-12-23 15:08:17
巴菲特,大举抄底!

巴菲特,大举抄底!

证券时报e公司
2024-12-23 12:28:20
51岁父亲再婚,叫我去参加婚礼,当看到挺着孕肚的继母时我愣住了

51岁父亲再婚,叫我去参加婚礼,当看到挺着孕肚的继母时我愣住了

民间精选故事汇
2024-12-12 12:10:03
甜瓜排第一!美媒评非名人堂最佳球星:罗斯仅第10 格里芬6小斯5

甜瓜排第一!美媒评非名人堂最佳球星:罗斯仅第10 格里芬6小斯5

锅子篮球
2024-12-23 18:40:19
重磅!就在下个月,房贷利率或将进入2字头~

重磅!就在下个月,房贷利率或将进入2字头~

合肥楼市点评
2024-12-23 14:45:20
清华大学研究发现:烟价上涨20%,可增加130万新生儿,提高生育率

清华大学研究发现:烟价上涨20%,可增加130万新生儿,提高生育率

小盖纪实
2024-12-23 18:33:50
吉利“帕拉梅拉”火了!比保时捷漂亮,销量突破25万台,还买啥比亚迪汉?

吉利“帕拉梅拉”火了!比保时捷漂亮,销量突破25万台,还买啥比亚迪汉?

隔壁说车老王
2024-12-22 17:25:59
中国比韩国小?韩国美女来中国旅游嫌中国小,十天后哭着不想离开

中国比韩国小?韩国美女来中国旅游嫌中国小,十天后哭着不想离开

清风游史
2024-12-23 12:03:47
三国轰炸也门,"抵抗之弧"正在瓦解!战争为何打到这一步?

三国轰炸也门,"抵抗之弧"正在瓦解!战争为何打到这一步?

智凌纵横
2024-12-23 08:27:00
7分2板2断!甩卖小贝弗利,火箭要清仓了,斯通曾要价一个首轮签

7分2板2断!甩卖小贝弗利,火箭要清仓了,斯通曾要价一个首轮签

巴叔GO聊体育
2024-12-23 16:49:26
林诗栋返京,一行人送别,依依不舍,教练一句“听话”惹人泪目

林诗栋返京,一行人送别,依依不舍,教练一句“听话”惹人泪目

美人茶话会
2024-12-23 15:29:51
为统一做准备?美媒:中国采购上百万架无人机,疑似准备最后一战

为统一做准备?美媒:中国采购上百万架无人机,疑似准备最后一战

书中自有颜如玉
2024-12-23 17:16:12
德国铁娘子魏德尔,对华更激进,她与马斯克“隔空认同”

德国铁娘子魏德尔,对华更激进,她与马斯克“隔空认同”

小彭谈历史
2024-12-21 00:07:03
现在手握大量现金的人,要偷笑了,原因有这4点

现在手握大量现金的人,要偷笑了,原因有这4点

小熊侃史
2024-12-23 07:40:03
2024-12-23 19:27:00
Excel教案
Excel教案
Excel专注办公技巧
92文章数 3902关注度
往期回顾 全部

科技要闻

官宣!本田日产达成基本协议:考虑整合

头条要闻

厅官受贿超6亿被判死缓 曾将25把管制刀具带上航空器

头条要闻

厅官受贿超6亿被判死缓 曾将25把管制刀具带上航空器

体育要闻

年终进球盛宴!这法老冲着金球奖来的?

娱乐要闻

影版《射雕》最新预告!肖战版郭靖大获好评

财经要闻

中国保险中介巨头,爆雷了

汽车要闻

柴油才对味 大通星际X 2.5T舒适得不像皮卡

态度原创

艺术
旅游
数码
手机
公开课

艺术要闻

故宫珍藏的墨迹《十七帖》,比拓本更精良,这才是地道的魏晋写法

旅游要闻

哈尔滨再成顶流:冰雪大世界门票被炒至7000

数码要闻

消息称英伟达 GB300 AI 服务器配备 1.6Tbps 光模块、LPCAMM 内存

手机要闻

小米天玑8系出货破3000万!REDMI Turbo系列将深度绑定天玑8系

公开课

李玫瑾:为什么性格比能力更重要?

无障碍浏览 进入关怀版