2024年11月19日火曜日

商品名から想像できる範囲の品物は、まだマシとして、効能に関係のないトンデモ命名に驚いてしまった ー ネズミ忌避剤(ガーデニング)

         
明け方、ベランダに出没するネズミの活動が、下火になったとは思えないんだ。
ただ、食い荒らされる植物も減ってきたし、殺鼠剤も忌避剤も置いてあります。

それでも、緑色の梱包ヒモを植物の蔓と勘違いして食いちぎっていったりだな。
結局、効果がないかもしれないと思うようになって、追加対策を考え始めたの。

先ず、百均で購入した忌避剤では、効果がすぐなくなるのでないかと判断した。
ネズミの嫌うミント(ハッカ)の匂いをベランダで嗅ぐと、ちょっと弱い感じ。

ならばとアマゾンで探してみたら、ゲル状タイプで三か月持続する商品を発見。
殺鼠剤と同じアース製薬の商品でして、”ネズミのみはり番 忌避ゲル”なのです。

このゲル状というのが、トイレの芳香剤と同じ感じでこれなら長持ちしそうだ。
なので、ベランダ間仕切り壁の両端に設置するとして二個をカートに移動です。

他にも、もっと強力な忌避剤が紹介されていて、その名も”ヒトデ浪漫”でした。
そんな時、こういった商品をチェックするには、投稿レビューが役立ちますな。

先ず、忌避剤のほうは、★が三つ半である程度は効果があるというものだろう。
一方、ヒトデの方も同じレベルなので、期待が高すぎたらガッカリするのかな。

ならば、ゲルにヒトデのダブルパンチで相乗効果を狙うという作戦を考え付く。
ヒトデの商品も一緒にカートに移動させて、ファミマロッカーで受取り指定だ。

ラッキーなことに、三連休初日に受け取りできて、休み中にセットできました。
ゲルの忌避剤は、トイレの消臭剤と同じでシールをはがすと成分が匂い始める。

ミントの匂いよりも、ミント系トイレ消臭剤みたいな匂いがして、ややきつい。
一方、ヒトデの方は、レビューで悪評のあった匂いのままで、磯の強い香りだ。

ただ、自分的には磯の海岸べりにある民宿に泊まって、漂ってくる臭さみたい。
好む匂いではありませんが、我慢の範囲なので、さっそく小分け袋の作成開始。

ヒトデ浪漫_粉状のものが多い
          
シンクの水切りネットに、説明書通りに百グラムを詰めて吊してみようとした。
ところが、粉砕されたヒトデが細かすぎてネットから粉末が漏れ落ちてきます。

これが悪臭になりそうで、ほうきと塵取りで掃くのも嫌だし袋の吊るしは撤回。
代わりに、ヨーグルト容器のフタをトレイにして、地面に置くようにしました。

というわけで、風向き次第でリビングの方に磯臭い匂いがしても、我慢できる。
ネズ公に、三年かけて手塩に育てた大切なツリガネニンジンの根生葉を、根こそぎ食い散らかされてしまって、すでに殺鼠剤も置いてありますが、これで効果がが期待できないのであれば、高周波音発生の装置しかないとも思うのでした。



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへにほんブログ村 スキースノボーブログ スキーへにほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2024年11月17日日曜日

今や、PS/2コネクタは化石扱いでも、USBキーボードは、7つ以上のキーを同時押しできないから、生き残るはずだよ ー USB-PS/2変換アダプタ再考(PCパーツ)

          
以前、投稿でUSBとPS/2の変換アダプタを紹介しましたが、今回は新たな試み。
これまで、PS2マウスをUSBで利用してきたので、他のコネクタは使いません。

もし、キーボードも挿して使うと、USBコネクタが一つで済む便利さもあるな。
一方、現状では、二台のPCを一つのキーボードで使えるようにしてきました。

エレコム製の切替器でして、PS2コネクターとD-Sub画像コネクタの組合せね。
切替える時は、Shiftキーを押しながら、ScrollLockキーを二回押す操作なんだ。

かなり前に購入したので、古いマザボには両方ともPS2コネクタが挿せました。
ところが、その後、マザボのコネクタがUSBマウスのコネクタが主流になった。

なので、この切替器はキーボードだけにして、マウスは別々に接続していたの。
まあ、そうスペースを取ることもなく扱いが楽なので、気にはしませんでした。

