ボタンコントロールにパラメータ付きの関数を登録する

sheetオブジェクトにボタンコレクションがあって、そいつにAddすることでシートにボタンができることにも驚いたけど、そのボタンがクリックされたときに実行するマクロ（関数てかVBだとサブルーチンか）を登録しないと、ボタンを作った意味がない。 今回は、各行のあるセルにボタンを作り、クリックされたボタンのある行番号を使って処理をしたかった。 Webをあちこち覗いてみると、OnActionプロパティに実行したいマクロを登録（設定）すればいいことがわかった。 さらにパラメータ（引数）も渡せるらしいこともわかった。 しかし例として載っているのは、固定値を渡す方法ばかりで、変数（行数）を渡す術は、なかなか見つからない。 そして、更にググってみるとやっとこんなページを見つけた。 まさしく、ボクがやりたかったことが書いてある。 予め文字列に引数付きの関数を作っておいて、それをセットするなんてなんて賢いんだ。 と云うわけで、このページを参考にしてボクが書いたコードは下記の通り。

■ ボタンを作るコード

Private Sub MakeButton(ByVal row As Long)
'
'       @brief      ボタンを作る
'       @note
'       @date       May 10, 2018
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Dim strOnAction     As String
    
'    strOnAction = "'Module1.UpdateButtonClick " & Chr(34) & row & Chr(34) & "'"
    strOnAction = "'UpdateButtonClick(" & row & ")'"
'    strOnAction = "'UpdateButtonClick(""" & row & """)'"

    ' ボタンを作成
    With ThisWorkbook.Sheets("MailAddressData").Buttons.Add(Cells(row, 5).Left + 1, _
                                                            Cells(row, 5).Top + 1, _
                                                            Cells(row, 5).Width - 1, _
                                                            Cells(row, 5).Height - 1)
        .OnAction = strOnAction            ' ハンドラ関数（文字列）
        .Font.Size = 8                     ' フォントサイズ
        .Font.name = "Meiryo"              ' フォントファミリ
        .Characters.Text = "Update"        ' キャプション
    End With

End Sub


■ ボタンをクリックしたときに呼ばれるコード

'Private Sub UpdateButtonClick(ByVal ClickRow As String)
'Public Sub UpdateButtonClick(ByVal ClickRow As String)
'Private Sub UpdateButtonClick(ByVal ClickRow As Long)
Public Sub UpdateButtonClick(ByVal ClickRow As Long)
'
'       @brief      ボタンがクリックされた
'       @note
'       @date       May 10, 2018
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Dim strMailAddress      As String
    Dim strPageUrl            As String
    Dim objIE                   As Object

    ' オープンするURLを作る
    strMailAddress = ThisWorkbook.Worksheets("MailAddressData").Range("A1").Offset(ClickRow - 1, 0).Value
    strMailAddress = Replace(strMailAddress, "@", "%40")
    strPageUrl = PAGE_URL & strMailAddress

    ----- 以下企業秘密のため省略 -----

注）PAGE_URL はConstで定義している文字列

お蔭さまで上手くいった。 そうそう、呼ばれる側、Publicにしないとうまく行かない。てか、標準モジュールに書いてるのがいけないのかもしれない。 シート側に書いて、シート名で修飾してやれば上手くいくのかも...。
--
☁ のち ☀

契約更新

職場の偉い人との面談があり、6月からの半年も契約を続けたいとの話しがあった。 ボク的には、願ったり叶ったりなのでよろしくとお願いした。 ただ、欠勤は仕方ないにしても、就業中の居眠りが自分でも酷いと思われるので、その旨話すと会社的には、それも織り込み済みなので気にしなくていいと云ってくれた。 なんて優しい会社なんだろう。 まあ、給料が安いのが玉に瑕なんだけど。 てか、仕事中に寝てることを考えれば文句は云えない。
--
☂ のち ☁

暦の上では

