セル検索した結果をテキストボックスに表示する時、文字は表示できましたが、セルの色もテキストボックスに表示したいのですが、何処を修正したらいいのか分かりません。
教えてください。
宜しくお願いします。
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.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さんのレスで解決ですので、そちらをご優先なさってください。
私のはあくまで蛇足の参考コードです^ ^
No.1ベストアンサー
- 回答日時:
.Interior.ColorIndex
でカラーバレットのインデックス番号
.Interior.Color
でカラーコード
が得られますが、
red などの色名は得られません。
テキストボックスの背景色をセルの塗りつぶし色と同じにするなら
TextBox2.BackColor = Cells(lonNUM, 2).Interior.Color
でイイと思います。
この回答への補足
早速のご回答有難うございました。
セルの色をそのままテキストボックスに表示でいいのですが、文字が消えてしまったのですが、どうすれば色と一緒に文字を表示できるのでしょうか?
教えてください。
宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) VBA チェックボックスで 5 2023/05/31 17:10
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで10進法から60進法に...
-
エクセルマクロ セルをクリック...
-
最大値のあるセルの行番号のみ...
-
excel 図形に入れたテキストや...
-
4つのパターンを表示するEXACT...
-
エクセル 入力した文字が隣の...
-
Excelで数値を右詰めでセルに一...
-
EXCELで日付を入力すると...
-
Excel:長い文字列が途中で切れる
-
隔月のことを関数で処理したい...
-
【Excel】枠をはみ出して表示さ...
-
ExcelからPDF文書の特定ページ...
-
Excelの小計表で件数も出せます...
-
エクセル 結合・折返し・縮小...
-
エクセル2007で あるセルをク...
-
【キーボード】母音しか打てない…
-
Amazonで本(Kindle版)を購入...
-
【Amazon Prime】アマゾンプラ...
-
認証コードが入力できない(同...
-
某信用金庫の通帳アプリ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルマクロ セルをクリック...
-
Excel:長い文字列が途中で切れる
-
エクセルで10進法から60進法に...
-
最大値のあるセルの行番号のみ...
-
4つのパターンを表示するEXACT...
-
EXACT関数とIF関数の組み合わせ...
-
ExcelからPDF文書の特定ページ...
-
Excelで数値を右詰めでセルに一...
-
EXCELで日付を入力すると...
-
エクセルでセルのフォントサイ...
-
excel 図形に入れたテキストや...
-
【Excel】枠をはみ出して表示さ...
-
エクセルで隣のセルに一月プラ...
-
エクセル 入力した文字が隣の...
-
エクセル #### 表示させ...
-
表示されている人数だけを数え...
-
■Excel 1つのセルにある生年月...
-
Chr(10)とCHAR(10)は同じ意味で...
-
「#REF!」を空白表示する関数
-
エクセルの数式で教えてください。
おすすめ情報