[發問] 修正產生偵錯的程式碼。

插入紅顏色的程式碼，執行後產生下列的偵錯提示框︰

      If xF(1, V) <> "" Then
         [B2:AN2].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)
         [B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)  '列114
      [B66:AN66].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)
      End If
      If xF(2, V) <> "" Then
         [B2:AN2].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)
         [B65:AN65].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)
         [B66:AN66].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)
      End If

請問︰紅顏色的程式碼應該如何修正？
懇請各位大大幫忙！謝謝！

測試檔案︰

TEST.rar (113.79 KB)

樓主熱帖

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

2^#

發表於 2019-11-7 08:58 | 顯示全部帖子

爬文老半天，還是不知道錯在哪裡?
只是將列數改變，為什麼就不能執行了?

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

3^#

發表於 2019-11-8 13:03 | 顯示全部帖子

真的沒有熱心的大大可以幫忙嗎?QQ

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

4^#

發表於 2019-11-9 00:01 | 顯示全部帖子

回復 4# n7822123
n7822123大大 : 您好!
測試成功。
汗顏!原程式碼是小弟節錄本網站的程式碼，並非小弟自寫^^"
感謝您的詳細說明和解答。

如果您不介意的話，可否再請教您 :
假設不以插入On Error Resume Next來解題，
依您的寫法，列106~列123的程式碼應該如何編寫為宜?
萬分感謝^^

TOP

papaya