新しいページ 2

「etTomioのトホホ日記」　2012年1月　　　　　　　　

◆2012/1/31

2012/1/30(月) 母病状
15時過ぎに着いたが右手の手袋を外し、左を取ろうとしていた。
(点滴を外してしまうため、ミトンというグローブみたいなのはめている。)
看護師さんに自分がいる間は外してもらった。
○○ちゃん(妹の名前)と何度も叫んでいたらしい。
かなりの興奮状態で人間扱いしないと毒付いていた。
ずり上がって頭が柵の間にはまったらしく大きな枕で保護してもらった。
自分が来てしばらくしたら落ち着いている。

明日、採血、レントゲン、検査らしい。

時折、手すりに捕まり動こうとする。
しっこ　に行くと言う。看護師さんに説明してもらった。
しかし、1時間も経てば同じことを言う。

18時から夕食。
おかゆとミキサー、看護師さんに習って初めて食べさせた。
薬は看護師さんに飲ませてもらった。

19時に帰るからと、またミトンをしてもらった。
ちょっと廊下に出て、妹に電話して戻ったら
右手を外して、左を取ろうとしている。
また看護師さんを呼んだ。
「なんでこんなものを買うたんか?」とわめいている。

1週間位前は、あんたは朝早いから早う帰りと言っていたのに
今は、何処へね?　何でね?

これは話に聞く譫妄なのか? 認知なのか?
予定では今週再び近くの病院に転院となっていたらしいのに･･･

20時に病院を後にした。

◆2012/1/28

2011/1/27 17:05 from カミサン

ちょっと最悪かも?圧迫骨折の疑いありって岡○先生に言われた!ちょっと言うこともおかしいときがある。

　　↓

先生も最悪のパターンだって!

◆2012/1/24

　こちらが、昨日書き換えたマクロコード

Sub 繰り越しN1()
'
' 繰り越し Macro
' マクロ記録日 : 2012/1/23 ユーザー名 : ettomio
'
'
Dim i As Integer

Range("E10").Select
Range("E10").Copy
Selection.Offset(0, -1).Select '1列左へ移動する 2012/1/23
'Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

For i = 1 To 10

初期値繰り越し

Next i

Dim j As Integer

Range("F8:J9").Select
Range("F8:J9").Copy
Selection.Offset(0, -1).Select '1列左へ移動する 2012/1/23
'Range("E8:I9").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False

For j = 1 To 10

データ範囲繰り越し

Next j

Dim k As Integer

Range("J8:J9").Select
Selection.ClearContents

For k = 1 To 10

終値クリア

Next k

Range("F4").Select 'F4の値のみE4にコピー
Range("F4").Copy
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C2").Select

End Sub

以下の命令を上で10回処理させる
----------

'10) 選択範囲をオフセットする（ずらす）http://www.asahi-net.or.jp/~zn3y-ngi/YNxv206.html#8

'=========================================================================================
'Sub 選択範囲をオフセットする()
' Worksheets("SSS").Activate 'ワークシートをアクティブにする ※１
' Range("A1:D1,A3:D3,A5:D5,A7:D7").Select '複数のセル範囲を一度に選択する ※２
' Selection.Offset(1, 0).Select '1行下へ移動する ※３
' Selection.Offset(0, 1).Select '1列右へ移動する ※３
' Selection.Offset(-1, 0).Select '1行上へ移動する ※３
' Selection.Offset(0, -1).Select '1列左へ移動する ※３
'End Sub
'=========================================================================================

'＜コメント＞
'※1 SSSにはシート名を記入
'※2 A1: D1 , A3: D3 , A5: D5 , A7: D7には任意の選択範囲を記入
'※3 ( )の中の 0はオフセットしない、1には必要な行または列数を記入、マイナスなら逆方向になる
'=========================================================================================

Sub 初期値繰り越し()
'
' 初期値繰り越し Macro
' マクロ記録日 : 2012/1/23 ユーザー名 : ettomio
'
'
Selection.Offset(3, 1).Select '1列右へ、3行下へ移動する 2012/1/23
ActiveCell.Copy
'Range("E13").Copy
Selection.Offset(0, -1).Select '1列左へ移動する 2012/1/23
'ActiveCell.Offset(0, -1).Select '1列左へ移動する 2012/1/23
'Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Sub データ範囲繰り越し()
'
' データ範囲繰り越し Macro
' マクロ記録日 : 2012/1/23 ユーザー名 : ettomio
'
'
Selection.Offset(3, 1).Select '1列右へ、3行下へ移動する 2012/1/23
'Range("F11:J12").Select
Selection.Copy
'Range("F11:J12").Copy
Selection.Offset(0, -1).Select '1列左へ移動する 2012/1/23
'Range("E11:I12").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False

End Sub

Sub 終値クリア()
'
' 終値クリア Macro
' マクロ記録日 : 2012/1/23 ユーザー名 : ettomio
'
'
Selection.Offset(3, 0).Select '3行下へ移動する 2012/1/23
Selection.ClearContents

End Sub
　

◆2012/1/24

