- ©«¤l
- 28
- ¥DÃD
- 20
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2017-7-4
- ³Ì«áµn¿ý
- 2018-8-13
|
[µo°Ý] TextBox±N¦r¤¸¿é¤JEXCELªºªí®æ·í¤¤
¦U¦ì¤j¤j̦n!
½Ð°Ý¤j®aTextBox¦p¦ó±N¸Ì±ªº¦r¤¸¿é¤JEXCELªºªí®æ·í¤¤? (¨ä¤¤TextBoxªº³]©w¨î¬°¥u¯à¿é¤J¤p¼g^¤å¦r¥À)
¥Ø«en»s§@¤@¿é¤J¶s¡AY¤@«ö«ö¶s´N¯à±NTextBox¸Ìªº³æ¦r¨Ì§Ç¿é¤J¨ìB¦æ
¥Ø«e«ö¶sµ{¦¡½X¦p¤U:
¥Ñ©ó°õ¦æ¤£¥X¨Ó¡A©Ò¥HÁٽФj¤jÌÀ°§Ú¬Ý¬Ýþ¸Ì»Ýn§ó§ïªº!
·PÁ¤j®a!- Private Sub CommandButton2_Click()
- If Sheets("Sprachen").Range("B259") = "" Or Sheets("Sprachen").Range("B259") = 0 Then
- Range("B259").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B260") = "" Then
- Range("B260").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B261") = "" Then
- Range("B261").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B262") = "" Then
- Range("B262").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B263") = "" Then
- Range("B263").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B264") = "" Then
- Range("B264").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B265") = "" Then
- Range("B265").Value = Val(TextBox1)
- ElseIf Sheets("Sprachen").Range("B266") = "" Then
- Range("B266").Value = Val(TextBox1)
- End If
- End Sub
½Æ»s¥N½X |
|