モンたろうです。
今日は津山城に来ました♪

津山城と言えば、一二三段と言われる見事な石垣と、復元された備中櫓です。

こちらが備中櫓です。



備中櫓の二階の間に座ってみました。

（特別出演:ゆきお君）

[0回]

備中松山城から岡山に来ました♪
そこで、なんと和歌山で見た「たま電」の市電を発見!!


たま駅長がこんなところまで出張してるのかと思ったら、岡山の市電と和歌山電鉄は関連会社らしいです。

さて岡山城に到着。


あら、そう言えば、休日は僕、モンたろうがレポートするはずだったのに。。。
という訳で、月見櫓前で一枚。

[0回]

連休を利用して備中松山城にやってきました！山の上にある現存天守です。
まずは大手門跡に入ったところ。


何度見てもすごい石垣です。
そして、こちらが天守。


でも、本日のお目当ては、普段公開されていない二重櫓です。


二階にも上がれて大満足でした。
ちなみに、こちらは二重櫓から見た天守です。

[0回]

昔からずっとひどい肩こりに悩まされていたのですが、ここ 2 年程はほとんど気にならなくなっていました。会社のストレスから解放されたせいか、それとも作業環境が変わったせいか、それとも、運動不足を気にして時々運動するようになったせいか…、理由はわかりませんが、どうにもしんどい肩こりというのは、しばらくご無沙汰でした。

ところが!
2 日前、突然ひどい肩こりになりました。とにかく肩が重い、つらい、頭も痛い、というわけで、「誰が揉みほぐしてくれぃ!」と叫びたいほどです。しかし、肩をもんでくれる人がいるわけでなし、仕事も入ったので出かけるわけにもいかず、とりあえず、サロンシップを貼りました。
肩こりにはサロンパス系の方が効きそうですが、肌に合わないので、冷感タイプのサロンシップしかダメなのです。

次の日、多少は楽になったものの、肩が重い、頭も痛いという状況は変わらず、とても仕事をする気になれません。そこで、数年前に買った「ロイヒつぼ膏」を思い出しました。

「ロイヒつぼ膏」は、サロンパスみたいな湿布ですが、、サイズがピップエレキバンくらいの小さい円状で、ツボに貼るタイプのものです。これもちょっと肌に合わなかったのですが、ツボにピンポイントで貼るので、かゆみやヒリヒリ感が出ても多少は我慢できるのです。

久しぶりに「ロイヒつぼ膏」を取り出してみたところ、以前は袋を開けたとたんに独特の匂いがしたのですが、あまり匂いがしなくなっています。効き目も薄らいだかな、と思いつつ、コリにペタペタと 6 箇所くらい貼ってみました。
すると、おーっ、気持ちよく効いてくるではないですか。
肩こり自体はすぐには治りませんが、頭痛がおさまったのと、「効いてる」という安心感 (?) で、とりあえず仕事に取り掛かることができました。

ちょっと効き目が薄らいでいるせいか (?)、貼ったところがだんだん痒くなるとか、ヒリヒリするということもなく、翌日には (つまり今日は) かなり良くなりました。

やるな、「ロイヒつぼ膏」。

[0回]

Excel を効率よく使うためのショートカット キー (その 2) は、選択範囲を行全体に拡張するショートカット キーです。

あるセルを選択しているとき、その選択範囲を行全体に拡張したいことがあります。これを行うショートカット キーは、Shift + Space キーです。
しかし、問題があります。
日本語入力モードで使用しているとき、Shift + Space キーは、ショートカット キーとして動作せず、半角スペースが入力されてしまいます。

そこで、代わりの方法を考えました。

1) 行全体ではなく、行の先頭までの拡張とする。

これは、行全体ではなく、行の先頭まで選択範囲が拡張できれば十分という場合の方法です。
この場合、Shift + Home キーで実行できます。

ただし、これも問題があって、[ウィンドウ枠の固定] を設定している場合は、固定したエリアには拡張されません。
したがって、この場合は、
　ステップ 1: Shift + Home キーを押す
　ステップ 2: Shift + ← キー を固定エリアのセル数だけ繰り返す
という手順が必要になります。

固定エリアが 1 列であれば、まぁ使える方法です。

2) マクロをクイック アクセス ツール バーに設定する。

第 2 の方法は、(その 1）に書いた「値の貼り付け」に似た方法です。

まず、選択範囲を行全体に拡張するマクロを作成します。

-------------------- コード例 --------------------
Sub SelectRowOfActiveCell()

    Rows(ActiveCell.Row).Select

End Sub
---------------------------------------------------

次に、クイック アクセス ツール バーに、このマクロを追加します。
[コマンドの選択] で [マクロ] を選択すれば、作成したマクロを追加できます。
後は （その 1） と同様にして、ショートカット キーが使えます!

ただし、ちょっと問題があります。
Shift + Space キーで選択範囲を行全体に拡張した場合は、Shift + BackSpace キーで、選択範囲を解除し、アクティブ セルの選択に戻るのですが、上記マクロを使用した後、Shift + BackSpace キーを使用すると、アクティブ セルが行の先頭のセルになってしまうのです。

そこで、、マクロを次のように変更しました。

-------------------- コード例 --------------------
Sub SelectRowOfActiveCell()
    addrs = ActiveCell.Address
   
    Rows(ActiveCell.Row).Select
   
    Range(addrs).Activate

End Sub
---------------------------------------------------

行全体を選択すると、行の先頭のセルがアクティブとなってしまうので、上記のようにコーディングして、行全体を選択した後、元のセルをアクティブに設定し直すと、Shift + BackSpace キーで元のセルの選択に戻れるようになりました。
 

[0回]