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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-3 17:53 | 只看該作者

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

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

test.rar (17.27 KB)

樓主熱帖

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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2011-8-4 13:53 | 只看該作者

比較寫死的方法, 在form上initialize的event加上
Private Sub UserForm_Initialize()
If IsEmpty(Sheets("ini").Range("B5")) Then
      UserForm1.Label1.Visible = False
      UserForm1.TextBox1.Visible = False
Else
      UserForm1.Label1.Caption = Sheets("ini").Range("B5")
End If

If IsEmpty(Sheets("ini").Range("B6")) Then
      UserForm1.Label2.Visible = False
      UserForm1.TextBox2.Visible = False
Else
      UserForm1.Label2.Caption = Sheets("ini").Range("B6")
End If
'以上label/textbox類推.....
End Sub

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-8-4 16:32 | 只看該作者

看題意像是動

複本 Xl0000000.rar (13.49 KB) 態增加控件

TOP

sammyc

中學生 Rank: 2

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

4^#

發表於 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

5^#

發表於 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

6^#

發表於 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2011-8-4 22:46 | 只看該作者

回復 6# sammyc

Private Sub UserForm_Initialize()
Me.Caption = Sheets("Ini").[b1]
With Sheets("Ini")
h = 1
For Each c In .Range("b5:b100").SpecialCells(2)
m = m + 1
Set myCbo = Controls.Add("Forms.Label.1", h, True)
With myCbo
.Height = 20
.Width = 60
.Top = h * .Height
.Left = IIf(m Mod 2, 10, 180)
.Caption = c(1, 0).Value
End With
Set myTb = Controls.Add("Forms.TextBox.1", h, True)
With myTb
.Height = 20
.Width = 60
.Top = h * .Height
.Left = IIf(m Mod 2, 60, 220)
.Text = c.Value
If m Mod 2 = 0 Then h = h + 1
End With
Next
End With
End Sub

複製代碼

先把所有Label，TextBox在userform中刪除，讓程式依照工作表上的資料建立

TOP

sammyc

中學生 Rank: 2

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

8^#

發表於 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

oobird