[[20170818132522]] 『リストボックスと同じ値に色を付ける』(みんみん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『リストボックスと同じ値に色を付ける』(みんみん)

いつも拝見させていただいています
教えていただきたい事が有ります
お願いいたします

ユーザーフォーム1の  リストボックスに選択された値と
C列と同じ値の場合 色を付けたいです
教えてください

よろしくお願いいたします

< 使用 Excel:Excel2013、使用 OS:Windows7 >


状況説明が不十分なのですが、リストボックスから1行クリックした後に、ボタンを押すと着色、って感じで良いですかね?
 Private Sub CommandButton1_Click()
    Dim R As Range
    Dim cw As String

    With ListBox1
        If 0 <= .ListIndex Then
            cw = .List(.ListIndex)
            ActiveSheet.Range("C:C").Interior.ColorIndex = xlNone
            For Each R In ActiveSheet.Range("C:C").SpecialCells(xlCellTypeConstants)
                If R.Value = cw Then
                    R.Interior.Color = RGB(255, 192, 192)
                End If
            Next R
        End If
    End With
 End Sub
(???) 2017/08/18(金) 13:51

???様

有難う御座います
 説明不足で申し訳ございませんでした
コマンドボタン使用です

If R.Value = cw Then  ここで型が違うとエラーが出てしまいます
変数をStringからlongに変えても変わらず
全て 下記のよう無視するような形でもダメでした

ご指導いただけないでしょうか

値は 整数1〜2桁です
大変お手数かけて申し訳ございません

Private Sub CommandButton1_Click()

    Dim R
    Dim cw

    With ComboBox1
        If 0 <= .ListIndex Then
            cw = .List(.ListIndex)
            ActiveSheet.Range("C:C").Interior.ColorIndex = xlNone
            For Each R In ActiveSheet.Range("C:C").SpecialCells(xlCellTypeConstants)
                If R.Value = cw Then
                    R.Interior.Color = RGB(255, 192, 192)
                End If
            Next R
        End If
    End With

End Sub
(みんみん) 2017/08/18(金) 14:52


具体的なリストボックスの中身と、C列のデータは、どういう値でしょうか?
どちらも文字列ならば、エラーにはならないはず。もしC列が数字なのならば、If文の R.Value を、R.Text に変えてみてください。
(???) 2017/08/18(金) 15:49

???様

有難う御座います
すばらしいです

(みんみん) 2017/08/18(金) 17:53


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.