VBA的Excel變換循環

在這裏，我有我千百個行代碼，請賜教關於我如何把線路編碼爲環這裏是我的嘗試，但我不會制定出仍試圖VBA的Excel變換循環

If sp.Name Like "Rounded Rectangle*" Or sp.Name Like "Oval*" Then 


     For i = 11 To 100 

     x = i - 9 

     Sheet2.Shapes.Range(Array("Rounded Rectangle " + i)).TextFrame.Characters.Text = Sheet1.Range("A" + x) 

     Next i 


    End If

和重複，直到X = 110

在這種情況下，我怎麼能在改變其改正

循環請指教

謝謝

來源

2014-02-19 eathapeking

這是製作的一般方法循環覆蓋一個字符串變量....說我們想循環形狀（「矩形1」）....形狀（「矩形2」）....形狀（「矩形3」）.....等

Dim str As String, i As Long 
For i = 11 To 100 
    str = "Rectangle " & CStr(i) 
    Sheets2.Shapes(str)................ 
Next i

，並使用類似的方法，使「A2」 ... 「A3」 .........

來源

2014-02-19 04:07:11

次調整（）昏暗的WS作爲工作表昏暗的SP爲形狀集WS = Sheet2中對於每個SP在ws.Shapes 如果sp.Name像「圓角矩形*」或sp.Name像「橢圓形*」那昏暗的STR作爲字符串昏暗STR作爲字符串，我只要對於i = 11〜100 STR = 「矩形」＆CStr的（ⅰ）個STR = CStr的（I - 9） Sheet2.Shapes.Range （str）.TextFrame.Characters.Text = Sheet1.Range（「A」＆strs） Next i End If Next End Sub – eathapeking

請糾正我這是行不通的 – eathapeking

簡單的數學：

For i = 11 To 100

更改爲

For i = 11 To 119

來源

2014-02-20 14:27:53

VBA的Excel變換循環

回答

相關問題