
如何在excel中运行宏
有写好的宏要运行,老是提示不行,降低了安全级别了还是提示要改一些软件的参数,是不是运行宏真的很麻烦,要怎么弄啊...
有写好的宏要运行,老是提示不行,降低了安全级别 了还是提示要改一些软件的参数,是不是运行宏真的很麻烦,要怎么弄啊
展开
7个回答
展开全部
如果是打开excel文件就自动运行宏,那么,可以在thisworkbook里面,在workbook_open事件里面加入代码,这样启动excel文件即可自动运行宏。或者在模块里面使用auto_open事件,也可以自动运行宏。
如果是在excel使用过程中使用宏,就必须根据你的需要,选择合适的事件来触发宏代码。
比如,如果要a1单元格的值改变,就自动运行某个宏,那么就在sheet_change事件中,加入代码
if
target.address
=
"$a$1"
then
call
xx宏
如果是选取单元格变化触发某个宏,则用sheet_selectionchange事件。
所以,要自动运行某个宏,就必须明白你首先需要在什么时候触发宏,然后根据需要来选择相应的事件即可!!
如果是在excel使用过程中使用宏,就必须根据你的需要,选择合适的事件来触发宏代码。
比如,如果要a1单元格的值改变,就自动运行某个宏,那么就在sheet_change事件中,加入代码
if
target.address
=
"$a$1"
then
call
xx宏
如果是选取单元格变化触发某个宏,则用sheet_selectionchange事件。
所以,要自动运行某个宏,就必须明白你首先需要在什么时候触发宏,然后根据需要来选择相应的事件即可!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你没有原稿,不知道你的表格什么样子的,帮你随便弄了一个。
VBA代码非常简单,只要2句,你自己可以尝试着做一下。
假设表格是sheet1,箱号在c1格
sheet1.printout
[c1]=[c1]+1
即可
联贯打印也可以这么写:
st
=
InputBox("1st
carton
No.
is
?")
ed
=
InputBox("last
carton
No.
is
?")
For
i
=
st
To
ed
[c1]
=
i
Sheet1.PrintOut
Next
使用的时候输入起始与结束的箱号
附件:a.xls
VBA代码非常简单,只要2句,你自己可以尝试着做一下。
假设表格是sheet1,箱号在c1格
sheet1.printout
[c1]=[c1]+1
即可
联贯打印也可以这么写:
st
=
InputBox("1st
carton
No.
is
?")
ed
=
InputBox("last
carton
No.
is
?")
For
i
=
st
To
ed
[c1]
=
i
Sheet1.PrintOut
Next
使用的时候输入起始与结束的箱号
附件:a.xls
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先,点菜单上的工具,宏,安全设置,中。
然后同时按Alt和F11,就进入了VB界面,点菜单上的插入,模块,右边出现一新窗口。举个简单例子给你看看,在该窗口中粘贴如下代码:
sub
test()
msgbox
"我得好好学习了!"
end
sub
然后点菜单上的播放按钮。
你应该是个高中生,目前的目标就是尽自己最大努力考个好大学,不抛弃,不放弃。少上网吧。
然后同时按Alt和F11,就进入了VB界面,点菜单上的插入,模块,右边出现一新窗口。举个简单例子给你看看,在该窗口中粘贴如下代码:
sub
test()
msgbox
"我得好好学习了!"
end
sub
然后点菜单上的播放按钮。
你应该是个高中生,目前的目标就是尽自己最大努力考个好大学,不抛弃,不放弃。少上网吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个应该是你编写的宏出现了问题:
一般宏是指定一个物件来运行的,如相关控件,图片等.
一般宏是指定一个物件来运行的,如相关控件,图片等.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询