[¨D±Ð] ¥Îvba¥Ñ¤u§@ªíÅܧóªí³æªºÅã¥Ü¤å¦r ªí³æ, VBA

sammyc

·Q§Q¥Î¤u§@ªí¤º¯S©wªº¤å¦r, §ïÅܦ¨ªí³æªº¦ìÅã¥Ü, ¨º¥u»Ý­×§ï sheet(ini), «K¥i°µ¦¨¦hºØªí³æ.
uesrform1.caption = sheet(ini).[b1]
¦pField_2 ªºÄæ¦ì¤º¨S¦³¸ê®Æ, text2 ¤Î textbox2 ¤£Åã¥Ü

kimbal

¤ñ¸û¼g¦ºªº¤èªk, ¦bform¤Winitializeªºevent¥[¤W
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
    '¥H¤Wlabel/textboxÃþ±À.....
End Sub

oobird

¬ÝÃD·N¹³¬O°Ê ½Æ¥» Xl0000000.rar (13.49 KB)

¤U¸ü¦¸¼Æ: 30

2011-8-4 16:32

ºA¼W¥[±±¥ó

sammyc

¦hÁªºkimbal±Ð¾É

sammyc

¥Ñ©óÅv­­¤£¨¬, ¥¼¯à¤U¸üoobird¤W¶ÇªºÀÉ®×, ¥i§_±N¦³Ãö¦¡¶K¥X¨Ó ?

sammyc

¦p±Nµ{§ï¦¨°j°é, ¬O§_³o¼Ë ? ¦ýÅܼƦì¥X²{°ÝÃD

1. Private Sub UserForm_Initialize()
   
2. R_line = 5
   
3. For i = 1 To 10
   
4. 
   
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.    
    
14. 
    
15. End Sub

½Æ»s¥N½X

oobird

¦^´_ 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

½Æ»s¥N½X

¥ý§â©Ò¦³Label¡ATextBox¦buserform¤¤§R°£¡AÅýµ{¦¡¨Ì·Ó¤u§@ªí¤Wªº¸ê®Æ«Ø¥ß

sammyc

圥ÁÂÁ oobird ªº±Ð¾É
¤w¥t¶}¤¤¤@¤u§@ï, ±Nsheet­«·s©R¦W¬°ini
¦ý°õ¦æ¨ì²Ä¤G¦æ®É, ¥X²{¿ù»~
Me.Caption = Sheets("Ini").[b1]
±N¨ä¸õ¹L, ¤S¨ì²Ä7 ¦æ, ¥X²{¿ù»~
Set myCbo = Controls.Add("Forms.Label.1", h, True)
¥¼¦ö¬O¨º¨à¥X²{°ÝÃD , ·Ð½Ð¦A斆¾É, ÁÂÁÂ

oobird

§AÀ³¸Ó¤W¶Ç¤å¥ó¡AÅý¤H¥ß¨è©ú¥Õ°ÝÃDÂI
¥i¯à©Ê«Ü¦h¡A­n³o¼Ë²q´ú¡A²q¤£§¹ªº¡C
¨Ò¦p§A¦³¨S¦³userform¡H¤u§@ªí¦WºÙ¹ï¤£¹ï¡Ab1¬O§_¦³¤º®eµ¥µ¥

sammyc

¤£¦n·N«ä, §Ñ¤F¤W¶ÇÀÉ®×, ²{¸É¤W test1-1.rar (14.15 KB)

¤U¸ü¦¸¼Æ: 14

2011-8-6 09:04