ML089

¦^´_ 2# c_c_lai

If target.Address = "C1" Then
¶·¤p­×§ï¬°
If target.Address = "$C$1" Then

ML089

¦^´_ 2# c_c_lai

°õ¦æªº¨BÆJ¸ò§Ú·Q¹³ªºÅ޿観ÂI¤£¦P¡A·íA1­È³Q§ïÅܮɡAC1¤½¦¡¤~·|³s°Ê(IJ°Ê)§ïÅÜ¡C
§Úı±o¶¶§ÇÀ³¸Ó A1§ïÅÜ¡AWorksheet_ChangeÀ³¸Ó¥ý³QIJ°Ê¡A¦A¨ÓC1¤½¦¡§ïÅÜ¡A¦Ó«á Worksheet_Change³QIJ°Ê¡C
¤£ª¾¹D¦³¦³¦ó¬Ýªk?



¥Ø«e°õ¦æ¶¶§Ç¦p¤U

VBA

STEP 1
[A1] = 10

STEP2 ¤½¦¡
C1 = IF(A1>B1, "YES", "NO")

STEP 3
Private Sub Worksheet_Calculate()

STEP 4
Private Sub Worksheet_Change(ByVal Target As Range)

ML089

¦^´_ 6# c_c_lai

ÁÂÁ§A¸Ô²Óªº¸Ñ»¡¡A²×©óÀ´¤F¡C
¨ä¹ê Private Sub Worksheet_Calculate()¨Ã¥¼¶Ç¤J°Ñ¼Æ¡A§Ú±N  If Target.Value = "YES" ¤¤ªº Target »~»{¬°¬O¶Ç¤J°Ñ¼Æ­È¡A¤~¥H¬°¬O C3¤½¦¡Ä²°ÊWorksheet_Calculate¡C
«á¨Ó¥J²ÓÆ[¹î Private Sub Worksheet_Change(ByVal Target As Range) ¤¤ªº If Target.Value = "YES" Then ®Ú¥»¤£·|°õ¦æ¨ì¡A¦] Target ¶È¦³A1¡BB1¡AC3¬O¤½¦¡¨S¦³Ä²µo¬O§Ú¦Û¤vÆ[¹î¤£°÷¡A§A¯u¬O ¥Î¤ß¨}­W¡C


Private Sub Worksheet_Calculate()
    Dim Target As Range
    Set Target = Range("C1")

    '  If Not Intersect(target, Range("C1")) Is Nothing Then
    If Target.Value = "YES" Then
        '  Run my VBA code
        MsgBox "Worksheet_Calculate is Activvated!"
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    '  If Not Intersect(target, Range("C1")) Is Nothing Then
    If Target.Address = "$C$1" Then
        '  MyMacro()
        MsgBox "Worksheet_Change = " & Target.Address
    End If
End Sub