[[20220811161455]]　『リストと一致するセルに色を付ける』（koko）　ページの最後に飛ぶ

『リストと一致するセルに色を付ける』（koko）

お世話になります
ご教示願います

Sub 訪問色つける()

 Dim i As Long
 Dim mydata As Variant

 For i = 4 To Range("c" & Rows.Count).End(xlUp).Row

 On Error Resume Next

    mydata = WorksheetFunction.Match(Range("c" & i), Sheets("リスト").Range("b2:b13"), 0)

     If mydata.Value >= 1 Then

         Range("C" & i).Interior.colorindedx = 6

     End If

 Next

End Sub

マクロの目的は
「リスト」シートのｂ２～ｂ１３に入力されている数字と同じものが
activesheetのＣ4～Ｃ3000（大体でこのくらい）から探して色をつけることです
上記のコードだと何事もなしでマクロ終了します。
宜しくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

１．カラーインデッドエックス。。。になっていますよ。
２．条件文はエラー番号がゼロならに替えた方が。。。と思います
３．エラートラップが解除されていないようですが。大丈夫でせうか
以上
気になる点。でした。でわ
外していましたらお許しを。。。＾＾；。。。m(__)m
（隠居Z） 2022/08/11(木) 16:58

If mydata.Value >= 1 Then

↓

If mydata >= 1 Then

？
（まだ16） 2022/08/11(木) 17:07

 Option Explicit
Sub 訪問色つける02()
    Dim i As Long
    Dim mydata As Variant
    For i = 4 To Range("c" & Rows.Count).End(xlUp).Row
        mydata = Application.Match(Range("c" & i), Sheets("リスト").Range("b2:b13"), 0)
        If Not IsError(mydata) Then
            Range("C" & i).Interior.ColorIndex = 6
        End If
    Next
End Sub
こんな感じでも。。。m(__)m
（隠居Z） 2022/08/11(木) 17:08

（隠居Z）様　　（まだ16）様
うまくいきました。

If Not IsError(mydata) Then

これは全くわかりませんでした。
ありがとうございました。

（koko） 2022/08/11(木) 17:20

３．エラートラップが解除されていないようですが。大丈夫でせうか
気をつけます
ありがとうございました。
（koko） 2022/08/11(木) 17:23

コメント返信：

[ 一覧(最新更新順) ]

[[20220811161455]] 『リストと一致するセルに色を付ける』（koko） ページの最後に飛ぶ

[[20220811161455]]　『リストと一致するセルに色を付ける』（koko）　ページの最後に飛ぶ