文章来源:网络作者:傲骨发布时间:2026-08-18 21:44:25
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模块教程,希望可以帮助到大家。

禁地之战(乾马金龙专属)
超变传奇996传奇
乾马金龙专属 全新三职业神器,上线领豪礼,爽玩!

王者霸业(王斩切割爆爆爆)
超变传奇
王斩切割爆爆爆 上线即送自动拾取、自动回收

烈焰之怒(骷髅超变日送10万...
超变传奇996传奇
骷髅超变日送10万 上线免费送刀刀绿毒刀刀冰冻自动回收,无条件登录就送10万充值货币!

铸兵之王(百亿直购送充爆)
超变传奇996传奇
百亿直购送充爆 自动拾取 自动回收 攻速全满 直升10000级 六大终极装备

江湖我最牛(GM狂送真充超超...
超变传奇996传奇
GM狂送真充超超变 全新超变几率触发GM手机,狂送真充红包

斗转武林(竹火百锻默爆)
超变传奇996传奇
竹火百锻默爆 上线福利:自动拾取、自动回收、更多豪礼在线相送!!

战影破穹(百亿送充神技觉醒...
超变传奇996传奇
百亿送充神技觉醒 上线即送自动回收、自动拾取等!

苍穹之剑2(帝煞古兵专属)
超变传奇996传奇
帝煞古兵专属 上线即送自动拾取、自动回收

摸金之路(无限超变天天送百...
超变传奇996传奇
无限超变天天送百万 超爽直购币白漂版本,天天送百万直购币!

国战来了(3.5折免费版)
策略
3.5折免费版 3.5折免费,每天送100限时代金券

《逆战:未来》张杰福利放送:杰...