register313

¦^´_ 1# enoch

1. Sub Test()
   
2.     Dim str
   
3.     Do Until IsDate(str)
   
4.       str = InputBox("½Ð¿é¤J¤é´Á¡G", "¤é´Á")
   
5.     Loop
   
6.     [A1] = str
   
7.     [A1].NumberFormat = "dd-mm-yyyy"
   
8. End Sub

½Æ»s¥N½X