返回列表 上一主題 發帖

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

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
收藏 分享

j88141

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


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

TOP

j88141

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


    可以用~謝謝

TOP

j88141

帖子
46 
主題
10 
精華
0 
積分
88 
點名
0  
作業系統
WIN10 
軟體版本
excel2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-1-27 
最後登錄
2018-3-30 
4#
發表於 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

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題