ずいぶん前の写真ですみません。。(…といっても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
(^-^)ノ~~