2024年11月21日木曜日

日本人は無礼者しかいないと、諸外国の人々から思われてしまうのが、非常に危惧してしまう事態発生 ー 石破首相マナー(政治談議)

           
まあ、おにぎりの食べ方が汚すぎること、カバでももうちょっと綺麗に食うな。
それに、一度噛んだら口を開けて人に見せないのが、マナーの一丁目一番地だ。

あまり、食べ方に文句言うのは好きではないのですが、想像の十倍汚らしいな。
いい年して、箸もお椀の持ち方もダメで、ご飯の食べ方も汚いままとは驚いた。

それで、駄目押しとも言えるのが「迎え舌」と言って、マナーとしては最悪だ。
そもそも、食事のマナーは親が教えると思いますが、教わっていないのだろう。

これで、高校から大学まで慶応という石破さんですが、作法ではすでにKO負け。
大人になるまで迎え舌を直せなかったのは、親のしつけが悪かったのでしょう。

 ・行儀が悪い人だと思われる
 ・下品に見える
 ・育ちが悪いと見られる
 ・ガキっぽく見られる
 ・醜い表情に見える

全部、石破さんに当てはまるのではないか、こんなとっちゃん坊やは御免です。
加えて、他のマナーにしても、日本国トップとして恥さらし状態になりました。

ついこの間、ペルーの首都リマで開催されたAPEC会議の行状が、下人レベル。
会議に出席中、腕組みしたまま発言を聞くのは、反対とか敵対を意味するのだ。

しかも、休憩中なのか、立たないで挨拶するのも横着で駄目で、国内でも同じ。
マレーシアのアンワル首相、カナだのトルドー首相とも立つ気配すら見せない。

                                                                                                    
          
中国の南シナ海領有を阻止すべく、アセアン各国の連携は非常に重要なのです。
そして、G7の参加国でもあるカナダの首相に対するマナーは、非礼そのもの。

記念の集合写真には、遅刻して撮影に参加できず、それはラッキーなことだな。
失礼な首相だから、APEC会議に参加していた証拠を一つでも消せたのは快哉。

まあ、これから諸外国王室主催の晩餐会や、皇室主催の晩餐会に臨席するのだ。
世界に向けてしてはならないテーブルマナーのお見本を披露なさるのでしょう。

というわけで、服の着方もダメダメやし、アカンすぎると思うのが小生の意見。
一方、マスゴミや県議会に嵌められて失職しながら出直し選挙で再選を果たした斎藤兵庫県知事さんですが、かれの深々と頭を下げるマナーといい、釈明もせずに淡々と対応してきた姿を見ていると、どちらが真の政治家なのかと、マナーだけからも判断してしまう自分なのでした。



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



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



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