[¨D±Ð] ¥Îvba¥Ñ¤u§@ªíÅܧóªí³æªºÅã¥Ü¤å¦r
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
[¨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
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¤ñ¸û¼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 |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
|
|
|
|
|
|
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
¥»©«³Ì«á¥Ñ sammyc ©ó 2011-8-4 17:05 ½s¿è
¥Ñ©óÅv¤£¨¬, ¥¼¯à¤U¸üoobird¤W¶ÇªºÀÉ®×, ¥i§_±N¦³Ãö¦¡¶K¥X¨Ó ? |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
¦p±Nµ{§ï¦¨°j°é, ¬O§_³o¼Ë ? ¦ýÅܼƦì¥X²{°ÝÃD- 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
½Æ»s¥N½X |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¦^´_ 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
½Æ»s¥N½X ¥ý§â©Ò¦³Label¡ATextBox¦buserform¤¤§R°£¡AÅýµ{¦¡¨Ì·Ó¤u§@ªí¤Wªº¸ê®Æ«Ø¥ß |
|
|
|
|
|
|
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
圥ÁÂÁ 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
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
§AÀ³¸Ó¤W¶Ç¤å¥ó¡AÅý¤H¥ß¨è©ú¥Õ°ÝÃDÂI
¥i¯à©Ê«Ü¦h¡An³o¼Ë²q´ú¡A²q¤£§¹ªº¡C
¨Ò¦p§A¦³¨S¦³userform¡H¤u§@ªí¦WºÙ¹ï¤£¹ï¡Ab1¬O§_¦³¤º®eµ¥µ¥ |
|
|
|
|
|
|
- ©«¤l
- 33
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-11-2
|
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|