- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-5-2 07:47 ½s¿è
¦^´_ 1# ketrddem
´£¨Ñ°Ñ¦Ò¡G
ThisWorkbook:¡G- Sub Ex()
- [A1] = 10
- [B1] = 8
- [A1] = 6
- End Sub
½Æ»s¥N½X ¤u§@ªí1¡G- 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
½Æ»s¥N½X ½Ð¥Î F8 ¨Ó Trace ¨Ó¥J²ÓÆ[¹î Worksheet_Calculate() ¥H¤Î
Worksheet_Change(ByVal target As Range) ¬O¦p¦ó¹B§@¡A
¥Ø«e {A1:B1] §¡¬O¥H Assign value ¤è¦¡¶i¦æ¡A¦ý¦pªG¥¦Ì³£¬°
¤½¦¡±a¤JÈ¥i¯à Worksheet_Change() ¤£·|¦³°Ê§@¡A¦p [C1]
¤º®eȬ°¡G =IF(A1>B1, "YES", "NO") ¤@¼Ë¡C
{A1:B1] §A¥i¥H±a¤J DDE ¤½¦¡ ¨ÓÆ[¹î¸ê®Æ¶×¤J®É¤§°ÊºAª¬ªp¡C |
|