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

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

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

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

Office 365

Office 365は、マイクロソフトが販売している企業向けクラウドベースのグループウエアサービス。電子メールや予定表、Webサイト構築、オンラインストレージ、ビデオ会議などビジネスで必要な機能を備えています。クラウドサービスのため、自社での専用サーバーの設置の必要がないことが特徴です。

解決済

VBA シート選択のシート名にワイルドカード

tttkkk
tttkkk

総合スコア32

VBA

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

Office 365

Office 365は、マイクロソフトが販売している企業向けクラウドベースのグループウエアサービス。電子メールや予定表、Webサイト構築、オンラインストレージ、ビデオ会議などビジネスで必要な機能を備えています。クラウドサービスのため、自社での専用サーバーの設置の必要がないことが特徴です。

3回答

0評価

1クリップ

8238閲覧

投稿2021/02/16 13:16

いつも初歩的な質問に答えて頂きありがとうございます。

シートを選択するときにシート名を使うことでシートを選択できるかと思うのですが、その際にワイルドカードを使用することはできるのでしょうか。
また同時変数の使用できるのでしょうか。

したいことを簡素化して申し上げますと、
A1セルに別のシート名の一部が入力されていて、そのA1セルに入力された値とワイルドカードを繋げて、別シートを取得したいということです。
実際にマクロを実行しますと インデックスが有効範囲にありません。 というエラーメッセージが出てきてしまいます。

以下にサンプルコードを載せましたので参考にお願い致します。

VBA

Sub sheetNameWildcard() Dim a1Cell 'アクティブシートのa1セルに入力されている別のシート名の一部を取得 a1Cell = ActiveSheet.Cells(1, 1).Value '取得した別のシート名の一部とワイルドカードを繋げてシートを取得 Sheets(a1Cell & "_*").Cells(1, 1).Value = 12345 End Sub

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

tatsu99

2021/02/16 13:31

そのようなことはできません。自前でワイルドカードを展開する仕組みを造るしかないです。

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

同じタグがついた質問を見る

VBA

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

Office 365

Office 365は、マイクロソフトが販売している企業向けクラウドベースのグループウエアサービス。電子メールや予定表、Webサイト構築、オンラインストレージ、ビデオ会議などビジネスで必要な機能を備えています。クラウドサービスのため、自社での専用サーバーの設置の必要がないことが特徴です。