[¨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 ¤£Åã¥Ü

sammyc

ÁÂÁ±оÉ, c¤Îd Äæ¸ê®Æ¬O´ú¸Õ¥Î¤á¿é¤J«á, ±N¸ê®Æ¦^¶Ç¥X¨Ó
¦ý¬O±æÅV¥Üfield title ¦blabel ¤º, b5¨ìb12 ³ò

oobird

Private Sub UserForm_Initialize()
³o­Ó­n³Q¦buserformªº¼Ò²Õ¤¤¤~¦³¥Î
¤£¯à©ñ¦b¤@¯ë¼Ò²Õ¤¤
¦Ó¥B²{¦b§Aªº¸ê®ÆÅܦ¨¥|¦C¤F¡A¤£ª¾¹D§A­n¸ü¤Jªº¬O¤°»ò¡C

¤U¸ü (47.64 KB)

2011-8-6 09:32

sammyc

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

¤U¸ü¦¸¼Æ: 14

2011-8-6 09:04

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

圥ÁÂÁ 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

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

¦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

sammyc

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

sammyc

¦hÁªºkimbal±Ð¾É