人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロに関する初歩的な質問です。

■以下の一連の流れをできるだけ簡素化して書きたく思ってるのですが、どう書けばいいのでしょう?

▼▼▼▼▼
Windows("コピー元ブック").Activate
Sheets("コピー元シート").Select
Range("B1").Select
Selection.Copy

Windows("貼り付けブック").Activate
Sheets("貼り付けシート").Select
Range("E11").Select
ActiveSheet.Paste
▲▲▲▲▲


■具体的な記入例教えて頂けると嬉しいです。

それではご回答お待ちしております。

●質問者: あややん
●カテゴリ:コンピュータ 学習・教育
✍キーワード:SELECT Windows エクセル コピー マクロ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● gong1971
●60ポイント

Selectの必要がなく単にコピー・貼り付けだけでよければ、、、

Workbooks("コピー元ブック").Sheets("コピー元シート").Range("B1").Copy Destination:=Workbooks("貼り付けブック").Sheets("貼り付けシート").Range("E11")

こんな感じになります。

◎質問者からの返答

一行にできるんですねw

期待通りの回答でしたのであとで満額お渡しします。

ありがとうございました♪

追加で質問…

▼▼▼▼▼

Windows("コピー元ブック").Activate

Sheets("コピー元シート").Select

Range("B1").Select

▲▲▲▲▲

これを1行で書くのは可能なんでしょうか?

ご回答お待ちしております!(どなたでもOKです)


2 ● gong1971
●20ポイント

追加の質問に関しては無理かと...思ったのですが、

[編集]メニュー[ジャンプ]の機能を使えば可能かもと思い...

Application.Goto Reference:="'[コピー元ブック]コピー元シート'!R1C2"
※R1C2は1行目2列目のセル(B1)を表します。(RはRow、CはColumnの略。)

これでおそらく希望通りの動作になるかと思います。


ただ厳密にActivateメソッドやSelectメソッドと

同じかと言われると...分かりません。


http://www.moug.net/tech/exvba/0050031.htm

※最初の質問の参考ページ

http://www.moug.net/tech/exvba/0050101.htm

◎質問者からの返答

オオ動きました。

2度にわたる希望通りのご回答ありがとうございました。

また何かありましたらヨロシクお願いします。

ということで、今回の質問終了させて頂きます?

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