- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
回復 GBKEE
Private Sub UserForm_Initialize()
Dim X As Integer
For X = 11 To 18
Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
'依序Textbox1....Textbox的內容 為第一個工作表的A欄 第5-第9 列內容
Next
CommandButton2.Visible = False
End Subbowwow1975 發表於 2013-9-3 09:16 
你的UserForm1裡面在設計階段本來就有放上 8 (11 ~ 18 合計為 8) 個Textbox 嗎?
如果沒有自然就不能賦予名字給根本就不存在的 Textbox 元件.
那麼你可以參考這篇 :
http://forum.twbts.com/thread-10357-1-1.html
先逐個建立Textbox元件後再予以賦名.
若不是,
因為你只貼程式碼而非整個檔案,
有些問題關鍵處會看不出來,
變成想參與討論的人只能 "猜猜看",
這樣解決問題的效率會變的很低,
也不容易達到你想要的目的. |
|
發表於 2013-9-3 21:50
| 