已收录

一招制胜 | WPS表格——VBA生成指定内容的经典用法(7)(基础篇)

丁功令
丁功令 Lv.4 核心创作者KVP

Lv.4 核心创作者

⭐场景:使用VBA生成指定内容。

📢具体要求:使用VBA生成与标准相同的内容。

📌说明:本文属于基础知识的应用,建议高手大神可以直接跳过忽略。

步骤1:先打开WPS软件,新建一份表格,并输入相应的内容。如下图所示:我们来实际操作一下。

步骤2:点击【工具】,【开发工具】,【查看代码】,然后点击【插入】,【模块】,然后输入具体代码,如下所示:

Option Explicit

Sub test1()

Dim j As Integer

For j = 1 To 12

Cells(8, j).Value = j

Next j

With Range("A8:L8")

.Font.ColorIndex = 3

.Font.Bold = True

.Interior.Color = vbYellow

.Borders.LineStyle = xlContinuous

End With

End Sub

然后点击【运行】,就可以得到所要的结果。如下所示:

知识拓展:第二种方法

输入具体代码,如下所示:

Sub test2()

Dim i As Integer

i = 1

Do Until i > 12

ActiveSheet.Cells(13, i).Value = i

i = i + 1

Loop

With Range("A13:L13")

.Font.ColorIndex = 3

.Font.Bold = True

.Interior.Color = vbYellow

.Borders.LineStyle = xlContinuous

End With

End Sub

然后点击【运行】,就可以得到所要的结果。如下所示:

以上就是今天要分享的内容,欢迎大家评论区留言,谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

浏览 188
收藏
11
分享
11 +1
8
+1
全部评论 8
 
清新自然
👍👍👍👍
   河南省
举报
1
1
丁功令
丁功令Lv.4 核心创作者KVP

Lv.4 核心创作者

·
举报
0
0
 
S.C.M.浩
学习
举报
1
1
丁功令
丁功令Lv.4 核心创作者KVP

Lv.4 核心创作者

·
举报
0
0
 
亂雲飛渡
跟着丁老师学VBA
   广东省
举报
1
1
丁功令
丁功令Lv.4 核心创作者KVP

Lv.4 核心创作者

·
举报
0
0
 
戈壁雄鹰
戈壁雄鹰 Lv.1 新人创作者

Lv.1 新人创作者

跟着大佬学习VBA系列知识。
   浙江省
举报
1
1
丁功令
丁功令Lv.4 核心创作者KVP

Lv.4 核心创作者

感谢戈壁雄鹰老师的支持和鼓励,加油
·
举报
0
0