¦]¤u§@¤W¤@Ó¤p°ÝÃD·Q¼g¦¨ µ{¦¡¥hRUN
¦p¹Ï©Ò¥Ü
¥Ø«e§Ú¼gªºµ{¦¡½X¥u¯à³æµ§¿é¤J¡AµM«á¨C¿é¤J§¹¤@µ§·|¦Û°Ê¦sÀÉ
§Ú·Q§ï¼g¦¨²Ä¤@¦¸ÂI¿ï¸õ¥X¨Óªºinputbox ¥u¿é¤J¤u¸¹
¦A¨Ó¶}©l¸õ¦^°é ¿é¤JMO
ª½¨ì§Ú«ö¨ú®ø¥L´N§â§Ú¦^°é¿é¤J¤¤ªº°T®§¦Û°Ê±a¥X¨Ó¡A¤u¸¹³¡¤À¯à¦Û°Ê¶ñ¤W¶Ü?
µ{¦¡½X°Ñ¦Ò ½Ð°Ý¦p¦óק令§Ú¹Ï»¡ªº¨º¼Ë©O?- Sub ½Ð¿é¤J()
- x = InputBox("½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]", "½Ð¿é¤J¦¬®ÆOP¤u¸¹ [Please enter Operator ID ]", "")
- y = InputBox("½Ð¿é¤JMO, ¿é¤J§¹²¦½Ð«ö¨ú®øÁä [ Please enter MO ]", "½Ð¿é¤JMO [ Please enter MO ]", "")
- Dim c1 As Integer
- c1 = 2
- While Cells(c1, 2) <> ""
- c1 = c1 + 1
- Wend
- Cells(c1, 1) = x
- Cells(c1, 2) = y
- Cells(c1, 3) = Now()
- ActiveWorkbook.Save
- End Sub
½Æ»s¥N½X
|