VBA建模 差一點(diǎn)了 能幫幫我嗎

這樣建模的話 可以實(shí)習(xí)一行變尺寸的方塊，但是不能在parameter list 那里修改參數(shù)值.過(guò)程是我是先進(jìn)入一個(gè)模板，然后點(diǎn)擊macros/make VBA macro， 然后編寫代碼，最后在macros那里 選中開始輸入的名字。代碼如下:
' again
Sub Main ()
Dim i,j,n,value
Dim sline As String
n=2 ' mean two bricks
For i=1 To 2 'loop to create some bricks
j = (i-1)*5 ‘方塊間隔為5
sline = InputBox("length"+Cstr(i)) ' the length and width of brick
value = CDbl(InputBox("value")) ' length and width value
storeParameter(sline,value) 'make it as a parameter
With Brick
.reset
.Name "model"+Cstr(i) 'order name
.material "pec"
.Xrange (j,j+value)
.Yrange (0,j+value)
.Zrange (0,1)
.Create
End With
Next i
End Sub

本帖提到的人: @foxman @wh_wh22 @zjn317253663

小編，你這個(gè)問(wèn)題解決了嗎

還沒(méi)有呢，只能半?yún)?shù)建模了。

你怎么也需要這個(gè)功能，做什么方向的哈?朋友

我暫時(shí)不需要這個(gè)功能，但是可以先學(xué)習(xí)一下嘛

實(shí)現(xiàn)什么功能?

反射陣，現(xiàn)在解決了！