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ランキング
-
日経平均を小さくPCに表示する...
-
たばこ銘柄をコレと決めずに吸...
-
1ティック抜きの勘所、コツを教...
-
投資信託について 7年程前から...
-
株探(kabutan、カブタン)
-
コンビニで同じたばこの銘柄が...
-
CATL BYDを含むETFを買いたいが...
-
3/13の東証一部騰落レシオ
-
窓埋めにはひげも含まれるので...
-
過去の上場廃止銘柄を知りたい...
-
ナイアガラは誰のしわざ? 機...
-
クール・ビズ関連銘柄を知りたい
-
半導体関連銘柄を全て教えてく...
-
楽天RSS2での移動平均の取得に...
-
貸借銘柄一覧とバスケット取引...
-
銘柄スクリーニングの仕方
-
デイトレ・値動きが連動する銘...
-
煙草初心者です。 普段メビウス...
-
日経平均225採用銘柄の入替時期
-
低位株
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ナイアガラは誰のしわざ? 機...
-
日経平均を小さくPCに表示する...
-
信用安値絶対期日到来銘柄
-
窓埋めにはひげも含まれるので...
-
Yahoo! Financeの株価データを...
-
たばこ銘柄をコレと決めずに吸...
-
相場操縦行為について 同じ価格...
-
過去のストップ高・ストップ安...
-
クイックコンセンサスを見るには?
-
東証の整理銘柄や監理銘柄を除...
-
Yahoo!ファイナンスのポートフ...
-
株価指数のMSCIオールカントリ...
-
同じ銘柄を特定とNISAで分...
-
仮想通貨の時価総額ランキング...
-
グローとアイコスの違いってな...
-
信用高値絶対期日到来銘柄とは...
-
売買に適した時間帯(寄り天を...
-
この銘柄を売ろうとするとこん...
-
楽天RSS2での移動平均の取得に...
-
氷室京介さんの。
おすすめ情報