エクセル97のマクロ

質問

こんなマクロを作りたいのですが、どなたか教えてください。
マクロはあまりわかりません。

１．全てのシートのコピーを特定のフォルダに作成する。
２.作成したシートの特定の列を削除する。（削除する列は全シート共通です）

※シート名は02年01月、02年02月…という風に付いていて、10枚ほどあります。

お願いします(>_<)

回答No.2

ShadowMoon · ベストアンサー

おめでとうございます。

>これで作成したファイルの名前を
>作成日にすることってできますか？

ツールメニュー-マクロ-VBEを開くと多分モジュール1という名前かも知れませんけどそこにプログラムソースが表示されますね。？

ここに　****SaveAS Filename="保存するブックのディレクトリ\ブックの名前.xls"****（以下略）
というところがあると思います。

ここを****SaveAS Filename="保存するブックのディレクトリ\ブックの名前" _
& DatePart("yyyy",Date) & "年" _
& DatePart("m",Date) & "月" _
& DatePart("d",Date) & "日" _
& ".xls"****(以下略）

のように修正すればよいかと思います。

だらだらと長くなるようなら、 上のように　_(スペースを入力してアンダーパーを入力)して改行すると複数行にできるのでコードは少しは見やすくなります。
また行の先頭でTabでも空白が入って少しは見やすくなりますよ。

お礼

おおおおおお！
すご～～～い！！！！
出来ました～(^▽^)♪
ありがとうございました～～～！！！！

感動です！すごく嬉しいです！！！
本当にありがとうございました！

回答No.1

ShadowMoon

マクロはあまりわからないということですので、全体の作業の流れを説明します。

なにもない空のExcelブックを作成しておいてください。
このブックにマクロを保存して、ここからマクロを実行してご質問のような処理を行うことを考えてみます。

1.まず最初に行うのは、マクロの設計です。
具体的にやりたいことをまずは手動でちゃんとやってみてください。
（できれば作業手順を下記のようにメモしていたほうがいいです。）

(1)開くボタンをクリックしてコピーの元になるExcelブックを開く。
(2)ファイルメニューから名前を付けて保存で、特定のフォルダーに名前を付けて保存する。
（ここまででご質問の1.の作業ができました。）
(3)シートを作業グループとする。（シート見出しを右クリックし、全てのシートを選択する。をクリック）
(4)特定の列を削除する。（列番号を右クリックし、削除をクリック）
(5)作業グループを解除する。（シート見出しを右クリックし、作業グループ解除を選択）
(6)上書き保存する。
(7)一番最初に開いていたマクロを保存するためのブックをアクティブにする。

2.一旦開いているブックを最初のブックを除いて一旦閉じてください。

3.次にマクロの記録を行います。（ツールメニュー-マクロ-マクロの記録）
最初の設計作業どおりに操作を行ってください。
最後に記録終了ボタンをクリックします。（またはツールメニュー-マクロ-記録終了）

4.一旦開いているブックを最初のブックを除いて一旦閉じてください。
マクロの動作確認をしましょう。
ツール-マクロ-マクロの実行です。

5.マクロの中身を修正したい場合はツール-マクロ-VisualBasicEditorでVBE（VisualBasicEditor）ウインドウを起動してそこで修正できます。

マクロの実行をボタンやツールバーからもでもできますが、ここでそこまで書くと大変ですので後は（できれば）ご自分でご努力を。Fight!!!

お礼

ありがとうございます！
この通りにやったら出来ました！やった～(^o^)丿

もう一つお聞きしたいのですが、これで作成したファイルの名前を
作成日にすることってできますか？

どうか教えてくださいませ…