Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3510|回复: 13

[已解决]求教-单独执行宏里面的某一句

[复制链接]
发表于 2010-3-2 22:50 | 显示全部楼层 |阅读模式

如题,如宏为下

sub ()

语句1

语句2

语句3

……

end sub

我只想执行其中的第3句怎么操作。

谢谢解答

最佳答案
2010-3-3 18:47

我的做法是:在立即窗口中输入

[AC12]= "DD145":Debug.Print [ac12]

回车

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-3-2 22:56 | 显示全部楼层


Sub a()

    '语句1
    '
    '语句2

    If 条件 Then
        '语句3
    End If

End Sub

  • 注释或删除语句1和语句2
  • 不然,给语句3外面设个判断
回复

使用道具 举报

发表于 2010-3-2 23:02 | 显示全部楼层

注释掉比较好,需要的时候还可以去掉注释

回复

使用道具 举报

 楼主| 发表于 2010-3-2 23:05 | 显示全部楼层

QUOTE:
以下是引用cjainwei在2010-3-2 23:02:00的发言:

注释掉比较好,需要的时候还可以去掉注释

没有注释,就想简单的想实现之运行某一句程序,请帮忙想想怎么办到
回复

使用道具 举报

发表于 2010-3-2 23:14 | 显示全部楼层

最好上传附件或具体说明,不然只好猜了

[em09]
回复

使用道具 举报

发表于 2010-3-2 23:23 | 显示全部楼层

楼主说得不太清楚,人家也不太好回答!

回复

使用道具 举报

 楼主| 发表于 2010-3-3 00:44 | 显示全部楼层

QUOTE:
以下是引用hhzjxss在2010-3-2 23:23:00的发言:

楼主说得不太清楚,人家也不太好回答!

sub adfsdfasd()

[A2]= "145"
call 求教
[AC12]= "DD145"
[AC12:de45]= "234"
CALL 请教

end sub

我就想实现能只执行这个宏的(只的)某一句,如只执行第3句,应该怎么做到。

谢谢。

回复

使用道具 举报

发表于 2010-3-3 08:25 | 显示全部楼层


Sub adfsdfasd()

'    [A2] = "145"
'    Call 求教
    [AC12] = "DD145"
'    [AC12:de45] = "234"
'    Call 请教

End Sub

回复

使用道具 举报

发表于 2010-3-3 08:34 | 显示全部楼层

简单做法:

如2楼,加判断或将不要的注释掉

复杂做法:

利用代码操作VBE,实现简单做法的功能,如将想要的那句取出来另形成一个sub,并执行之,后删除,等方式

另:个人感觉有点导弹轰蚊子,训练技术除外

回复

使用道具 举报

发表于 2010-3-3 08:37 | 显示全部楼层

可以用F8
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-16 14:57 , Processed in 0.303371 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表