2024年11月 – ｍａｂｏのｂｌｏｇです。

2024年11月28日2024年11月28日

アリエクスプレス　返品処理　（３）

PAYPALから，下記の題名のメールとどきました。

件名　AliExpressから返金を受け取りました
本文
　こんにちは、〇〇　〇〇様

AliExpressが￥1,685 JPYの返金を実行しました

資金はお客さまのVISA x-****に返金されました。返金内容が取引明細書に表示されるまで数日かかる場合
がありますので、何卒ご了承ください。

返金内容
取引ID
48613976FM379014T 取引日
2024年11月27日 14:42:42 CET
合計購入金額
￥1,685 JPY
返金額
￥1,685 JPY

返金元

AliExpress

ということで，問題なく返品の処理がすんで，返金まで，されたようです。マイページには，
下記のように，処理が済んだ記載がありました。

2024年11月27日2024年11月28日

アリエクスプレスから，返品処理の連絡がきてから，一日おいて，佐川急便が集荷にきました。アリエクスプ
レスからの連絡では，送られてきたコードを佐川急便の運転手さん？に話してください，みたいな記述があり
ましたが，無くてもいいようで，受けとったお客様控えには，きちんと，受け取りコードが，記載されてい
ました。送り先を見ると，千葉県のようで，アリエクスプレスの日本出張所なのでしょうかね。一端ここに集
めて，まとめて，本国におくるのでしょうかね。一個だけ本国に送るとなると結構な輸送費かかるのでしょう
ね。
集荷にあたって，いつ取りにくるかわからなかったので，担当の佐川急便の営業所に連絡をして，返品処理中
で，集荷はいつになるかと問い合わせました。自分の住所と名前を知らせると，すぐに集荷日についてしらべ
てくれました。
ちなみに，アリエクスプレスから届いたメールですが，英語でした。ラベルをダウンロードしろと書いてあ
ようですが，リンクをクリックしても，ダウンロード先にはいけませんでした。

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

下記は，私のアリのマイページに記された，返品に関する情報です。

2024年11月25日2024年11月25日

アリエクスプレス　返品処理

アリエクスプレスより　HX-A100　の電池を購入しました。配達予定は，来年１月１８日でしたが，昨日届き
ました。が，が，商品説明にある　HX-A100　用のバッテリーとは大きさが違うのです。　

写真下が純正のもので，上が送られてきたものです。できるのかどうかダメ元で返品処理をしました。
注文履歴から返品処理をすると，しばらくして，返品処理の番号を書いたメールが送られてきました。どこに
送るのかとおもいましたが，佐川急便が取りにくるようです。返品処理の番号を書いて準備しました。

2024年11月18日

THB-260PFS タナカ　エンジンブロアー整備（２）

三日ほどガソリン漬けにしたキャブレターですが，念のため，いいか悪いかはわかりませんが，シリンジで強
制的にガソリンを送りこんでみました。結果，やっとガソリンを吸い上げるようになりました。

やはりどこかにつまりがあったのでしょうね。新しいキャブと交換済みなので，ガソリンを吸い上げるように
なった，もとももとのキャブは，補修部品として，保管しておきます。

2024年11月12日2024年11月12日

THB-260PFS タナカ　エンジンブロアー整備

久しぶりにエンジンブロアーを使おうとおもったら，プライマリポンプが破損，写真のようにして交換し
ました。

が，しかし，燃料を吸い上げてくれません。そこで，ダイヤフラム等も新品に交換しましたが，それでも
だめで，キャブレターを〇Zonで購入。walbro　の　WYJ　タイプの互換機でしょうかね，交換しました。
今までついていたキャブレターは，できれば使いたいので，どこか詰まってるところがあるようですので
しばし，ガソリン漬けにしすることにしました。しばらくおいて，キャブクリーナーで再び洗浄して，再
度トライして見る予定です。

2024年11月10日2024年12月2日

ウエアラブルカメラ（アクションカメラ）　HX-A100 （２）

このカメラの欠点？は，設定や操作は，スマホからすることでしょうか。操作するにあたって，wifyで本体に
接続する必要がありますが，最初は，接続ができませんでした。もしかして，接続に必要なＳＳＩＤとパスワ
ードが変更されていたのかもしれません。そこで，本体のリセットをして，設定を初期値にもどしました。
何度かリセットして，やっと接続できましたが，操作をするとすぐ電源がきれてしまいます。キッと，主な
電源は，バッテリーからの供給なためなのでしょうかね。しばらく充電をしてやると，ＵＳＢからの供給だ
けで，設定等できるようになりました。自身を撮影してみましたが，画質も結構いいようです。

2024年11月9日2024年12月2日

ウエアラブルカメラ（アクションカメラ）　HX-A100

