¦p¦ó¨Ï TextBox3.Text ¬°¤@Ó TextBox(i).Text ¨Ó¨Ï¥Î
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¦p¦ó¨Ï TextBox3.Text ¬°¤@Ó TextBox(i).Text ¨Ó¨Ï¥Î
½Ð±Ð¦U¦ì¤j¤j:
VBA¤¤ªí³æ¤º¬Y Sub
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
TextBox3.Text = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 6)
TextBox4.Text = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 7)
TextBox5.Text = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 8)
TextBox6.Text = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 9)
endif
next
loop¤¤ ·í§ä¨ì²Ä¤GÓ Cells(i, 4)
À³¦p¦ó¨Ï Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 6)¶ñ¤J TextBox7.Text
¤]´N¬O»¡¦p¦ó¨Ï TextBox3.Text ¬°¤@Ó TextBox(i).Text ¨Ó¨Ï¥Î
ÁÂÁ¨ó§U |
|
|
|
|
|
|
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
ÁÂÁÂGBKEE
§ÚªºTextBox¦³80Ó
°}¦C Ar = Array(TextBox3, TextBox4, TextBox5....)
¬O§_¤@©wn¼g¦ÜTextBox80¡H
Ar ³]©w»yªk
Dim ar(80) as string ¬O§_¥¿½T »Ýn
©Î¬O ¥un
set Ar = Array(TextBox3, TextBox4, TextBox5....)
©Î¬O ¥un
Ar = Array(TextBox3, TextBox4, TextBox5....) |
|
|
|
|
|
|
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¤Ó´Î¤F ¡A§¹¥þ¸Ñ¨M¡C
¨ä¥LControlsÀ³¬O¥i¦pªkªw»s¤~¹ï
GBKEE¡Aet5323 ÁÂÁ§Aªù |
|
|
|
|
|
|