papaya

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-11-6 00:21 | 只看該作者

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

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

      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

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2019-11-8 23:22 | 只看該作者

本帖最後由 n7822123 於 2019-11-8 23:24 編輯

回復 1# papaya

你要讓儲存格字體變色之前，首先要能找到該儲存格阿~~~

你的xF(2, V)儲存格內的值 =1，電腦在[B65:AN65]找不到值是 1 的儲存格....

前面這段 [B65:AN65].Find(xF(2, V), LookAt:=xlWhole 就會等於 Nothing

然後你又要叫電腦把 "Nothing" 變色?

Nothing.Font.ColorIndex = IIf(v = 8, 7, 7)

這樣不出錯才奇怪吧!?

如果你要這樣寫，前面加上 On Error Resume Next 讓電腦跳到下一行執行

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

papaya

中學生 Rank: 2

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

5^#

發表於 2019-11-9 00:01 | 只看該作者

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

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2019-11-9 00:16 | 只看該作者

本帖最後由 n7822123 於 2019-11-9 00:26 編輯

回復 5# papaya

原本

[B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7) ' IIf(V = 8, 7, 7) 這個很多餘..........

改成

if not [B65:AN65].Find(xF(1, V), LookAt:=xlWhole) is nothing then [B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex =7

如果太長，我會分兩行寫.........因為我的字體給它弄很大字，不想拉捲軸

set oRG= [B65:AN65].Find(xF(1, V), LookAt:=xlWhole)
if not oRG is nothing then oRG.Font.ColorIndex =7

解決一列，但是你還有很多列
on error resume next 比較乾脆...

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

papaya

中學生 Rank: 2

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

7^#

發表於 2019-11-9 01:05 | 只看該作者

回復 6# n7822123
很多列，沒有關係，小弟冒昧再進階請教您的寫法，就是想多研習。
萬分感謝您耐心的幫忙和指導。
晚安!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

8^#

發表於 2019-11-9 09:42 | 只看該作者

本帖最後由准提部林於 2019-11-9 15:21 編輯

Dim FF As Range, AD
If Not xF Is Nothing Then
For V = 4 To 8
   For Each AD In Array("B2:AN2", "B65:AN65", "B66:AN66")
         If xF(1, V) <> "" Then
            Set FF = Range(AD & "").Find(xF(1, V), Lookat:=xlWhole)
            If Not FF Is Nothing Then FF.Font.ColorIndex = 7
         End If
         If xF(2, V) <> "" Then
            Set FF = Range(AD & "").Find(xF(2, V), Lookat:=xlWhole)
            If Not FF Is Nothing Then FF.Interior.ColorIndex = 6
         End If
   Next
Next V
End If

TOP

papaya