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 -
引用なし
パスワード
   始めて質問します。
ＶＢＡ初心者です。
雑誌のおまけについていたモジュールを、業務に活用しようとしたのですが、乗物ボタンからー＞部門ボタンに変えたいのですが、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ダイアログを選んでＯＫ。

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

後は、提示したコードを実行すれば、何をやっているのかは解りませんが動きます。
【34931】Re:ListBoxの表示を変更するにはどうする...
お礼  suchan  - 06/2/16(木) 13:27 -
引用なし
パスワード
   出来ました！！
質問です。
リストには制限がありますか？
２０個までしか出来ないのですが．．．．．．？
方法があれば、教えて下さい。
よろしくお願いします。
【34932】Re:ListBoxの表示を変更するにはどうする...
お礼  suchan  - 06/2/16(木) 13:29 -
引用なし
パスワード
   アドバイスありがたいです！
勉強になります。
これを契機にＶＧＢ勉強したいと思っています。
楽しい！！です。
本当にありがとうございました。
【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