ウエアラブルカメラ（アクションカメラ）がほしくなって，いろいろ検討してました。もちろん，人気の
ゴープロ等は買えないので前から気になっていたパナソニックの　HX-A100　をヤフオクで購入しました。
すでに製造中止で，今日届いた物の製造は２０１３年となっていましたから１１年も前のものですね。
不動品（充電できない）ということで，送料込みで３２１０円で購入しました。多分，バッテリーがだめでの
不動品だろうと言う予想のもと，あれこれやりました。結果，予想通りで，バッテリーに充電できないもの
の，動画・写真の撮影等，問題なくできました。バッテリーを交換の予定ですが，バッテリーは，３７８３円
と，本体より高くなりました。

バッテリー交換の手順をネットで検索しましたが，取り外し方が，DL　した取説に載っていましたので，それ
ほど苦労しないで大丈夫のようです。

2024年11月4日2024年11月4日

今年２０回目の芝刈り。ならぬ，サッチとり。

成長が大分落ち着いてきたので，サッチ取りを始めました。専用のレーキで始まりましたがらちがあかないの
でサッチと利用にした芝刈り機でやります。刈った芝を受け止める袋は，すぐいっぱいになって，過剰負荷に
なってすぐしばかりが止まってしまうので袋をつけずサッチをかきだして，竹の熊手て集めています。体力を
使うので一度にはできないので，毎日少しずつやってます。一回やると，ゴミ袋いっぱいサッチがとれます。

2024年11月4日2024年11月7日

条件付き書式をVBAで設定　エクセル　VBA　アクティブセルの強調

アクティブセル（選択されているセル）を強調するのに，シートの条件付き書式の設定で次のようにしてまし
た。

　　リボンホーム

　　設定する範囲の選択

　　「条件付き書式」をクリック

　　「新しいルール」をクリック

　　「数式を使用して，書式設定すセルを決定」をクリック

　　「次の数式を満たす場合に値を書式設定」のところに次の数式を入れる

　　=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())」

のようにすればいいようです。

2024年11月3日2024年11月3日

エクセル　VBA　Rangeの落とし穴

仕事関連のお手伝いで，使うエクセルVBAをいじってます。久しぶりに，ドツボにはまりました。ある方のHP
を参考にした（丸ぱくり）サーチのプロシャージャでのことです。

Public Function Search(ByVal Rng As Range, ByVal keyWord As Variant, ByVal Whole As Boolean) As Range
'   引数：
'       Rng:検索範囲 (例) ActiveSheet.Range ("A1:Z500")
'       KeyWord:検索する値 (例) "リンゴ",10,7.85
'       Whole:完全一致→True 部分一致→False (例)True
'   戻り値
'       Rangeオブジェクト 見つからなかった場合は「Nothing」

'   検索範囲内の「KeyWord」を検索する関数です。
'   検索範囲を一つずつ判定し、最初に一致したセル範囲を返します。
'   完全一致と部分一致対応できます。
'   非表示のセルも検索かけます
'   検索結果はセル範囲一つだけです。複数の場合が良ければ「search_List」関数を使ってください
'   https://www.hokkyokun.com/vba-search-vs-findmethod/
    Dim r As Range    
    '完全一致
    If Whole Then
        For Each r In Rng
            If r.Value = keyWord Then
                Set Search = r
                Exit Function
            End If
        Next
        
    '部分一致
    Else
        For Each r In Rng
            If InStr(r.Value, keyWord) > 0 Then
                Set Search = r
                Exit Function
            End If
        Next
    End If  
    '見つからなかった時の処理
    '適宜変更してもらって構いません    
    Set Search = Range("XFD1048576")    'Range(1048576,16384)を返す--最終セル
End Function

この関数を呼び出すのに，次のようなサブルーチンを使いました。

Private Sub CommandButton7_Click()
    Dim Hani, kensakukekka As Range
    Set Hani = Range(Worksheets("マスター").Cells(2, 5), Worksheets("マスター").Cells(96, 5))
    MsgBox Worksheets("マスター").Cells(2, 5) & Worksheets("マスター").Cells(96, 5)
    kensakukekka = Search(Hani, "リンゴ", True)
    MsgBox kensakukekka     
End Sub

このサブルーチンはうまくいきました。しかし，

 MsgBox kensakukekka

の部分を，

 MsgBox kensakukekka & kensakukekka.Row

にするとエラーになるのです。考えられる，修正を加えましたが，エラーは，直りませんでした。
下記加えた，kensakukekka.Row　は，検索結果の入っている，行番号を返すはずなのですが，エラーになり
ます。訳が分かりませんでしたので，お助け掲示板かなと思っていたのですが，ふと気がつきました。
気がつくまで，半日無駄にしました。原因は，分かってみると，簡単なのですが，呼び出しのサブルーチン
に使っていた，

kensakukekka = Search(Hani, "リンゴ", True)

が違っていたのです。Range　の設定には，　Set　をつけてやる必要があったのです。

Set kensakukekka = Search(Hani, "リンゴ", True)

のように，Set　を入れると無事思った動作になりました。　Range　を扱う時は，Set　を入れることを失念
したための大ポカでした。
半分？動いたので，大丈夫と思っていたのが大間違いでしたが，たちが悪いですね。エラーなら全部エラー
になればいいのになんて思いました。

月: 2024年11月