文章来源:网络作者:凉月发布时间:2026-05-22 07:38:41
excel2007如何插入vba模块呢?大家对vba模块应该比较陌生吧,下面就一起来学习excel2007插入vba模块教程吧。
excel2007中的vba编程的使用方法
1:右击需要插入代码的表,如,本文要达成的目标是单击一个按钮,然后实现对B列3-11单元格的成绩进行等级评定。假设要实现目标的数据位置在Sheet1上,则右击Sheet1,依次单击“插入,模块”,即可打开代码输入框:

2:在打开的代码编辑框里面粘贴如下方的代码,然后直接单击VBA编辑器右上角的关闭按钮:
Sub 评定等级()
Dim i As Integer
For i = 3 To 11
t = Sheets(1).Cells(i, 2).Value \'取得成绩
If t >= 90 Then
j = "A"
ElseIf t >= 80 Then
j = "B"
ElseIf t >= 70 Then
j = "C"
ElseIf t >= 60 Then
j = "D"
Else
j = "E"
End If
Sheets(1).Cells(i, 3) = j
Next
End Sub

3:依次单击“开发工具,插入,按钮”:

4:在合适的位置直接左键拖出一个按钮,在弹出的“指定宏”对话框里面选择“评定等级”,然后单击“确定”:

5:单击刚添加的按钮“按钮1”:

6:按下按钮之后,即可在C列对应的表格里面显示成绩等级,如下:

以上就是excel2007插入vba模块教程,希望可以帮助到大家。

梦想三国之勇往直前0.1折

炼仙传说0.1折
仙侠01折
充值享永久0.1折福利,登录每日领2000免费代金券;;

不可思议的刀剑与魔法0.1折
卡牌01折
进游立送真充卡,开局自带“钞能力”

逍遥浪人
卡牌
1折送绝版皮肤 全场充值永久1折,创角即送“黑神话”孙悟空绝版皮肤。

奇幻梦旅人
休闲
当个无忧无虑的旅人,尽情享受这个童话世界吧!

玄影0.1折
仙侠01折
全场充值永享0.1折!

点击冒险之旅(0.1折特级行...
卡牌01折
上线福利:登录即送创角大礼包,召唤顶级战力!

天神赵子龙0.1折
卡牌01折
全新0.1折放置卡牌,打破传统三国叙事,解锁新颖剧情,每日送1000代金;

九州异兽记0.1折
开箱01折
1分钱买SSR异兽

龙魂魔法0.1折
185传奇996传奇
上线即送:自动拾取、自动回收、切割+222、老男孩·称号!

魔药杂货铺什么时候出 公测上线时...