如何把表格中的字符串转成程序中的公式？

happynotes

例如：
表格的cells(1,1)处有一个公式 i=i+1

如何让它可以在程序中运行，
比如
for i=1 to 5
‘在这里把i=i+1转换成可以运行的表达。
next i

这样做的目的是程序内核心的运算公式在表格中表达出来，程序根据表格里的公式进行计算。改过表格里的字符串，就等于是改过程序里的运算公式了。

求解答，谢谢~~~

pureshadow

有了for i=1 to 5 …… next，就不需要i=i+1了第一次运算i=1，next以后，i就是2了，再next，i=3；再next，i=4；再next，i=5；再next，i=6了就出了循环。

香川群子

这样做，理论上是可以的。

但实际操作不赞成这样通过外部方式随意更改VBA过程代码的做法。

很容易引起混乱。

…………

你可以改一下思路。

在VBA过程中写好各种语句，用if或select case 方式，决定当前该使用那一句代码。

香川群子

1. Sub 执行单元格内容代码()
   
2.     With CreateObject("ScriptControl")
   
3.         .Language = "VBScript"
   
4.         .AddObject "cells", Cells
   
5.         ss = "Sub NewMacro()" & vbCr
   
6.         Do Until ActiveCell = ""
   
7.             ss = ss & ActiveCell.Text & vbCr
   
8.             ActiveCell.Offset(1, 0).Select
   
9.         Loop
   
10.         ss = ss & " End Sub"
    
11.         .addcode ss
    
12.         .Run "NewMacro"
    
13.     End With
    
14. End Sub

复制代码

上清宫主

起初也想过这种代码写代码并执行之或替换某行某些行代码并执行之。
但细看楼主的，恐怕是想替换当前程序的某一行某些行，这就没试过不晓得成不成，且现实意义不大，就没去整了

wenchduan

    楼主既然会编程，相信肯定也会进入代码直接改；如果程序是给别人用的，那么可以设置一些Inputbox，或在某些单元格里放置一些程序要运行的关键参数、譬如循环次数什么等，让程序读取参数后再运行。不推荐直接在单元格里写整行代码、然后再让程序读取代码后运行的这种做法。