それでも、家の中に機械式のPS2マウスがまだ残っているので有効活用したい。
もし、PC二台で、マウス&キーボードが各一個なら、もっと省スペースになる。

とすれば、先ずは切替機にPS2コネクタのマウスとキーボードを挿してみます。
次に、PC側に挿すケーブルを、このUSB/PS2変換アダプタに挿してUSB接続。

ただ、切替器と変換アダプタを重ねた経由だと、相性が悪くて動かないだろう。
そう思い込んで実験したことも無かったのですが、ダメ元でも試してみたんだ。

ところが、ちゃんと認識して入力もちゃんとできて、マウスもスクロールする。
なんだ、最初から実験しておけばよかったと思っても、後悔は先に立ちません。

というわけで、パソコン接続機器は相性があると鵜吞みにしていた自分が悪い。
もう二台のPCにも、この変換アダプタが二個残っていますので、キーボードとマウス共に各一個使いにしてみようと、実験を企てながら成功してくれよと期待する自分なのでした。

おまけ:ネットでこんな記事もありました。



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへにほんブログ村 スキースノボーブログ スキーへにほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2024年11月15日金曜日

ワークシートにフォームコントロール(ボタン等)を複数配置する方法で実験してみた ーButtonオブジェクト(VBAマクロ)

         
ワークシートには、ActiveXを使用しないフォームコントロールが存在します。
コマンドボタンなど各種が重複していますが、VBAを使用せずに使えるらしい。

マイクロソフトのホームページにも書いてあるぐらいだから、間違いないはず。
でも、VBAに慣れ親しんでしまった自分には、コードを書いた方が簡単ですな。

まあ、どちらもしてもクリックすれば紐づけられたVBAのプロシージャが起動。
だから、違いはどこにあるのだろうかと思いますが、強いて言えば自由度かな。

つまり、背景の色を替えたり画像を載せたりできるのは、ActiveXに軍配です。
さて、このコントロールは、Excelワークシートに組み込まれている部品です。

もし、柔軟にプログラムを組みたいのなら、ActiveXを使えと言うことだろう。
それで、冒頭の写真は、フォームコントロールでボタンを連続的に作りました。

このコントロールボタンは、シェイプの仲間になっているのが、面白いところ。
具体的には、”Button”として認識されて、名称は自動的に連番が振られますな。

他方、ActiveXは、追加(Add)の時点で名前を指定し直せるのとは違うんだ。
なので、”Button 10"のように間にスペースが入っているのが、少し厄介です。

たまに、スペースが悪さしかねないので、ここは名前を変更しておきたいもの。
だから、追加の後に、シェイプ(図形)の名前変更を行うような、コード記述。

しかも、複数ボタンの作成では、動的な配列でイベント挙動の管理ができない。
クラスモジュール配下で、イベント発生のコントロールを認識できないのです。

なので、作った一個一個のコントロールのイベントプロシージャ作成が必要だ。
これが、やっぱり面倒臭いのですが、コピペして行けばなんとかなるでしょう。

というわけで、サンプルコードを載せておくので使いたいなら使ってください。
今まで、数の少ないコントロールの配置では、一個一個を手作りしていた分けですが、たくさん作るとなると、追加(Add)コマンドが便利な分けでして、作った後に、どう制御するかはノウハウが必要なのだと思うのでした。

※参考コード・すべて標準モジュールに記述してOK
Sub Act()
Dim i As Long, Cll(42) As Variant, str As String
 i = 1   'ボタン個数:42
Rtrn: 'For Nextのループ処理作成でも構わない 
  Set Cll(i) = ActiveSheet.Buttons.Add(LftNr(i), TpNr(i), 36, 36)
    str = "" '各ボタンに紐づけされたプロシージャ名を作成
      str = str & "Button"
        str = str & i
          str = str & ""
With Cll(i)  'ラベルの詳細を設定
  .Name = "Button" & i
    .OnAction = str '各ボタンに紐づけされたプロシージャの指定
      .Font.Size = 20
        .Font.Color = vbRed
      .Font.FontStyle = "Bold"
    .Font.Name = "Wandohope"
  .Characters.Text = i
End With
  i = i + 1
    If i <= 42 Then GoTo Rtrn 'ボタンが42個までGoToのループ処理
End Sub

