ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Åý±K½XÀH¤é´ÁÅܤÆ

Åý±K½XÀH¤é´ÁÅܤÆ

¥­¦w
¥H¤U¥N½X¤¤
InputBox »Ý­n¿é¤J¤@²Õ±K½X ²{¼È©w¬° 20150501
·QÅý±K½XÀH¬P´Á¤@ ~ ¤é ±K½X§À½X²£¥ÍÅÜ¤Æ ¼W¥[±K½Xªº«O±K©Ê
½Ð±Ðª©¤W¹F¤H
¬P´Á¤@ ±K½X¬° 20150501
¬P´Á¤G ±K½X¬° 20150503
¬P´Á¤T ±K½X¬° 20150505
¬P´Á¥| ±K½X¬° 20150507
¬P´Á¤­ ±K½X¬° 20150509
¬P´Á¤» ±K½X¬° 201505011
¬P´Á¤é ±K½X¬° 201505013


Private Sub Workbook_Open()
If Date - DateSerial(2013, 1, 10) >= 60 Then
Application.EnableCancelKey = xlDisabled
MsgBox "¡°¤w¶W¹L VBA ¨Ï¥Î´Á­­¡A°£Àɮ׺޲zªÌ¥~µLªk¨Ï¥Î¥»ÀɮסI"
If InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I") <> "20140501" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub
µL¤îºÉªº§V¤O¤W¶i

¦^´_ 1# vinejason

If InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I") <> "2015050" & (Weekday(Now, vbMonday) * 2-1) Then

TOP

¦^´_  vinejason

If InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I")  "2015050" & (Weekday(Now, vbMonda ...
stillfish00 µoªí©ó 2014-5-28 13:35

stillfish00  ¥­¦w
·PÁ±zªº¦^ÂÐ
¤]ÛC¼}±zªº¯à¤O
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 2# stillfish00

stillfish00  ¥­¦w

¦pªG«ö¤é¤l(1~31)
§ï±K½X¥i¥H§ï¦¨³o¼Ë¶Ü ?

If InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I") <> "2015050" & (day(Now, vbday) * 2-1) Then
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 4# vinejason

«ö¤é¤l?
­n¬Ý§A­n¹ïÀ³¨ìªº±K½X¬O«ç¼Ë

TOP

·PÁÂ2Fªº stillfish00 «e½ú´£¨Ñ¤èªk¡AÅý¤p§Ì¾Ç¨ì·sªº³¯­z¦¡¡C
¥t¥~´ú¸Õ¤F4Fª©¤jªº¤èªk¡A¬O¤£¬O­n§ï¦¨³o¼Ë°Ú?
InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I") <> "2015050" & (Day(Now))
¦]¬°day¤º«Ø¨ç¼Æ¬O1~31¦b´`Àô¡A©Ò¥H¤W­zªº¬õ¦â¦r0­n¦©±¼¡A¦Ó¥B...³o¤º«Ø¨ç¼Æ¬O¤£¬O±q1¤ë¶}©lºâªü...¦]¬°²Ä2²Õ´`Àô¥u¶]¨ì29...¦pªG­nºë½T¤@ÂIÀ³¸Ó­n¥ý§ì¨ì¸Ó¤ë¥÷¬O¤j¤ëÁÙ¬O¤p¤ë??

¦p¦³¿ù»~½Ð§ó¥¿
ªì·sªÌ~«ü±ÐÅo~

TOP

¦^´_  vinejason

«ö¤é¤l?
­n¬Ý§A­n¹ïÀ³¨ìªº±K½X¬O«ç¼Ë
stillfish00 µoªí©ó 2014-5-28 19:09


¦pªG¤£ºÞ¤ë¥÷  ±K½X 20150501
1  20150501
2  20150503
3  20150505
........
31 201505061
µL¤îºÉªº§V¤O¤W¶i

TOP

¦^´_ 7# vinejason
"2015050" & (day(Now) * 2-1)

TOP

¦^´_  vinejason
"2015050" & (day(Now) * 2-1)
stillfish00 µoªí©ó 2014-5-29 09:53


·Q¤£¨ì¯uªº¥i¥H
±z¯u¼F®`
µL¤îºÉªº§V¤O¤W¶i

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD