mabo個人のサイトです。いろんなことを日記風に書いてます。場合によっては，間違った記載もあるということをご承知おきください。表題をクリックして，個別のページの最下部からコメントをお願いします。
今朝起きたら，電気ポットのスイッチが入らなくなっていたそうです。
原因は，多分，温度ヒューズだろうと検討をつけて，分解しました。
底のゴムを外すと，日本の特殊ネジがでてきました。ネットで調べたら，「ピン6ロブ」というよう名称のもの
で，トルクスの中心にピンがある形状のものでした。
以前に購入した，特殊ネジビットのセットに入っていましたので，それを使って分解しました。
底にあったこのネジの２本を外して，内側を引き抜くようにすると，配線等がでてきました。
テスターで当たってみると，下記の温度ヒューズの赤の方の抵抗がが０オームでなくて，大きいようです。
原因はこれだろうと思い，早速部品の注文をしました。最初見つけた物は，２個入りのセットの最低購入数
が５袋ということで，びっくりしましたが，２個入りのものを見つけました。交換してみないと分からない
のですが，原因は，多分，この温度ヒューズでしょうね。
PAYPALから，下記の題名のメールとどきました。
件名 AliExpressから返金を受け取りました
本文
こんにちは、〇〇 〇〇様
AliExpressが￥1,685 JPYの返金を実行しました
資金はお客さまのVISA x-****に返金されました。返金内容が取引明細書に表示されるまで数日かかる場合
がありますので、何卒ご了承ください。
返金内容
取引ID
48613976FM379014T 取引日
2024年11月27日 14:42:42 CET
合計購入金額
￥1,685 JPY
返金額
￥1,685 JPY
返金元
AliExpress
ということで，問題なく返品の処理がすんで，返金まで，されたようです。マイページには，
下記のように，処理が済んだ記載がありました。
アリエクスプレスから，返品処理の連絡がきてから，一日おいて，佐川急便が集荷にきました。アリエクスプ
レスからの連絡では，送られてきたコードを佐川急便の運転手さん？に話してください，みたいな記述があり
ましたが，無くてもいいようで，受けとったお客様控えには，きちんと，受け取りコードが，記載されてい
ました。送り先を見ると，千葉県のようで，アリエクスプレスの日本出張所なのでしょうかね。一端ここに集
めて，まとめて，本国におくるのでしょうかね。一個だけ本国に送るとなると結構な輸送費かかるのでしょう
ね。
集荷にあたって，いつ取りにくるかわからなかったので，担当の佐川急便の営業所に連絡をして，返品処理中
で，集荷はいつになるかと問い合わせました。自分の住所と名前を知らせると，すぐに集荷日についてしらべ
てくれました。
ちなみに，アリエクスプレスから届いたメールですが，英語でした。ラベルをダウンロードしろと書いてあ
ようですが，リンクをクリックしても，ダウンロード先にはいけませんでした。
Waiting for your return
Hi WATASINO SEIMEI,
Your disputed order 1108872314456733 for 1500mAh Battery For Panasonic VSB0526
HX-A100 HX-A1M HX-A100-H HX-A500 HX-A500-D HX-A500-H has been resolved and we’ve
provided a free return label download label to help you out. Please download the form and return
your item(s) before 2024-12-2. If you have any questions, or you’re not sure what to do next, you
can click here to find out more information.
View details
Please note: If you can not return your items before the deadline, your free return
request may be cancelled.
Order details
Placed on 11 09,2024, 17:21
Shop1103618221 Store
パナソニック用バッテリー,1500mAh,vsb0…
￥ 1,410 x1
Order ID 1108872314446733
Order total 1,685円
View details
Ship to
WATASINO JYUUSYO
Payment method
WALLET_PAYPAL_CHECKOUT
下記は，私のアリのマイページに記された，返品に関する情報です。
アリエクスプレスより HX-A100 の電池を購入しました。配達予定は，来年１月１８日でしたが，昨日届き
ました。が，が，商品説明にある HX-A100 用のバッテリーとは大きさが違うのです。
写真下が純正のもので，上が送られてきたものです。できるのかどうかダメ元で返品処理をしました。
注文履歴から返品処理をすると，しばらくして，返品処理の番号を書いたメールが送られてきました。どこに
送るのかとおもいましたが，佐川急便が取りにくるようです。返品処理の番号を書いて準備しました。
三日ほどガソリン漬けにしたキャブレターですが，念のため，いいか悪いかはわかりませんが，シリンジで強
制的にガソリンを送りこんでみました。結果，やっとガソリンを吸い上げるようになりました。
やはりどこかにつまりがあったのでしょうね。新しいキャブと交換済みなので，ガソリンを吸い上げるように
なった，もとももとのキャブは，補修部品として，保管しておきます。
久しぶりにエンジンブロアーを使おうとおもったら，プライマリポンプが破損，写真のようにして交換し
ました。
このカメラの欠点？は，設定や操作は，スマホからすることでしょうか。操作するにあたって，wifyで本体に
接続する必要がありますが，最初は，接続ができませんでした。もしかして，接続に必要なＳＳＩＤとパスワ
ードが変更されていたのかもしれません。そこで，本体のリセットをして，設定を初期値にもどしました。
何度かリセットして，やっと接続できましたが，操作をするとすぐ電源がきれてしまいます。キッと，主な
電源は，バッテリーからの供給なためなのでしょうかね。しばらく充電をしてやると，ＵＳＢからの供給だ
けで，設定等できるようになりました。自身を撮影してみましたが，画質も結構いいようです。
ウエアラブルカメラ（アクションカメラ）がほしくなって，いろいろ検討してました。もちろん，人気の
ゴープロ等は買えないので前から気になっていたパナソニックの HX-A100 をヤフオクで購入しました。
すでに製造中止で，今日届いた物の製造は２０１３年となっていましたから１１年も前のものですね。
不動品（充電できない）ということで，送料込みで３２１０円で購入しました。多分，バッテリーがだめでの
不動品だろうと言う予想のもと，あれこれやりました。結果，予想通りで，バッテリーに充電できないもの
の，動画・写真の撮影等，問題なくできました。バッテリーを交換の予定ですが，バッテリーは，３７８３円
と，本体より高くなりました。
バッテリー交換の手順をネットで検索しましたが，取り外し方が，DL した取説に載っていましたので，それ
ほど苦労しないで大丈夫のようです。
成長が大分落ち着いてきたので，サッチ取りを始めました。専用のレーキで始まりましたがらちがあかないの
でサッチと利用にした芝刈り機でやります。刈った芝を受け止める袋は，すぐいっぱいになって，過剰負荷に
なってすぐしばかりが止まってしまうので袋をつけずサッチをかきだして，竹の熊手て集めています。体力を
使うので一度にはできないので，毎日少しずつやってます。一回やると，ゴミ袋いっぱいサッチがとれます。
アクティブセル（選択されているセル）を強調するのに，シートの条件付き書式の設定で次のようにしてまし
た。
リボンホーム
設定する範囲の選択
「条件付き書式」をクリック
「新しいルール」をクリック
「数式を使用して，書式設定すセルを決定」をクリック
「次の数式を満たす場合に値を書式設定」のところに次の数式を入れる
=AND(CELL(“ROW”)=ROW(), cell(“COL”)=COLUMN())
「書式設定」クリック→→「塗りつぶし」→→「色を選択」
VBAの開発画面で，該当するシートに
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Subを記入。
こうすることで，選択したセル（カーソルのあるセル）に設定した色をつけるいことができます。
この条件付き書式を VBA でも設定できることは，前から知っていましたが，やってみることに。
ある諸兄のHPを参考に，
Range("B6:G15").FormatConditions.Add(Type:=xlExpression, Formula1:="=$G6>=85").Interior.Color = rgbPowderBlueのようにして，Formula1:= 以下に条件式を書けばいいと，記載がありました。そこで，
Range("B6:G15").FormatConditions.Add(Type:=xlExpression, Formula1:="=AND(CELL("ROW")=ROW(), cell("COL")=COLUMN())").Interior.Color = rgbPowderBlueのように，先ほどのシートで使った数式をいれてみました。しかし，これがことごとくエラーになります。
エラー解消すべくいろいろやってみましたがだめでしたので，困ったときのHPということで，あれこれ検索
して，ヒントになる HP を発見。 ここのHPの条件式の書き方が参考になりました。
ここでは，
'ハイライトしたい場所を Formula1:= の右側に "" で囲んで入力してください
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=CELL(""ROW"")=ROW()"のよう記述がありました。
CELL(“ROW”)→→CELL(“”ROW””)
そういえば，VBA で出たエラーを見ると，「区切りがどおうのこうの・・・・」というものだったようで
す。区切りが判別できないエラーだったんですね。”ROW”をさらにダブルクオーテーションで囲うことで
エラーが回避できました。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
Worksheets("送信表").Cells.FormatConditions.Delete
Range(Worksheets("送信表").Cells(1, 2), Worksheets("送信表").Cells(101, 10)).FormatConditions.Add(Type:=xlExpression, Formula1:="=AND(CELL(""ROW"")=ROW(), CELL(""COL"")=COLUMN())").Interior.Color = rgbPowderBlue
End Sub
これをWROKBOOKに書き込むことで，送信表のシートで選択セルの強調ができるようになりました。
ちなみに，行だけを強調するには，
「=AND(CELL(“”ROW””)=ROW(), CELL(“”COL””)=COLUMN())」→→「=CELL(“”ROW””)=ROW()」
また，列だけを強調するには，
「=AND(CELL(“”ROW””)=ROW(), CELL(“”COL””)=COLUMN())」→→「=CELL(“”COL””)=COLUMN()」
行も列も強調するには，
「=AND(CELL(“”ROW””)=ROW(), CELL(“”COL””)=COLUMN())」
↓
「=OR(CELL(“”ROW””)=ROW(), CELL(“”COL””)=COLUMN())」
のようにすればいいようです。