Function LftNr(ByVal i As Long) ’関数プロシージャ(値渡し)
Dim j As Long
  j = i Mod 7
  Select Case j
    Case 1
      LftNr = 10
    Case 2
      LftNr = 10 + 36 * 1
    Case 3
      LftNr = 10 + 36 * 2
    Case 4
      LftNr = 10 + 36 * 3
    Case 5
      LftNr = 10 + 36 * 4
    Case 6
      LftNr = 10 + 36 * 5
    Case 0
      LftNr = 10 + 36 * 6
  End Select
End Function

Function TpNr(ByVal i As Long) ’関数プロシージャ(値渡し)
  Select Case i
    Case Is <= 7
      TpNr = 25
    Case Is <= 14
      TpNr = 25 + 36 * 1
    Case Is <= 21
      TpNr = 25 + 36 * 2
    Case Is <= 28
      TpNr = 25 + 36 * 3
    Case Is <= 35
      TpNr = 25 + 36 * 4
    Case Is <= 42
      TpNr = 25 + 36 * 5
  End Select
End Function

Sub Button1() 'コントロール名称がプロシージャ名
MsgBox "1"
End Sub

Sub Button42() '冒頭画面:実行結果/必要分プロシージャ作成が面倒
MsgBox "42"
End Sub

※ボタン名称一覧出力のサンプルコード
Sub BtnNme()
  Dim objct As Object
    For Each objct In ActiveSheet.Buttons
      Debug.Print objct.Name
    Next objct
End Sub



いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへにほんブログ村 スキースノボーブログ スキーへにほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村 



2024年11月13日水曜日

石破はブーメラン大魔王、安倍さんの批判が今頃になって帰って来る、最長不倒の国会居眠り野郎とは前代未聞の首班ではある ー 首班指名選挙(政治談議)

だらしないやつ
       
しかし、国会における首班指名選挙で、立候補した本人が白河夜船の居眠りだ。
主役の場でも堂々と居眠る石破を、隣席の林が「え?寝てる!」と唖然の表情。

そんな表情に続いて、少し席を置いた麻生閣下の眉が、首を振ってダメ出しだ。
何とも情けなく体たらくの男が、今後、国家のかじ取りをするなら難破だろう。

一国の命運を担うような重要な投票で、居眠りする候補者など唾棄すべきです。
言い訳がましく、風邪気味で風邪薬を飲んだせいとか言っているが、即アウト。

重要なイベントに際して、その前に体調管理を万全にするのが、常識人の作法。
それから、こやつ、国会でしょっちゅう寝ていたのに、メディアは報じないの。

慶応高校ではゴルフ部だったそうで、練習に熱中して授業は居眠りばかりです。
本人がそう回顧しているのだから、授業の居眠りサボり癖が国会へ進化中だな。

だから、居眠りしてもおかしくはないので、首相としての器量が無いと太鼓判。
これまでの居眠り所業も、なぜかマスゴミは隠ぺいし過ぎで報道しない過保護。

ただ、今回はネットのアベマニュースが報道してくれたおかげで、拡散したの。
大事なときに寝れるのがすげぇわとか、情けない、こんな人間が総理だなんて。

こんな糞に指名投票した自民党は終了だと、ネットでも批判ばかりが目に付く。
しかも、決選投票は、無効票が84票も出て石破は221票と過半数に達しない。

議席数で過半数に達していないのだから、連立もできず、少数与党の悲哀だよ。
ところで、この石破という男は、選挙で敗北したなら辞任せよと主張した男だ。

      
でも、本人は解散選挙で惨敗しても、辞任しない理屈の整合性が採れませんな。
これぞ、政治の世界などで言われる「ブーメラン現象」であって、典型例です。

過去に相手にダメージを与えるつもりが、自分に跳ね返って自分にダメージだ。
それが、今回の解散選挙の敗北で辞任を見送るのであれば、グッドタイミング。

というわけで、弱い理目に祟り目、やることなすこと裏目の石破大魔王ですた。
もし、居眠りを悟られないように騙したいのであれば、寝てませんシールでも作成して、瞼の上に貼っておけば、瞬きにしなくて瞳孔が開きっぱなしと、ちょっと怖いところはありますが、件の石破もこうして対策すればよかったのにと思うのでした。




いいねと思ったら、三つポチっとね!
にほんブログ村 スキースノボーブログへにほんブログ村 スキースノボーブログ スキーへにほんブログ村 旅行ブログ 旅日記・旅の思い出へ
にほんブログ村    にほんブログ村      にほんブログ村