- ©«¤l
- 43
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- win 8.0
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2020-4-13
|
¦^´_ 7# ã´£³¡ªL
·Ç¤j¤j:
¤£¦n·N«ä
¥i¯à§Úvba¤£¬O«Ü±j
¦p¦ó§ó§ï¤â°Ê§ó·s¥þ³¡¤]¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@Ó¤u§@ªí
If uMode = 1 Then Call ³vµ§°O¿ý
§âÂŦⳡ¥÷¥h±¼§Y¥i
Sub §ó·s¥þ³¡()
Call ¦@¥Î°Ñ·Ó: If uRow <= 0 Then Exit Sub
uHead(0, 0) = "¡°§ó·s¤¤.............."
uHead(2, 12).Resize(uRow).ClearContents
For Each uRng In uClmnNo
uRng(1, 3).Resize(1, 10).ClearContents
If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
Call Â^¨ú¸ê®Æ
If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
'If uMode = 1 Then Call ³vµ§°O¿ý '¥u¦b¡e¦Û°Ê§ó·s¡f¼Ò¦¡¤U¤~°O¿ý
Beep
101: Next
uHead(0, 0) = "¡°§ó·s®É¶¡¡G" & Format(Now, "yyyy/mm/dd hh:mm:ss")
ThisWorkbook.Save
End Sub
¬O¤£¬O³o¼Ë§ï¤â°Ê§ó·s¥þ³¡¤]¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@Ó¤u§@ªí
§Ú¸Õ¤F«ö¤â°Ê§ó·s¥þ³¡«ö¶s¦n¹³¨S¦³¤ÏÀ³
½Ð¤j¤j¦b¬Ýþ¸Ì¦³°ÝÃD |
|