INPUTBOX ¨ú®ø«á ²£¥Í¿ù»~

hugh0620

Dear ¤j¤j~

         ¤p§Ì¦b¾Þ§@INPUTBOX®É,²£¥Í¤@¨Ç°ÝÃD
      ¦bSHEET1.RANGE("A1") = 2011/4/10  (½Ð¥ý¦æ¦b¸Ó¦ì¤W¿é¤J¥ô¤@¤é´Á)
         ¦b°õ¦æ¤U­±µ{¦¡®É,­Y«ö½T©w,¤£·|¦³°ÝÃD,¦ý­Y¬O«ö¤U¨ú®ø«h·|²£¥Í¿ù»~
      ½Ð¤j¤j¦³±Ð©ó§Ú~ ÁÂÁ­ò~

      SUB XX()
                Dim A As Date
                 A = InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Sheet1.Range("A1"))
        END SUB

hugh0620

¦^´_ 8# GBKEE


    Dear GBKEE¤j¤j~

            ·P®¦§r~ ³o¼Ë¥i¥H¤F~ ¤@¦¸¾Ç¨â©Û¤£¦PªºÀ³¥Î~ ÁÂÁ¤j¤j­Ì~

GBKEE

¦^´_ 7# hugh0620

¥[¤WÂ÷¶}°j°éªº±ø¥ó
   

1. Sub Ex()
   
2.     Dim A As Variant
   
3.     Do While Not IsDate(A)
   
4.         A = InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Sheet1.Range("A1"))
   
5.         If A = "" Then Exit Do
   
6.     Loop
   
7. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 6# GBKEE


    Dear GBKEE ¤j¤j~
            §Ú¸Õ¹L§A·sªº¤è¦¡~
            ¦ý¬Oµ²ªG·|²£¥Í­YA¤£¬O¤é´Áªº¸Ü~ ´N·|¤@ª½¸õ¥X¿é¤Jµøµ¡~
            ³o¼Ë´N¬O­n±j­¢¤@©w­n¿é¤J¸ê®Æ~ ¤£¾A¦X¨Ï¥Î~
            ¦³®É·|À³¸Ó°õ¦æ«á~ USER·|¤£·Q­n°õ¦æ³o­Ó«ü¥O~

           ¥H¤W~ ÁÂÁ¤j¤j

GBKEE

¦^´_ 5# hugh0620

1. Sub Ex()
   
2.         Dim A As Variant
   
3.         Do While Not IsDate(A)
   
4.             A = InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Sheet1.Range("A1"))
   
5.         Loop
   
6. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 3# GBKEE

     Dear GBKEE ¤j¤j
         «Ü©êºp¨S¦³¥æ«Ý²M·¡°ÝÃD~
             Aªº¸ê®Æ®æ¦¡­n«O«ù¤é´Á®æ¦¡~
             ¤j¤jªº§ïªk~ ·|¨ÏAÅܦ¨¦r¦êªº®æ¦¡~
             §Ú«áÄòªº§@·~µLªk¨Ï¥Î~

           ÁÙ¬OÁÂÁ¤j¤jªº±Ð¾É~

hugh0620

¦^´_ 2# oobird


    ÁÂÁÂ oobird ¤j¤j~
            §Aªº¤è¦¡²Å¦X§Ú«áÄò­n³B²zªº¤u§@~
            ¦]¬°§Ú»Ý­nA­n«O«ùDATEªº®æ¦¡~
            ¤è«K§Ú¥ÎFIND¥h§ä¨ì¦P¤é´Áªº¸ê®Æ~

    ¦A¦¸·PÁÂ~  ¤]¾Ç·|³o¤@©Û~
    ¤j¤jªº§@ªk¬O¨Ï¥Îapplication¨Ó²£¥Ítrue»Pfalseªº¤è¦¡±Æ°£±¼·íA¬O¤@­ÓFALSE

GBKEE

¦^´_ 1# hugh0620
Sub XX()
    Dim A As Variant
    A = InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Sheet1.Range("A1"))
End Sub

oobird

Dim A As Date
    A = Application.InputBox("½Ð¿é¤J§R°£¤é´Á", "§R°£¸ê®Æ", Format(Sheet1.Range("A1"), "yyyy/mm/dd"))
    If A = False Then End