会社でエクセルを使ってデータをまとめているのですがVBのユーザーフォームで作ろうとしています。今困っていることはoptionbuttonを4個使い選択式にし選択したら「OK」buttonを押すことで各optionbuttonに対応したsheetへ飛ぶようにしたいのですがうまくいきません。
現状ですが
Private Sub CommandButton1_Click()
dim str as string
str=optionbutton1.caption
select case str
case "****"
sheets("1234").select
・
・
・
end select
End Sub
としています。
間違いがありましたら指摘してください。
ちなみに3日前に始めてVBを教えてもらいました。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
返事遅くなりました。
どのようにコメントしてよいかわかりませんので自分なら次のようにします。
先ずワークシート名を表意的に変更します。
コマンドボタンを作成したらそのボタンのプロパテェーの「オブジェクト名」にそのボタンの役割を表現するような名前をつけておくとよいでしょう、また「Caption」同じ言葉を入れておくきます
質問からして
主シートとは別に複数ありそうですね
・ワークシート名を「主」、「1月」、「2月」、…
・ボタンのオブジェクト名を BTN1月へ移動、BTN2月へ移動、BTN3月へ移動、…
・ボタンのcaptionを1月へ移動、2月へ移動、3月へ移動、…
としてから
ボタンをダブルクリックしてからコーディングにかかります。
Private Sub BTN1月へ_Click()
Sheets("1月").Select
End Sub
他の命令は文は不要です
select文を使う時はコマンドボタンではなくコンボボックスを使います
ワークシートの適当な列のセルに飛び先シート名を入力しておきます。コンボボックスのオブジェクト名 CMBシート選択
コンボボックスのlistFillRangeに飛び先名のセル群を「h3:h15」と入れておきます
コンボボックスをダブルクリックしてコーディングに入ります
Private Sub CMBシート選択_Change()
Select Case CMBシート選択
Case "****"
Sheets("1234").Select
・
・
・
End Select
End Sub
以上
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- JavaScript 以前の質問だと、どの条件でも配列が表示されてしまいます。 1 2022/07/09 11:40
- Visual Basic(VBA) シートを選択して、1つのPDFにしたいのですが。 5 2022/10/03 20:18
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
EXCELの「シートの見出し」のフ...
-
【Excel VBA】データ貼り付け先...
-
accessへエクセルの複数のシー...
-
PCで使用できる暗記シート ア...
-
InputBoxに入力した言葉をシー...
-
エクセルで各シートに日付・曜...
-
複数シートの選択解除の方法
-
ギャップレスCDの作成
-
エクセルの2つのシートを並び...
-
複数のワークシートEXCELで一つ...
-
ActiveSheet.Protect UserInter...
-
エクセルで複数のシートに画像...
-
エクセルのVBユーザーフォーム...
-
パワーポイントでスライドマス...
-
Numbersについてお伺いです。 ...
-
Excelで作成した数個のファイル...
-
エクセルのカレンダーから条件...
-
【ExcelVBA】マクロの入ったシ...
-
Excelのシートに自動で日付を入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
エクセルで複数のシートに画像...
-
ハイパーリンクでジャンプした...
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
【ExcelVBA】マクロの入ったシ...
-
エクセル、特定のシートにパス...
-
エクセルのシート連番の振り直し
-
EXCELの図形(テキストボックス)...
-
特定の複数のシートに同じ処理...
-
【Excel VBA】データ貼り付け先...
-
エクセルのシー名を二段表示に...
-
EXCELの「シートの見出し」のフ...
-
Accessのテーブルを既存のExcel...
-
Wordで差し込み印刷時に表示す...
-
accessへエクセルの複数のシー...
-
エクセル、別のシートの表をポ...
-
指定したシート名以外を非表示...
おすすめ情報