□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| セルに入力したシート名を使いたい | |
|---|---|
[195904] セルに入力したシート名を使いたい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ Green -(2023/08/31(22:55)) □U R L/ ファイルが３つあります
ThisWorkbook workbook1 workbook2
ThisWorkbook シート名「本の名前」のＡ列には workbook1 のシート名が入っている
ThisWorkbook シート名「本の名前」のＢ列には workbook2 のシート名が入っている
Ａ列、Ｂ列のシート名を使って コピー＆ペースト をしたい
エラーになります、このような書き方はしなしのでしょうか。
どの様に修正するのか教えてください。 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 ですね。 試してみます。 | |