四谷駅近くの桜並木です。
ずいぶん前の写真ですみません。。（…といっても2週間たってませんが）
このときはこのまま赤坂見附までお散歩しようとしたのですが、反対されました。。まぁ時間的にも遅かったしね。。
(_ _。)
行ったお店はサルヴァトーレ・クオモ↓四谷店。
世界的ななんとか大賞受賞の「D.O.C」はもちろんのこと、ゴルゴンゾーラチーズとハチミツのピザもおいしかったです！
しかし東京は桜の季節も終わったというのに積雪を記録。。41年振りの遅さとのこと。
温暖化に向かうのか？はたまたプチ氷河期に向か
うのか…？
(@_@)
ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ
前回、自動記述でつくったコードを再掲します。
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」→「Sheet3」，「TEST2」→「TEST3」に置き換えて繰り返しています。
繰り返すときに使うコードは、「For～Next」でしたね。（復習はこちら からどうぞ…）
さて、何回繰り返しますか？
今回のケースは、3つのシートを切り出して、それぞれ「TEST1」,「TEST2」,「TEST3」というファイルとして保存するので、3回ですね。まぁ、でもせっかくなので、何枚シートがくっついていてもできるように汎用性を持たせましょう。
ここで、このケースでのポイントを3つ。。
1．ブックを構成するシートの枚数は、「Worksheets.Count」で取得できる。
2．ブックを構成するシートの、左から○番目のシートを選択するには、「Sheets(○).Select」。（同様に、コピーは、「Sheets(○).Copy」）
3．「&」を使って文字列を結合させることができる。（例えば、a=3 のとき、"デスクワークを"&a&"倍効率化" とすると、"デスクワークを3倍効率化"という一つの文字列ができる。）
For～Next ではさみこんで、3回繰り返す形にしたところ↓から、次回修正を加えていきます。
For i=1 To 3
Sheets("Sheet2").Select …①
Sheets("Sheet2").Copy …②
ActiveWorkbook.SaveAs Filename:="C:\エクセラー\TEST2.xls", FileFormat:=xlNormal _, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _CreateBackup:=False …③
Windows("Book1.xls").Activate …④
Next i
(^-^)ノ~~