□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 「インデックスが有効範囲にありません」について | |
|---|---|
[195035] 「インデックスが有効範囲にありません」について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ビギナー -(2022/07/06(17:30)) □U R L/ 最終行で「インデックスが有効範囲にありません」と表示されます。
あらかじめマクロブックのsheet1のセルA1に操作するシート名を入力しておきます。
Sub test1()
Dim bookA, bookB As Workbook, buf As Long
buf = ThisWorkbook.Sheets(1).Range("A1") 'ブックBのシート名
Set bookA = Workbooks.Open(ThisWorkbook.Path & "\A.xlsx")
Set bookB = Workbooks.Open(ThisWorkbook.Path & "\B.xlsx")
bookA.Sheets(1).Range("B1").Value = bookB.Sheets(buf).Range("B1").Value
End Sub
よろしくお願いいたします。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195037] Re[1]: 「インデックスが有効範囲にありません」について- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/07/06(18:19)) □U R L/ buf As String 試してみてください この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195038] Re[2]: 「インデックスが有効範囲にありません」について- ■  / 記事引用/メール受信=OFF■
□投稿者/ ビギナー -(2022/07/06(18:33)) □U R L/ できました。 早い対応ありがとうございました。 | |
[195039] Re[3]: 「インデックスが有効範囲にありません」について- ■記事引用/メール受信=OFF■ □投稿者/ 通りすがり -(2022/07/06(18:55)) □U R L/ 参考まで。 インストラクターのネタ帳-1行で複数の変数を宣言する場合の注意点 ht tps://www.relief.jp/docs/vba-declaring-multiple-variable-in-single-line.html | |