検索
タグクラウド
プロフィール
yoshimatsuさんの画像
yoshimatsu
60過ぎのおっちゃんです。同じ年齢層の中ではそこそこパソコンが使える方だと自負しています。今まで会社等で学んだ知識等を紹介していきたいと思います。

広告

posted by fanblog

2017年06月07日

ExcelVBA入門ActiveXコントロールリストボックス

マルチドメイン対応、ビジネス仕様 高性能レンタルサーバー 【シックスコア】
https://px.a8.net/svt/ejp?a8mat=2NR2G3+DE94S2+CO4+NUES3




マイクロソフトアクセスの記事はこちら

人気ブログランキングへ



にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村


リストボックスの使用例


これも今までと同じように挿入から「リストボックス」を選択して、シート状に配置します。

AXリストボックス1.png

上記のように作成しました。そしてプロパティを開いてください。

AXリストボックス2.png

「LinkedCell」に「F1」・「ListFillRange」に「A2:A6」と入力しました。

AXリストボックス3.png

上記のようにリストボックスで選択した「理科」がF1に表示されます。

これもVBAで実現してみましょう。

プロパティの「LinkedCell」・「ListFillRange」の設定を一旦削除してください。

AXリストボックス4.png
Private Sub ListBox1_Click()

Range("F1") = ListBox1.Value

ListBox1.ListFillRange = "sheet1!A2:A6"

End Sub

上記のように記載しました。

これで同じ動作を行います。




初期費用0円!格安スマホ【UQmobile】

===[PR]=====================================================
     月額1,980円〜使えるスマホ【UQmobile】

     ◇番号そのままお乗換え可能!
     ◇当サイト限定初期費用&送料無料!
     ◇0円端末など豊富なラインナップ!

詳しくは↓↓
https://px.a8.net/svt/ejp?a8mat=2TIIN2+9W1A2Q+2CPQ+1BNBJN
=====================================================[PR]===

この記事へのコメント
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバックURL
https://fanblogs.jp/tb/6345398
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
Build a Mobile Site
スマートフォン版を閲覧 | PC版を閲覧
Share by: