ワークシートにフォームコントロール（ボタン等）を複数配置する方法で実験してみた ー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

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

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

だらしないやつ

       

しかし、国会における首班指名選挙で、立候補した本人が白河夜船の居眠りだ。

主役の場でも堂々と居眠る石破を、隣席の林が「え？寝てる！」と唖然の表情。

そんな表情に続いて、少し席を置いた麻生閣下の眉が、首を振ってダメ出しだ。

何とも情けなく体たらくの男が、今後、国家のかじ取りをするなら難破だろう。

一国の命運を担うような重要な投票で、居眠りする候補者など唾棄すべきです。

言い訳がましく、風邪気味で風邪薬を飲んだせいとか言っているが、即アウト。

重要なイベントに際して、その前に体調管理を万全にするのが、常識人の作法。

それから、こやつ、国会でしょっちゅう寝ていたのに、メディアは報じないの。

慶応高校ではゴルフ部だったそうで、練習に熱中して授業は居眠りばかりです。

本人がそう回顧しているのだから、授業の居眠りサボり癖が国会へ進化中だな。

だから、居眠りしてもおかしくはないので、首相としての器量が無いと太鼓判。

これまでの居眠り所業も、なぜかマスゴミは隠ぺいし過ぎで報道しない過保護。

ただ、今回はネットのアベマニュースが報道してくれたおかげで、拡散したの。

大事なときに寝れるのがすげぇわとか、情けない、こんな人間が総理だなんて。

こんな糞に指名投票した自民党は終了だと、ネットでも批判ばかりが目に付く。

しかも、決選投票は、無効票が８４票も出て石破は221票と過半数に達しない。

議席数で過半数に達していないのだから、連立もできず、少数与党の悲哀だよ。

ところで、この石破という男は、選挙で敗北したなら辞任せよと主張した男だ。

　　　　　　

でも、本人は解散選挙で惨敗しても、辞任しない理屈の整合性が採れませんな。

これぞ、政治の世界などで言われる「ブーメラン現象」であって、典型例です。

過去に相手にダメージを与えるつもりが、自分に跳ね返って自分にダメージだ。

それが、今回の解散選挙の敗北で辞任を見送るのであれば、グッドタイミング。

というわけで、弱い理目に祟り目、やることなすこと裏目の石破大魔王ですた。

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

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

明け方、ベランダでがさごと音がしていて、最初は野鳥だと思っていたのが、ネズミの仕業と思わなかったぜ ー 殺鼠剤・粘着シート（ガーデニング）

　　　　　　

ベランダガーデニングで、ネズミ食害が鎮まることなく、ブチ切れそうなんだ。

最初は、ヒルガオ科のサツマイモ苗、アサガオとネズミにとっての好物でした。

それが、若芽はトトキと言って、山菜ではおいしいツリガネニンジンが全滅だ。

しかも、丸い葉の根生葉（こんせいよう）まで食べられて、残骸がかわいそう。

この根生葉は春先になると消失して、花を咲かせる茎葉は、春から成長します。

それでも、秋になって芽吹いた丸い葉が、丸ごと食い散らかされたのは手痛い。

まあ、人の好む山菜なのですから、ネズミ達にも美味な植物だと実感しました。

他には、ノースポールの新芽まで食べられてしまって、泣きたくなる気分です。

このノースポールは、葉っぱの形状が春菊にそっくりで、見分けがつかないな。

同じ属に分類される仲間ですが、地中海産の植物で日本に来たのは半世紀前だ。

なので、ネズミに食べられたのは、昔から春菊を食害していたということかな。

発芽して三週間以内の三株ほどが、ほぼ全滅近くになってしまって、悲憤慷慨。

こうなると、憎たらしいネズミを退治せねばならなくなって、殺鼠剤を投入だ。

ただ、上さんが罠を仕掛けた結果、ネズミの亡骸を見るのはかわいそうらしい。

どぎついピンク色

　　　　　　

なので、百均商品でネズミ除けの忌避剤を置いたのですが、全く効果が出ない。

逆に、置いても置いても蚕食されていくだけだったので、堪忍袋の緒も切れる。

なので、上さんには、ネズミ退治の殺鼠剤を使ってベランダに置くと宣言です。

一緒に、近所のドラッグストアまで出かけまして、買ってきたのが二種類の品。

一つは殺鼠剤で、もう一つは強力粘着テープで動けなくして捕まえる罠タイプ。

どちらもアース製薬製で、殺鼠剤はどぎつい色のピンクで誤食を防ぐ目的だな。

ネズミの通りそうな場所に置いて、じわり効いて死に至るという遅効性なんだ。

とにかく置いてみて効き目がなさそうだったら、次の策は強力粘着剤を使おう。

というわけで、依然、ベランダの床で、ネズミの糞をポツポツ見つけています。

ほかの植物だと、無毒でもネズミが興味を示さない鉢も多く、他方、ウマノスズクサなどは弱くとも有毒の植物があったり、他方、臭気が苦手で嫌うニラ、ネギなども栽培中で食害はないのですが、まずはネズ公殲滅作戦を粛々と実行するのみなのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

日米の選挙結果は、一喜一憂になりましたが、石破氏とトランプ氏では水に油でしょうなあ ー 米国大統領選（政治談議）

魔人ブウのコスプレ

　　　　　　

総理の座に上り詰めた石破首相は、党内野党の存在だっただけに黒歴史が多い。

