■
ロビーの佇まいがなつかしい。
既に役者も演出家にもあまり興味はないけど、坂本龍馬役の子は筧くんばりの声でなかなか良かった。
ジェットストリームはイマイチだったけどね。
やっぱり芝居はいいなあ。
■
公演のあと、紀伊国屋からJR新宿駅まで歩く。
新宿に来たのも何年ぶりだろう?
すっかりお上りさん気分だ。
--
☁ のち ☀
「ワールドカップの怖いところでしょうか。追い詰めましたが、何が足りないんでしょうね。オフェンシブには戦えたので、3点目を取れるチャンスもありましたし。ゲームをコントロールできていました。でも本気のベルギーがそこにありました」 「何が足りないのか」「すべてだと思います。わずかではありますが。この壁というのはまだ厚いのかもしれない」
以下、NHK NEWS WEB 5月16日の記事を引用する。
今月5日、新潟県阿賀野市の五頭連峰に登山に出かけた親子の行方は、今も分かっていません。
警察や消防などは、捜索活動の開始から10日目となる16日も行方を捜しましたが見つからず、17日以降も捜索することにしています。
今月5日、新潟県阿賀野市の五頭連峰に登山に出かけた新潟市北区の会社員、渋谷甲哉さん(37歳)と、長男で小学1年生の空くん(6歳)は今も行方が分かっていません。
警察や消防などは、捜索活動の開始から10日目となる16日も、60人あまりの態勢で、親子が向かったとみられる松平山の登山道周辺の急な斜面や沢などを中心に捜しましたが、親子は見つからず、午後6時に中断しました。
阿賀野警察署の穴沢隆次長は「全力を尽くして親子の発見と救助に努めたい。なにか手がかりがあればぜひ連絡してほしい」と話していました。
警察や消防などは、17日以降もすでに調べた場所も含めて、捜索することにしています。
(http://www3.nhk.or.jp/lnews/niigata/20180516/1030003198.html)
■ ボタンを作るコード
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にしないとうまく行かない。てか、標準モジュールに書いてるのがいけないのかもしれない。
シート側に書いて、シート名で修飾してやれば上手くいくのかも...。