- ベストアンサー
リストボックスの列見出しを追加する方法
- ExcelのVBAでのリストボックスコントロールの列見出しの追加方法を教えてください。
- 列見出し専用の配列を用意しなければならないのかどうかについても教えてください。
- 環境は『Microsoft Excel 2004 for Mac (11.5.6)』、VBAの環境は『Microsoft Visual Basic (11.5)』です。
- hira_kazu
- お礼率51% (31/60)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- VBAリストボックスへの複数列の項目追加について
現在、VBAのリストボックスへの複数列の項目追加に苦戦しております。 まだまだ未熟の為、どうか皆様のお力をお貸し下さい。 手法等、間違えてる箇所があるかと存じますので、ご指摘と、また別に手法がございましたら、ご教授お願い致します。 現在、リストボックスへの複数列の項目追加の為、以下のように記述しておりますが、上手く動きません。 ※あらかじめ、UserForm1にリストボックス（ListBox1）と、コマンドボタンを作成しています。 ※Sheet1に、添付のように書いております。 Private Sub CommandButton1_Click() Dim rngTemp1 As Range Dim rngTemp2 As Range Dim rngTemp3 As Range With Sheets("Sheet1") .Activate Set rngTemp1 = .Cells(2, 2) rngTemp1.Select Set rngTemp2 = .Range(.Cells(2, 4), .Cells(2, 6)) rngTemp2.Select Set rngTemp3 = Union(rngTemp1, rngTemp2) rngTemp3.Select End With UserForm1.ListBox1.ColumnCount = rngTemp3.Count UserForm1.ListBox1.List = rngTemp3.Value 'ここでエラー End Sub ウォッチ式で見ると、rngTemp3には、rngTemp1の値しか入っておらず、その為にエラーとなっているようです。 が、rngTemp3.Selectの時点では、正常に選択出来ております。 (1)そもそもListプロパティで、離れたセルをリストボックスへ追加するのは無理なのでしょうか？ ※Userform1.ListBox1.List=rngTemp2.Valueとすると正常に追加されます。 (2)このような場合を解決する手段は他にありませんでしょうか？(配列の手法などありましたら、教えて下さい。) ※ちなみに実際のデータ列は10列以上ある為、AddItemでは10列目でエラーとなり、無理でした。 環境は、Office2010になります。 説明がわかりづらく申し訳ありませんが、何卒よろしくお願い致します。
- ベストアンサー
- Visual Basic
- EXCELのVBAでリストボックスに関して質問させていただきます。
EXCELのVBAでリストボックスに関して質問させていただきます。 UserForm上にListBox1とListBox2を横並びに並べてあります。 ListBox1とListBox2に表示されているデータの行数は同じです。 この時、ListBox1のスライドバーを動かすとListBox2も同時に動くようにしたいのですが可能でしょうか？
- ベストアンサー
- Visual Basic
- エクセルVBA・リストボックスに関する質問です。
エクセルVBA初心者です。 作成したワークシート名をVBAにてリストボックス内に表示し、それを選択するとそのシートに飛ぶようにしています。 ------------------- Private Sub ListBox1_Change() With ListBox1 Worksheets(.ListIndex + 1).Activate End With End Sub ------------------- Private Sub UserForm_Initialize() Dim wsSheet As Worksheet For Each wsSheet In Worksheets ListBox1.AddItem wsSheet.Name Next wsSheet End Sub ------------------- これではすべてのシートがリストボックス内に反映される為、反映させたくないシート(3シートあるのですが）も一緒に表示されてしまいます。 この表示させたくないシートをリストボックス内に表示させない事は可能でしょうか？ 又、できるとしたら、どんな言語を使用すれば良いのでしょうか？ ご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- ExcelVBAで作成したフォーム内のリストボックスの見出し表示
ExcelVBAで作成したフォーム上のリストボックスに見出しをつけたいのですがうまくいきません。御教示願います。 リストボックスのプロパティー設定 ColunmCount = 3；３列作成 ColumnHead = True VBA内容 ListBox1.RowSourceType = "Value list" ListBox1.RowSource = "test1;test2;test3" と作成したのですが、「型が一致しません」と返答されます。 見出しを表示させる為にはどうしたら良いでしょうか？ 御教示の程お願い致します。
- 締切済み
- オフィス系ソフト
- リストボックスからリストボックスへ（複数列）
データ読み込み済みのリストボックス１（4列）から空白のリストボックス（4列）へ、コマンドボタンをクリックしたらデータが追加されるコードを作成しました。 Private Sub CommandButton1_Click() Dim i As Long For i = 0 To 8 With ListBox1 ListBox2.AddItem .List(.ListIndex, i) End With Next i データは追加されましたが、縦方向にデータが追加され、 横方向に追加されませんでした。 どうすれば複数列のデータをそのまま複数列のリストボックスに追加できるでしょうか。 よろしくお願いします。 End Sub
- 締切済み
- オフィス系ソフト
- VBA・リストボックスの内容をセルに反映
ListBox1からListBox2に追加した項目を、コマンドボタンを押すと、Sheet3のA1から下に並べていくようにしたいのですが、どうもうまくいきません。 リストボックスのプロパティにLinkedCellというのがあるらしいのですが、使っているバージョンには無いみたいです。 もう何日も頭をひねっているのですが、初心者なのでわかりやすく教えて頂けませんでしょうか？よろしくお願いします。
- ベストアンサー
- Visual Basic
- ＥＸＣＥＬ ＶＢＡ リストボックスの列を指定してForeColorを変更する方法について
すいませんＥＸＣＥＬ ＶＢＡのリストボックスのことでお伺いしたいことがあります。 シート上に複数列を表示させるリストボックスを作っているのですが、 その１列目だけフォントのカラーを変更するというのは可能なのでしょうか。 プロパティのForeColorを変更すると当然ですが全部の列の色が変更されてしまい、 色々探しても出来る出来ないを含めてやり方について触れたものが見当たりません。 どなたかご存知の方がおられましたらご教示ください。 With Sheets("AAA").ListBox1 .ColumnCount = 6 .ColumnWidths = "55,70,40,40,40,35" ’一列目だけフォントのカラーを赤くする End With
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡユーザーフォーム・リストボックスについて
エクセルＶＢＡにてユーザーフォームを作りリストボックスにSheet1、AからEのデータすべてを 表示させることは出来るのですが、Ｅ行にデータがある物のみ表示する方法をご存じの方教えて頂けないでしょうか。 入力したソースは下記のとおりです。 Private Sub UserForm_Click() Dim lastRow As Long With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, 5).End(xlUp).Row End With With ListBox1 .ColumnCount = 5 .ColumnWidths = "35;25;30;100;25" .RowSource = "Sheet1!A2:E" & lastRow .ColumnHeads = True End With End Sub
- ベストアンサー
- オフィス系ソフト
- リストボックスの値をＶＢＡで表示させる方法をご教授
ListFillRangeプロパティを使わずに、ActiveXコントロールのリストボックスにＶＢＡで値を入力するには？ OLEObjectsとAddItemメソッドでできるはずなのですが うまくできません。 シート上のリストボックスに あああ いいい ううう とＶＢＡで表示させる方法をご教授ください。
- 締切済み
- Excel（エクセル）
- ExcelVBA でリストリストボックスに列見出しをコーディングでつける
エクセルＶＢＡのフォームにリストボックスを作り、データーベースから読み出したデータを表示させています。 この時、各列にテーブル名とはちがう列名をつけたいのですが、シートに記述するのではなく、コーディングでつける事は出来ませんか？ ControlTipTextに「test1;test;test3;」と指定してみたりしましたが、駄目でした。 どなたかご教授、あるいは出来ません、シートに隠しか方法はありません、と全否定をしてください。
- ベストアンサー
- オフィス系ソフト
- 間違えて用紙トレイを逆向きに入れてしまい、DCP-J582Nの用紙トレイが抜けなくなってしまいました。
- Windows10で無線LANに接続されている環境で使用しています。
- 関連するソフトやアプリは特にありませんが、ひかり回線を使用しています。
お礼
回答ありがとうございました。 一度、Labelコントロールを使ってみます^^