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

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

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

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

Q&A

解決済

1回答

605閲覧

VBA: FIND文でエラーが出てしまう (エラー『インデックスが有効範囲にありません』)

zuzu1984

総合スコア31

VBA

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

0グッド

0クリップ

投稿2022/09/15 05:47

データの移行ツールを作成途中で、詰まってしまいました。

以下、Findのところで躓いておりますので、IF文は未完状態ですが
解決方法を教えていただきたいです。

IF文の中の[Workbooks(QT_DataFile).Worksheets...]の行でエラーになります。
FINDの構文的に間違っていないように思うのですが、実際エラーが出てしまいます。

【やりたいこと】
任意の文字列を[QNumber]に代入しているので、それを指定シート内から検索したい(そして未記載ですが、そのあとにセルのアドレスを取得して…と続く予定です)。

【エラー】
実行時エラー '9':
インデックスが有効範囲にありません

【コード】

Option Explicit Sub SelectOutput() Dim QT_DataFile As String: QT_DataFile = "xxx\xxxx\xxxxx\データベース.xlsx" Dim GetNo As String Dim QNumber As String Dim SelectFile As String '任意の[QT No.]を取得する GetNo = ThisWorkbook.Worksheets("Data Migration App").Range("N10").Value 'QT No.を完成させる QNumber = "QT-" & GetNo '移行先ファイルを選択する(データベース→選択ファイル) MsgBox "移行先のファイルを選択してください" SelectFile = Application.GetOpenFilename() Workbooks.Open (SelectFile) '選択ファイルによって処置を分岐 If InStr(SelectFile, "【QT管理票 緊急対応報告書】") > 0 Then Workbooks(QT_DataFile).Worksheets("入力").Range("B:B").Find(QNumber).Select ・・・・・ '←は省略で質問文のために敢えて書いてます End If End Sub

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

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

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

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

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

okakemetal

2022/09/15 06:18

このエラーに対して、どのような調査・対応を実施されたのでしょうか?
Usirow

2022/09/15 06:48

Workbooks(QT_DataFile) か Worksheets("入力") に問題があるように思います。 ・このマクロを実行する際に Workbooks(QT_DataFile) は開いていますか? ・Workbooks(QT_DataFile).Worksheets("入力")は存在していますか? ・ちなみにQT_DataFileがファイルパスになっているので、開いているつもりであっても Workbooks(QT_DataFile) はエラーになります。
zuzu1984

2022/09/15 07:01

修正依頼いただきありがとうございます。 コードの途中で、[QT_DataFile]を定義しなおし、対象ファイルをActivateしたところ、コードが流れるようになりました。 ヒントをいただき、誠にありがとうございます。
guest

回答1

0

自己解決

コードの途中で、[QT_DataFile]を定義しなおし、対象ファイルをActivateしたところ、コードが流れるようになりました。

投稿2022/09/15 07:01

zuzu1984

総合スコア31

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問