假設有40個TextBox物件,其Name屬性的規則為TextBox1、TextBox2........TextBox40
則我們可以使用Me這個隱含變數配合For迴圈達到一次性修改TextBox屬性的效果
程式碼:
Dim i As IntegerFor i = 1 To 41'將A欄位的值傳給TextBoxSheet1.Range("A" & i ).Value = Me("TextBox" & i).textNext
此寫法的好處為程式碼精簡,可快速大量指定物件屬性
不需要一行行指定Textbox1.text、 Textbox2.text.........Textbox40.text
唯一限制為,TextBox的命名(Name)必需為連續的編號1~40
若中間有缺少任何一個都會造成程式執行錯誤
2 意見:
但我在使用時
有出錯
執行階段錯誤438
物件不支援此屬性或方法
我也是耶,執行階段錯誤438
請問要怎麼改呀@@
張貼意見