Excel VBA - 使用For迴圈指定控制項物件屬性

假設有40個TextBox物件,其Name屬性的規則為TextBox1、TextBox2........TextBox40
則我們可以使用Me這個隱含變數配合For迴圈達到一次性修改TextBox屬性的效果

程式碼:

Dim i  As Integer 
For i = 1 To 41 
    '將A欄位的值傳給TextBox 
    Sheet1.Range("A" & i ).Value = Me("TextBox" & i).text 
Next 

此寫法的好處為程式碼精簡,可快速大量指定物件屬性
不需要一行行指定Textbox1.text、 Textbox2.text.........Textbox40.text
唯一限制為,TextBox的命名(Name)必需為連續的編號1~40
若中間有缺少任何一個都會造成程式執行錯誤

2 意見:

匿名 提到...

但我在使用時
有出錯

執行階段錯誤438
物件不支援此屬性或方法

匿名 提到...

我也是耶,執行階段錯誤438
請問要怎麼改呀@@

張貼留言