[已解决]【求教】替换宏语句执行n次的问题（高手请进）

xdwy81129

替换宏语句执行n次的问题

Sub call3次()
 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 6, " Range(""C2:C"" & R) = ""=A2*100"""
Call 试验
 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 6, " Range(""D2:D"" & R) = ""=A2*10000"""
Call 试验
End Sub

这里替换了宏语句2次,可第二次替换的该宏不能得到运行（实际运行的换是第一次替换宏语句的宏得到执行），

请求怎么做到替换宏语句可以执行当次替换后宏。

 

1Gusi7VB.rar (8.28 KB, 下载次数: 12)

2010-3-31 15:02 上传

点击文件名下载附件
【求教】替换宏语句执行n次的问题

[此贴子已经被作者于2010-4-1 13:46:37编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-4-2 16:04

MS不行了。

现在的高级语言都是通过编译（将高级语言转换为计算机语言）来生成目标程序，然后再执行。

在编译的时候，那个“试验”子过程是作为一个整体编程目标程序的。所以在编译的时候,“试验”子过程已经生成，你之后源码的改变并不能改变编译后的程序。换句话说，你仅仅改变了源代码，却没有改变真正执行的代码，因为真正执行的代码在你改变源代码之前已经生成。

这里有个很奇怪的现象，你可以试试看先进行编译，然后再运行。
先进行编译的话，子程序和主程序同时编译。这个时候你可以看到，始终执行的是Range("D2:D" & R) = "=A2*10000"

照理说直接运行的时候，也会先进行编译，然后再执行。按照这个逻辑，应该始终执行的是Range("D2:D" & R) = "=A2*10000"

但是实际情况，VBA在直接运行的时候，子程序是在第一次运行前编译成目标程序的。编译后的子程序在第二次运行的时候不会再次编译，所以出现了只执行第一次改变后始终执行第一次的语句。

跳转到最佳答案楼层

xdwy81129

这个也请老师帮助下，顶下

想等吻赢

QUOTE:

以下是引用xdwy81129在2010-3-31 17:38:00的发言：
这个也请老师帮助下，顶下

我也期盼下答案

xdwy81129

自己顶下

amulee

MS不行了。

现在的高级语言都是通过编译（将高级语言转换为计算机语言）来生成目标程序，然后再执行。

在编译的时候，那个“试验”子过程是作为一个整体编程目标程序的。所以在编译的时候,“试验”子过程已经生成，你之后源码的改变并不能改变编译后的程序。换句话说，你仅仅改变了源代码，却没有改变真正执行的代码，因为真正执行的代码在你改变源代码之前已经生成。

这里有个很奇怪的现象，你可以试试看先进行编译，然后再运行。
先进行编译的话，子程序和主程序同时编译。这个时候你可以看到，始终执行的是Range("D2:D" & R) = "=A2*10000"

照理说直接运行的时候，也会先进行编译，然后再执行。按照这个逻辑，应该始终执行的是Range("D2:D" & R) = "=A2*10000"

但是实际情况，VBA在直接运行的时候，子程序是在第一次运行前编译成目标程序的。编译后的子程序在第二次运行的时候不会再次编译，所以出现了只执行第一次改变后始终执行第一次的语句。

wshxjking

我也想知道

xdwy81129

QUOTE:

以下是引用amulee在2010-4-2 16:04:00的发言：

MS不行了。

现在的高级语言都是通过编译（将高级语言转换为计算机语言）来生成目标程序，然后再执行。

在编译的时候，那个“试验”子过程是作为一个整体编程目标程序的。所以在编译的时候,“试验”子过程已经生成，你之后源码的改变并不能改变编译后的程序。换句话说，你仅仅改变了源代码，却没有改变真正执行的代码，因为真正执行的代码在你改变源代码之前已经生成。

这里有个很奇怪的现象，你可以试试看先进行编译，然后再运行。
先进行编译的话，子程序和主程序同时编译。这个时候你可以看到，始终执行的是Range("D2:D" & R) = "=A2*10000"

照理说直接运行的时候，也会先进行编译，然后再执行。按照这个逻辑，应该始终执行的是Range("D2:D" & R) = "=A2*10000"

但是实际情况，VBA在直接运行的时候，子程序是在第一次运行前编译成目标程序的。编译后的子程序在第二次运行的时候不会再次编译，所以出现了只执行第一次改变后始终执行第一次的语句。

难道真的没有办法了？？？？？

xdwy81129

QUOTE:

以下是引用xdwy81129在2010-4-4 15:36:00的发言：

难道真的没有办法了？？？？？

希望能有其他的办法做到下。

等待下看看。

开辆小富康

再制一个模块。好象只能这样子了。试验1，放在模块3中，和模块1原样一样。

Sub call3次()
 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 6, "range(""C2:C"" & R)=""=A2*10"""
 Call 试验
 ThisWorkbook.VBProject.VBComponents("模块3").CodeModule.ReplaceLine 6, "range(""D2:D"" & R)=""=A2*10000"""
 Call 试验1
End Sub

xdwy81129

QUOTE:

以下是引用开辆小富康在2010-4-5 11:14:00的发言：

再制一个模块。好象只能这样子了。试验1，放在模块3中，和模块1原样一样。

Sub call3次()
 ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 6, "range(""C2:C"" & R)=""=A2*10"""
 Call 试验
 ThisWorkbook.VBProject.VBComponents("模块3").CodeModule.ReplaceLine 6, "range(""D2:D"" & R)=""=A2*10000"""
 Call 试验1
End Sub

这样太麻烦了，就想一个实验替换了几次执行。

希望能有其他办法