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

[µo°Ý] Àx¦s®æ§PÂ_¦¡Ä²µo¥¨¶°°ÝÃD

¦^´_ 1# lichang
  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2.    '³o¬OThisWorkbook¼Ò²Õªº¹w³]¨Æ¥ó
  3.   If Range("C1") = "1" Then
  4.       Autoorder = MsgBox("¦³°õ¦æ")

  5.   End If
  6. End Sub
  7. Private Sub Worksheet_Calculate()
  8.      '½Ð§ï¥ÎWorksheet¼Ò²Õªº¹w³]¨Æ¥ó
  9.       If Range("C1") = "1" Then Autoorder = MsgBox("¦³°õ¦æ")
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# lichang
   
¤@µ§¸ê®Æ¦P®É°O¿ý¨â¦¸
¬Ý¬Ý§AªºÀÉ®×
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD