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

lichang

¦U¦ì¤j¤j¦n
       ¤p§Ì§Ú·Q¼g¤@­Ó¬ö¿ýµ{¦¡¡A·í¬í¼Æ¨ì¹F²Å¦X±ø¥ó®É¡AÀx¦s®æc1=1
¦¹®É§Ú·Q¥Îc1=1³o­Ó±ø¥óÅܼƨÓIJµo¥¨¶°¡A¦ý¬O§Úµo²{¥¨¶°¦ü¥G¤£·|°Ê!!
¥i§_À°§Ú¬Ý¤@¤U¬O­þ¸Ìªº°ÝÃD!!
ÁÂÁ¤j®a!!
:D


Book1.rar (6.51 KB)

´ú¸Õµ{¦¡
¤U¸ü¦¸¼Æ: 12

2014-6-6 16:27

lichang

ÁÂÁ¤j¤j
§Ú¦Û¦æ¨Ï¥Î®É¶¡Å@Âꪺ¤è¦¡¨Ó­­©w¶È°O¿ý¤@µ§ªº°Ê§@!!
ÁÂÁÂ!!

GBKEE

¦^´_ 4# lichang
   

¤@µ§¸ê®Æ¦P®É°O¿ý¨â¦¸

¬Ý¬Ý§AªºÀÉ®×

lichang

¦^´_ 2# GBKEE

¤j¤j§A¦n
§Ú²{¦b¹J¨ì¤@­Ó«Ü©_©Çªº°ÝÃD!!
¬°¤°»ò§Ú¦P¼Ëªº¼gªk¡A¦b¤@¥x´ú¸Õ¬OOKªº
¦ý¬O¦b¥t¥~¤@¥x´ú¸Õªº®É­Ôµo¥Í
¤@µ§¸ê®Æ¦P®É°O¿ý¨â¦¸¡A
§Ú¸Ó«ç»òÁ׶}°ÝÃD©O??

lichang

¦^´_ 2# GBKEE

·PÁ±z³o»ò¨³³t¦a¦^µª¡A§Ú·|¦n¦n½m²ßªº!!
:$

GBKEE

¦^´_ 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. 
   
6.   End If
   
7. End Sub
   
8. Private Sub Worksheet_Calculate()
   
9.      '½Ð§ï¥ÎWorksheet¼Ò²Õªº¹w³]¨Æ¥ó
   
10.       If Range("C1") = "1" Then Autoorder = MsgBox("¦³°õ¦æ")
    
11. End Sub

½Æ»s¥N½X