セル検索した結果をテキストボックスに表示する時、文字は表示できましたが、セルの色もテキストボックスに表示したいのですが、何処を修正したらいいのか分かりません。
教えてください。
宜しくお願いします。
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ベストアンサー
- 回答日時:
.Interior.ColorIndex
でカラーバレットのインデックス番号
.Interior.Color
でカラーコード
が得られますが、
red などの色名は得られません。
テキストボックスの背景色をセルの塗りつぶし色と同じにするなら
TextBox2.BackColor = Cells(lonNUM, 2).Interior.Color
でイイと思います。
この回答への補足
早速のご回答有難うございました。
セルの色をそのままテキストボックスに表示でいいのですが、文字が消えてしまったのですが、どうすれば色と一緒に文字を表示できるのでしょうか?
教えてください。
宜しくお願いします。
No.2
- 回答日時:
こんにちは。
コーディングスタイルは人それぞれなので参考になるかどうかわかりませんが、
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さんのレスで解決ですので、そちらをご優先なさってください。
私のはあくまで蛇足の参考コードです^ ^
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
最大値のあるセルの行番号のみ...
-
EXCELで日付を入力すると...
-
エクセルで文字の表示が消える?
-
エクセルで10進法から60進法に...
-
ExcelからPDF文書の特定ページ...
-
[最近使った関数]をリセットす...
-
Excel:長い文字列が途中で切れる
-
【キーボード】母音しか打てない…
-
認証コードが入力できない(同...
-
マンション名のローマ数字入力...
-
Windows10 IME 変換候補の順番...
-
エクセルで英数大文字のみの入...
-
EXCELで文字の上に横線を引く方法
-
ワードでの音声入力
-
Apple IDの作成ができない。「...
-
ペイントの画面に、キーボード...
-
タスクバーを常に最前面に表示...
-
スペースキーの代用。
-
人間が一秒間にボタンを押せる回数
-
キー入力について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで10進法から60進法に...
-
Excel:長い文字列が途中で切れる
-
エクセルマクロ セルをクリック...
-
最大値のあるセルの行番号のみ...
-
Excelで数値を右詰めでセルに一...
-
ExcelからPDF文書の特定ページ...
-
excel 図形に入れたテキストや...
-
Excel関数の式の作り方を教えて...
-
エクセルで隣のセルに一月プラ...
-
EXCELで日付を入力すると...
-
エクセルでセルのフォントサイ...
-
【Excel】枠をはみ出して表示さ...
-
エクセル 入力した文字が隣の...
-
エクセル #### 表示させ...
-
EXACT関数とIF関数の組み合わせ...
-
Chr(10)とCHAR(10)は同じ意味で...
-
Excel ハイパーリンクによる非...
-
4つのパターンを表示するEXACT...
-
エクセルで文字の表示が消える?
-
エクセルの足し算について質問...
おすすめ情報