- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# bowwow1975
¸Õ¸Õ¬Ý- Option Explicit
- Dim Sh As Worksheet
- Private Sub UserForm_Initialize()
- Dim X As Integer
- Set Sh = Sheets(1)
- For X = 1 To 4
- Controls("Textbox" & X) = Sh.Cells(X + 4, "a")
- '¨Ì§ÇTextbox1....Textboxªº¤º®e ¬°²Ä¤@Ó¤u§@ªíªºAÄæ ²Ä5-²Ä9 ¦C¤º®e
- Next
- End Sub
- Private Sub TextBox1_Change()
- Àx¦stextbox 1
- End Sub
- Private Sub TextBox2_Change()
- Àx¦stextbox 2
- End Sub
- Private Sub TextBox3_Change()
- Àx¦stextbox 3
- End Sub
- Private Sub TextBox4_Change()
- Àx¦stextbox 4
- End Sub
- Private Sub Àx¦stextbox(X As Integer)
- Sh.Cells(X + 4, "a") = Controls("Textbox" & X)
- End Sub
½Æ»s¥N½X |
|