Excelでセル検索したセルの色をテキストボックスに表示

質問

セル検索した結果をテキストボックスに表示する時、文字は表示できましたが、セルの色もテキストボックスに表示したいのですが、何処を修正したらいいのか分かりません。
教えてください。
宜しくお願いします。

Sub AAA()

strMoji$ = UserForm1.TextBox1.Text

If UserForm1.TextBox1.Text = "" Then
MsgBox "検索条件を入力してください。", 48
Exit Sub
End If
On Error GoTo Fail
Worksheets("Sheet1").Range("a:a").Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate

lonNUM& = Selection.Row
UserForm1.TextBox2.Text = Cells(lonNUM, 2).Value
UserForm1.TextBox3.Text = Cells(lonNUM, 3).Value
UserForm1.TextBox4.Text = Cells(lonNUM, 4).Value
UserForm1.TextBox5.Text = Cells(lonNUM, 5).Value
UserForm1.TextBox6.Text = Cells(lonNUM, 6).Value
UserForm1.TextBox7.Text = Cells(lonNUM, 7).Value
UserForm1.TextBox8.Text = Cells(lonNUM, 8).Value
Exit Sub
Fail: MsgBox "該当なし", 48
End Sub

回答No.1

BLUEPIXY · ベストアンサー

.Interior.ColorIndex
でカラーバレットのインデックス番号
.Interior.Color
でカラーコード
が得られますが、
red などの色名は得られません。
テキストボックスの背景色をセルの塗りつぶし色と同じにするなら
TextBox2.BackColor = Cells(lonNUM, 2).Interior.Color
でイイと思います。

お礼

色と文字の表示方法が分かりました。
有難うございました。
もう完璧です。

補足

早速のご回答有難うございました。
セルの色をそのままテキストボックスに表示でいいのですが、文字が消えてしまったのですが、どうすれば色と一緒に文字を表示できるのでしょうか？
教えてください。

宜しくお願いします。

回答No.2

pauNed

こんにちは。コーディングスタイルは人それぞれなので
参考になるかどうかわかりませんが、

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さんのレスで解決ですので、そちらをご優先なさってください。
私のはあくまで蛇足の参考コードです^ ^

お礼

早速のご回答有難うございました。
このように短くできるんですね！