Board logo

標題: [求教] 用vba由工作表變更表單的顯示文字 [打印本頁]
作者: sammyc    時間: 2011-8-3 17:53     標題: [求教] 用vba由工作表變更表單的顯示文字

想利用工作表內特定的文字, 改變成表單的位顯示, 那只需修改 sheet(ini), 便可做成多種表單.
uesrform1.caption = sheet(ini).[b1]
如Field_2 的欄位內沒有資料, text2 及 textbox2 不顯示
作者: kimbal    時間: 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
作者: oobird    時間: 2011-8-4 16:32

看題意像是動[attach]7269[/attach]態增加控件
作者: sammyc    時間: 2011-8-4 16:47

多謝的kimbal教導
作者: sammyc    時間: 2011-8-4 16:48

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

由於權限不足, 未能下載oobird上傳的檔案, 可否將有關式貼出來 ?
作者: sammyc    時間: 2011-8-4 17:04

如將程改成迴圈, 是否這樣 ? 但變數位出現問題
  1. Private Sub UserForm_Initialize()
  2. R_line = 5
  3. For i = 1 To 10

  5.     If IsEmpty(Sheets("ini").Range("B'&r_line")) Then
  6.         UserForm1.Label& i.Visible = False
  7.         UserForm1.TextBox& i.Visible = False
  8.     Else
  9.         UserForm1.Label& i.Caption = Sheets("ini").Range("B" & R_line)
  10.     End If
  11.     R_line = R_line + 1
  12.     Next
  13.    

  15. End Sub
複製代碼
作者: oobird    時間: 2011-8-4 22:46

回復 6# sammyc
  1. Private Sub UserForm_Initialize()
  2. Me.Caption = Sheets("Ini").[b1]
  3. With Sheets("Ini")
  4. h = 1
  5. For Each c In .Range("b5:b100").SpecialCells(2)
  6. m = m + 1
  7. Set myCbo = Controls.Add("Forms.Label.1", h, True)
  8.    With myCbo
  9.    .Height = 20
  10.    .Width = 60
  11.       .Top = h * .Height
  12.       .Left = IIf(m Mod 2, 10, 180)
  13. .Caption = c(1, 0).Value
  14. End With
  15. Set myTb = Controls.Add("Forms.TextBox.1", h, True)
  16.    With myTb
  17.    .Height = 20
  18.    .Width = 60
  19.       .Top = h * .Height
  20.       .Left = IIf(m Mod 2, 60, 220)
  21. .Text = c.Value
  22. If m Mod 2 = 0 Then h = h + 1
  23.       End With
  24.        Next
  25.       End With
  26. End Sub
複製代碼
先把所有Label，TextBox在userform中刪除，讓程式依照工作表上的資料建立
作者: sammyc    時間: 2011-8-5 10:26

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

你應該上傳文件，讓人立刻明白問題點
可能性很多，要這樣猜測，猜不完的。
例如你有沒有userform？工作表名稱對不對，b1是否有內容等等
作者: sammyc    時間: 2011-8-6 09:04

不好意思, 忘了上傳檔案, 現補上[attach]7295[/attach]
作者: oobird    時間: 2011-8-6 09:32

Private Sub UserForm_Initialize()
這個要被在userform的模組中才有用
不能放在一般模組中
而且現在你的資料變成四列了，不知道你要載入的是什麼。
[attach]7296[/attach]
作者: sammyc    時間: 2011-8-11 10:56

謝謝教導, c及d 欄資料是測試用戶輸入後, 將資料回傳出來
但是望顥示field title 在label 內, b5到b12 圍



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)