Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2849 / 76735

←次へ　｜　前へ→


	【79526】Re:集約データの参照元ブック名を取得しセルへ貼り付ける方法について

γ - 17/11/25(土) 8:08 -


	引用なし

	パスワード

老婆心ながらひとこと。

> 自分の思っていたものと相違なかった
ということではまだまだですね。
回答からきちんと吸収するようにしたほうがよいと思います。

(1)
きちんとインデントを付けましょう。
コードを書くにあたっての一丁目一番地です。
そういう見にくい書き方は、ご自分にハンディキャップを与えているようなものです。
回答者さんのコードの書き方をよく参考にしてください。
　
(2)
CopyPasteは一行でコンパクトに書けます。
　　　Sheets("入力用").Range("C73:Q102").Copy
　　　ThisWorkbook.Activate
　　　Range("A65536").End(xlUp).Offset(5, 0).Select
　　　ActiveSheet.Paste
のような Selectを多用する書き方から早く脱出したほうがよいでしょう。

(3)
Set ブック = Workbooks.Open(フォルダ & buf)
のように、変数を効果的に使用した見通しの良いコードの書き方を学んで下さい。

0 hits

▼

【79521】集約データの参照元ブック名を取得しセルへ貼り付ける方法について よっちゃん 17/11/24(金) 22:15