　Excelで例えばE8をD8にそして離れた行のE11をD11に…　と離れた行を同時にコピーしようとすると、その操作は出来ないとExcelに叱られる。
　昨年6月に作ったある表を見ると自動記録マクロで作っているから、コードは滅茶苦茶に長くて、ぱっと見たら何が書いてあるのか分からない。
　先日からこれをもっと分かり易く出来ないかと思っていたが、土日は母の見舞いに行ったりでなかなかパソコンの前で考えられない。
　昨日、朝早くから取り掛かったが、VBAマクロの本を1冊しか持って来なかったので、離れた行や列の操作が分からない。あとはネットが頼り。
　コピー操作のコードを書き、それをサブルーチンにして10回下まで処理しろの命令を書けばいいかなと取り掛かり、昼休みとか仕事の合間、そして夕方には書き終わった。勿論、途中で何回もテストしている。
　若し、商品が増えて行を増やせば処理を11回繰り返せにすればいい。
　下がこれまでの自動記録マクロ。やたらと長い。

Sub 繰り越し()
'
' 繰り越し Macro
' マクロ記録日 : 2011/6/30 ユーザー名 : ettomio
'

Range("E10").Select 'E10の値のみD10にコピー
Range("E10").Copy
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E13").Select
Range("E13").Copy
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E16").Select
Range("E16").Copy
Range("D16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E19").Select
Range("E19").Copy
Range("D19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E22").Select
Range("E22").Copy
Range("D22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E25").Select
Range("E25").Copy
Range("D25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E28").Select
Range("E28").Copy
Range("D28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E31").Select
Range("E31").Copy
Range("D31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E34").Select
Range("E34").Copy
Range("D34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E37").Select
Range("E37").Copy
Range("D37").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E40").Select
Range("E40").Copy
Range("D40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F8:J9").Select 'F8:J9の値のみE8:I9にコピー
Range("F8:J9").Copy
Range("E8:I9").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J8:J9").Select
Selection.ClearContents
Range("F11:J12").Select
Range("F11:J12").Copy
Range("E11:I12").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J11:J12").Select 'J11:J12の値をクリア
Selection.ClearContents
Range("F14:J15").Select
Range("F14:J15").Copy
Range("E14:I15").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J14:J15").Select
Selection.ClearContents
Range("F17:J18").Select
Range("F17:J18").Copy
Range("E17:I18").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J17:J18").Select
Selection.ClearContents
Range("F20:J21").Select
Range("F20:J21").Copy
Range("E20:I21").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J20:J21").Select
Selection.ClearContents
Range("F23:J24").Select
Range("F23:J24").Copy
Range("E23:I24").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J23:J24").Select
Selection.ClearContents
Range("F26:J27").Select
Range("F26:J27").Copy
Range("E26:I27").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J26:J27").Select
Selection.ClearContents
Range("F29:J30").Select
Range("F29:J30").Copy
Range("E29:I30").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J29:J30").Select
Selection.ClearContents
Range("F32:J33").Select
Range("F32:J33").Copy
Range("E32:I33").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J32:J33").Select
Selection.ClearContents
Range("F35:J36").Select
Range("F35:J36").Copy
Range("E35:I36").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J35:J36").Select
Selection.ClearContents
Range("F38:J39").Select
Range("F38:J39").Copy
Range("E38:I39").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("J38:J39").Select
Selection.ClearContents
Range("F4").Select 'F4の値のみE4にコピー
Range("F4").Copy
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C2").Select
End Sub
　

◆2012/1/23

　暫く日記を書いていません。1/15の日記に書いていますが、この原稿は居間の食卓の自分の席の後ろのカミサンのPCから書き、遠隔操作で2Fの自分のPCにアクセスし、HPソフトに転記し、FTPソフトでサーバーにアップデートします。
　母が、心臓手術で○○病院に転院した頃から、切羽詰まり、つまり手術が失敗したら葬儀で休むことになります。近くの書店を巡っては遠隔操作を調べました。
　Win Vista,Win 7には標準でリモートデスクトップの機能が備わっています。しかし、相手のOSがproか最上位のultimateでないと使えないことを書店で知りました。自分はVistaも7もultimateですが、カミサンのはWin7 64bit Home&Businessです。会社の私の後ろのネットに繋がっているのはvistaのHome premiumです。駄目だ。
　母が転院した病院近くのおっきな書店で探しましたが、そんな専門書はありませんでした。おそらく東京のおっきな書店ならあると思います。
　IPアドレスはPCを起動する度に、プロバイダによって振り当てられます。遠隔操作はファイアウォールによってブロックされているポートに穴を開けます。当然そのポートはウィルス制御の手当てをしなくてはなりません。
　それからネットで調べまくりました。探し当てたソフトは名前は書きませんが、アメリカでは教育現場でも使われているようです。先ず、自分とカミサンのパソコン間での同期を試行錯誤しながらテストしました。思い立ってから1週間かかりました。
　会社の自分の後ろのPCは私ともうひとりしか使いません。数値データばかりです。ただ、個人情報と思われるのはメールだけですね。それも私宛が多いですが、業務メールばかりです。
　しかし、ある事情からこのソフトを削除しました。勿論、私が設定したのですから、再インストールは可能です。パスワードも私が登録しています。でも余程のことがない限りそれは行いません。
　これからは、私の後任の方に、少しずつ引継ぎを行わなくてはなりません。後任の方には宜しくお願いします。ただ、私はしょっちゅう参考書を調べたり、思いついたりして書き換えますので…

◆2012/1/15

　心臓を外し、しかも止め、体温も30度まで下げちゃったのだ。これを神の手と言わずして･･･
　あの先生は若くして、人の命を救うという志を持たれたのだろうか ? 少なくともカネの為とは思いたくない。
　浅学非才の自分とあのような神の手を持つ人と･･･　同じ人間でありながら。
　大袈裟だが自分もここ数日、人生観に転機を迎えたような気がする。こんな自分でも社会に貢献できることがないか、それを模索してみたい･･･

◆2012/1/15

　母が手術することになって、夜も薬なしでは寝られなかったが、仕事も気になった。
　とりあえず、手術の前日、後任となる人に皆に配る帳票作成は教えて、当日はお願いした。ただ、それから派生する相当な帳票類は手術翌日の4時前に出社して作成した。
　勿論、これから色んな引継ぎをお願いしなくてはならないが、1週間前から関心を持っていたのが、パソコンのリモート操作だった。何回も書店に行ったし、手術当日は病院近くの大きな書店にも行った。思うようなのがないし、そんな専門書もない。
　大企業だと、システムの人が遠隔操作をやるが、自分にはどうやってやるのか　さっぱり分からない。神奈川にいる三男に聞いてみようか。それもしなかったので、昨日まではやはり無理だなと諦めていた。
　昨日の午後、見舞いの帰りと、今日の午前、そして母の見舞いから帰って、午後にまた会社へ30分ぐらい行った。
　今、自宅のパソコンから会社の自分の後ろにあるパソコンを操作できる。数々のファイルのマクロボタンも動くし、プリントアウトも出来るし、メール(私ともうひとりのしかないが)も開くことが出来る。
　もしも母に何かあったとき、自宅から、あるいはネットに繋がるパソコンから操作できるようになった。

◆2012/1/15

2012/1/10 母転院
自分は8:50頃会社から○○中央病院へ
妹も同時刻に到着
東館7F
10:30頃○○病院から救急車到着 7FのCCUへ
母、妻、○○先生の代理、看護師さん
14時頃岡○先生から手術の説明

心臓血管外科　岡○○○先生

事前検査で脳梗塞も見つかる
自分は15:30頃出て会社へ
妹と妻は17:30頃障害者手帳申請の説明

1/11 昼看護師課長の○○さんよりTEL
CCUから特個室へ○号室

2012/1/12 母手術
自分と妻、そして妹6:30頃家を出て7:30頃病院着
○号室で母は看護師さんから準備を受けていた

8時過ぎに、本館1Fの検査室へ
動脈が複雑に曲がっていて管が通らない

9時に3Fの手術室へ

それから東館7Fのデイルームでずっと待機
13時前に次男が来る
16時前に義理の娘も

18時半、本館の2F、CCU室へ案内される
○田先生の説明
これが詰まっていた弁です
バイパスは1本
出血が4時間止まらなかった
脳の心配があったので体温は30度まで下げた
現在は34.5度血圧は90 徐々に体温を上げていく

「安心して帰って下さい」

2012/1/13 母覚醒
10:15頃、妹からTEL
私に気付いてくれた。普通に話せる。
夕方、兄さんと○子さんが来るって　と言ったら
そうかね。大変じゃねぇと答えたという。
看護師さんの話では、明日から土日だから、
このままICUに居て貰って、月曜日に移るらしいよ。

意識は回復している。
あの先生はまさに神の手だ。

18:10 自分と妻、次男で見舞いに行く 19:00着
術後、初めて母と話が出来た。

2012/1/14 母を見舞い
午前中に妹が見舞い
自分は15時頃15分ぐらい

2012/1/15 母を見舞い
午前中、妹が
午後から自分と妻、長男が見舞いに
言葉も分かるし、顔色もすっかり良くなった

まさにあの先生の手は神の手だ !
自分も国に向かって唾棄することは出来なくなった。
　

◆2012/1/3

　個人的に暗いことばかりだけど、1年ぐらい前からThe BeatlesのCDを借りてはコピーし、さらにパソコンに取り込んでスマホに落としている。Beatlesは学生時代に全LPを持つほどの熱狂的信者だったが、全LPは売り払っちまった。最近コピーしているのはBeatlesのプロデューサー、ジョージ・マーチンのリマスター版である。昔は安いステレオで聴いていたが、このリマスター版になって当時では聞こえなかった音まで耳に入る。
　尚以下の3曲の最後のジェーン・アッシャーはポール・マッカートニーの当時の恋人。何故か破局。リンダ(他界)と結婚した。
The Beatles - And I Love Her [HQ Original Audio]
Paul McCartney - And I Love Her (Live)
Paul McCartney and Jane Asher- And I Love Her

◆2012/1/1

　新年お目出度う御座います。今年も宜しくお願い致します。

先頭に戻る　　　　過去の日記