[發問] IF...THEN一問

cdkee

Private Sub Worksheet_Change(ByVal Target As Range)
'If Cell(D2)內數值出現改變,Then    <<<請教大大，這句應如何寫，謝謝!
Call myPrg
End Sub

cdkee

這樣對嗎?
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

GBKEE

回復 2# cdkee

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)   'Target變數型態 為 Range物件(有修改值的儲存格)
   
3. '此程序為工作表模組的預設觸動事件程式: 這工作表的任一儲存格有修改值時的程序
   
4.     Dim rng As Range
   
5.     MsgBox Target.Address                        '這行程式碼是讓你了解有修改值儲存格的位置
   
6.     If Target.Address = "$D$2" Then Call myPrg  '也可以這樣寫
   
7.    ' Set rng = Worksheets("Sheet1").[D2]
   
8.    ' If Not Intersect(Target, rng) Is Nothing Then
   
9.    ' Call myPrg
   
10. End Sub

複製代碼

cdkee

回復 3# GBKEE

謝謝版大指導!