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

[µo°Ý] TextBox±N¦r¤¸¿é¤JEXCELªºªí®æ·í¤¤

[µo°Ý] TextBox±N¦r¤¸¿é¤JEXCELªºªí®æ·í¤¤

¦U¦ì¤j¤j­Ì¦n!

½Ð°Ý¤j®aTextBox¦p¦ó±N¸Ì­±ªº¦r¤¸¿é¤JEXCELªºªí®æ·í¤¤? (¨ä¤¤TextBoxªº³]©w­­¨î¬°¥u¯à¿é¤J¤p¼g­^¤å¦r¥À)
¥Ø«e­n»s§@¤@¿é¤J¶s¡A­Y¤@«ö«ö¶s´N¯à±NTextBox¸Ìªº³æ¦r¨Ì§Ç¿é¤J¨ìB¦æ

¥Ø«e«ö¶sµ{¦¡½X¦p¤U:
¥Ñ©ó°õ¦æ¤£¥X¨Ó¡A©Ò¥HÁٽФj¤j­ÌÀ°§Ú¬Ý¬Ý­þ¸Ì»Ý­n§ó§ïªº!
·PÁ¤j®a!
  1. Private Sub CommandButton2_Click()
  2. If Sheets("Sprachen").Range("B259") = "" Or Sheets("Sprachen").Range("B259") = 0 Then
  3. Range("B259").Value = Val(TextBox1)

  4. ElseIf Sheets("Sprachen").Range("B260") = "" Then
  5. Range("B260").Value = Val(TextBox1)

  6. ElseIf Sheets("Sprachen").Range("B261") = "" Then
  7. Range("B261").Value = Val(TextBox1)

  8. ElseIf Sheets("Sprachen").Range("B262") = "" Then
  9. Range("B262").Value = Val(TextBox1)

  10. ElseIf Sheets("Sprachen").Range("B263") = "" Then
  11. Range("B263").Value = Val(TextBox1)

  12. ElseIf Sheets("Sprachen").Range("B264") = "" Then
  13. Range("B264").Value = Val(TextBox1)

  14. ElseIf Sheets("Sprachen").Range("B265") = "" Then
  15. Range("B265").Value = Val(TextBox1)

  16. ElseIf Sheets("Sprachen").Range("B266") = "" Then
  17. Range("B266").Value = Val(TextBox1)

  18. End If
  19. End Sub
½Æ»s¥N½X

¬JµM¬O­^¤å¦r¥À¡A´N¤£¯à¥Îval
¬°¦ó¬O¦C259~266¡H
¬°¦ó¤£¬O¥ý§ä¥X¥Ø¼Ð¡A¦A¿é¤J¡H

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD