Excel VBA質問箱 IV

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

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


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

54185 / 76738

←次へ　｜　前へ→


	【27353】書き忘れた事がもう１点有りました

Hirofumi - 05/8/6(土) 7:40 -


	引用なし

	パスワード

　後、書き忘れた事がもう１点有りました
コードを善く見てもらえば解る事だと思いますが？

　現状、このコードの処理対象は、ActiveSheetにして有ります
此れは何を意味するかと言うと、このマクロが必ずしも、転記するBookに無くても動くと言う事です
詰まり、転記するBookが幾つも有る場合（月等によりBookが新しく成る様な場合）
そのBook毎に、このマクロを記述せずとも使えます

　その方法は、新規のBookの標準モジュールに、このマクロを記述して、
コンパイルし、適当な名前で保存して置きます
　転記したい時は、先ず適当な名前を付けたマクロの有るBookを起動します
次に、転記したいBookを開き、転記するSheetをActiveにします
ここで、このマクロを起動すれば、Activeにして有るSheetを対象に処理が成されます
処理終了後、転記したBookを保存終了し、マクロの有るBookを保存せず終了すれば、
転記するBookは、常にデータだけと成ります
マクロを修正した時も、マクロが一元化され修正、無修正のマクロが混在状態になる事も無くなります

尚、逆に、Book、Sheetを固定化させたい場合

　　'ActiveSheetのA1セルを基準とする（Listの左上隅）
　　Set rngResult = ActiveSheet.Cells(1, "A")

のActiveSheetをBook名で修飾したSheetを指定します
例えば、常にマクロの有るBookのSheet1と言う名前のシートに転記する場合

　　'ActiveSheetのA1セルを基準とする（Listの左上隅）
　　Set rngResult = ThisWorkBook.WorkSheets("Sheet1").Cells(1, "A")

とします
また、表を、1行下にしたい、1列右にしたい等と言う場合
.Cells(1, "A")の値を（1を2にすれば2行目、"A"を"B"にすればB列）変更して下さい

0 hits

▼

【27171】日付列を取得し、CSVデータを挿入について mimi 05/8/1(月) 1:28