シートを一枚ずつ切り出して､それぞれ一つのブックとして保存（5）

飯田橋、CanalCafe。
お花見カフェの定番ですね。

小雨が降ったりやんだりの天気だったのが残念でしたが、充分楽しめました。

食事はこちら↓の、ビニールでカバーされた部屋!?でいただきましたが、川の上だけあってストーブがガンガンたいてあったにもかかわらず、寒かったです。。

(@_@)

晴れていればこっち←の方が、もろサクラの下で良かったんですが、このときは寒すぎて、こちらで食べてたらお花見どころじゃなかったですね。。（それでも何人かはコートを着込んでこっちで食べてましたが… スゴい根性…）

まぁでもホントに桜の見頃はあっという間に過ぎてしまいますね。土日はまだ少し残ってましたが、今日の大雨でさすがにもうThe ENDでしょうね。。

美しいものははかないですなぁ～
(*ﾟｰﾟ*)

明日は今日とうって変わってだいぶん暖かくなるそうで。。

まさに「三寒四温」。。体調崩さないように気をつけましょう。
(^-^)

あ、もう一 枚キレイに撮れた写真↓があったのでついでに載せておきますね。

サクラがあふれ出てます。。

（‐＾▽＾‐）

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ

それでは、前回自動記述で作成したマクロを見ていきましょう。

マクロを確認するときは、

[ツール(T)]→[マクロ(M)]→[マクロ(M)]から、

作成したマクロを選択して、「編集(E)」でしたね。

そうすると、マクロの根幹部分は、次のように記述されているはずです。

Sheets("Sheet2").Select　…①
Sheets("Sheet2").Copy　…②
ActiveWorkbook.SaveAs Filename:="C:\エクセラー\TEST2.xls", FileFormat:=xlNormal _, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _CreateBackup:=False　…③
Windows("Book1.xls").Activate　…④
Sheets("Sheet3").Select　…⑤
Sheets("Sheet3").Copy
ActiveWorkbook.SaveAs Filename:="C:\エクセラー\TEST3.xls", FileFormat:=xlNormal _, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _CreateBackup:=False
Windows("Book1.xls").Activate

上から意味を考えていきます。自分で操作したことをなんとなく覚えていれば、あとは中学生レベルの英語力で充分どういう意味か把握できます。

まず、①と②で、「Sheet2」を選択して新しいファイルにコピーしたんだな、ということがわかります。

次に、③で、できた新しいファイルに「TEST2.xls」という名前を付けて、「C\エクセラー」フォルダに保存しています。

④で、「Book1.xls」の方に戻って、⑤で、今度は「Sheet3」を選択しています。

ここまでで、⑤以降のコードは、①～④の作業を、「Sheet2」→「Sheet3」，「TEST2」→「TEST3」に置き換えて繰り返していることが想像できます。

長くなってきましたので、続きは次回に。。

f^_^;

シートを一枚ずつ切り出して､それぞれ一つのブックとして保存（4）

お花見お花見～

*゜✽。+*✽ 　（´ω`*）桜*。゜.:

ちょっと寒かったですが、いい天気でお花見日和になりました。

360度満開でしたよっ

:*:・(￣∀￣)・:*:

ヒトも多かったけど…

こんな感じ→でした。。

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ

さて、“使い捨てマクロ”は、拙著「デスクワークを３倍効率化するテクニック」にも、重要機能としてご紹介していますので、よろしかったらぜひご参照ください。

いよいよマクロを記録させていきましょう。

シートを選択する処理も記録させたいので、あえて「Sheet1」ではなく、「Sheet2」を選択して、新しいブックにコピーします。

次の手順でやってみてください。

(1)[ツール(T)]→[マクロ(M)]→[新しいマクロを記録(R)]。

(2)マクロ名やショートカットキーを聞いてきますが、今回はそのまま「OK」としておきます。

(3)「Sheet2」を選択して右クリックし、「移動またはコピー(M)」。

(4)「移動先ブック名(T)」は、「(新しいブック)」とし、「コピーを作成する(C)」にチェックを入れて「OK」。

(5)作成した新しいブックのA1セルの文字（ここでは「TEST2」ですね）をファイル名として、Cドライブの「エクセラー」フォルダに、[ファイル(F)]→[名前を付けて保存(A)]。

（ここまでで、「TEST2.xls」が完成します。）
(6)元の「Book1.xls」に戻って、隣のシート「Sheet3」を選択して右クリックし、「移動またはコピー(M)」。
(7)「Sheet3」も同様の手順で、新しいブックとして、Cドライブの「エクセラー」フォルダに名前を付けて保存。（これは「TEST3.xls」ですね。）

(8)ここまでできたら、また元の「Book1.xls」に戻って、「記録終了」ボタンをクリック。

あとで、どこからどこまでを繰り返せばいいのかをわかりやすくするために、「Sheet2」と「Sheet3」で2回連続して記録させてみました。

どんなプログラムが記述されたか、確認してみましょう。

[ツール(T)]→[マクロ(M)]→[マクロ(M)]から、今作成したマクロ「Macro1」を選択して、「編集(E)」をクリックしてみてください。

こんなふうになっていればOKです。

(b^-゜)

シートを一枚ずつ切り出して､それぞれ一つのブックとして保存（3）

焼肉「Taiga虎」。
チェーン店じゃないんですかね。。

佐賀県伊万里牛を使った焼肉屋さんです。

写真は「厚切りカルビ」。

ステーキ!?って思ってしまいましたが、これがまたやわらかくジューシーなカルビで、結構おいしかったです。

(*^o^*)♪

こちら↓は店内。

まあまあ広いですが、お客さんはいっぱい入ってました。

また来よっと。。

ところで、今年は花粉症があまり出なくて自分でもビックリしています。

3月頭にちょっと「キタっ！」と思ったんですが、そこから特にひどくなるわけでもなく、ちょっとのどがかゆくなったくらいで済みました。。治った…！？

(ﾟΩﾟ;)

自分の行動で例年と違うのは、インフルの時期とつながっていたので、電車の中でよくマスクをしていたのと、毎日コルゲンのうがい薬でうがいしていたことくらいですが…

う～～ん、謎だ。。これから出るってこと無いよな…

(￣□￣;)!!

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ

使い捨てマクロ、作成していきましょう。

シンプルに、こんな↓ふうに3つのシートから構成されているブックを考えます。

それぞれのシートを1枚ずつ切り出して、A1セルに入力されている名前のファイルとして保存します。

Sheet1，Sheet2，Sheet3のA1セルには、それぞれ、「TEST1」，「TEST2」，「TEST3」と入力されているものとします。
なので、Sheet1は、「TEST1.xls」というファイルで保存されるようにする、ということですね。

Cドライブに「エクセラー」というフォルダを作成しておいてください。保存先はそちらにしましょう。

では、まず必要な作業手順を頭の中で軽くシミュレートします。

(1)いずれかのシートを選択して右クリック。

(2)メニューからシートのコピーを選択して、新しいブックにコピーを作成する。

(3)作成したブックのA1セルの文字を覚えておいて、[ファイル(F)]→[名前を付けて保存(A)]。

(4)Cドライブの「エクセラー」フォルダを選択し、ファイル名のところに(3)で覚えた文字を入力して「保存(S)」。
(5)元の「Book1.xls」に戻って、隣のシートも同様の手順でシートコピー…

という程度のシミュレーションで結構です。

次回から実際にマクロの記録をしていきます。

('-^*)/