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 回答日時： 2006/04/19 19:01

.Interior.ColorIndex

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

この回答への補足

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

宜しくお願いします。

補足日時：2006/04/19 20:04

この回答へのお礼

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

お礼日時：2006/04/19 20:18

No.2 回答者： pauNed 回答日時： 2006/04/19 19:36

こんにちは。

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

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

この回答へのお礼

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

お礼日時：2006/04/19 20:20