[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『リストボックスと同じ値に色を付ける』(みんみん)
いつも拝見させていただいています
教えていただきたい事が有ります
お願いいたします
ユーザーフォーム1の リストボックスに選択された値と
C列と同じ値の場合 色を付けたいです
教えてください
よろしくお願いいたします
< 使用 Excel:Excel2013、使用 OS:Windows7 >
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
有難う御座います
すばらしいです
(みんみん) 2017/08/18(金) 17:53
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.