- ©«¤l
- 185
- ¥DÃD
- 48
- ºëµØ
- 0
- ¿n¤À
- 227
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- ºX舰ª©
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-14
- ³Ì«áµn¿ý
- 2025-1-27
|
³o¼Ë¹ï¶Ü?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Worksheets("Sheet1").[D2]
If Not Intersect(Target, rng) Is Nothing Then
Call myPrg
End If
End Sub |
|