返回列表 上一主題 發帖

[發問] 不知道哪裡出問題 執行階段錯誤

j88141

帖子
46 
主題
10 
精華
0 
積分
88 
點名
0  
作業系統
WIN10 
軟體版本
excel2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-1-27 
最後登錄
2018-3-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-13 21:35 | 只看該作者

[發問] 不知道哪裡出問題 執行階段錯誤

本帖最後由 j88141 於 2014-3-13 21:38 編輯

不知道哪裡做錯
執行不出來
謝謝各位指教


Private Sub Worksheet_Change(ByVal myRange As Range)

Set myRange = Worksheets(1).Range("A1")
   

   Range("A1") = "=SUM(B1:B10)"     '儲存格A1 等於  SUM(B1:B10)
         
       If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
       '如果 儲存格A1 大於等於 儲存格E1 和 小於儲存格G1的話

            MsgBox Range("D1") & 和& & Range("F1"), vbOKOnly
       '顯示.....

       ElseIf Range("A1") < Range("E1") Then
       '如果儲存格A1小於儲存格E1

            Range("A1").Interior.ColorIndex = 3
            '儲存格顯示紅色
  
       ElseIf Range("A1") > Range("F1") Then
       '如果儲存格A1大於儲存格F1

            MsgBox Range("E1") & 和& & Range("G1"), vbCritical
       '顯示.....
       End If
  
End Sub
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-3-14 00:12 | 只看該作者
回復 1# j88141
  1. Private Sub Worksheet_Change(ByVal myRange As Range)
  2. Application.EnableEvents = False

  4. Set myRange = Sheet1.Range("A1")

  6.    Range("A1") = "=SUM(B1:B10)"     '儲存格A1 等於  SUM(B1:B10)

  8.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
  9.        '如果 儲存格A1 大於等於 儲存格E1 和 小於儲存格G1的話

  11.             MsgBox Range("D1") & 和& & Range("F1"), vbOKOnly
  12.        '顯示.....

  14.        ElseIf Range("A1") < Range("E1") Then
  15.        '如果儲存格A1小於儲存格E1

  17.             Range("A1").Interior.ColorIndex = 3
  18.             '儲存格顯示紅色
  19.   
  20.        ElseIf Range("A1") > Range("F1") Then
  21.        '如果儲存格A1大於儲存格F1

  23.             MsgBox Range("E1") & 和& & Range("G1"), vbCritical
  24.        '顯示.....
  25.       
  26.       End If
  27.   
  28.   Application.EnableEvents = True
  29. End Sub
複製代碼

TOP

j88141

帖子
46 
主題
10 
精華
0 
積分
88 
點名
0  
作業系統
WIN10 
軟體版本
excel2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-1-27 
最後登錄
2018-3-30 
3#
發表於 2014-3-14 00:22 | 只看該作者
回復 2# owen06


    照你這樣輸入
可是程式好像也不理我
附檔案給你
剛好剛剛升級成中學生
可以下載附件了
檔案.rar (12.92 KB)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-3-14 08:17 | 只看該作者
回復 3# j88141
Worksheet_Change事件程序，是在工作表內容改變時觸發
你在參數中設置了ByVal myRange As Range
代表改變的儲存格是myRange
你沒必要在程序內又設置Set myRange = 工作表1.Range("A1")
雖然這樣設置如果是在同一工作表內並無不可
但是，如果要在程序中用到取得當前變化之儲存格時就會喪失
猜測看看是否是你要的
  1. Private Sub Worksheet_Change(ByVal myRange As Range)
  2. If Intersect(myRange, [B1:B10]) Is Nothing Then Exit Sub '變動儲存格不在B1:B10則退出程序
  3.    Range("A1") = Application.Sum([B1:B10])     '儲存格A1 等於  SUM(B1:B10)

  5.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
  6.        '如果 儲存格A1 大於等於 儲存格E1 和 小於儲存格G1的話

  8.             MsgBox Range("D1") & 和& & Range("F1"), vbOKOnly
  9.        '顯示.....

  11.        ElseIf Range("A1") < Range("E1") Then
  12.        '如果儲存格A1小於儲存格E1

  14.             Range("A1").Interior.ColorIndex = 3
  15.             '儲存格顯示紅色
  16.   
  17.        ElseIf Range("A1") > Range("F1") Then
  18.        '如果儲存格A1大於儲存格F1

  20.             MsgBox Range("E1") & "和&" & Range("G1"), vbCritical
  21.        '顯示.....
  22.       
  23.       End If
  24. End Sub
複製代碼
學海無涯_不恥下問

TOP

j88141

帖子
46 
主題
10 
精華
0 
積分
88 
點名
0  
作業系統
WIN10 
軟體版本
excel2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-1-27 
最後登錄
2018-3-30 
5#
發表於 2014-3-15 22:14 | 只看該作者
回復 4# Hsieh


    可以用~謝謝

TOP

j88141

帖子
46 
主題
10 
精華
0 
積分
88 
點名
0  
作業系統
WIN10 
軟體版本
excel2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-1-27 
最後登錄
2018-3-30 
6#
發表於 2014-3-16 12:15 | 只看該作者
回復 4# Hsieh

    可以再請教Hsieh 版主
比如說如果我想在

儲存格 B5  加入  
=COUNTIF(E6,"蘋果")+COUNTIF(E10,"蘋果")+COUNTIF(E14,"蘋果")+COUNTIF(E18,"蘋果")+COUNTIF(E22,"蘋果")
儲存格B7 加入
=COUNTIF(E8,"蘋果")+COUNTIF(E11,"香蕉")+COUNTIF(E15,"香蕉")+COUNTIF(E19,"香蕉")+COUNTIF(E23,"香蕉")
的話

程式碼就不能執行了

那程式碼該如何改寫呢?
謝謝Hsieh 版主幫忙

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題