ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

test.rar (17.27 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¤ñ¸û¼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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¬ÝÃD·N¹³¬O°Ê ½Æ¥» Xl0000000.rar (13.49 KB) ºA¼W¥[±±¥ó

TOP

¦hÁªºkimbal±Ð¾É
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ sammyc ©ó 2011-8-4 17:05 ½s¿è

¥Ñ©óÅv­­¤£¨¬, ¥¼¯à¤U¸üoobird¤W¶ÇªºÀÉ®×, ¥i§_±N¦³Ãö¦¡¶K¥X¨Ó ?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦p±Nµ{§ï¦¨°j°é, ¬O§_³o¼Ë ? ¦ýÅܼƦì¥X²{°ÝÃD
  1. Private Sub UserForm_Initialize()
  2. R_line = 5
  3. For i = 1 To 10

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

  13. End Sub
½Æ»s¥N½X
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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ªº¸ê®Æ«Ø¥ß

TOP

圥ÁÂÁ 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斆¾É, ÁÂÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§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µ¥µ¥

TOP

¤£¦n·N«ä, §Ñ¤F¤W¶ÇÀÉ®×, ²{¸É¤W test1-1.rar (14.15 KB)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD