Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8136 / 13644 ツリー ←次へ | 前へ→

【34869】ListBoxの表示を変更するにはどうするの suchan 06/2/15(水) 10:54 質問[未読]
【34872】Re:ListBoxの表示を変更するにはどうするの inoue 06/2/15(水) 13:05 発言[未読]
【34932】Re:ListBoxの表示を変更するにはどうするの suchan 06/2/16(木) 13:29 お礼[未読]
【34874】Re:ListBoxの表示を変更するにはどうするの Jaka 06/2/15(水) 16:37 発言[未読]
【34931】Re:ListBoxの表示を変更するにはどうするの suchan 06/2/16(木) 13:27 お礼[未読]
【34937】Re:ListBoxの表示を変更するにはどうするの Kein 06/2/16(木) 14:26 発言[未読]
【34974】Re:ListBoxの表示を変更するにはどうするの suchan 06/2/17(金) 11:48 お礼[未読]

【34869】ListBoxの表示を変更するにはどうするの
質問  suchan  - 06/2/15(水) 10:54 -

引用なし
パスワード
   始めて質問します。
VBA初心者です。
雑誌のおまけについていたモジュールを、業務に活用しようとしたのですが、乗物ボタンからー>部門ボタンに変えたいのですが、LISTBOXの表示を変更出来ません。
よろしくお願いします。
シートにボタンを配置しています。機能には問題ありません。Vlookupとの併用で、項目を選択出来ます。
どなたか教えて下さい!

'部門ボタンから
Sub nori()
  DialogSheets("norimono").ListBoxes("no_list").Value = True
  If DialogSheets("norimono").Show = True Then
    DialogSheets("norimono").ListBoxes ("no_list")
    nori_no = CVar(DialogSheets("norimono").ListBoxes("no_list").Value)
    r = ActiveCell.Row
    On Error Resume Next
    Cells(r, 1).Value = nori_no
  End If
  On Error GoTo 0
End Sub

【34872】Re:ListBoxの表示を変更するにはどうする...
発言  inoue E-MAILWEB  - 06/2/15(水) 13:05 -

引用なし
パスワード
   こんにちは。

すいません。回答ではありません。
提示のコードは「Excel5.0ダイアログ」に関するもので、
現在ではOffice95以前の資産を利用できるように残されているだけのものです。
すぐに回答がないことからしても、
現在主力で使っている人はほとんどいないと言っても良いのではないでしょうか。

初心者の方が今から勉強するのにはとてもお勧めできません。
Office97以降は「ユーザーフォーム」が使えるようになったので、
これを利用するようにした方が簡単だし情報も多いです。
[ユーザーフォームの作り方]
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_080.html

【34874】Re:ListBoxの表示を変更するにはどうする...
発言  Jaka  - 06/2/15(水) 16:37 -

引用なし
パスワード
   取り急ぎと言うより取り急ぎにしか返答できませんが...。

▼suchan さん:
>雑誌のおまけについていたモジュールを、業務に活用しようとしたのですが
いつの時代の雑誌なのでしょうか?

シートタブをCtrlを押しながら、右クリック→シート挿入
MS Excel5.0ダイアログを選んでOK。

シート名「Dialog〇」を「norimono」に変更。
ダイアログシートのダイアログボックスにリストボックスを作る。
(因みに 表示 → ツールバー →フォーム の方のツールボックスから)
作ったリストボックスを選択して、数式バー横の名前ボックスより「no_list」と名前を変更する。
作ったリストボックスを右クリックして、コントロールの書式設定より、リスト表示させるセル範囲を設定。

後は、提示したコードを実行すれば、何をやっているのかは解りませんが動きます。

【34931】Re:ListBoxの表示を変更するにはどうする...
お礼  suchan  - 06/2/16(木) 13:27 -

引用なし
パスワード
   出来ました!!
質問です。
リストには制限がありますか?
20個までしか出来ないのですが......?
方法があれば、教えて下さい。
よろしくお願いします。

【34932】Re:ListBoxの表示を変更するにはどうする...
お礼  suchan  - 06/2/16(木) 13:29 -

引用なし
パスワード
   アドバイスありがたいです!
勉強になります。
これを契機にVGB勉強したいと思っています。
楽しい!!です。
本当にありがとうございました。

【34937】Re:ListBoxの表示を変更するにはどうする...
発言  Kein  - 06/2/16(木) 14:26 -

引用なし
パスワード
   制限はないはずですよ。↓こんな感じのコードで試してみて下さい。

DialogSheets(1).Listboxes(1).ListFillRange = "Sheet1!A1:A30"

【34974】Re:ListBoxの表示を変更するにはどうする...
お礼  suchan  - 06/2/17(金) 11:48 -

引用なし
パスワード
   リスト、出来ました!
ありがとうございました。
お助けサイトは、本当にありがたいですね!!
これを契機に、こつこと勉強しますよ!
また、お世話になるかもしれませんが、その節はよろしくお願いします。

8136 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free