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

[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X°ÝÃD °õ¦æ¶¥¬q¿ù»~

[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X°ÝÃD °õ¦æ¶¥¬q¿ù»~

¥»©«³Ì«á¥Ñ j88141 ©ó 2014-3-13 21:38 ½s¿è

¤£ª¾¹D­þ¸Ì°µ¿ù
°õ¦æ¤£¥X¨Ó
ÁÂÁ¦U¦ì«ü±Ð


Private Sub Worksheet_Change(ByVal myRange As Range)

Set myRange = Worksheets(1).Range("A1")
   

   Range("A1") = "=SUM(B1:B10)"     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)
         
       If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
       '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü

            MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
       'Åã¥Ü.....

       ElseIf Range("A1") < Range("E1") Then
       '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1

            Range("A1").Interior.ColorIndex = 3
            'Àx¦s®æÅã¥Ü¬õ¦â
  
       ElseIf Range("A1") > Range("F1") Then
       '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1

            MsgBox Range("E1") & ©M& & Range("G1"), vbCritical
       'Åã¥Ü.....
       End If
  
End Sub

¦^´_ 1# j88141
  1. Private Sub Worksheet_Change(ByVal myRange As Range)
  2. Application.EnableEvents = False

  3. Set myRange = Sheet1.Range("A1")

  4.    Range("A1") = "=SUM(B1:B10)"     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)

  5.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
  6.        '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü

  7.             MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
  8.        'Åã¥Ü.....

  9.        ElseIf Range("A1") < Range("E1") Then
  10.        '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1

  11.             Range("A1").Interior.ColorIndex = 3
  12.             'Àx¦s®æÅã¥Ü¬õ¦â
  13.   
  14.        ElseIf Range("A1") > Range("F1") Then
  15.        '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1

  16.             MsgBox Range("E1") & ©M& & Range("G1"), vbCritical
  17.        'Åã¥Ü.....
  18.       
  19.       End If
  20.   
  21.   Application.EnableEvents = True
  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# owen06


    ·Ó§A³o¼Ë¿é¤J
¥i¬Oµ{¦¡¦n¹³¤]¤£²z§Ú
ªþÀÉ®×µ¹§A
­è¦n­è­è¤É¯Å¦¨¤¤¾Ç¥Í
¥i¥H¤U¸üªþ¥ó¤F
ÀÉ®×.rar (12.92 KB)

TOP

¦^´_ 3# j88141
Worksheet_Change¨Æ¥óµ{§Ç¡A¬O¦b¤u§@ªí¤º®e§ïÅÜ®ÉIJµo
§A¦b°Ñ¼Æ¤¤³]¸m¤FByVal myRange As Range
¥Nªí§ïÅܪºÀx¦s®æ¬OmyRange
§A¨S¥²­n¦bµ{§Ç¤º¤S³]¸mSet myRange = ¤u§@ªí1.Range("A1")
ÁöµM³o¼Ë³]¸m¦pªG¬O¦b¦P¤@¤u§@ªí¤º¨ÃµL¤£¥i
¦ý¬O¡A¦pªG­n¦bµ{§Ç¤¤¥Î¨ì¨ú±o·í«eÅܤƤ§Àx¦s®æ®É´N·|³à¥¢
²q´ú¬Ý¬Ý¬O§_¬O§A­nªº
  1. Private Sub Worksheet_Change(ByVal myRange As Range)
  2. If Intersect(myRange, [B1:B10]) Is Nothing Then Exit Sub 'ÅÜ°ÊÀx¦s®æ¤£¦bB1:B10«h°h¥Xµ{§Ç
  3.    Range("A1") = Application.Sum([B1:B10])     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)

  4.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
  5.        '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü

  6.             MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
  7.        'Åã¥Ü.....

  8.        ElseIf Range("A1") < Range("E1") Then
  9.        '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1

  10.             Range("A1").Interior.ColorIndex = 3
  11.             'Àx¦s®æÅã¥Ü¬õ¦â
  12.   
  13.        ElseIf Range("A1") > Range("F1") Then
  14.        '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1

  15.             MsgBox Range("E1") & "©M&" & Range("G1"), vbCritical
  16.        'Åã¥Ü.....
  17.       
  18.       End If
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¥i¥H¥Î~ÁÂÁÂ

TOP

¦^´_ 4# Hsieh

    ¥i¥H¦A½Ð±ÐHsieh ª©¥D
¤ñ¦p»¡¦pªG§Ú·Q¦b

Àx¦s®æ B5  ¥[¤J  
=COUNTIF(E6,"Ä«ªG")+COUNTIF(E10,"Ä«ªG")+COUNTIF(E14,"Ä«ªG")+COUNTIF(E18,"Ä«ªG")+COUNTIF(E22,"Ä«ªG")
Àx¦s®æB7 ¥[¤J
=COUNTIF(E8,"Ä«ªG")+COUNTIF(E11,"­»¿¼")+COUNTIF(E15,"­»¿¼")+COUNTIF(E19,"­»¿¼")+COUNTIF(E23,"­»¿¼")
ªº¸Ü

µ{¦¡½X´N¤£¯à°õ¦æ¤F

¨ºµ{¦¡½X¸Ó¦p¦ó§ï¼g©O?
ÁÂÁÂHsieh ª©¥DÀ°¦£

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD