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

¤Á´«²Å¦X±ø¥óÄæ¦ì®É¡A¯à¸õ¥X°T®§®Øĵ¥Ü

¤Á´«²Å¦X±ø¥óÄæ¦ì®É¡A¯à¸õ¥X°T®§®Øĵ¥Ü

½Ð±Ð¦U¦ì¥ý¶i~

¦pªþ¥óªºªí¥Ü¡A­Y·í§Ú·Æ¹«ÂI¨ìD3  ©Î¬O D5®É¡A¥B¼Æ¦r¤j©ó1¦Ê¸U
¥i¦Û°Ê¸õ¥X"½Ð¥ý¤W§e¸³¨Æªø®Ö­ã«á¡A¦A¥Ó½Ð"
¥Ø«e¥u·|¥Î®æ¦¡¤Æ¡A¦b¨ä¥LÄæ¦ì¤Wªí²{
¦ýÀ³¸Ó«ç»ò³]­p ¤~¯à¸õ¥X°T®§®Ø©O?
ÁÂÁÂ¥ý¶i­Ì«ü¾É~~

¹w±±¨qĵ¥Ü»y.zip (17.76 KB)

¦^´_ 1# chi830
¸Õ¸Õ¬Ý!
  1. '©ñ¦b"¤u§@ªí1" ªºvba, ÄÝ"¤u§@ªí1" ±M¥Î(Private), ¤£¥Î¦A with...
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     Dim mRng As Range
  4.     Set mRng = Union([D3], [D5])    '³]©wTrigger½d³ò¬° [D3], [D5]
  5.     If Not Intersect(Target, mRng) Is Nothing Then
  6.         If [D3] >= 100000 Or [D5] >= 100000 Then
  7.              MsgBox Range("E3")
  8.         End If
  9.     End If
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# yen956


   ÁÂÁÂyen956¥ý¶i~
   ±zªº»yªk¡Aªº½T¦³¦¨¥\Åã¥Ü°T®§¤F~
   ³£©Ç§Ú»y·N¨S»¡²M·¡¡ADÄæ¬O¤@­Ó¿é¤Jª÷ÃBªºÄæ¦ì¡A©Ò¥H³Ì¨ÎªºÅã¥Ü°T®§Ä²µoÂI
   À³¸Ó¦buser keyin§¹¼Æ¦r«á¡A¥u­n¶W¹L1¦Ê¸U¡A´N·|¸õ¥X°T®§
   º¸«á¡A­Y·í·Æ¹«¦AÂI¨ì¸ÓÄæ¦ì®É¡A´N¦p¥ý¶i¥Ø«e©Ò¼g¡A¤]·|¸õ¥X°T®§
   keyin§¹´NÅã¥Üªº³o­Ó°Ê§@¡A¤£ª¾±q¦ó¤U¤â...?

TOP

¦^´_ 3# chi830
'­è­è¤~µo²{ [E3],[E5] ¬O¤½¦¡, ½Ð§R°£
'¤S­ì¨Ó§Úªº·Qªk¦³ÂI°ÝÃD(½Ð§ó¥¿)
'¤S­ì¨Óªº¼Æ¦r¬O10¸U,¤£¬O¦Ê¸U(¤w§ó¥¿)
'¤U¦C¨âªÌ¨Ã¦s (SelectionChange ¤Î Change)½Ð¥þ³¡¶K¤W
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$3" And [D3] >= 1000000 Then
        MsgBox "[D3]ªºª÷ÃB¶W¹L1¦Ê¸U¡A½Ð¨Ì®Ö¨MÅv­­¤W§e¸³¨Æªø®Ö­ã"
        Exit Sub
    End If
    If Target.Address = "$D$5" And [D5] >= 1000000 Then
        MsgBox "[D5]ªºª÷ÃB¶W¹L1¦Ê¸U¡A½Ð¨Ì®Ö¨MÅv­­¤W§e¸³¨Æªø®Ö­ã"
        Exit Sub
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$3" And [D3] >= 1000000 Then
        MsgBox "[D3]ªºª÷ÃB¶W¹L1¦Ê¸U¡A½Ð¨Ì®Ö¨MÅv­­¤W§e¸³¨Æªø®Ö­ã"
        Exit Sub
    End If
    If Target.Address = "$D$5" And [D5] >= 1000000 Then
        MsgBox "[D5]ªºª÷ÃB¶W¹L1¦Ê¸U¡A½Ð¨Ì®Ö¨MÅv­­¤W§e¸³¨Æªø®Ö­ã"
        Exit Sub
    End If
End Sub

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD