才賀川土手の草刈り・焼きに「活動費」をいただいた

田んぼ

　2月から始めた才賀川土手の草刈り、続いて13日の土手焼きが認められ、西田布施・友石環境保全会から「活動費」をいただいた。
長男から「清神さんが活動を認めてくれた。才賀コミュニティセンターに取りに行くように」と言われていたもの。素直に嬉しい...😄

　封筒には、「西田布施・友石環境保全会」とあった。こんな公式の会があるのか‥‥ と検索したら

  • 広報たぶせ 2020 1/10号 18ページ
    ～ご存じですか「農業・農村の有する多面的機能」について～
    　農業・農村は、私たちが生きていくのに必要なお米や野菜などの生産の場としての役割を果たしています。一方で、農村で農業が継続して行われると、防災・減災や美しい農村の風景が癒しや安らぎをもたらし、体験学習を通じた教育の場になるなど､私たちの生活に色々な『めぐみ』をもたらしてくれます。このめぐみを『農業・農村の有する多面的機能』と呼びます。
    　田布施町では、これらの機能の発揮を後押しするため、農林水産省の多面的機能支払交付金刮度を活用しています。この制度は集落内の農業者などを中心に作られた活動絹織に対し、農業・農村の持っている多面的椴能の維持・発揮を図るための活動に対して交付金を交付するものです。平成19年から各地域が絹織化してこの交付金を活用した取組みが行われています。
    　しかし、過疎化・高齢化・混住化などに伴う集落機能の低下により、保全管理が困難となっている状況を踏まえて、平成29年度に町全体で１つとした組織の広域化を図りました。これは地域単位ではなく町内全域の住民が連携して活動を支えていくことが可能となることから、地域の粋にとらわれず、横断的にさまざまな人が参画できるような体制になっています。

　「大波野環境保全隊」は聞いたことがある。石の口には「石の口保全会」が、麻里府には「中郷環境保全会」があるんだぁ～

  • 美土里みどりネットとは
    www.inakajin.or.jp
    　正式名称を「土地改良区」という農家の組織で（全国に約4500組織）、農地の整備や農業水路の維持管理を行っているほか、住民の方と連携した地域づくりや地域農業の振興のための活動を行っています。
    • 組織が大き過ぎて、よく解らない...

ステンレス製のくん炭器を初めて使った

くん炭

　だいぶ前に長男から、「もみ殻が2袋弱、眠っている‥‥」と連絡があったが...
ドラ炭作りも一段落したので、３ヶ月ぶりにくん炭を作った。

　今回使ったくん炭器は新品でステンレス製


  • 家計簿を検索したら 2020/02/22 に、Amazon から購入していた。
  • これまで使っていた鉄製は変形し、朽ちて煙突が立たなくなったが、騙しだまし使っていたもの。
    一年ぶりに日の目を見たことに...

前立腺がん／PSAは更に上がり 2.3、次回から新しい薬を服用することに...

健康

　昨夜は冷え込んだ。朝、起きたらうっすら雪化粧。
今日は周東総合病院に行く日、で、何時もより7～8分早く家を出た。


≪泌尿器科≫

  1. 注射（ゾラデックス）
  2. PSA は更に上がり、2.3になった。f:id:ogohnohito:20210220092551p:plain:w600
    • Dr.：注射だけでは治療として十分ではないです...
    • 自分：足の痒みも無くなった。新しい飲み薬は？
    • Dr.：「ニュベクオ」です。薬を取り寄せる必要があるので、次回からでどうですか？
    • 自分：（小冊子をもらい）お願いします。


≪皮膚科≫
　泌尿器科が10時前に終わり、次の「皮膚科」に行ったが‥‥
「先生が通行止めに合い、まだ来られていません」「因みに、どちらから来られるのですか？」「宇部からです」で、とりあえず帰宅した。
その後、12時半から受診した。

田んぼの巨大な畔、才賀川の土手の草刈りが終わった

田んぼ

　長男が借りている田んぼのうち、5枚の畦道の一辺が才賀川の土手を兼ねている...
中間に休耕田（Ａ，Ｂ）があったが、今年から借りる（Ｃも）ことになり、才賀川の土手がつながった？ ことになる。そこで土手の草刈りを本格的に行った。

　13日に取水口がある上流で「才賀川土手焼き」があった。



ここには長男も参加した（まりふのひとは見学）ので、早めに下流に来てもらい、草焼きした。

　そして今日、見たこともない水路（今は使われていない）が浮き出た写真を撮った。

上流側 下流側


草焼きした休耕田も入れたい‥‥ とパノラマにした。

拡大（Ctrl＋クリック）して見ても‥‥ 迫力は今一。
動画も撮ったが、どうだろうか...
youtu.be

家計簿77／品名で総収支シートの最新レコードを検索・転記できるようにした

f:id:ogohnohito:20210211210941p:plain:right:w360
　マクロ家計簿77.xlsmの機能を追加し、バージョンを 1.55a とした。但し、検証が充分出来ていないので未公開中‥‥

≪目次≫

品名で総収支シートを検索し、最新レコードの値をコピペする

  1. 品名にカーソルがある時、
  2. Ctrl＋Shift+F（Ｆは Findからとった）すると‥‥
  3. 総収支シートの同名の品名を最新を検索し、
    • 総収支シートは日付順に並んでいるはずなので、下から検索している。
  4. 費目，カード，入金等をコピペする。
    • 但し、通し番号はコピペしない。

　開発のいきさつは‥‥

  • 医療費の入力は「前回」と殆ど同じで、異なるのは金額（支出）のみ‥‥ が多いため、いちいち入力するのが面倒。

で、以前から作りたいと思っていたもの。

🌎Findで下から上へ検索したい（引用：インストラクターのネタ帳 2016年05月09日）

www.relief.jp
下から上に検索するサンプルマクロ
　以下のようなマクロで、下から上方向に検索することができます。
Sub 下から検索する()
　Dim rng As Range

　Set rng = Range("A:A").Find( _
　　　What:="北海道", _
　　　SearchDirection:=xlPrevious)

　If rng Is Nothing Then
　　MsgBox "見つかりませんでした。"
　Else
　　MsgBox rng.Address(False, False)
　End If
End Sub

上記のコピペで出来た。但し「完全一致」にしたいので、「マクロの記録」で作成したコードを追加した。

Sub 品名で検索() のコード
01.Public Sub 品名で検索()
02.Dim mbTitle As String
03.Dim rng As Range
04.Dim lastRow As Long, actRow As Long, sssRow As Long
05.Dim c As Long, lastCol As Long, col通し番号 As Long
06.Dim strHinmei As String
07.    
08.    mbTitle = "/" & getMacroTitle()
09.    strHinmei = ActiveCell.Value
10.    actRow = ActiveCell.Row
11.    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
12.    If strHinmei = "" Then Exit Sub
13.    LNGAns = MsgBox("下記条件で「総収支」品名を検索し、情報を付与します。" & vbCrLf _
14.            & "　◆キーワード：" & strHinmei, vbOKCancel + vbInformation, mbTitle)
15.    If LNGAns = vbCancel Then Exit Sub
16.    
17.    With Worksheets("総収支")
18.        lastRow = .Cells(Rows.Count, "C").End(xlUp).Row
19.            '完全一致で検索する。
20.        Set rng = .Range("C2:C" & lastRow).Find( _
21.                What:=strHinmei, _
22.                LookAt:=xlWhole, _
23.                SearchDirection:=xlPrevious, _
24.                MatchCase:=True, _
25.                MatchByte:=True)
26.        If rng Is Nothing Then
27.            MsgBox "総収支 シートを「" & strHinmei & "」で検索しましたが" & vbCrLf _
28.                    & "見つけられませんした。" & vbCrLf _
29.                    & "・完全一致で検索しました。" & vbCrLf _
30.                    & "・大文字/小文字は区別されます。" & vbCrLf _
31.                    & "・全角/半角は区別されます。" _
32.                    , vbCritical, mbTitle
33.            Exit Sub
34.        End If
35.'        MsgBox rng.Address(False, False)
36.        sssRow = rng.Row            '収支シートの行番号
37.        col通し番号 = get列番号("通し番号")
38.        For c = 4 To lastCol
39.            If c <> col通し番号 Then
40.                Cells(actRow, c) = .Cells(sssRow, c)
41.            End If
42.        Next
43.    End With
44.
45.End Sub

その他の改善事項

日付の年をシート名の年と自動的に同じにする（任意）

　日付の入力は通常、yy/mm で年は入力していない。
去年（2020年）の医療費をまとめて入力する時や、1月に12月の家計簿を入力する時、年を入力しないとおかしなことになってしまう。（実用上は差し支えない‥‥ はず）f:id:ogohnohito:20210211203912p:plain:right:w320
そこで、日付の年が収支シート名の年と一致しないときは、収支シートの年に置き換えられるようにした。

ユーザー設定のタブを作り、ショートカットキーで起動できるマクロを登録（任意）

f:id:ogohnohito:20210211205403p:plain

　家計簿77 タブを作り、ショートカットで起動できるマクロを登録した。（詳細は省略）
マクロの手直しが必要で、検証を進め、もっと充実させたい...

新たに借りた休耕田の草刈り、見通しが良くなった

田んぼ

　下図は、昨年10月に最後の脱穀が終わった田んぼ、ここの中央に休耕田の草が横断している...

f:id:ogohnohito:20210208164022j:plain
上図の□を拡大
長男との雑談の中で「来年は、あすこを何とかしたいね...」

　1月下旬に長男からメールが入った。

今年、柿木町と指差し町一円の間の町をやることになったよ。倉庫前の北の荒れ田も。

エッ！ そんなに広げるの？

  • 前出の画像の □内が、Ａ，Ｂの休耕田
  • 倉庫前の北の荒れ田はＣ

更に、「7日に草刈りをする」と...


　長男一家と我が家のジーとバー 総出の草刈りとなった。
メインは長男が刈りてきたハンマーナイフ、如何なく威力を発揮し‥‥

今年の10月末には同じような写真が撮れるはず‥‥ と思っている。