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

§PÂ_®É¶¡, ¸õ¥Xµøµ¡

¦^´_ 1# yc1031
In ThisWorkbook :
  1. Private Sub Workbook_Open()
  2.   With Sheets(1)
  3.     If Now - Fix(Now) > CDate(.[B7]) Then MsgBox "¶W¹L­qÁʮɶ¡": Exit Sub
  4.     If .[H7] = "¤wºI¤î" Then MsgBox "¤wºI¤î": Exit Sub
  5.   End With
  6. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD