ListBoxのBackColor変更方法がうまくいかない

2023/08/16 04:52

このQ&Aのポイント

EXCEL2007のVBAを使用して、リストボックスの背景色を選択された項目に応じて変更しようとしていますが、正常に動作していません。
リストボックスの項目をクリックしても背景色が変わらない原因について、見落としている可能性や誤った手順があるかどうかを確認しています。
質問者は、リストボックスの項目に基づいて背景色を変更する方法が正しいかどうかについてアドバイスを求めています。

ベストアンサー

ListBoxのBackColor変更

2012/04/12 16:03

EXCEL2007のVBAにて質問です。ユーザーフォームにリストボックスを配置して、選んだ物によってリストボックスの背景色を変更しようとしているのですが、うまくいきません。例えばlistbox１を以下の様にセットし、 Private Sub UserForm_Initialize() UserForm1.ListBox1.AddItem ("ピンク") UserForm1.ListBox1.AddItem ("白") End Sub 下記の通り選んだ項目で背景色を変えたいのですが、 Private Sub ListBox1_Click() '選んだ項目で色変え If UserForm1.ListBox1.ListIndex = 0 Then UserForm1.ListBox1.BackColor = RGB(255, 128, 128) 'ピンクなら背景をピンクに Else UserForm1.ListBox1.BackColor = RGB(255, 255, 255) '白なら背景を白に End If End Sub クリックして項目を選択しても背景の色が変わりません。何か見落としている事があるでしょうか？又はやり方が悪いのでしょうか？お教え頂けると助かります。以上、宜しくお願い申し上げます。

jupiter_v121
お礼率100% (2/2)

その他MS Office製品
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

kybo
ベストアンサー率53% (349/647)

2012/04/12 17:21 回答No.2

>ちなみに、ユーザーフォームのイニシャライズの時に、 >UserForm1.ListBox1.BackColor = RGB(255, 128, 128) >としてやると背景色はピンクになるのですが、これはデザイン時と同じだからでしょうか？私もそれ気になってました。 BeforeUpdate、AfterUpdate、DblClick　とかに記述すれば出来ますね。 ClickとChangeはダメ見たいです。 Private Sub ListBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If UserForm1.ListBox1.ListIndex = 0 Then 　UserForm1.ListBox1.BackColor = RGB(255, 128, 128) 'ピンクなら背景をピンクに Else 　UserForm1.ListBox1.BackColor = RGB(255, 255, 255) '白なら背景を白に End If End Sub

質問者

お礼 2012/04/12 17:41

kybo様迅速な回答ありがとうございます。 ListBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) で出来ました！しかし何ででしょうかね？ ClickとかChangeでも変えさせてもらえるとやりやすいんですけどね（＾＾；とりあえず目的は果たせたので、アドバイス頂いたやり方で対処致します。どうもありがとうございました。

その他の回答 (1)

kybo
ベストアンサー率53% (349/647)

2012/04/12 16:28 回答No.1

VBAのヘルプには、～～～～～～～～～～～～オブジェクトの背景色は、BackStyle プロパティが定数 fmBackStyleOpaque に設定されている場合に限り表示されます。～～～～～～～～～～～～とあります。 ListBoxには、BackStyle プロパティがないので、デザイン時にしか色を変更出来ないと思われます。ちなみに、 ComboBoxだとできるようです。

質問者

お礼 2012/04/12 17:07

kybo様早速のご回答ありがとうございます。大変助かります。＞ListBoxには、BackStyle プロパティがないので、デザイン時にしか色を変更出来ないと思われます。まったく気付きませんでした。仕様上、背景色はデザイン時にしか変更できないのですね。なるほど、いくらやっても変わらない筈です・・・。ちなみに、ユーザーフォームのイニシャライズの時に、 UserForm1.ListBox1.BackColor = RGB(255, 128, 128) としてやると背景色はピンクになるのですが、これはデザイン時と同じだからでしょうか？度々で申し訳ありませんが、もし解りましたら教えて下さい。以上、宜しくお願い致します。

関連するQ&A

エクセルVBA　ユーザーフォームのリストボックス
エクセルVBAのユーザーフォームのリストボックスについて教えてください。現在、以下のようにコードがされています。 Private Sub UserForm_Initialize() With UserForm.ListBox1 .AddItem "ABC" .AddItem "DEF" .AddItem "GHI" .ListIndex = 0 End With End Sub Private Sub ListBox1_Click() With ListBox2 .Clear Select Case UserForm.ListBox1.List(ListBox1.ListIndex) Case "ABC" .AddItem "123" .AddItem "456" .AddItem "789" Case "DEF" .AddItem "456" .AddItem "789" Case "GHI" .AddItem "789" End Select .ListIndex = 0 End With End Sub それで、ユーザーフォームを起動した時点で、ListBox1には"ABC"、ListBox2には"789"を選択し、青く色がついている状態にすることは可能でしょうか。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
リストボックス
すいません以下の処理に困っております。リストボックスで値を取得して他のリストボックスにその値を出力したいのですがまったくできません。＜例＞リストボックス１ a b c リストボックス２（上で選択した値を出力） a ちなみに構文は、 ------------------------------------------------------------ Private Sub btn選択_Click() ListBox2.Text = ListBox1.Text 'ListBox1.ListIndex + 1 & ": " & ListBox1.Text End Sub Private Sub CommandButton1_Click() End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub UserForm_Initialize() With ListBox1 .AddItem "スケジューラ" .AddItem "データ変換" .AddItem "DWH Server" .AddItem "PPP Server" .AddItem "ファイヤーウォール" .AddItem "暗号オプション" End With End Sub ---------------------------------------------------- 初心者でまったくできません。御教授をお願いします。
- ベストアンサー
- その他（プログラミング・開発）
ListBoxに値を追加していくには。
Private Sub CommandButton31_Click() ListBox12.ColumnCount = 5 ListBox12.ColumnWidths = "4.0cm;4.0cm;2.0cm;3.0cm;2.0cm" End Sub Private Sub TextBox175_Change() SetList End Sub Private Sub TextBox176_Change() SetList End Sub Private Sub TextBox177_Change() SetList End Sub Private Sub TextBox178_Change() SetList End Sub Private Sub TextBox179_Change() SetList End Sub Private Sub SetList() ListBox12.Clear ListBox12.AddItem TextBox175.Text ListBox12.List(0, 1) = TextBox176.Text ListBox12.List(0, 2) = TextBox177.Text ListBox12.List(0, 3) = TextBox178.Text ListBox12.List(0, 4) = TextBox179.Text End Sub ここで、TextBox175~179の値をコマンドボタン1を押す度、 ListBox12の最終行の直下に挿入されていくようにしたいです。列はそのままです。 1行目 (0,1),(0,2),(0,3),(0,4) 2行目 (1,1),(1,2),(1,3),(1,4) 3行目 (2,1),(2,2),(2,3),(2,4) どのようにやればいいでしょうか。
- ベストアンサー
- Visual Basic
【ExcelVBA】ユーザフォーム初期化時にリストボックスのサイズを変更したい
お世話になります。 ExcelのVBAを利用してマクロを作成しているのですが、ユーザフォームにリストボックスを設定し、任意の高さを調節したいと思っております。ユーザフォームツールで、ユーザフォーム（UserForm1)を作成し、その中にリストボックス（ListBox1）を設定しました。下記のコードはサンプルですが、なぜかリストボックスの高さが調整されないのです。。コードが間違っているのでしょうか？詳しい方、ご指導お願いします。。。 Private Sub UserForm_Initialize() 　With UserForm1.ListBox1 　　.AddItem "テスト1" 　　.AddItem "テスト2" 　　.Height = 50 　End With 　'リストボックスの高さを表示する　Msgbox UserFrom1.ListBox1.Height End Sub ※Msgboxでは"50"と表示されず、ユーザフォームツールで設定した高さが表示されてしまいます。。
- ベストアンサー
- 会計ソフト
リストボックスから項目を選択してセルに入力したいのです
EXcel2003でマクロ作成中です。エクセルシートのＮ列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。 Option Explicit Private Sub CommandButton1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub --------------------------- Private Sub CommandButton2_Click() Unload UserForm1 End Sub ------------------------------ これと同じものをＢ列につくりました。エクセルシートのＢ列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を選択できません。 Private Sub CommandButton1_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox2.list(ListBox2.ListIndex) End If End With Unload UserForm2 End Sub ----------------------------- Private Sub CommandButton2_Click() Unload UserForm2 End Sub ------------------------------------------ まったく同じものを作って内容だけかえたのですが、できません。どうしてでしょうか？ご教授おねがいします。
- ベストアンサー
- Visual Basic
シート名を変更すると、そのシートのデータがリストボックスに表示されない
Vista SP1 ExcelXPでマクロ作成中の超初心者です。シートＡ会社のセルを、右クリックすると、ユーザーフォームが現れ、その中のリストボックスにsheet1のデータが表示されます。sheet2 sheet3　も同様に、正常にリストボックスが表示できています。ところが、シートの名前　「sheet1」を、「関係データ1」に変更するとフォームにリストボックスが表示されますが、中身は表示されません。シート名を変更しても、右クリックでリストが正常に表示できるようにするにはどうすればよろしいでしょうか。　　　　　　　　　　　 1）ブックには,13枚のシートがあります。　1）シート名が　　Ａ会社からＪ会社　　　　　　　　　　sheet1 sheet2 sheet3 2）会社シートにはそれぞれ以下のコードを記入してあります。　 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True 'プロシージャ終了後に表示されるショートカットメニューの非表示 If Target.Row > 14 And Target.Row < 45 And Target.Column > 13 And Target.Column < 15 Then UserForm1.Show End If If Target.Row > 14 And Target.Row < 45 And Target.Column > 19 And Target.Column < 21 Then UserForm2.Show End If ユーザーフォームには、次のコードがあります。 Option Explicit Private Sub CommandButton1_Click() 'With ListBox1 'If .ListIndex = -1 Then 'MsgBox "項目を選択してくだい" 'Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub ------------------------------------------ Private Sub CommandButton2_Click() Unload UserForm1 End Sub 'Private Sub UserForm_Initialize() 'Me.StartUpPosition = 0 ' Me.Left = 200 ' Me.Top = 100 ' Me.Height = 400 ' Me.Width = 230 'End Sub Private Sub 閉じる_Click() Unload UserForm1 End Sub Private Sub ListBox1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) ActiveCell.Offset(0, 7).Value = ListBox1.list(ListBox1.ListIndex, 1) Selection.Offset(0, 7).Select End If End With Unload UserForm1 End Sub -------------------------------------------
- ベストアンサー
- Visual Basic
ユーザフォームのリストボックス
お世話になります。ユーザフォームのリストボックス内の下記2個のどちらかを選択し Private Sub UserForm_Initialize() ListBox1.AddItem ("印刷プレビュー") ListBox1.AddItem ("印刷") End Sub CommandButton1をクリックして Worksheets("Sheet1").PrintOut か Worksheets("Sheet1").PrintPreview を実行したいのですがどうやってリストボックスとコマンドボタンを連動できるようにすればいいのでしょうかコマンドボタンのみだったら出来るのですが、リストボックスを使うとうまくいきません。ご教授よろしくお願いいたします。
- ベストアンサー
- Visual Basic
ListBoxを数字Keyで選択したい
お世話になります。 OSはWin XP Home、Excel2002を使用しています。 EXCELのsheet1にCommandButton1とListBox1を貼り付けて以下のようにコーディングしています。 'Listbox1表示 Private Sub CommandButton1_Click() ListBox1.Visible = True End Sub '使用者はリストボックスのダブルクリックでリストボックスの入力ができる。 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBoxDataSet End Sub '使用者はリストボックスでマウスで選択後EnterKeyで入力ができる。 Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = vbKeyReturn Then ListBoxDataSet KeyAscii = 0 '←これがないとなぜかEXCELが異常終了するので注意！ End If End Sub 'リストボックスで選択したリストを、シートの選択セル(単一)に転記し、 'その後でリストボックスを非表示 Sub ListBoxDataSet() ActiveCell.Value = ListBox1.Text ListBox1.Visible = False End Sub さらにListBox1のプロパティのListFillRangeはA1:B100としており、A列は1から100の連番、B列は上から順に「中山」、「常盤」、「高島」・・・98番目には「吉岡」という名前があります。現在Ａ列の数字は表示以外の機能は持っておらず、ダブルクリックか、マウスで１クリックで項目選択をした後にEnterKeyで名前だけがActivecellに転記されるようになっています。 100件もの項目をひとつのリストボックスには表示しきれず、スクロールバーで探すのも大変なので、例えば数字Keyで1と打てばすぐに「中山」が選択され、さらにEnterKeyで転送される、98と打てば「吉岡」が選択され・・・という風に機能追加したいのです。いろいろ調べましたが、方法が分かりませんでした。よろしくお願いします。
- 締切済み
- オフィス系ソフト
オプションボタンとリストボックスの連動
下記コードを作りましたが、全く反応がありません。どこが悪いのか、指摘いただけませんでしょうか？よろしくお願いします。・オプションボタン1を選択＝リストシートのB列をリストボックスへ表示・オプションボタン2を選択＝リストシートのC列をリストボックスへ表示・リストボックスから一項目を選択、値を入力シートへ入力 Private Sub UserForm2_Initialize() If OptionButton1.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!B3:B" & lastRow End With End If If OptionButton2.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!C3:C" & lastRow End With End If End Sub Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) Worksheets("入力!").ActiveCell.Value = ListBox1.Value End Sub 以上
- ベストアンサー
- Visual Basic
ExcelでListBoxを閉じるには?
Excelにリストボックスを作成します。そして、特定のセルの値が変更されたら、入力候補をリストボックスに表示する。リストボックスの項目をダブルクリックまたはEnterキーを入力したら、リストボックスを非表示にする。 (要は、オートコンプリートなんですが、入力候補は別シートの値を表示したい) ということをしたいのです。が、VBAで Private sub ListBox1_KeyDown(...) ListBox1.Visible = false end sub とやってしまうと、excelがアプリケーションエラーで死んでしまいます。どのようにすればよいのでしょうか? よろしくお願いします。
- 締切済み
- オフィス系ソフト