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

[µo°Ý] Àɮ׶}±Ò¦Û°Ê§ó·s¥~³¡³s½u¸ê®Æ¡A¦p¦ó¦b§ó·s§¹¦¨«á¦Û°ÊIJµo¥¨¶°¡H

[µo°Ý] Àɮ׶}±Ò¦Û°Ê§ó·s¥~³¡³s½u¸ê®Æ¡A¦p¦ó¦b§ó·s§¹¦¨«á¦Û°ÊIJµo¥¨¶°¡H

¦U¦ì¥ý¶i¦n
        ÁöµM¤w¸g¹Á¸ÕµÛ¦b°Q½×°Ï¤¤·j´MÃþ¦ü¥¨¶°Ä²µoªº©«¤l¡A¦ý¦ü¥GµLªk¸Ñ¨M§Úªº°ÝÃD...
        ¦pÃD¡A§ÚªºÀɮ׶}±Ò·|¦Û°Ê§ó·s¥~³¡³s½u¸ê®Æ¡A§Ú§Æ±æ¦b¥~³¡¸ê®Æ§ó·s§¹¦¨«á¦Û°ÊIJµo¥¨¶°¡A
        ¥Ñ©ó¥~³¡¸ê®Æ§ó·s«á¡A¤u§@ªí¤¤ªº­ì©l¸ê®Æ¦C·|§ïÅÜ¡A¦]¦¹¦³¹Á¸Õ¦b¤@­Ó©T©wªºÀx¦s®æ¨Ï¥Î COUNTA¡A
        ¨Ã§Q¥Î Private Sub Worksheet_Change(ByVal Target As Range) ³oºØ¤è¦¡¨ÓIJµo¡A
        ¦ý´ú¸Õ«áµo²{¡AÀɮ׶}±Ò¸ê®Æ§ó·s§¹«á¡A¸ÓÀx¦s®æªº¼Æ¦r¦]¬°¸ê®Æ¦C¼Æ§ïÅܤw¸g¦P¨B§ïÅܤF¡A¦ý«o¨S¦³Ä²µo¥¨¶°...
        ¥u¦³·í§ÚÂù«öÂI¿ï¸ÓÀx¦s®æµM«á«öEnter«á¡A¤~¯à¥¿±`IJµo¥¨¶°¡C
        ¬O§_¦³¬Æ»ò»yªk¥i¥Hª½±µ±µÄò¥~³¡¸ê®Æ§ó·s§¹¦¨«á¦Û°ÊIJµo¥¨¶°¡H
        ©ÎªÌ¦p¤W­z¨Ï¥ÎCOUNTAªº¤è¦¡¡A¦ýIJµo»yªk»Ý­n½Õ¾ã¡H
        ¥H¤WºÃ°Ý¦A½Ð¥ý¶i¨ó§U¸Ñ´b¡A·P®¦¡I
JS

¦^´_ 10# ­ã´£³¡ªL


    ·PÁ¤À¨É¡A§Ú¦Aªá®É¶¡¦n¦n¬ã¨s¬ã¨s¡A·P®¦¡I

TOP

¦^´_ 9# ­ã´£³¡ªL

±z¦n¡A§Ú¤£¬O«Ü²M·¡DDE¬O¬Æ»ò¡A§Úªº¸ê®Æ¬O³z¹L OracleÅX°Êµ{¦¡¥HODBC³s½u¤è¦¡±q¸ê®Æ®w§ì¨ú¸ê®Æ¡A
¦p«e­±©Ò´£¡A§Ú¥t¥~·s¼W¤@­Ó¤u§@ªí¡A¨Ã¶È¦b¸Ó¤u§@ªí³]©w¤@­ÓCOUNTAªº¤½¦¡¡A
µM«á¦b¸Ó¤u§@ªí³z¹LPrivate Sub Worksheet_calculate() ¨Ó³B²z¡A´N¯àÁקKÀWÁcIJµoªº°ÝÃD¤F¡A
ÁÂÁ±z¡A°ÝÃD¤j­P¤W¸Ñ¨M¤F¡C

TOP

¦^´_ 8# jackyq


±z¦n¡A§Ú¥t¥~·s¼W¤@­Ó¤u§@ªí¡A¨Ã¶È¦b¸Ó¤u§@ªí³]©w¤@­ÓCOUNTAªº¤½¦¡¡A
µM«á¦b¸Ó¤u§@ªí³z¹LPrivate Sub Worksheet_calculate() ¨Ó³B²z¡A´N¯àÁקKÀWÁcIJµoªº°ÝÃD¤F¡A
ÁÂÁ±z¡A°ÝÃD¤j­P¤W¸Ñ¨M¤F¡C

TOP

¦^´_ 7# singo1232001

±z¦n¡A§Ú¥t¥~·s¼W¤@­Ó¤u§@ªí¡A¨Ã¶È¦b¸Ó¤u§@ªí³]©w¤@­ÓCOUNTAªº¤½¦¡¡A
µM«á¦b¸Ó¤u§@ªí³z¹LPrivate Sub Worksheet_calculate() ¨Ó³B²z¡A´N¯àÁקKÀWÁcIJµoªº°ÝÃD¤F¡A
ÁÂÁ±z¡A°ÝÃD¤j­P¤W¸Ñ¨M¤F¡C

TOP

³o©«¤l¦³´X­Ó½d¨ÒÀÉ, °Ñ¦Ò¬Ý¬Ý
http://forum.twbts.com/viewthread.php?tid=15062

TOP

1) Àɮ׬O³sµ²¥~³¡Àɮתº¤½¦¡? ©Îdde?
2) ¤½¦¡­È¦³ÅÜ°Ê »P §ó·s¬O§_§¹¦¨ ¬O¤£¦P·§©À
3) ¥ÎWorksheet_Calculateªº¸Ü, ¦pªG¤½¦¡¦³«Ü¦h­Ó, ¨º¥i¯à³y¦¨ÀWÁcIJµo
4) °£¤F³o­ÓÀÉ®×, ¬O§_¥i¯à¦b³oÀɮר䥦¤u§@ªí¾Þ§@? ¬Æ©Î¦P®É¶}±Ò¨ä¥¦ÀÉ®×¾Þ§@?

TOP

try .......

Private Sub Worksheet_Calculate()

End Sub

TOP

¦^´_ 6# singo1232001


   Thisworkbook¤º ¦³¤@¬q¥¨¶°

Private Sub Workbook_Open()
On Error Resume Next
Sheets("±Ò°Ê¤¤").Name = "¤w°±¤î"
Sheets("±Ò°Ê¤¤").Tab.Color = 255
On Error GoTo 0
End Sub

³o¨Ç§R±¼  §Ú§ï§¹§Ñ¤F§R

TOP

¦^´_ 5# jsleee


    ¬Ý§A­n¥D°ÊÁÙ¬O³Q°Ê

¥D°Ê­p®É´N¤£¾a¨Æ¥ó¤F

©w®É°õ¦æ.zip (16.07 KB)

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD