まりふのひと

血圧管理手帳のExcel化-7／高血圧、歳相応の値に近づいたか...

健康

　高血圧の薬、今朝の服用で無くなった。f:id:ogohnohito:20200524094843j:plain:right:w240
今日の診療は午前のみなので、グラフが間に合うか‥‥ ひたすらキーボードを叩いてデータを入力，8時45分に完成した。

  • Dr.：安定してきましたネ、失礼ながら高齢者なのでこのまま続けましょう‥‥
    • 自分：はい。
  • 自分：脈拍と高血圧は関連するのですか？
    　関係ないのであればグラフから外そうと思うのですが...
    • Dr.：血圧が高いからといって、必ずしも脈拍も高いとは限りません。
      • 高血圧になる前の状態と比較するのがいいのですが、今はそれができません。
      • 安定していれば問題ありません。

10時には帰宅しており、昨日までの続き，田んぼ水路の溝浚いに出掛けた。


　夜、Google先生に訊ねた‥‥

  • 心拍数が高いことと、高血圧とはなにか関係はありますか？（オムロン ヘルスケア）

    　血圧と心拍数はどちらも心臓に関わる言葉ですが、それぞれ別のものです。 血圧とは、血管内の圧力のことで、心拍数とは、心臓が拍動する回数を指します。 心拍数の基準値は、年齢・性別によって異なりますが、1分間に60～100回程度です。心拍数と脈拍数は同じ意味を指す言葉です。
    　血圧が高いからといって、必ずしも心拍数も高いとは限りません。 身体は、運動や緊張、興奮、ストレス状態などでより多くの血液（酸素）を必要とするとき、心拍数を増やすことで対応します。運動した後にバクバク、心臓に負荷をかけてしまいます。
    　このような心拍数が高い状態が続くと、健康に悪影響があります。特に高血圧患者さんでは心拍数が増加するに従い、心疾患の発症や死亡のリスクが高まることが、疫学調査により確認されています。

自分なりの結論としては‥‥

  1. 高血圧と心拍数は直接関係ない。
  2. 心拍数は「安定しているか」が重要。
  3. そこで、
    • 家庭血圧グラフから脈拍を取って、スッキリさせたい...
    • 脈拍が過去の平均値と比べてどの位置にあるか‥‥ が判るようなグラフを作りたいが、出来るかなぁ...

「ぶろっぐぴんぴん」で自分のブログにトラックバック‥‥ 出来なかった

Tool
  1. はてなダイアリー時代はトラックバックが出来た。
    • 続き物あるいは関連記事の場合、前のブログにトラックバックし、「こんなのが出たよぉ～」と知らせていたのに...
  2. はてなブログになって、トラックバックが出来なくなった。
    • 結果として、古い記事を検索・ヒットした時、新し記事 or 続きがあるよぉ～ っということが判らなくなった‥‥ ということ。
      　自分が書いた記事を有効的に生かせない‥‥ のが残念と思い続けていた。
  3. どうでも‥‥ と言う時は、「自己レス」を付けていた。

　４～５日前、ブログのblog さんの

がヒットしたので温存、雨読日の今日、やってみた。

  1. ぶろっぐぴんぴん をインストール。
  2. トラック元のブログをアクティブにしておき、
  3. ぶろっぐぴんぴん を起動。f:id:ogohnohito:20200516113604p:plain:right:w400
  4. トラックバックURL を入力し、
  5. ［PING送信］
  6. 1 件に通知します。よろしいですか？‥‥［はい］f:id:ogohnohito:20200516113842p:plain:right:w240
  7. 以下のURLに通知できなかったようです。
    f:id:ogohnohito:20200516114006p:plain:w360


≪結果≫
　出来なかった...

二日がかりで田んぼにドラ炭コンテナ29箱分を撒いた

田んぼ ドラ炭

昨日のこと

　午前中は他の田んぼの たすかる505 分の草刈りが終えたので、午後から南小町（6畝弱）の炭撒きをすることにした。
f:id:ogohnohito:20190503095712j:plain:right:w240昨年はコンテナ 26箱で、作業前の集合写真（右図）を撮ったが、今年は 29箱、３蜜になる（たぶん）ので止めた。（正直なところ億劫だったため）

均等に撒くには‥‥ 南北にコンテナを等間隔に置こう，これなら密接にもならないだろうし...

f:id:ogohnohito:20200515034831p:plain:w600
　吾乍らいい考え‥‥ と思ったが、色々あった。

  1. なにせ目見当でコンテナを置いていったが‥‥ 置き換えること３回で、これだけで疲れたぁ～
  2. いざ撒こう‥‥ としたが、手撒きでは大変な作業、3箱分撒いてギブアップ！
  3. まずは草を刈ってエミー号の力を借りようと、たすかる505で刈り始めた。が、午前中の作業で予備タンも含め燃料を殆ど使っていたので、1/3程刈ったところでガス欠！

で、今日の作業は中止とした。

そして今日

　まずは たすかる505 で草刈りを終え、３箱ずつエミー号にあけ、投げ飛ばした。

昨日（12日）の15時頃
今日（13日）の14時頃
f:id:ogohnohito:20200516035136p:plain:h299 f:id:ogohnohito:20200515045848p:plain:w400
  • 近くで行っている道路拡張工事関係者の方に「何を撒いたのですか」と聞かれた。

今年は29箱なので、昨年の29/26＝1.1倍だが、作業時間は延べ二日、約 8時間、昨年の 3倍近く掛かった計算。
来年はもうチョッと計画的にやろう‥‥（たぶん）

　帰宅するにはまだ早過ぎる。で、石八前広苑に水やりに行ったら、日暮日記さんが草刈りをしていた。
軽トラには草刈り機を積んであるし、このまま帰るのは気が引けるので、ゲート前の右側をナイロンで叩いた...

日経パソコンの「Wordで作る募集案内」の Home Study

Word

　日経パソコン 2020.5.11号をめくっていて

Wordで作る募集案内
第3回 インデントとタブで文字列を揃える

という記事で手が止まった。似たタイトルの「インデントとタブを使って文書を整える」を 2006年8月にブログを書いており、当時の「麻里府パソコン同好会」で盛ん？ に使った経験があるからだ...
　第1回（2020.4.13号）を探したら‥‥

f:id:ogohnohito:20200511085334p:plain:right:w240　この連載では、動画コンテストの募集案内を作成する。A4一枚に必要事項を見やすく配置し、目を引くデザインに仕上げよう。
とあった。更にサンプルファイルをダウンロードしたら、下記のファイルがあった。

  • copyright.txt
    ここに収録したファイルの内容は著作権法により保護されています。
    著作者および日経BPの許諾を得ずに、ファイルそのものまたは改変したものを配布したり販売したりすることはできません。
  • 募集案内_1.docx
  • 募集案内_テキスト.txt
  • 募集案内_完成.docx


日経パソコン読者以外に配布・販売することはできないが、希望者がおられれば

してみませんか？　知っていることは教え合いましょうょ...

Excel／フォントの色が薄い灰色のセルを選択することが出来た

Excel

（このページで使っている Excelのバージョンは2013です）
≪目次≫

いきさつ

　2月19日のブログ『Excelの運行管理データ、グループ表示された空白セルを「同上」で埋め、車番ごとに集計する』で 車番が空白のセルを同上機能で埋め、フォントの色を灰色にする方法が解った。
しかし、一旦埋めると、一括で元には戻せない‥‥ と諦めていた。ましてマクロで作ってVBA化すると以下のようになり

With Cells(c, row車番).Font
　　.ThemeColor = xlThemeColorDark1
　　.TintAndShade = -0.249977111117893
End With

Google先生に聞いても‥‥ 「何色」か判らない（正しくは思い出せない）...

マクロで変更したフォントの色を明確にする...

§１．フォントの色のRGBを知る...
  1. 白紙のExcelシート上で、f:id:ogohnohito:20200418125329j:plain:right:w320
  2. 任意のセルのフォントの色を「白、背景1、黒＋基本色 25%」にする。
  3. 再度［フォントの色］をクリック‥‥f:id:ogohnohito:20200418130340j:plain:right:w320
    • 直前の色が選択されているのを確認し、
    • その他の色(M)... をクリック。
  4. 色の設定/ユーザー設定でf:id:ogohnohito:20200418130804j:plain:right:w320
    • カラーモデル「RGB」
    • 赤,緑,青が 191,191,191 となっていた。
§２．VBAの色の指定を RGB に変更

　ヘルプの森さんの「色指定ColorIndexプロパティに対応するColorプロパティ 一覧」を頼りに、下記のようにコードを変更した。（旧コードはコメントアウトした）

With Cells(c, row車番).Font
　　.Color = RGB(191, 191, 191)
'　　.ThemeColor = xlThemeColorDark1
'　　.TintAndShade = -0.249977111117893
End With

　今のところ、上手く処理できている‥‥ ようだ。
一般的には16進数で表すことが多い。f:id:ogohnohito:20200505115336p:plain:right:w240
電卓で調べたら (191)10 は (BF)16 なので、今後は &hBFBFBF と言うことにしよう...

フォントの色が &hBFBFBF のセルを選択する

§１．セルの書式設定を見る
  1. フォントの色が &hBFBFBF のはずのf:id:ogohnohito:20200418174559j:plain:right:w320
    セルを選択し、Ctrl＋１
  2. セルの書式設定/フォント タブの「色」は
    それらしい色になっている...
  3. 右端の［v］をクリック，テーマの色は‥‥ 選択されてされていないので、
  4. ［その他の色］⇒ ユーザー設定 タブを見ると、RGB(191,191,191) になっていた。
§２．検索してみる
  1. フォントの色 &hBFBFBF がある列を選択し、
  2. 【検索と置換】ダイアログボックスの［書式］をクリックする。
  3. 【書式の検索】ダイアログボックス/フォント タブの
    1. 「色」の［v］をクリック
    2. その他の色 をクリック
    3. 【色の設定】/ユーザー設定 タブが RGB(191,191,191) になっているのを確認し、［OK］
    4. ［OK］で閉じる。
  4. 【検索と置換】ダイアログボックスに戻ったら［すべて検索］すると、
  5. 確かに検索された。

　これを置換で行うと、文字列を削除することができる‥‥ はず～～～

§３．フィルターで検索

　フィルターで検索できれば、元に戻せる（灰色のセルをクリアする）だろうが...

  1. データ・タブ ⇒ フィルター をオンにする。
  2. 車番の［▼］をクリックし‥‥f:id:ogohnohito:20200509164826j:plain:right:w320
  3. 色フルターを選択すると、色は違うが灰色と「自動」が表示された。
    • 後で判ったこと（たぶん）であるが、「自動」とは「色が自動設定」と言うことのようだ...
  4. 灰色を選択すると‥‥f:id:ogohnohito:20200509165319p:plain:right:w480
  5. 選択出来たぁ～～～ 👍
    　試しに‥‥
    1. 選択し、［Del］する。
    2. ［クリア］する。
    3. 再度「色フィルター」で選択すると‥‥
    4. 車番が空白のレコードが表示された。
    5. 次に、
      1. 再度選択し、
      2. Ctrl＋１
      3. フォントの色を「自動」にし、
      4. ［クリア］
    6. 「色フルター」がグレイアウトされた。

　フォントの色で選択できることが判った。
と言うことは、「色」は気にしないでいい‥‥ ことになろう...

使い捨てマスクでも車から捨てるのは止めてョ

田んぼ

　午前中、県道163号線沿いの法面の草を刈った。下に長男が作っている田んぼがあるからだ。f:id:ogohnohito:20200508182041p:plain:right:w200
空き缶やたばこの空箱が捨てられているのは例年どおりであるが、今年はマスクがあったぁ～～～

草刈りをしていてガックリきた...

前立腺がん／PSA検査と薬を貰いに周東総合病院へ

PSA 健康

　飲み薬（アーリーダ）は2週間分しか処方されないので、明日からの分を貰いに周東総合病院に行った。

  • 前回（4月23日に薬を貰いに行った）同様、病院に入ったら「検問？」があったが、問題なく通過した。
  • 周りはマスクをしている人ばかり。で、看護士さんに「マスクは必須ですか？」と訊ねたが、明確は返答はなかった。

  • Dr.：痒みはどうですか？
    • 自分：ひどくなりました。
  • Dr.：塗り薬を変えましょう...（パスタロンソスト軟膏 → オイラックスクリーム10%）
  • Dr.：PSAは 0.7 で下がっています。アーリーダの効果は出ているようです...
    f:id:ogohnohito:20200507134049p:plain
    （Excel のグラフを Ctrl＋C ⇒ ブログに Ctrl＋V した）

  • Dr.：次回は‥‥ 5月21日で、血液検査はありません。

　やない薬局を出たのが10時半、この間、自分以外にマスクをしていない人は一人だったぁ～
次回までにアベノマスクが来たらマスクをして行くとしよう...
　時間が半端なので、「水やり」に石八前広苑に行き、f:id:ogohnohito:20200507143224p:plain:right:w160
昨日ナフコで買った「耐候性結束バンド」の長さがテントの固定に合うか試した。

追伸

　午後、田んぼの草刈りのため「なる置場」のテント倉庫に行ったら、「耐候性結束バンド」2本が切れていた。
ここは風当りが強いが、石八前広苑のテントの耐候性結束バンド、使い分けないといけない...