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

[µo°Ý] Excel inputbox °j°é °ÝÃD

  1. Sub ½Ð¿é¤J()
  2.     Dim X   As Variant
  3.     Dim Y   As Variant
  4.     Dim C1  As Integer
  5.    
  6. EnterID:
  7.     X = InputBox("½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]", "½Ð¿é¤J¦¬®ÆOP¤u¸¹  [Please enter Operator ID ]", "")
  8.     If X = False Then Exit Sub
  9. EnterMo:
  10.     Y = InputBox("½Ð¿é¤JMO, ¿é¤J§¹²¦½Ð«ö¨ú®øÁä [ Please enter MO ]", "½Ð¿é¤JMO [ Please enter MO ]", "")
  11.     If Y = False Then
  12.       If MsgBox("§Aªº¿é¤J¦³»~¡A¬O§_­«·s¿é¤J¤@­ÓMO?" & vbCrLf & _
  13.                 "ÂIÀ»""¬O""­«·s¿é¤J¡A""§_""°h¥X·í¦¸¿é¤J¡C", vbYesNo Or vbQuestion, "MO¿é¤J¿ù»~") = vbYes Then GoTo EnterMo
  14.       Exit Sub
  15.     End If
  16.    
  17.     C1 = 2
  18.     While Cells(C1, 2) <> ""
  19.         C1 = C1 + 1
  20.     Wend
  21.     Cells(C1, 1) = X
  22.     Cells(C1, 2) = Y
  23.     Cells(C1, 3) = Now()
  24.     ActiveWorkbook.Save
  25.     GoTo EnterID
  26. End Sub
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦^´_ 1# v03586
¤W­±ªº¥N½X¦³»~¡A©«¤l¤£¯à½s¿è¡A­«µo¤@¦¸¥N½X¡G
  1. Sub ½Ð¿é¤J()
  2.     Dim X   As String
  3.     Dim Y   As String
  4.     Dim C1  As Long
  5.    
  6. EnterID:
  7.     X = InputBox("½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]", "½Ð¿é¤J¦¬®ÆOP¤u¸¹  [Please enter Operator ID ]")
  8.     If Len(X) < 1 Then Exit Sub
  9. EnterMo:
  10.     Y = InputBox("½Ð¿é¤JMO, ¿é¤J§¹²¦½Ð«ö¨ú®øÁä [ Please enter MO ]", "½Ð¿é¤JMO [ Please enter MO ]", "")
  11.     If Len(Y) < 1 Then
  12.       If MsgBox("§Aªº¿é¤J¦³»~¡A¬O§_­«·s¿é¤J¤@­ÓMO?" & vbCrLf & _
  13.                 "ÂIÀ»""¬O""­«·s¿é¤J¡A""§_""°h¥X·í¦¸¿é¤J¡C", vbYesNo Or vbQuestion, "MO¿é¤J¿ù»~") = vbYes Then GoTo EnterMo
  14.       Exit Sub
  15.     End If
  16.    
  17.     C1 = 2
  18.     While Cells(C1, 2) <> ""
  19.         C1 = C1 + 1
  20.     Wend
  21.     Cells(C1, 1) = X
  22.     Cells(C1, 2) = Y
  23.     Cells(C1, 3) = Now()
  24.     ActiveWorkbook.Save
  25.     GoTo EnterID
  26. End Sub
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD