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

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

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

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

Q&A

解決済

1回答

245閲覧

エクセル(VBA)に関して

mizuki_mizu

総合スコア9

VBA

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

0グッド

0クリップ

投稿2018/07/01 06:29

VBAを勉強し始めた所で、初歩的な質問ですがお願いします。

①ブックAのsheet1からブックBのsheet2へのコピーの宣言
Sub コピー()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("sheet1")
Set Sh2 = Worksheets("sheet2")
With sh2
.Range("A1:A5").Value = Sh1.Range("B1:B5").Value
End With
End Sub

シートの宣言でシート名の省略はできるようになりましたが、ブック名の省略はどうすればできるのでしょうか。

②別ブックへセルの足し算のコピー
Workbooks("A.xlsm").Sheets("sheet1").Range("A5+A9").Copy
Workbooks("B.xlsm").Sheets("sheet2").Range("AC130").PasteSpecial xlPasteValues

デバックエラーがでています。セルの足し算を分離したりしましたが、解消されません。

教えていただけると助かります。
よろしくお願いします。

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

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

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

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

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

guest

回答1

0

ベストアンサー

1)

ブック名の省略はどうすればできるのでしょうか。

ブックが違ったところで、シートそのものはシートですよね?
どのブックのそのシートを参照するのかを書いて下さい。

VBA

1Sub コピー() 2 Dim Sh1 As Worksheet 3 Dim Sh2 As Worksheet 4 5 Set Sh1 = Workbooks("A.xlsm").Worksheets("sheet1") 6 Set Sh2 = Workbooks("B.xlsm").Worksheets("sheet2") 7 Sh2.Range("A1:A5").Value = Sh1.Range("B1:B5").Value 8End Sub

2)

セルの足し算を分離したりしましたが、解消されません。

セルのアドレスで足し算をするような式を書いたらどうなると思っているのですか?
マクロの記録をしてみて、どういう記述になるか試して、
どういう記述をすればエクセル君に伝わるか探ってみてはいかがですか?

VBA

1Sub こぴー2() 2 Workbooks("A.xlsm").Sheets("sheet1").Range("A5,A9").Copy 3 Workbooks("B.xlsm").Sheets("sheet2").Range("AC130").PasteSpecial xlPasteValues 4End Sub

投稿2018/07/01 07:24

編集2018/07/01 07:25
mattuwan

総合スコア2136

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

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

mizuki_mizu

2018/07/02 13:22

教えていただいた内容で解決できました。 また、考え方も少し理解できたので更に勉強していきます。 ありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問