立夏も過ぎて夏のはずなのに、昨夜といいきょうといい、3月下旬から4月下旬の気温らしい。 ゆうべも結構寒かったので、今朝はセーターを着てきましたよ。
(´・ω・`)
--
☁ のち ☂

復帰

約2週間ぶりに仕事に復帰。 きょうは、溜まっていたもろもろの対応。 とは云っても休んだのが比較的暇な時期だったので、わりとなはなはな初日だった。
--
☁ のち ☂

連休最終日

天気も良いし、昨日はうとうとしただけだったので、ちょっと走りに行ってきた。 プント乗りの子供が、よく行ってるらしい筑波山を目指す。 常磐道は、安定して空いているのがうれしい。 ナビと標識に云われるがまま適当に進む。 山の西側から登って、ケーブルカーの近くを通り、ロープウェイの駅でちょっと休憩して、登ってきたルートより東側のルートを下りつくば市に戻ってきた。 ルートはそれなりに良いんだけど、登り下りとも前に遅い車がいて結構ストレスがたまった。 やっぱり普通の時間帯に峠を攻めるのは無理な気がする。 つくば市街から、長男に電話してちょっと顔を見せたいと云うとおっけーしてくれたので寄り道をする。 上の子は相変わらず単語しか話せないが、2人とも会うたびに成長が感じられる。 小一時間ほどお邪魔して、昼過ぎに出発。 1時過ぎには自宅に帰り着いた。
--
☀

リハビリ

きょうは、終日リハビる。 天気も良かったのでちょっとは走りたかったのだけど、結局うとうとする間に1日が終わってしまった。
--
☀

飯田への道（2日目）

あまり眠れないまま朝が来て、出発までうだうだ。 お約束の大原屋に向かう。 なんでも裏メニューのキーマカレーがあると云うので、それを頂くことにする。 いつもとは違う微妙な味わい。 大原屋の次は、温泉。 たかもり温泉『御大の館』に向かう。 いつもなら入らないのだけど、たまにはと思い入ることにした。 残念なが身体のあちこちからいろんな物が出てくるので、湯船には足だけ浸かる。 それでもさっぱりすることができた。 ここでみんなと別れて、これまたお約束の『のんび荘』に向う。 ボクは朝のカレーがまだ残っていて、とてもそばを食べられる状態ではなかったので、あさりのヌタと山菜の浸しの盛り合わせをオーダー。 ヌタは酢味噌の味がイマイチ。 そして、帰路についた。 既に渋滞の片鱗が見え始めていたので、大月I.C.で中央道を離脱。 山梨県道24号都留道志線から道志みち経由で相模原I.C.から圏央道、八王子JCTから再び中央道に戻りほぼほぼ渋滞には遭わずに19時頃に無事帰還した。 今回の飯田行きは、退院直後と云うこともあり、プント乗りの子供のパッセンジャーシートでなはなはと過ごさせてもらった。 そして、今回の最大の敗因は、ソースかつ丼のボリュームがあり過ぎて、その後の食事がどれも満足に食べられなかったこと。 次回は、初日のお昼はセーブして夜のBBQに備えることとしたい。

飯田への道（1日目）

恒例のあらいさん邸でのBBQに参加。 TVの交通情報によれば、中央道は3日早朝から大渋滞と散々脅されたので、日付けが変わるころ出発して、塩尻の信州健康ランドという銭湯施設に4時に到着した。 9時過ぎまで仮眠をとり、松本に移動し松本城を観光。 ハナから登るつもりはなかったけど、天守閣へは80分待ちの表示がある。 お堀を一周して撤収。 続いて渋長御用達の駒ヶ根の中華料理店『玉龍飯店』に向かいソースかつ丼を頂く。 かつもジューシーで柔らかく美味しいのだけど、如何せんボリュームがあり過ぎる。 やっとのことで完食する。 まだBBQには早すぎるので、子供のリクエストでgoosでお茶をすることに。 ここにはむかし来たことがあるような気がする。 アイスカフェオレを頂きながら、うだうだ。 そしていよいよあらいさん邸を目指して出発。 1時間程で到着すると、がいけさん一家が出迎えてくれた。 ベンガルさんも直ぐに登場。 他のメンバーも三々五々到着する。 いつもより早めに焼き始まる。 いつもの感じで肉や野菜、焼きそばなんかを頂く。 そして11時頃にシェラフの人となる。
--
☂ のち☀

流す

昨日、きょうは仕事を休んで週明けから仕事に行く予定。 で、きょうは、久しぶりに都内を流してきた。 ふたを開けるのも年が明けて2度目くらい。 やっと気持ちいい季節になった。 相当久しぶりだったので、記憶と違う景色がちらほら。 ルートは変わらず環七から湾岸道路を西進、晴海通りを北上して、銀座、桜田門、半蔵門と進み千鳥ヶ淵の交差点を右折し竹橋に抜け、専大前を右折。 神保町から駿河台下を左折して明大前、JR御茶ノ水駅を通って外堀通りに入り順天堂前を右折して北上。 本郷消防署前を右折して春日通りを暫く進み厩橋で隅田川を越えて更に進み、本所三丁目を左折して三ツ目通りから6号に入って帰ってくる。 約2時間、いい息抜きができた。
--
☀ のち ☂

通院

退院の翌日は、通院日。 きょうは、循環器内科。 採血のあと診察。 病院に着くのが予定より遅くなってしまい、受診時間も採血結果が出るのに連動して遅れる。 入院の顛末を話すと、利尿剤とワーファリンの処方を循環器内科で処方することのなった。 そして、カルベジロールの処方量が増える。
--
☀

退院

8時前に主治医が登場し、きょうの退院と次回からここで受診するように告げられた。 というわけで朝食と、漏れかけていたパウチを交換して予定通り無事退院。 比較的短い入院期間で助かった。 3日の飯田BBQオフも諦めていたけど、どうやら参加は出来そうだ。
--
☀

日曜日の

病棟。 いつにも増して閑散としている。 午後、何度目かの土の記を読了。 分かっている結末にも関わらず涙が止まらない。
--
☀

夜中に

破裂。 未明の3時ごろ交換。

何をする訳でもなく、時間が過ぎてゆく。 昼過ぎの回診で来週月曜日の退院が決まる。 最初、入院期間は2週間位と聞いていたので、嬉しい誤算。 午後、家人と子供が見舞いに来てくれる。 そして、明方替えたパウチがまた漏れる。 事情を話しシャワーを借りて交換した。
--
☀

熟睡

昨夜、久しぶりに睡眠導入剤（本物）を飲んだ。 効果はテキメン、熟睡できた。 朝はクスリのせいか、ぼんやりして、毎朝日課の体重測定を忘れてしまった。
--
☁

入院3日目

何処の病院でも大した違いはなく1日が過ぎてゆく。 きょうは、午後パウチの交換がてらシャワーを浴びる。 シャンプーもしてさっぱりした。 夕方、主治医が回診に来る。 入院時の診察以来だ。 抗生剤で熱が下がって良かったですね、しばらく様子を見ますと仰る。
--
☀

ほぼほぼ

1日を寝てすごす。 熱も朝には7℃台、昼には6℃台に下がり夜にちょっと上がって7℃台という経過をたどる。
--
☂

緊急入院

今朝も9℃を越えている。 病院（泌尿器科）に電話をして受け入れてくれる事を確認して病院に向かった。 腎ろうが詰まっていると思っていたらしく腎洗をしてもらったけど、詰まっている気配はなし。 取り敢えず腎ろうを交換して、大腸外科に匙を投げられた。 大腸外科では、採血、レントゲン、CTとフルスペックの検査をしてもらう。 結果、入院のレベルではあるものの東大にはベッドが空いてないので他の病院に紹介状を書くからそこに入院してくれと云う。 ゴネても東大には入院できそうもないので紹介された病院に入院することにした。 紹介された病院に着いたのは、午後6時ごろ。 薄暗いロビー、昭和の雰囲気が漂う院内。 救急外来に向かい事情を話し、しばらくすると診察が始まった。 1人目が2回失敗して2人目が1発でルートを取る。 問診のあと病棟に上がる。 きょうから此処の人になるのか...。
--
☁ のち ☂

不調

午後から妙に調子が悪い。 どうも熱っぽい。そして右腎ろうから脇漏れが酷い。 シャツがびしょびしょになる。 腎ろうの交換直後は脇漏れするんだけど、普段はそんなことはない。 どうにも仕事ができる状況ではないので、早退させてもらった。 地元の駅から自宅まで歩くのもしんどくてタクシーを使った。 熱を測ると38℃台。 脇漏れの処置をしてベッドの人となる。 その後も熱は上がり9℃を超える。
--
☁

鯉を喰らう

きょうは、りょうた君主催の佐久の鯉を頂くと云うオフに参加してきた。 集合場所は佐久南I.C.そばの道の駅『ヘルシーテラス佐久南』。 関越道から上信越道で行くのも芸がないので中央道で諏訪まで行き、茅野から佐久穂町に抜ける麦草峠を越えるルートを選んだ。 6時前に出発して、渋滞にも会わず諏訪I.C.に到着。 ナビの設定を間違えて別の方向に向かうも、気が付き正しいルートに乗る。 国道299号は、路面こそ傷んでいるもののちゃんと2車線あるし、いい感じにカーブが連続していて、想像以上に良い道だった。 ほぼほぼ集合時間に道の駅に到着。 うだうだしながら参加者がそろうのを待つ。 全員が’そろって軽食コーナーでお茶。 きょうの行動のおさらいをする。 鯉は、店の都合で1時からの予約になっているらしく、まずは龍岡城と云う城跡に向かう。 ここは日本に2つしかない五芒星型の城郭。 てか、函館の五稜郭しか知らなかったけど、長野にもひっそりと存在していた。 規模は函館の半分くらいらしいいけど、ちゃんと五芒星の形をしていて堀が囲んでいる。 一通り見学して、鯉料理の料亭に向かった。 佐久は、昔から鯉で有名らしいけど、前回のオフ会で聞くまで知らなかった。 鯉の洗い、鯉こく、旨煮にごはんがついたコースを頂く。 洗いは、普通酢味噌で食べるけど、行った店は醤油にワサビだった。 どれも美味しかったけど、初めて食べた旨煮が一番美味しかった。 食事の後も、店でしばらくうだうだしたあと、店に直ぐのぴんころ地蔵を観光。 続いて芸術むら公園に移動。 ここでもお茶をしながらうだうだ。 そして、長野と云えば外せない蕎麦屋に移動。 この店は、十割蕎麦が売りらしく、メニューのすべてが十割蕎麦。 ボクは、更科蕎麦をチョイス。 十割のせいか、わりとぼそぼそした感じ。 そして風味も少ない気がした。 店を出たところで、帰り組と夕食組に別れて、一旦散会。 夕食組は、諏訪の古畑をめざして移動開始。 新和田トンネル経由で７時半前に到着。 しばらく待ってうな重が出てきた。 数年ぶりに食べたここのうなぎは、身がほろほろとくずれるほどやわらかい。 味も絶妙で満足。 8時20分頃、帰路についた。 高速を乗る前に給油。 諏訪I.C.から一路東京をめざす。 途中の渋滞情報は、時間と共に距離が短くなって行き、結局渋滞には遭わずにほぼ3時間で自宅に到着した。
--
☀

充電

きょうも、充電するために走ってきた。 距離や時間的に実家を往復するのが丁度良いので、きょうもまた。 前回はアクアラインが思いのほか混んでいたので京葉道路経由で向かった。 ちょっと詰まっているところもあるものの概ね順調にすすむ。 実家では、お茶をご馳走になり、1時間ほどで暇。 帰りは、アクアライン経由で昼過ぎには自宅に帰ってきた。
--
☀