かつて、米国で発行部数が最大のWSJ紙でインタビューされたことがあります。

その時の答えが、彼にとってはキリッとした歯切れがよいと自画自賛したはず。

トランプ大統領とゴルフをしたりトランプタワーに行ったりする必要はないと。

と、まあ、答えてしまったので、総理になって面会してもゴルフはできないな。

ご本人は、慶応高校のゴルフ部に所属していたそうでプレイはできるでしょう。

安倍さんは、トランプ大統領とゴルフは遊びでなく国益のためと発言しました。

一方、石破は表面的な判断だけで、相手の懐に飛び込むような気はないのです。

それで、大統領選で当選したトランプ氏と、電話会談をしたのはわずか五分間。

「非常にフレンドリーな感じがした。本音で話ができる方だ」と口にしたとか。

どうせ、通訳を介しての話だから、二言三言の儀礼的な挨拶にとどまったのだ。

それより、過去の発言が、ご本人へブーメラン減少でぐっさり刺さって来たな。

ひょっとしたら、日米首脳会議で新大統領のトランプは石破茂にこう言うかも。

”君か？　俺の親友のシンゾーが最も嫌っていたイシバと言う男は”とつい夢想。

加えて、このような発言をしたのですから、ゴルフ外交は放棄とみなしてよい。

ところで、トランプ氏が勝利したアメリカ大統領選の報道特番のＴＶ番組です。

この人こそ、大統領の資格

　　　　　

トランプ氏が、あっさり勝ちそうになって当選確実が出たら雰囲気はお通夜だ。

従来から、米民主党を依怙贔屓で報道してきたマスコミゆえ仕方ないかもなあ。

ハリス女史の惨敗で、日本のマスコミも発狂寸前になっていて、愉快爽快だな。

ハリス優位のコメントをしてきた言論人やジャーナリストはバイアスしまくり。

そろそろ、本格的に自分たちのバイアスを意識し検証しなおしたほうがいいよ。

たんに現実を見ていないのかもしれないが、愚かしいにもほどがあると思うの。

というわけで、”Too Big To Rig”の掛け声通り、トランプさんの圧勝だったのだ。

この言葉は、トランプ陣営が、”大きく勝てば、不正操作もできない”という意味で合言葉にしていたのですが、まさに大勝利を収める選挙戦略であっぱれと思ったのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村 

桑マンこと桑野信義さんの箸の持ち方以来の衝撃らしいが、その後、彼はちゃんと矯正して普通になりますた ー 石破総理と箸（政治談議）

確かに豪快だな

　　　　　

社会人になってから、正しくなかった箸の持ち方を、矯正したことがあります。

その時は、市販されている補助具なしで、努めて箸を持ち直すようにしました。

三か月くらいは経ちましたでしょうか、何となく、正しい持ち方に慣れました。

子供の頃、両親から箸の持ち方が悪いと注意されましたが強制的に直されない。

放任されたのですが、社会人になって気恥ずかしい思いをするのは、自分自身。

宴会などで、上司、同僚の箸の持ち方を見て、自分の作法が気恥ずかしくなる。

こうして、二十代前半で矯正したのですが、そのまま直さずにいる人がいます。

特にテレビなどで出演する芸能人がそうだったら、かなりドン引きする分けだ。

まあ、笑福亭鶴瓶は、食事をするシーンがあると箸の持ち方を、毎回詫びます。

NHKの”家族に乾杯”を視聴していると、あの年で、あの持ち方ではなあと思う。

それが、わが日本国を仕切る総理大臣が、そうだったら正にドン引きでしょう。

実は、そういう御仁が実在しておりまして、なんと現首相の石破総理なのです。

それで、国会の首班指名選挙が、特別国会での召集が間もなく迫っております。

そのような渦中の人ならば、その人となりの一挙手一投足に耳目が集まるもの。

石破氏ならば国民人気も高く、自民党の信頼を回復させてくれるかもしれない。

党員の期待から総裁選の石破勝利に結びつきましたが、ふたを開ければどうだ。

混乱での衆院解散、更に党非公認とされた候補の支部に二千万円振り込まれる。

などなど、国民を欺き裏切るような不祥事連続なのは、皆さんもご存じの通り。

そんな体たらくの石破総理ですから、身辺はどうなのだと探られても仕方ない。

そこで、本人のマナーに焦点が当たって、ユーチューブでお宝動画の探り出し。

ラーメン議連の一コマ

　　　　　

発端は、たかまつななが取材した蕎麦屋でのインタビューで、食い方が今一だ。

その時の箸の持ち方が、自分が親だったら矯正レベルだと、言われてしまった。

実際、作法としてはよろしくないし、他にもラーメン議連の食事風景でも同様。

確かに同氏の食事作法では、外交で日本代表として出ていくのは余りに恥です。

嫌いじゃなかった人も、箸とご飯茶碗の扱い方を見て幻滅、落胆しているほど。

こんな所で恥を晒して欲しくないと、弱り目に祟り目の石破さんは因果応報だ。

というわけで、石破首相がマナー違反を指摘されるのは、本人の身から出た錆。

選挙に負けても総理の椅子にしがみ続けようとする感じが否めなくて、それが無様にも思えてくるほど、これでは支持率アップも全く望めないと思う一方、早く辞任した方が身のためだよと助言したくもなる、自分なのでした。

いいねと思ったら、三つポチっとね！
  
にほんブログ村    にほんブログ村      にほんブログ村