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

◆2012/2/29
2012/2/29 母退院
今日は月末だが、定時少し過ぎには仕事も終わって急いで帰宅。
今日の午前中に妻と妹が、母をウチに連れ帰っている筈だ。
ウチの居間でTVを観ていた。
先日、病院で髪を切って貰い、顔色も良く随分若返った。
６時半頃に夕食。
今まで、病院でミキサー、刻みの食事が続いていたので
おいしいを連発。
長男も来ていたし、次男も仕事から帰って久しぶりに皆揃った。
暖かくなるまではウチに置いておくつもり。

今日は、妻が連れ添って母は杖をついて、外を少し歩いたらしい。
ウチがやはり一番落ち着くと喜んでいたらしい。
◆2012/2/27
サムスンやLGが日本に圧勝 デジタルは後発でも安い方が強い
2012.02.24 07:00 ポストセブン
日米の株価が大きく乖離している。昨年1年間で日経平均は17.3％下落し、NYダウは5.5％上昇した。アメリカ企業の多くが業績を伸ばし、日本企業が総じて低迷したからである。では、日本企業はどこで道を間違えたのか。大前研一氏が解説する。

＊ ＊ ＊
日本企業が低迷している本質的な理由は、マーケットの大きなトレンドや世界の動きを踏み外すようになったことである。

たとえば、日本企業はデジタル化とはどういうことかがわかっていない。アナログは創意工夫で差別化できたが、デジタルは部品が同じであれば性能は同じなので差別化が難しい。

また、アナログは累積生産台数が倍になるごとに習熟曲線が効いてコストが10〜15％下がるから、先行者が強かった。しかし、デジタルは回路をプリントするだけなので、習熟曲線が関係なく、後発でも安いほうが強い。この基本的な違いを日本企業は正しく理解していないのだ。

その象徴がテレビである。日本の電機メーカーは、国内で「家電エコポイント」やテレビ放送の地上デジタル化による特需があったにもかかわらずテレビ事業は赤字続きで、2012年3月期の業績見通しは大きく落ち込んでいる。

原因は円高やタイの洪水被害よりも、前述したマーケットのトレンドや世界の動きの踏み外しにある。つまり、日本の電機メーカーは薄型テレビの画面を大型化する方向に舵を切り、大型液晶パネルの製造工場に投資した。

ところが、今や液晶パネルの主戦場は、iPhoneなどのスマートフォン用やiPadなどのタブレットPC用の小型サイズに移っている。その分野は韓国のサムスンやLGが圧勝しているのだ。

※週刊ポスト2012年3月2日号
◆2012/2/27
Private Sub Workbook_Open()
'2012/2/24

d = Date

d1 = Format(d, "yyyy(ge)年m月d日")
a = Weekday(d)

Select Case a
Case 1
aaaa = "日曜日"
Case 2
aaaa = "月曜日"
Case 3
aaaa = "火曜日"
Case 4
aaaa = "水曜日"
Case 5
aaaa = "木曜日"
Case 6
aaaa = "金曜日"
Case 7
aaaa = "土曜日"
End Select

MsgBox "今日は " & d1 & " " & aaaa & "です。"

End Sub


上のコードは例えばBook1.xlsのThisWorkbookにこのコードを貼り付けて保存します。
次に開いたとき、マクロを有効にすれば、「今日は20○○年○月○日(○曜日)です。」と、
メッセージが出ます。
ただ、それだけのモノですが、それを作った直後にあることを思い付きました。


=併合読込!G2
=LEFT(A1,4)&"/"&MID(A1,5,2)&"/"&RIGHT(A1,2)
=TEXT(B1,"yyyy/m/d")
=DATE(YEAR(C1),MONTH(C1),DAY(C1))


=DATE(YEAR(TEXT(LEFT(A1,4)&"/"&MID(A1,5,2)&"/"&RIGHT(A1,2),"yyyy/m/d")),MONTH(TEXT(LEFT(A1,4)&"/"&MID(A1,5,2)&"/"&RIGHT(A1,2),"yyyy/m/d")),DAY(TEXT(LEFT(A1,4)&"/"&MID(A1,5,2)&"/"&RIGHT(A1,2),"yyyy/m/d")))


自動車部門の部品別確定数は、親会社納期のデータがインターネットで出ます。
エンドユーザーの自動車会社への納期はその翌日です。親会社納期の日付が出ますので、
当社の出荷はその前日です。金曜日なら木曜日、月曜日なら3日前の金曜日になるように
何年も前から関数を作成しています。
しかし、長期連休となると不具合が生じます。例えば来年の2013/1/7(月)だと、
Excelは今年の1月の7日の3日前2012/1/4(水)となってしまうので、
長期連休の度に手動で私が書き換えていました。

その日付ですが、ネットによるデータは汎用性を考慮してcsv形式のデータです。
2013/1/7は20130107というtextデータです。
これを日付形式に上の式の3段階を経て直しています。
つい最近これを1行にしてやろうと書いたのが、上の長ったらしい式です。

さて、親会社に納める製品は僅かで、殆どは自動車メーカー直前の物流業者に
納める直納となっています。それは自動車メーカー納期の前日です。
そこで、昨日発行されたデータを「併合読込old」シートにコピーした後、
今日のデータを「併合読込」シートに取り込んでいます。
直納品は前日のデータを読み込んでいるわけです。

で、冒頭のファイルを開いたら今日の日付が出るような
お遊びみたいなマクロを作った後、
ふと、 ん、折角昨日のデータをシートにコピーしているんだから、
このデータの日付を当社の出荷日として拾えばいいじゃないかと…
今まで何で思いつかなかったんだろう…
勿論、昨日出たデータの日付もテキストですから、上に書いているような関数で
日付形式に直してやる必要があります。

他にも何枚か帳票を毎日作成しますので、昨日の日付を使うという方法は
他でも流用しました。これで年が変わっても手直しする必要はなくなる筈です。
　
◆2012/2/19
　私の検索した「明日に架ける橋」でガーファンクルの最も美しい声かな･･･
Simon and Garfunkel - Bridge Over Troubled Water (Live 1969)
◆2012/2/19
Simon & Garfunkel, Bridge Over Troubled Water, Central Park
◆2012/2/19
2012/2/19(日) 母病状
今朝は安堵感からかすっかり寝坊して、8時に起床。
妻が6時に仕事に行ったのは物音で分かった。
9時過ぎに病院へ。
朝食も全部食べたという。
顔色もいいし、すっかり落ち着いている。
昼前、帰宅し昼食。
それから入院の手続きを書き、
パソコンでちょっと遊び、再び病院へ。
僅か5分で行けるし、妻がここに居るというのが心強い。
妹が居た。
入院の手続きを渡し、前回同様御主人に連帯保証人になって戴く。
暫く自分は週刊誌を読んでいたが、
16時半には帰宅し、食器を洗ったり、
ご飯をしかけたり、風呂掃除をしたりと･･･
このまま、何気ない日常が続くことを祈る。
◆2012/2/18
Simon and Garfunkel - Sounds Of Silence
◆2012/2/17
2012/2/17(金) 母、○○病院に戻る
3:50 起床 会社に行き、朝の準備をして6時過ぎに○○中央病院へ向かう。
妹はは昨夕、ご主人の車で病院着。

7:30頃、最後の朝食。
昨日の昼からミキサーではなくキザミに変えてもらっている。
9:30に近鉄の介護タクシーのストレッチャーが到着。
9:40に○○中央病院を後に、海岸周りで○○病院へ。
10:30 ○○病院着 ○○号室。
看護師さんに経過説明、
そして入院案内をもらって、自分は戻って昼食。それから仕事に。

夕方、仕事の後そのまま病院へ行ってみる。
妹は移動後最初の夜だから9時頃来て泊まると言っていた。

自分は夜中に何が原因か激しい嘔吐下痢に襲われる。
緊張から解放され気が緩んだか ?

○○中央病院に1/10入院。心臓手術1/12。
38日間入院。個室に2/2から15日間入っていた計算。
◆2012/2/12
2012/2/12(日) 母病状
10時過ぎ、たったの2泊で三男は上京した。
そして自分はまた徳山の病院へ。
昨日はかなり良かったのに、
昼前に来て、妹と交代してみると、この落差はなんだ？
全く言うことが分からない。
何度も何度も同じことの押し問答･･･
母もこっちの頭も壊れる。こんな状況で妹は夕方また 来るという。
妹は16時半には再び来た。
◆2012/2/12
2012/2/11 母病状
妻は8時過ぎに病院から戻ってきた。
自分は思いついたExcelの関数とコードを書き上げた。
10時過ぎに長男に電話して起こす。
12時頃、妻、長男、帰省している三男と自分の4人で病院を訪れる。
次男は彼女と尾道に行くらしい。
何と普通の会話が出来るし、妻が手を添えて歩く練習をすると
嬉しそうに何回か繰り返す。
3日前の水曜日夜中に病院に起こされた日と格段の差がある。
長男が人参の撒き方を聞くと
16センチ間隔と細かい指示をする。

2時半頃病院を出て、妻の実家へ。
妻の弟さんが、米軍基地のピザを持ってきて下さった。
それから、柳井で人参の種を買って帰宅。
長男が野菜を取り入れていると
また病院の○○さんから電話。
寂しいを連発するので付き添いをお願い出来ますか。
今夜は妹が行きますから。

夜、妹に電話すると普通に話が出来るということで
ほっとする。
◆2012/2/12
ばたばたしていて、気が休まらない。
Excelで関数やコードを書いていると集中できる。
以下は、思いついたコードをテスト用に作り、それを実際に即して書き換えたもの。

Sub テスト()
'
' Macro1 Macro
' マクロ記録日 : 2012/2/11 ユーザー名 : et
' これは下の「土曜稼働の日付処理」マクロを作るための練習

'
'Range("D2").Select
日付1 = Range("D2").Value
a = Weekday(日付1)
If a = 2 Then
MsgBox a & "です。"
Else
MsgBox "2ではありません"
End If

If a = 2 Then
Range("A7") = "=D2+1"
Range("A8") = "=D2+2"
End If

If a = 3 Then
Range("A21") = "=D2+3"
Range("A22") = "=D2+4"
Range("A8") = ""
End If

End Sub

Sub 土曜稼働の日付処理()
' マクロ記録日 : 2012/2/11 ユーザー名 : et

Dim Ret As Integer

曜日 = Range("D2").Value
a = Weekday(曜日)

If a = 5 Then '出荷日が木曜日ならば
  Ret = MsgBox("土曜日は稼働しますか ?", vbYesNo)
  If Ret = vbYes Then
    Range("A21") = "=D2+2" '土
    Range("A22") = "=D2+4" '月
    Range("A7") = "=D2+1" '金
    Range("A8") = ""
  End If
ElseIf a = 6 Then '出荷日が金曜日ならば
  Ret = MsgBox("土曜日は稼働しますか ?", vbYesNo)
  If Ret = vbYes Then
    Range("A7") = "=D2+1" '土
    Range("A8") = "=D2+3" '月
    Range("A21") = "=D2+4" '火
    Range("A22") = ""
  End If
End If

End Sub
◆2012/2/12
その後も妹や妻が代わる代わる泊まって付き添い。
10日の夜、忙しくて帰れないと言っていた三男が帰省。正月も忙しくて帰れなかった。ただ、今回も忙しくて、今日の昼頃には再び上京する。
◆2012/2/8
2012/2/8(水) 母病状
夜中の2時、病院から電話。
看護師の○○ですが、寝ないし、徘徊するし、立とうとするし
今から来て貰えますか。
ちょっとまてよ。いつもの早朝の仕事がある。
妹に電話。分かった行く。夜12時頃寝たらしい。

自分は早朝の仕事を済ませ、5時半に出て、6時過ぎに着いた。
幸子の話では、ベッドに寝かせ、ナースセンターの前で3人の看護師さんが宥めていたらしい。
朝食は妹が無理矢理食べさせていたが、おかゆが残る。
○○先生が見え、夕方精神科の先生に来て貰う予定です。
幸子が薬のカラを見つけた。
「セロクエル」、ネットで調べたら精神安定剤だ。

自分は9時半に出て、再び会社へ。
12時前に病院に戻ったら、妹が昼食をとらせていた。
それから妹は仕事のため、帰宅。午後から雪が舞っていた。
昼食後、CT撮影。
母は寝ている。自分も雑誌を読んでいたら、うとうと。
○○看護課長が回ってこられ、付き添っておられるならなるべく昼は起こして下さい。
何度も何度も起こす。
弁当詰めようやぁ。何で ? 仕事に行く。
服がない。返るときに持ってくるよ、だからないの。
つなぎのように上下がくっついたパジャマを脱ごうとする。
鋏で切ってくれと言う。

何度も寝るから、ベッドの柵を外して、手を添えて立たせてみた。

17時頃、リハビリの先生が見えた。
つかまり立ちをして、足ふみ。なんとか出来る。
その後は、ベッドの柵に掴まり、先生が手を添えて歩く練習、向きを変えて2度ほど。
バアチャン、出来たじゃあ。うん 出来た。

18時、夕食。自分がベッドの頭を起こして
スプーンで運んでやる。今回は半分も食べない。
食後はすぐに寝てしまった。
18時半に病院を後にした。

夜10時頃、妹がまた来て泊まると言っていた。
　

先頭に戻る　　　　過去の日記