GBKEE

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

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

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