Excel VBA質問箱 IV

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

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


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

【50886】選択してマクロ実行 太郎 07/8/21(火) 19:53 質問[未読]
【50887】Re:選択してマクロ実行 ぱっせんじゃー 07/8/21(火) 20:27 発言[未読]
【50901】Re:選択してマクロ実行 太郎 07/8/21(火) 23:07 質問[未読]
【50910】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 7:16 発言[未読]
【50912】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 7:38 発言[未読]
【50927】Re:選択してマクロ実行 太郎 07/8/22(水) 15:52 質問[未読]
【50934】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 20:38 発言[未読]
【50938】Re:選択してマクロ実行 太郎 07/8/22(水) 22:02 発言[未読]
【50936】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 21:21 発言[未読]
【50939】Re:選択してマクロ実行 太郎 07/8/22(水) 22:02 回答[未読]
【50940】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 22:05 発言[未読]
【50941】Re:選択してマクロ実行 ぱっせんじゃー 07/8/22(水) 22:08 発言[未読]
【50954】Re:選択してマクロ実行 太郎 07/8/23(木) 10:20 回答[未読]
【50958】Re:選択してマクロ実行 とおりすがり 07/8/23(木) 10:46 発言[未読]

【50886】選択してマクロ実行
質問  太郎  - 07/8/21(火) 19:53 -

引用なし
パスワード
   1月から12月までのデータをシート(Sheet2〜)として持っていて、
sheet1上でリストボックス・コンボボックス等で選択すると
マクロが実行されて数値がsheet1に反映される、というのを作りたいです。

2月と選択したら、2月のデータがsheet1に反映される形です。

これはどのように組めばいいのかさっぱり分かりません。

教えてください。

【50887】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/21(火) 20:27 -

引用なし
パスワード
   リストボックスやコンボボックスのChengeイベント
やClickイベントを使ってはいかがでしょう?
イベントにはそれぞれ"クセ"があるので、最適なものを
ご使用ください。

【50901】Re:選択してマクロ実行
質問  太郎  - 07/8/21(火) 23:07 -

引用なし
パスワード
   >ぱっせんじゃーさん

すみません。コンボボックスで作成しようと思っているのですが、
そこに載せる一覧はどこに書けばいいのでしょうか?
初心者すぎて教えてちゃんで申し訳ありませんが、
ネットで調べても一向に検索に引っかからなかったものでして。

【50910】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 7:16 -

引用なし
パスワード
   >コンボボックスで作成しようと思っているのですが、
>そこに載せる一覧はどこに書けばいいのでしょうか?


??
コンボボックスで作成、なら、コンボボックスに一覧
を書き込むことになります。

【50912】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 7:38 -

引用なし
パスワード
   リストボックスなどへの
追加方法が分からない、ということかな?

AddItem

を使います。
Me.ListBox1.AddItem "A"
Me.ListBox1.AddItem "B"

などのようにします。
ワークシートの一覧は
Dim sh As Worksheet
 For Each sh In WorkSheets
  MsgBox sh.Name
 Next sh

のようなかんじで取得できます。

【50927】Re:選択してマクロ実行
質問  太郎  - 07/8/22(水) 15:52 -

引用なし
パスワード
   >ぱっせんじゃーさん

ありがとうございます。
今コンボボックスに教えていただいた方法で追加できました。

今は
Private Sub Combobox1_Change()
 Me.Combobox1.AddItem "A"
 Me.Combobox2.AddItem "B"
End Sub
ここまでできました。

これからは、コマンドボタン等使用せずに、
単純にAを選ぶとA'のマクロが動くようにしたいのです。
ヒントをください。

【50934】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 20:38 -

引用なし
パスワード
   何をなされたいのかよく分かりません。

コンボボックスで"A"を選択したらマクロAを実行、
コンボボックスで"B"を選択したらマクロBを実行、
例)
Select Case Me.ComboBox1.Value
 Case "A"
  Call MacroA
 Case "B"
  Call MacroB
End Select

としたいのか、

呼び出すマクロは同じだが
選択した結果を変数にしてマクロを実行したいのか、
例)
Dim str As String
Dim ws As Worksheet
 str = Me.ComboBox1.Value
 Set ws = Worksheets(str)
 ws.Range("A1").Value = "test"

はたまは別のことなのでしょうか。

【50936】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 21:21 -

引用なし
パスワード
   もしかして「答えてねっと」の「ブタゴリラ」さん?
こちらのHPではマルチポストは容認されてますが、
マルチポストしている旨明記してください、となってますが
確認しました?

【50938】Re:選択してマクロ実行
発言  太郎  - 07/8/22(水) 22:02 -

引用なし
パスワード
   >ぱっせんじゃーさん

はい、コンボボックスでAを選んだらA'のマクロを、
Bを選んだらB'のマクロを実行するようにしたいのです。

ぱっせんじゃーさんが例をあげてくださった物をやってみたいと思います。

【50939】Re:選択してマクロ実行
回答  太郎  - 07/8/22(水) 22:02 -

引用なし
パスワード
   >ぱっせんじゃーさん

「ブタゴリラ」さん?
ちがいますけど。

【50940】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 22:05 -

引用なし
パスワード
   違いましたか。失礼しました。

質問内容が酷似してましたので。
変数も1〜12で同じでしたので。

【50941】Re:選択してマクロ実行
発言  ぱっせんじゃー  - 07/8/22(水) 22:08 -

引用なし
パスワード
   >Bを選んだらB'のマクロを実行するようにしたいのです。

あちらは
>1を選ぶと1'のマクロ、2を選ぶと2'のマクロ…
でしたね。
でも書き方まで酷似・・・。

【50954】Re:選択してマクロ実行
回答  太郎  - 07/8/23(木) 10:20 -

引用なし
パスワード
   >ぱっせんじゃーさん
そう言われても困ってしまいますね(^^;)

【50958】Re:選択してマクロ実行
発言  とおりすがり  - 07/8/23(木) 10:46 -

引用なし
パスワード
   横から失礼します。

別人で質問内容が酷似、というのは
学校の宿題じゃないの?という疑いもありますね。

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