owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-7-25 09:37 | 只看該作者

[發問] 自動運算的寫法

請問一下，我想要讓工作表A1跟B1輸入數字，C1就可以自動運算，
我用一般的巨集去執行是OK的，
For i = 1 To 10
Cells(i, 3) = Cells(i, 2) + Cells(i, 1)
Next
可是如果用『CHANGE』就會變成無限迴圈，一直脫離不了，
用DO UNTIL也一樣死在那邊，
請問在『CHANGE』下，該怎麼寫才不會陷入無限迴圈？謝謝~~~

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-25 11:12 | 只看該作者

回復 1# owen06

Option Explicit
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolea
'物件能觸發事件 -> 啟動物件的預設程序
Private Sub Worksheet_Change(ByVal Target As Range) 'Worksheet_Change 工作表儲存格有修改的預設程序
Application.EnableEvents = False '停止: 觸發事件
For i = 1 To 10
Cells(i, 3) = Cells(i, 2) + Cells(i, 1)
Next
Application.EnableEvents = True ''啟動: 觸發事件
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2013-7-25 11:57 | 只看該作者

回復 2# GBKEE

版主你好，我複製代碼去執行，在a1輸入數字會出現”變數未定義”，
請問是哪邊有問題呢？謝謝~

2013-07-25_115235.jpg (103.41 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2013-7-25 12:31 | 只看該作者

回復 3# owen06
加上 Dim i As Integer 就 OK 了！

Option Explicit
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolea
'物件能觸發事件 -> 啟動物件的預設程序
Private Sub Worksheet_Change(ByVal Target As Range) 'Worksheet_Change 工作表儲存格有修改的預設程序
Dim i As Integer
Application.EnableEvents = False '停止: 觸發事件
For i = 1 To 10
Cells(i, 3) = Cells(i, 2) + Cells(i, 1)
Next
Application.EnableEvents = True ''啟動: 觸發事件
End Sub

複製代碼

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

5^#

發表於 2013-7-25 12:41 | 只看該作者

回復 3# owen06

你的程式碼最開始有下面這條陳述式

Option Explicit

語法

Option Explicit

請注意

Option Explicit 陳述式必出現在模組裏，且在任何程序之前。

當 Option Explicit 在模組中使用時，必須以 Dim， Private、Public、ReDim 或 Static 陳述式來明確宣告所有的變數。如果使用未宣告的變數名稱，則在編譯階段時，會發生錯誤。

如果未使用 Option Explicit 陳述式，則所有未宣告的變數都是 Variant 型態，除非預設的型態另以 Deftype 陳述式所指定過。

附註 Option Explicit 可避免打錯變數名稱或在有效範圍內相同的變數名稱。

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2013-7-25 12:51 | 只看該作者

感謝以上各位的指導，對於我這個剛買書來學的老頭子來說，真是獲益良多。

TOP