質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

Q&A

解決済

1回答

896閲覧

コンボボックスで選択されたシートに対して干渉する

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

コンボボックス

GUIの要素のひとつです。Listboxと同様にいくつかのうちひとつを選択する機能だが、Comboboxの場合は選択されたもののみがデフォルトとして表示される。

0グッド

0クリップ

投稿2020/07/17 04:28

編集2020/07/17 04:51

現在、エクセル上のコンボボックスには、コンボボックスがあるシート以外のシートが登録されています。
コンボボックスで選択したシートの特定のセルに対して、値を入れるということをしたいのですが、どのようにして、コンボボックスで選択されたシートに処理を移せばよいのかがわかりません。

VBA

1'コンボボックスで選択されている名前を検索 2Sub SearchName() 3 Dim TargetName As String 4 Dim TargetNameSecond As String 5 Dim WS As Worksheet 6 TargetName = Range("B3").Value 7'コンボボックスの値(どこのシートが選ばれたか)はB3を指定することで取得している 8'ここで取得したシートにどう処理を移せばよいかわからない 9End Sub

追記

Worksheets("TargetName").Range("L8") = 123

を追加してみたのですが、「インデックスが有効範囲にありません」と出てしまいます。
おそらくTargetNameで開いていないシートを指定してしまっているからだと思われます。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Worksheets(TargetName).Range("A1") = 12345
'12345は値です。
'----
シート名はSheet3とすれば、こんな感じで別シートへ書込みます。
xxx = "Sheet3"
Worksheets(xxx).Range("A1") = 12345

投稿2020/07/17 04:40

tosi

総合スコア553

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2020/07/17 04:46

回答ありがとうございます。 提示していただいた方法でやってみたのですが、「インデックスが有効範囲にありません」エラーが出てしまいます。 現在自分でも原因を分析中です。
tosi

2020/07/17 05:14 編集

F8(デバッグ→ステップイン)にて1行ずつ実行して、TargetNameの値を確認して下さい。シート名称は正しいですか。 あと、 確実にあると思われるシート名で下記コードを試験実行して下さい。 例えばSheet1。 Dim xxx as String xxx = "Sheet1" Worksheets(xxx).Range("A1") = 12345 通りますか?
TanakaHiroaki

2020/07/17 05:01

以下とおり修正したら正常動作するのではないでしょうか。 正:Worksheets(TargetName).Range("L8") = 123 誤:Worksheets("TargetName").Range("L8") = 123
退会済みユーザー

退会済みユーザー

2020/07/17 05:03

TanakaHiroaki様の通りに修正したらうまくいきました。ありがとうございます。 tosi様も丁寧にコメントいただきありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問