セルに入力したシート名を使いたい | |
---|---|
[195904] セルに入力したシート名を使いたい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ Green -(2023/08/31(22:55)) □U R L/ ファイルが3つあります ThisWorkbook workbook1 workbook2 ThisWorkbook シート名「本の名前」のA列には workbook1 のシート名が入っている ThisWorkbook シート名「本の名前」のB列には workbook2 のシート名が入っている A列、B列のシート名を使って コピー&ペースト をしたい エラーになります、このような書き方はしなしのでしょうか。 どの様に修正するのか教えてください。 Windows10 Excel2019 Dim Copy1, Copy2 As String Dim Paste1, Paste2 As String Copy1 = ThisWorkbook.Sheets("本の名前").Range("A2").Value Copy2 = ThisWorkbook.Sheets("本の名前").Range("A3").Value Paste1 = ThisWorkbook.Sheets("本の名前").Range("B2").Value Paste2 = ThisWorkbook.Sheets("本の名前").Range("B3").Value ' コピーとペースト操作を修正 Wb1.Sheets(Copy1).Range("B3:D3").Copy Wb2.Sheets(Paste1).Range("E6:G6").PasteSpecial xlPasteValues Wb1.Sheets(Copy2).Range("B5:D5").Copy Wb2.Sheets(Paste2).Range("E6:G6").PasteSpecial xlPasteValues この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195906] Re[1]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/09/01(13:12)) □U R L/ Wb1とかに、ちゃんとブックが格納されていますか? |
[195907] Re[2]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/09/01(19:21)) □U R L/ 直接の回答ではありません。 参考まで。 ht tps://excelwork.info/excel/datatype/ |
[195909] Re[3]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ Green -(2023/09/02(06:35)) □U R L/ ありがとうございます。 半平太さん Wb1 に格納できていないような気がします。 MKさん やっぱり、String が気になっています。 ・似てるコードが他にもあって、そちらは問題ないのですが、本当に問題がないのかも気になっています。 もう少し試して戻ってきます。宜しくお願い致します。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195910] Re[4]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/09/02(09:10)) □U R L/ >エラーになります 何というエラーなんですか? どこのステートメントで発生するのですか? |
[195911] Re[5]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ Green -(2023/09/02(23:46)) □U R L/ ありがとうございます。 実行時エラー 9 修正できるのかな? 教えて インデックスが有効範囲にありません いろいろ修正して、時々こちらが表示されます。 実行時エラー 91 オブジェクト変数または With ブロック変数が設定されていません Wb1.Sheets(Wsn1).Range("A1").Copy 宜しくお願い致します。 |
[195912] Re[6]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/09/03(10:19)) □U R L/ >インデックスが有効範囲にありません そんなシート名は無いと言う事でしょうね。 >オブジェクト変数または With ブロック変数が設定されていません >Wb1.Sheets(Wsn1).Range("A1").Copy あれ? そんな文は質問に無かったような・・ 全文が分からないと的確にアドバイスするのは難しいです。 |
[195913] Re[7]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ Green -(2023/09/03(11:32)) □U R L/ 冒頭にこちらを追加しましたが、最初からエラーになります。 他のコードではエラーにはならないのですが。 他のエラーが出たり、さっきあったエラーが別の箇所で表示したり、 もう少し確認します。 Sub test() Dim ThisBook As Workbook Set THBK = Workbook("ファイル名.xlsm") 'Set THBK = ThisWorkbook Set THWS = ThisBK.Sheet("Sheet1") この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195914] Re[8]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/09/03(12:37)) □U R L/ >冒頭にこちらを追加しましたが、最初からエラーになります。 Green さんは、モジュールシートの最初に これを入れてないのですか? ↓ Option Explicit 入れてあれば、 Workbook が「SubまたはFunctionが定義されていません」とか THBKやThisBK が「変数が定義されていません」と出るハズなんですけど。 因みに、そこは「s」を補ってください。 >Workbook("ファイル名.xlsm") Workbooks("ファイル名.xlsm") ↑ |
[195915] Re[9]: セルに入力したシート名を使いたい- ■記事引用/メール受信=OFF■ □投稿者/ Green -(2023/09/03(14:28)) □U R L/ ありがとうございます。 そうです。 Option Explicit ← 入れてます。 Workbook が「SubまたはFunctionが定義されていません」とか THBKやThisBK が「変数が定義されていません」 出ました。 s ですね。 試してみます。 |
このトピックに書きこむ |
---|