
No.3ベストアンサー
- 回答日時:
>このあとBook1に戻りたい!
のところに、
Windows("Book1.xls").Activate
または
Workbooks("Book1.xls").Activate
を書けばよいだけなのですが、小さなことですが、せっかく
Sheets(エリカ).Select
するのでしたら、
Sheets(エリカ).Move After:=Workbooks("Book2").Sheets(1)
ではなくて、
ActiveSheet.Move After:=Workbooks("Book2").Sheets(1)
にするか、あるいは、
Sheets(エリカ).Select
はなくてもよいかと存じます。
【これより憶測ですが。。。】
ちなみに、「Workbooks("Book2")」という書き方は、まだ保存していないブックについてですよね(保存済みのブックでしたら "Book2.xls" ですから)。
ということは、マクロの途中で新規ブックを開くような記述があるのかなと存じますが、そのタイミングでブック名が "Book2" になるとは限りませんので、
Workbooks.Add Template:="ブック"
したタイミングで、
Dim myWB As Workbook
Set myWB = ActiveWorkbook
とでもしておいて、
Sheets(エリカ).Move After:=myWB.Sheets(1)
というような内容にされた方がよいかも知れません。
DOUGLAS_さん
感謝します。
新規ブックを作ってそこにシートエリカを
移動させたかったのですが、おっしゃる通り、実行するたびに、Book2、Book3、Book4...になってしまって、できなかったので、先にファイルを作って自動で開いて、そこにシートを移動するようにしていました。でもDOUGLAS_さんのおかげで理想の形に一歩近づきました。
ただ、これだと実行するたびに新しいブックができて、そこにシートが
移動してしまいます。できれば一度新規ブックを作ったら、そのブックに移動させていきたいんです。
また、新規に作ったブックにシートを移動したあと、
「Windows("Book1.xls").Activate」と記載しても
Book1.xlsに戻りません。なんででしょうか?
ご教授いただければ助かります。
No.4
- 回答日時:
>実行するたびに新しいブックができて、そこにシートが移動してしまいます。
>できれば一度新規ブックを作ったら、そのブックに移動させていきたいんです。
そういうことでしたら、マクロの中で新規ブックを作るのではなくて、「そのブック」は一旦保存しておいて、マクロの中では、
1)「そのブック」を開く
2)処理をする
3)「そのブック」を保存終了する
という作業をされればよいかと存じます。
>また、新規に作ったブックにシートを移動したあと、
>「Windows("Book1.xls").Activate」と記載しても
>Book1.xlsに戻りません。なんででしょうか?
戻らないときに、何かエラーメッセージが出ないでしょうか?
どうしてもお分かりにならないときには、個人情報を伏せ字にして、すべてのコードを呈示なさってみてください。
No.2
- 回答日時:
Workbooks("Book1.xls").Activate と一行追加するだけです。
シート名は、"エリカ" として..
'----------------------------------------
Sub シートを移動する()
Workbooks("Book1.xls").Sheets("エリカ").Move After:=Workbooks("Book2.xls").Sheets(1)
Workbooks("Book1.xls").Activate
End Sub
'-----------------------------------------
この回答への補足
onlyromさん
ご回答ありがとうございます。
新規に作ったブックにシートを移動したあと、
「Workbooks("Book1.xls").Activate」と記載しても
Book1.xlsに戻りません。なんででしょうか?
省略
Workbooks.Add Template:="ブック"
Dim myWB As Workbook
Set myWB = ActiveWorkbook
Sheets(エリカ).Move After:=myWB.Sheets(1)
Windows("Book1.xls").Activate
Sheets(エリカ).Select
Sheets(エリカ).Move After:=myWB.Sheets(1)
Workbooks("Book1.xls").Activate
Sheets("Sheet1").Select
Range("A1").Select
End Sub
No.1
- 回答日時:
こんにちは。
エリカが変数なのか文字列なのか良くわからないですが、
例えば、こんな感じです。
Sub シートを移動する()
Dim エリカ As String
エリカ = "エリカ"
With Windows("Book1.xls")
.Activate
Sheets(エリカ).Select
Sheets(エリカ).Move After:=Workbooks("Book2").Sheets(1)
'このあとBook1に戻りたい!
.Activate
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
VBSでExcelのオープン確認
-
VBA コードを実行すると画面が...
-
エクセルVBAでのエラー
-
Excelブックがアクティブになっ...
-
2つ目のコンボボックスが動作...
-
Excelマクロ 該当する値の行番...
-
別ブックをダイアログボックス...
-
VBS Bookを閉じるコード
-
エクセルマクロで、他ブックか...
-
【ExcelVBA】インデックスが有...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBAで別のブックにシートをコピ...
-
リソース不足を解消したい
-
EXCEL VBA で現在開いているブ...
-
Dir関数で複数ブックへ行いたい...
-
【Excel VBA】書き込み先ブック...
-
[Excel]ADODBでNull変換されて...
-
VBA ブックを開かずにブック内...
-
Accessで作成したグラフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のエクセルファイルとシー...
-
VBA シートをコピーする際に Co...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
VBAで別のブックにシートをコピ...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
【Excel VBA】書き込み先ブック...
-
2つ目のコンボボックスが動作...
-
[Excel]ADODBでNull変換されて...
-
Excelマクロ 該当する値の行番...
-
VBA 実行時エラー 2147024893
-
Excelのマクロコードについて教...
-
Excel にて、 リストボックスの...
-
【ExcelVBA】インデックスが有...
-
VBA アプリケーション定義また...
-
【Excel VBA】表の列の値毎に分...
おすすめ情報