VBA初心者です。的外れな質問をしている場合にはご容赦ください。
まず ユーザーフォームを表示した時に、
Private Sub UserForm_Initialize()
Set ws1 = Worksheets("s1")
Set gui2 = 銘柄コードから検索
gui2.ListBox1.AddItem "銘柄コードで検索"
gui2.ListBox1.AddItem "銘柄名で検索"
gui2.ListBox1.AddItem "銘柄カナで検索"
End Sub
とリストボックスの各項目を作成しました。
Listboxをクリックした時にlistindexを「リストの数」に格納
する(自分のイメージ)
Private Sub ListBox1_Click()
Set gui2 = 銘柄コードから検索
Set ws1 = Worksheets("s1")
Dim リストの数 As Integer
リストの数 = gui2.ListBox1.ListIndex
End Sub
(自分のイメージ)コマンドボタン2をクリックすると
現在選択されているListbox1のListindexが「リストの数」
に格納されているので、次のSelect文の動きをすると思っています。
Private Sub CommandButton2_Click()
Set gui2 = 銘柄コードから検索
Dim リストの数 As Integer
リストの数 = gui2.ListBox1.ListIndex
Select Case リストの数
Case 0
MsgBox リストの数
Call 銘柄コードで検索
TextBox1.Text = ""
gui2.TextBox1.SetFocus
Case 1
MsgBox リストの数
Call 銘柄名で検索
MsgBox リストの数
TextBox1.Text = ""
gui2.TextBox1.SetFocus
Case 2
MsgBox リストの数
Call 銘柄カナで検索
TextBox1.Text = ""
gui2.TextBox1.SetFocus
End Select
End Sub
コマンドボタン2をクリックした場合に、ListIndexの値を判断し、Select文
の条件どおりに動作させるためには、どのようにしたらよいでしょうか?
EXCEL2000 を使っています。
No.1ベストアンサー
- 回答日時:
こんにちは。
Set ws1 = Worksheets("s1")
Set gui2 = 銘柄コードから検索
↑このSetの意味が良く解からず、イマイチ何をしたいのか理解出来ませんが、
UserFormにListBoxとCommandButtonを1つずつ置いてテストしてます。
参考になれば、、
'************************************************
Private Sub UserForm_Initialize()
CommandButton1.TabIndex = 0
With ListBox1
.AddItem "銘柄コードで検索"
.AddItem "銘柄名で検索"
.AddItem "銘柄カナで検索"
End With
End Sub
'************************************************
Private Sub CommandButton1_Click()
HogeHogeCall (ListBox1.ListIndex)
End Sub
'************************************************
Sub HogeHogeCall(i As Integer)
Select Case i
Case 0: MsgBox i & ", " & ListBox1.List(i)
Case 1: MsgBox i & ", " & ListBox1.List(i)
Case 2: MsgBox i & ", " & ListBox1.List(i)
Case Else
MsgBox "ダメ", vbOKOnly + vbInformation, "Hoge"
End Select
End Sub
No.3
- 回答日時:
Listindexはわからないんですけど、Textプロパティを使ってみました。
Private Sub CommandButton2_Click()
Dim a$
a = 銘柄コードから検索.listbox1.Text
Msgbox (a)
Select Case a
Case "銘柄コードで検索"
Call 銘柄コードで検索
Case "銘柄名で検索"
Call 銘柄名で検索
Case "銘柄カナで検索"
Call 銘柄カナで検索
End Select
End Sub
「call」は省略できます。
質問の中のコードを見る限り、listbox_clickは必要なさそうですよ。
No.2
- 回答日時:
「リストの数」という変数は各プロシジュアーに出てきます。
自分では各プロシジュアーで同じ語句(変数名)を使っているので、同じものと考えているのでしょうが、値が渡って(この意味判りますか)いないとおもいます。
「変数の適用範囲(スコープ)」と言うのが、解説書の解説個所の章のタイトルです。
関数の引数で渡すか、どのプロシジュアーからでも使える
変数として宣言されてはどうでしょう。
蛇足ですが、それと「したいこと」が良く伝わってこないです。設計レベルで別の簡単なやり方があるような感じが
します。したいことを記されては。
どうもありがとうございました。
「したいこと」が良く伝わってこないです・・・・」
実は、この記述はどのように動作するのか?
VBA参考書の記述を応用するには、どうしたらよいか?を主目的として
いるため、おっしゃるとおり、設計レベルで別の簡単なやり方があるのでは
というご指摘もごもっともかと思います。
ご指摘ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ガス銘柄の株は、原油価格増→LN...
-
同じ銘柄を特定とNISAで分...
-
日経平均を小さくPCに表示する...
-
ナイアガラは誰のしわざ? 機...
-
窓埋めにはひげも含まれるので...
-
仮想通貨の時価総額ランキング...
-
寄付から下げていく銘柄について
-
日経225新規採用について
-
ジャスダック銘柄の新聞の株価...
-
過去のストップ高・ストップ安...
-
実現損益合計が減っている
-
日経平均225採用銘柄の入替時期
-
日経225、全225銘柄の分足チャ...
-
TOPIXの入れ替え日っていつですか
-
氷室京介さんの。
-
株:指定替え関係の情報がいち...
-
はしか関連銘柄
-
楽天RSS2での移動平均の取得に...
-
貸借区分でない銘柄の信用売残...
-
【マケスピ】ザラバ情報と登録...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ナイアガラは誰のしわざ? 機...
-
株探(kabutan、カブタン)
-
値動きの活発な銘柄を探す方法は?
-
日経平均を小さくPCに表示する...
-
たばこ銘柄をコレと決めずに吸...
-
窓埋めにはひげも含まれるので...
-
楽天RSS2での移動平均の取得に...
-
Yahoo! Financeの株価データを...
-
クイックコンセンサスを見るには?
-
CATL BYDを含むETFを買いたいが...
-
過去のストップ高・ストップ安...
-
1ティック抜きの勘所、コツを教...
-
コンビニで同じたばこの銘柄が...
-
日計り拘束金について
-
同じ銘柄を特定とNISAで分...
-
売買に適した時間帯(寄り天を...
-
投資信託について 7年程前から...
-
たばこをコンビニで買う時箱だ...
-
相場操縦行為について 同じ価格...
-
デイトレードはモニター何台も...
おすすめ情報