標題: [發問] IF...THEN一問 [打印本頁]

---

作者: cdkee    時間: 2014-4-10 00:38     標題: IF...THEN一問

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

---

作者: cdkee    時間: 2014-4-10 01:18

這樣對嗎?
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    時間: 2014-4-10 06:10

回復 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    時間: 2014-4-10 11:31

回復 3# GBKEE

謝謝版大指導!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)