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

[µo°Ý] µLªk¦C¦L°ÝÃD½Ð±Ð

Private Sub Workbook_BeforePrint(Cancel As Boolean)
IF ACTIVESHEET.NAME="Sheet1" then
      If Range("E973") = True Then
          MsgBox "ªO«pÀˮ֤½¦¡-«È¤áµ²ºc©Ò¦³«p«×¥[Á`Äæ¦ì¥¼¶ñµLªk¦C¦L.(³¯ºa½÷)(ºÞ¨î¤£¥i¦Cªí)¡A¤£¥i¦C¦L¡I"
         Cancel = True
      End If
END IF
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD