2.2 VBAで値を参照するには VBAを使って、コンボボックスやリストボックスから値を取得したり、逆に一覧から選択したりする方法です。 コンボボックスではプロパティ「Value」を使って値の取得と行の選択行い、リストボックスではプロパティ「ItemsSelected」で選択した行情報の取得、「Selected」で行の選択を行います。 表示している（選択できる）行数を調べるときは、どちらも同じくプロパティ「ListCount」を参照します。 コンボボックスの値を取得・設定するには コンボボックスから値を取得するとき、または値を設定するときは、コンボボックスのプロパティ「Value」を使います。注意することは、値を取得するときはプロパティ「連結列」で指定した列の値を取得するという点です。表示されている内容（※）ではありません。　※表示している列を連結列にしているときは別 なお、プロパティ「Value」へ値をセットしたときは、セットした値と等しい行が選択されます。 リストボックスに何行のデータが表示されているかを調べるときは、リストボックスのプロパティ「ListCount」で参照してください。 プロパティ 用途 Value 値の取得と、行の選択。 ListCount 表示している行数。     'コンボボックス「cmbPrefCode」を参照する場合の記述     ':変数lngPrefCodeへコンボボックスの値を保存     lngPrefCode = Me.cmbPrefCode.Value     'コンボボックス「cmbPrefCode」を選択する（値を設定する）場合の記述     ':7は福島県（を選択）     Me.cmbPrefCode.Value = 7     'コンボボックスへ表示しているリストの行数を知る場合     MsgBox Me.cmbPrefCode.ListCount リストボックスの値を取得・設定するには リストボックスから値を取得するときは、リストボックスのプロパティ「ItemsSelected.Count」で選択している行の数、プロパティ「ItemsSelected.Item(n)」で選択している行の番号を取得、「ItemData(n)」で選択した行の値を参照します。ちなみに、選択した全ての行の値を取得するときは、ItemsSelectedとFor〜Each〜In〜Nextを使うと簡単です。（例１） なお、リストボックスに何行のデータが表示されているかを調べるときは、リストボックスのプロパティ「ListCount」で参照してください。（例２） プロパティ 用途 ItemsSelected 選択している行全体。 ItemsSelected.Count 選択している行の数。 ItemsSelected.Item(n) 選択している行の番号。インデックス（ｎ）は０からの連番で最大値はItemsSelected.Count - 1。 ItemData(n) 表示している各行の値。インデックス（ｎ）は０からの連番で最大値はListCount - 1。 ListCount 表示している行数。 逆に、リストボックスの行を選択するときは、リストボックスのプロパティ「Selected(n)」を使います。Trueをセットすると選択、Falseをセットすると選択解除です。インデックス（ｎ）に指定するのは行番号です。（例３） プロパティ「Selected(n)」へ設定する内容と効果 True インデックスで指定した行を選択します False インデックスで指定した行の選択を解除します     '例１：リストボックスの値を参照する     Dim varData     As Variant '取り出した値を一時的に保存する変数     Dim strSelected As String  '取り出した値を保存する変数     strSelected = vbNullString     With lstPrefList          For Each varData In .ItemsSelected              strSelected = strSelected & .ItemData(varData - 1) & " "          Next     End With     MsgBox strSelected & "を選択しました"     '例２：リストボックスへ表示している行数を知る場合     MsgBox Me.lstPrefList.ListCount     '例３：リストボックスの行を選択する場合     ':福島県(7)と東京都(13)を選択     ':ただし、インデックスには「実際の表示位置-1」を指定する     Me.lstPrefList.Selected(6) = True     Me.lstPrefList.Selected(12) = True

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Access VBA サンプル大全集 ■Access クエリ スパテク209 ■ここが知りたかった! Access VBA 500の技※ ◆最速攻略 Excel VBA サンプル大全集 ◆苦手なコードもこれで安心!Excel VBA超入門講座 ◆Excel VBAゲーム大作戦 はじめて編※ 実践編※ （アマゾンへジャンプします。※は共著作品） Access VBA Tips+α コントロール編 1.イメージコントロール   1.1 アニメーションさせるには[DL]    ・プロパティ：PictureData    ・画像を素早く切り替える方法 2.コンボ/リストボックス   2.1 選択リストを表示するには[DL]    ・テーブルと関連づける方法    ・複数の行を選択したときのデータ取得   2.2 VBAで値を参照するには    ・コンボ/Valueプロパティ    ・リスト/ItemsSelectedプロパティ    ・リスト/Selectedプロパティ    ・共通　/ListCountプロパティ   2.3 レコードセットの内容をリストに表示する    　CursorLocation, adUseClient ※[DL]にはサンプルファイルがあります ■DAOデータアクセス編 ■ADOデータアクセス編 ■クエリー(SQL)編 ■フォーム・サブフォーム編 ■コントロール編 ■メニューバー・ツールバー編 ■マクロ（DoCmd）編 ■レポート編 ■応用テク・その他の機能編 ■プログラミングサンプル編 ■番外編1.HTTPやFTPを使うには Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved