月: 2016年1月

　今朝の日本vs韓国戦は気分が良かったですね。2対0でリードされたときは、見るのを止めて

風呂に入りましたよ。風呂から上がってテレビを点けるとなんと2対2。それからは最後まで見ました。

アジアチャンピオンでリオのオリンピックへ参加できるのは、選手達は良い気分でしょうね。

　前の試合のイラク戦でも最後に点数を入れて、勝ったし今のU-23は強いんでしょうね。

錦織選手はジョコビッチにほぼ完璧に押さえられたし、個人的にも、余り良いことが無くて

鬱の状態でした。

　理由は単純なんですが、単純な不快の原因が数個重なるとパニックになって鬱になります。

出産で帰っていた娘と些細なことで、口げんかをしたことも原因です。娘はそれで仙台に

戻りました。株が大幅に値を下げたのも、知人がお金の振り込みをしてくれないのも原因です。

　大雪が収まって、雪掻きをしなくても良くなって、気分が良くなったのかも知れません。娘が仙台に

帰って10日ばかり経って、少し落ち着いてきました。株も幾ら値を戻してるようです。それらが

気分の転換をしてくれたようです。

　どうしてこうなるんでしょうかね。世の中自分の思い通りには行かない。そんなことは分かってる

ですが。(^0^)

　鬱の原因は、風邪気味で、長引いてるのも原因かも知れません。

今日までですかね。岩手で冬の国体が行われてます。一番近くの石鳥谷のアイスホッケー会場へ

行ってみました。アイスホッケーを直に見たのも始めて、国体を見たのも初めて。石鳥谷の道の駅は

何度か行ってるので行くこと自体に問題ないし、雪が少ないので、車の運転も楽でした。

　アイスホッケーは動きが激しくて、落ち着いてみてられませんね。滋賀vs長野だったようですが

ルールも分からずで、会場も寒い。10分程度の観戦で後は隣の道の駅に行きました。(^0^)

 

　娘が出産のために昨年の12月上旬から帰って来てました。1/1に無事生まれました。

母子とも健康で可愛い男の子です。大晦日の日に入院して1/5退院の予定です。

妻と二人で大きい方の孫の世話をしてました。妻はまだ仕事をしてるので、孫と一緒の

夜を一晩だけ過ごしたんですが、実際は泣かれたりして大変でした。睡眠も十分取れ

ませんでした。

　しかし生活を一緒にしていると不思議なもので、孫もなついてくるんですね。まだ言葉が

ハッキリしませんが、それとなく「じーちゃん」と呼んでくれている雰囲気です。

　1/4,5旦那さんが休みと言うことで、気仙沼の実家へ連れて行きました。自分の家の

孫でも無いのですが、自分にとっては孫です。少し寂しいような、何なんでしょうね？

もともと自分の家に入ったわけでも無いし、孫を取られたということは無いはずですが

やっぱり孫が可愛いんでしょうね。

　又明日からは、戻ってくるので、賑やかになるんでしょうが。大変とか言ってられませんね。

(^0^)

　

新年明けました。お目出度う御座います。暇に任せて、Excelで遊んでました。

　クリックで拡大します。

上の部分がデータのモデルです。中程は集計の結果。実行して集計結果です。

一番下が普通考えるとこうなるんでしょうか?と言う表です。

Option Explicit

Sub 集計その2()

Dim 配列() As Variant
Dim 作業種類() As Variant

Dim 行数 As Integer
Dim 列数 As Integer
Dim l As Integer
Dim r As Integer
Dim rr As Integer
Dim 書込ポイント As Integer

    行数 = 2
    列数 = 4
    ReDim 配列(0 To 行数, 0 To 列数) As Variant
    ReDim 作業種類(1 To 列数) As Variant
    
    With Worksheets(“Sheet1”)
        
        書込ポイント = 2
        作業種類(1) = .Cells(3, 2)
        
        For l = 1 To 列数
            For r = 1 To l
                If 作業種類(r) = .Cells(3, l * 2) Then
                    GoTo pass
                End If
                If 作業種類(r) = 0 Then
                    Exit For
                End If
               
            Next
            作業種類(書込ポイント) = .Cells(3, r * 2)
            書込ポイント = 書込ポイント + 1
pass:
        Next
        
        For l = 0 To 行数
            配列(l, 0) = .Cells(3 + l, 1)
            For r = 1 To 列数
                For rr = 1 To 列数
                    If 作業種類(rr) = .Cells(3 + l, 2 * r) Then
                            配列(l, rr) = 配列(l, rr) + .Cells(3 + l, 2 * r + 1)
                        Exit For
                    End If
                Next
            Next
        Next
        
        .Cells(29, 1) = “作業種類”
        .Cells(29, 2).Resize(1, 書込ポイント) = 作業種類
        .Cells(30, 1).Resize(行数 + 1, 書込ポイント) = 配列
    End With
End Sub

　初めの方で作業コードを配列、作業種類に格納しておきます。その下ではレコードの処理です。

作業種類に合った箇所にデータを足し込んでいきます。最後に配列からワークシートへデータを

移してて終わります。取り敢えずこんな感じであれば良いかなと言うことです。

　以外と手こずったのが、手作業であれば簡単な、作業コードの拾い出しでした。この場合は

同じ日の作業は全員同じ作業コードを持つことが、条件ですので、最初の1行から作業コードの

拾い出しをしてます。

　一番下のデータ形式であれば、ピボットテーブルを使うことが出来るんですが、データが縦に長くなり

入力の際には少し不便かと。一番上のデータ形式であれば、1日が１つのデータ入力になります。

　昨年になりましたが、ドラフトの結果岩手県関係では花巻東の高橋幹也選手が広島に3位指名

されたのが目立ってましたが、もう一人注目の選手が居ました。一関一高出身で明大卒、本田技研から

中日に5位指名の阿部寿樹選手です。

　自分の息子（次男のこと）も中学時代は野球をやってました。高専に行ってからは野球の腕を

自覚したかどうか?陸上に変更しました。中学の同級生が一関一高で野球をやっていた関係で

今年の元日に、阿部選手と会うことが出来たと言うことです。

　自分は全く知りませんでしたが、その時貰ったサインが写真です。

　クリックで拡大します。

　同郷ですので、頑張って欲しいものです。ちなみに背番号は5番と言うことです。和田選手が引退して

その後の番号と言うことです。一桁ですので、それに社会人から行ったので、活躍を期待できそうです。

　特に目新しいことはないのですが、健康に注意して、今年も米を作るつもりです。

そのためにはどんなことをすれば良いのかなということになりますね。健康に注意といっても

何もせず手に入るものでもありません。米作りといっても、毎年同じようでも違います。

多くのことをクリアしないと今年の米作りを達成できないですね。具体的にはその時々で

変わります。

　まさにマラソンみたいなもんですね。力まず、慌てず、怠けずでいくしかないですね。

　昨年の12/28が予定日だった娘が、大晦日の昨日おかしいというか前兆といいますがで

急遽夜中の10時頃に、帰省中だった次男の運転で入院しました。今朝起きると、次男のところへ

携帯に電話が入ってました。今日の午前2時半過ぎに無事誕生ということです。

　2016年の最初のめでたいことが起こりました。無事誕生ですので、本当にうれしいですね。

まだ誰も面会にも行ってませんが、これから妻が行く予定ですし、自分たちは明日面会に

いくつもりです。

　自分の知っている範囲では、元旦生まれはいません。自分の近くの親類等でもないことです。

二重にうれしいですね。