[求教] 用vba由工作表變更表單的顯示文字

表單, VBA

想利用工作表內特定的文字, 改變成表單的位顯示, 那只需修改 sheet(ini), 便可做成多種表單.
uesrform1.caption = sheet(ini).[b1]
如Field_2 的欄位內沒有資料, text2 及 textbox2 不顯示

test.rar (17.27 KB)

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

sammyc

中學生 Rank: 2

帖子: 33
主題: 9
精華: 0
積分: 62
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-11-2

2^#

發表於 2011-8-4 16:47 | 顯示全部帖子

多謝的kimbal教導

50 字節以內
不支持自定義 Discuz! 代碼

TOP

sammyc

中學生 Rank: 2

帖子: 33
主題: 9
精華: 0
積分: 62
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-11-2

3^#

發表於 2011-8-4 16:48 | 顯示全部帖子

本帖最後由 sammyc 於 2011-8-4 17:05 編輯

由於權限不足, 未能下載oobird上傳的檔案, 可否將有關式貼出來 ?

50 字節以內
不支持自定義 Discuz! 代碼

TOP

sammyc

中學生 Rank: 2

帖子: 33
主題: 9
精華: 0
積分: 62
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-11-2

4^#

發表於 2011-8-4 17:04 | 顯示全部帖子

如將程改成迴圈, 是否這樣 ? 但變數位出現問題

Private Sub UserForm_Initialize()
R_line = 5
For i = 1 To 10
If IsEmpty(Sheets("ini").Range("B'&r_line")) Then
UserForm1.Label& i.Visible = False
UserForm1.TextBox& i.Visible = False
Else
UserForm1.Label& i.Caption = Sheets("ini").Range("B" & R_line)
End If
R_line = R_line + 1
Next
End Sub

複製代碼

50 字節以內
不支持自定義 Discuz! 代碼

TOP

sammyc

中學生 Rank: 2

帖子: 33
主題: 9
精華: 0
積分: 62
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-11-2

5^#

發表於 2011-8-5 10:26 | 顯示全部帖子

圥謝謝 oobird 的教導
已另開中一工作簿, 將sheet重新命名為ini
但執行到第二行時, 出現錯誤
Me.Caption = Sheets("Ini").[b1]
將其跳過, 又到第7 行, 出現錯誤
Set myCbo = Controls.Add("Forms.Label.1", h, True)
未佑是那兒出現問題 , 煩請再斆導, 謝謝

50 字節以內
不支持自定義 Discuz! 代碼

TOP

sammyc