三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

XXXXXさんへ 未解決 あとで調べる ◆質問「VBAのIE操作でリスト選択時にFireEventが効かない」

下記の質問をいただくが、解決しなかった。再度 あとで見てみる・・・


◆質問「VBAIE操作でリスト選択時にFireEventが効かない」

VBAコーディング

For Each Obj In ObjIE.Document.getElementsByTagName("OPTION")
If Obj.Value = "Black Gunmetal" Then
Obj.Selected = True
Obj.FireEvent ("OnChange")
Exit For
End If
Next



上記質問に対して、の 回答が

イベントが発生しないパターンで、似ているのが
三流君VBA:IE ラジオボタン(RADIO)の.Checkedと.Clickの違い
http://www.ken3.org/vba/backno/vba148.html
で、
.Click で イベント発生ですが、
三流君VBA:IE SELECT後 .fireEventでJavaScriptのイベントを起動
http://www.ken3.org/vba/backno/vba155.html
みたいに
現在使用中の .fireEvent で 発生でも動作すると思いますが・・・
スバリの回答になっていなくスミマセン。

For Each Obj In ObjIE.Document.getElementsByTagName("OPTION") 
    If Obj.Value = "Black Gunmetal" Then
        Msgbox "クリック?してみる"

        Obj.Selected = True
        'Obj.FireEvent ("OnChange")
         Obj.Click  'クリックしてみる
         Msgbox "ループからでる"

        Exit For
    End If
Next

何かの参考となれば幸いです。 三流プログラマー Ken3


と返信するが、動作しなかったみたい。
あとで、見てみる。

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)