在勤生活１３４５日目

■今日の午前中にしていたこと
　昨日の記事で、ＥＸＣＥＬのシート上にパスワードの入力欄を作りたい。入力した文字は見た目「*」で表示されるようにしたいんだけど－。
というような内容のものを投稿したのですが、やっぱりイベントプロシージャで「それっぽい」ことはできるみたいですね。あくまで「それっぽい」ことですが(^^;。
↓のコードをいずれかのシートモジュールへ記述すれば、セルＡ１を対象に、一応「それっぽい」ことはできます。ポイントは「イベント連鎖の抑止」だったんですね…。
ま～ちゃんとした「使う」ものを作るのであれば、パスワードの避難先に指定しているセルを、非表示にしている他シートのセルにするとか、もう一工夫必要だとは思いますが。
ただ、このくらいであれば割とお手軽にできると思うので、自分の「引き出し」の中に入れておくことにしますわ(^^)。
…それにしてもｒｅｐｔ関数なんて久しぶりに使ったな（苦笑）。自分の中では「使いどころ」に困る関数の上位にくるものだと思っていたので、正直今後ずっと使うことはないと思っていたのですが（笑）。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 1 _
And Target.Column = 1 Then

Application.EnableEvents = False 'イベント連鎖の抑止のため設定
Dim Curvalue As String, l As Long
Curvalue = Cells(1, 1).Value
Cells(1, 27).Value = Curvalue

l = Len(Curvalue)
Cells(1, 1).Value = WorksheetFunction.Rept("*", l)
Application.EnableEvents = True 'イベントプロシージャを終了する前に元に戻しておく

End If

End Sub

■今日の午後にしていたこと
　今日は病院へ通院の日だったので、お昼は自作のお弁当持参(^^)。
中身はチキンライスの残りと冷凍庫に保存しておいたプチトマト４個。…ただ、プチトマトは一晩弁当箱に入れて冷蔵庫の中で自然解凍させたら
全部グチャグチャに溶けていました（笑）。幸い他がチキンライスだったので、それがかえって良かったのではありますが（苦笑）。…そうか。プチトマトってそういう使い方があるのか￠(..)
　そして今晩の晩ご飯。今晩は炊きたてのご飯に月曜日の晩、ヘルパーさんに作り置きしてもらっていたハンバーグ２個と、
今日の夕方、地元で買い物をしてきた際に買ってきていたジャンボギョウザ５個(^^)。