- ベストアンサー
Excelでセル検索したセルの色をテキストボックスに表示
- Excelでセルを検索し、検索結果のセルの色をテキストボックスに表示したいです。
- 検索結果のセルの色をテキストボックスに表示する方法を教えてください。
- ExcelのVBAを使用して、セルの色をテキストボックスに表示する方法について教えてください。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- pauNed
- ベストアンサー率74% (129/173)
こんにちは。コーディングスタイルは人それぞれなので 参考になるかどうかわかりませんが、 Dim strmoji As String Dim i As Long Dim rng As Range '■追加 With UserForm1 strmoji = .TextBox1.Text If Len(strmoji) = 0 Then MsgBox "検索条件を入力してください。", 48 Exit Sub End If Set rng = Worksheets("Sheet1").Columns("a").Find(What:=strmoji, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows) If Not rng Is Nothing Then For i = 2 To 8 .Controls("TextBox" & i).Text = rng.Offset(, i - 1).Value Next i .TextBox9.Text = rng.Interior.ColorIndex '■ .TextBox9.BackColor = rng.Interior.Color '■ Else MsgBox "該当なし", 48 End If End With Set rng = Nothing >セルの色もテキストボックスに表示したい についてはNo.1さんのレスで解決ですので、そちらをご優先なさってください。 私のはあくまで蛇足の参考コードです^ ^
お礼
早速のご回答有難うございました。 このように短くできるんですね！
お礼
色と文字の表示方法が分かりました。 有難うございました。 もう完璧です。
補足
早速のご回答有難うございました。 セルの色をそのままテキストボックスに表示でいいのですが、文字が消えてしまったのですが、どうすれば色と一緒に文字を表示できるのでしょうか？ 教えてください。 宜しくお願いします。