The Road to EXCELER　～エクセラーへの道～

天ケ瀬ダム。
前回の平等院の帰りに、宇治の水力発電所に寄って来ました。

久しぶりに来ましたが、なかなかの迫力でした。。

ヽ(ﾟ◇ﾟ )

だんだん夏に向かって暑くなってきましたが、原発はなんとか全機ストップのままでいきたいものですね。。

(^ ^;;)

この日のシメは来来亭の限定ネギラーメン。

関西のよくある雑誌のランキングでは上位常連のお店です。

ごちそうさまでしたぁ～。。

…というわけで、今回も楽しく京都を満喫してきました。

月曜日は300年に一度のキレイに見える金環日食ですね。

朝の7:30が見ごろいうことですが、ちょっとバタバタしている時間帯なので、のんびり鑑賞というのは難しそうですね。。

σ(^_^;)

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

さて、前回の続きです。全部くっつけると、

For i=1 To Workbooks.Count

Workbooks(i).Activate

ActiveWindow.WindowState = xlMinimized

Next i

となりますが、これでマクロ完成です。

このマクロを実行すると、こんなふう↓になっている5つのブックが…

こんなふう↓に、一瞬にしてすべて最小化されます。

次回からは、これを少し応用して、開いているブックすべてのセルから「株式会社」という文字を探してきて、「（株）」に置き換える使い捨てマクロを組んでみましょう。

(*^ー^)

• 
• 
• ツイート

平等院鳳凰堂。
10円玉でおなじみの世界遺産です。

遠くから見ると趣がありますが、近くで見るとけっこう古さがわかります。

そりゃそうですよね、、1000年経ってますから。。

(　 ﾟ ▽ ﾟ ;)

国宝の仏像群を見ているとなんとなく落ち着いた気持ちになってくるのは日本人だからなのでしょうか。。

(^-^)

帰りは茶席↓で休憩して散歩道を散策。

ちょっと曇ってましたが、いい一日でした。

10円玉っぽい写真を一番下につけておきましたので、見てみてください。

('-^*)

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

さて、前回の続きですが、

For i=1 To Workbooks.Count

～　Next i

で、開いているブックの数だけ処理を繰り返すことができます。

この間に、ブックを選択するコマンドと、ウィンドウ最小化のコマンドをつけ足せば、順番にウィンドウが最小化されていくはずですね。

シートの選択は、

Sheets(i).Select

でしたが、ブックの選択は、

Workbooks(i).Activate

となります。

ウィンドウを最小化するコマンドは、

ActiveWindow.WindowState = xlMinimized

なので、これらをくっつけて、次回マクロを完成させたいと思います。

(b^-゜)

• 
• 
• ツイート

京都水族館。
ゴールデンウィークで京都に来ています。

（‐＾▽＾‐）

海の無い京都市にも、3月に水族館ができたということで、さっそく行ってきました！

…が、大方の予想通り超混雑。。

というか予想を超えた3時間待ち！

(＞＜;)

外からイルカのジャンプが少し見えましたが、それよりもあふれんばかりの立ち見客の姿が目立って早々に入館をあきらめました。

そこまでスゴい水族館じゃないと思うのですが、まぁGWなので仕方無いか。。

聞くところによると、大阪の通天閣ですら2時間半待ちということで、関西人からすると「なんでそこまでしてわざわざ…?」と思いますが、景気が良くなってきてるのかな。。

(^o^;)

話は飛びますが、新幹線から富士山がキレイに見えた→ので載せときますネ。

(^▽^)

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

久しぶりにマクロのお話を。。

以前、

繰り返しの構文、「For ～ Next」文と、ブックを構成するシートの枚数を表す、「Worksheets.Count」とを組合せて、シートを一枚ずつ選択していくマクロを作ったと思います。

復習すると、

For i=1 To Worksheets.Count

Sheets(i).Select

Next i

とすれば、そのブックを構成しているシートが順番に選択されていくんでしたよね。

（復習はこちら からどうぞ…）

これはブックにも同様にあてはめることができて、

「Workbooks.Count」

とすると、開いているブックを順番にすべて選択していくことができます。

これを使って、次回、開いているブックをすべて最小化するマクロを組んでいきます。

(^-^)/

• 
• 
• ツイート