IE SELECTタグの選択 .SelectedIndex=nで選択

メルマガ発行内容

＜IE SELECTタグの選択 .SelectedIndex=nで選択＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
SELECT タグを探ってみます。

今回の、サンプルファイルは、
http://www.ken3.org/vba/lzh/vba154.lzh
にvba154.xls(Excel2000版)が保存されています。
※自分でテストページを作ったりして、遊んでみてください。

関連項目、
VBAでInternetExplorer.Applicationを操作する(IE操作)
http://www.ken3.org/cgi-bin/group/vba_ie.asp
もヨロシクね。

/*
 * １．今回のキッカケ
*/

VBA系の掲示板
http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi
で、SELECTタグOPTIONの選択でJavaScriptが起動しない、
そんな問題にぶちあたりました。
もらった質問に対して、いつものように、違う方向に進んでいるんだけど。

今回、
実は、読者からの質問で、
自分だけが得してしまった情報/気が付いたプロパティを書いてみます。
^^^^^^^^^^^^^^^^^^^^^^^^
下記がもらった質問です。
----
<FORM name=form1 onsubmit="mai('s');return false;">
<TBODY>
<TR>
<TD><B>場名</B><BR>
<DIV align=right><SELECT onchange=Rdp(); name=JYO>
 <OPTION value=0 selected>選択項目　</OPTION></SELECT></DIV></TD></TR>
<TR>
<TD><B>レース</B><BR>
<DIV align=right><SELECT onchange=Hdp(); name=Race>
 <OPTION value=0 selected>選択項目　</OPTION></SELECT></DIV></TD></TR>
<TR>
あるサイトの一部ぬきだしました。
ここで、おそわったのを、まねして
WB1.Document.form1.jyo.selectedIndex = 1
WB1.Document.form1.jyo.Options(1).selected = "selected"
WB1.Document.form1.jyo.Options(1).selected = True
と、やると、コンボに選択された文字がでました。成功！と
おもいきや、つぎのレースの選択項目が、からっぽです。
ためしに、マウスでクリックすると、選択項目が、
ふくまれます。ｄｏｃｕｍｅｎｔも、かわるようです。

どうやら、ｏｎｃｈａｎｇｅが、おきてないためらしい。
これについて、いろいろ、しらべたけど、わかりません。
疑問１：ｒｄｐ（）という関数は、どこにあるんでしょうか。
　　　　　このｈｔｍｌの、最後に、なにか、
　　　　　ｓｃｒｉｐｔが、あるのですが、（よめない）
　　　　　どうも、それではないみたいです。
疑問２：　ｏｎｃｈａｎｇｅを、ｖｂから、起こしてやることは
　　　　　できないでしょうか。
----

/*
 * ２．またまた、脱線昔話、いつになったら本題が完成するの？
*/

http://www.ken3.org/vba/test110.html
の
入力フォーム
<SELECT name="ken"> と 項目名はkenにして６球団を選択
   <option value="1">阪神</option>
   <option value="2">中日</option>
   <option value="3">ヤクルト</option>
   <option value="4">巨人</option>
   <option value="5">広島</option>
   <option value="6">横浜</option>
</SELECT><br>
<SELECT name="kansou"> と 項目名はkansouにして３〜０を選択
   <option value="3">IE最高</option>
   <option value="2">ＭＳは日本語技術情報ハヤク作れ</option>
   <option value="1">イヤもっと英語力付けろ</option>
   <option value="0">メルマガふざけないで・・・まじめに書け</option>
</SELECT>
に対して、SELECT OPTIONを選択する時、
私は、下記のような感じで選択してました。

No.110 IE SELECTタグ OPTIONを選択する.Document.all(n).Selected=True
/vba/backno/vba110.html
で、やった方法は、

いま、どのＳＥＬＥＣＴタグを通過したかを覚えて、
下記のように処理しました。

Sub ie_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    
    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/vba/test110.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '項目名を探して、データをセットする
     Dim i As Integer
     Dim strSTAG As String  '最近のSELECTタグの名前を保存

     '全ての項目を調べる
     For i = 0 To objIE.Document.all.Length - 1
        'インプットのタグか？.tagnameを見る
        Debug.Print i & ":" & objIE.Document.all(i).tagname
        If objIE.Document.all(i).tagname = "SELECT" Then
            strSTAG = objIE.Document.all(i).Name 'SELECT名前を代入
        End If
        
        If objIE.Document.all(i).tagname = "OPTION" Then
            'さらに、値が２と保存したSELECTがKenかチェックする
            If objIE.Document.all(i).Value = "2" And strSTAG = "ken" Then
                'ここまで調べて、チェックを付ける
                objIE.Document.all(i).Selected = True
            End If
            'さらに、値が１と保存したSELECTがkansouかチェックする
            If objIE.Document.all(i).Value = "1" And strSTAG = "kansou" Then
                'ここまで調べて、チェックを付ける
                objIE.Document.all(i).Selected = True
            End If
        End If
     Next i

End Sub

ポイントは、
~~~~~~~~~~~~
.tagname = "SELECT"の時、
strSTAG = objIE.Document.all(i).Name 'SELECT名前を代入
と、名前を保存します。
OPTIONよりも先にSELECTタグが現れるHTMLの仕様を利用してます。
※OPTIONだけはありえないので。

で、あとは、保存されたstrSTAGと値を比べて、
必要なデータを選択してます。

/*
 * ３．.SelectedIndexを使ってみた
*/

と、やって済ませてたけど、
今回の読者の質問見ると、あれ？これなんだ？って反応したのが、

>WB1.Document.form1.jyo.selectedIndex = 1
>WB1.Document.form1.jyo.Options(1).selected = "selected"
>WB1.Document.form1.jyo.Options(1).selected = True

の、
.selectedIndex = 1
^^^^^^^^^^^^^^^^^^
これって、SELECTタグの選択位置じゃないの？
私は、OPTIONタグを一生懸命探して、
objIE.Document.all(i).Selected = True
なんてやってたけど、
.SelectedIndexなんてのが使えるなら、
~~~~~~~~~~~~~~
上から０番目、上から３番目とか指定した選択が出来そうですね。

上からｎ番目なので、valueの値とは、連動しないことに注意してくださいね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
<SELECT name="ken"> と 項目名はkenにして６球団を選択
   <option value="1">阪神</option>
   <option value="2">中日</option>
   <option value="3">ヤクルト</option>
   <option value="4">巨人</option>
   <option value="5">広島</option>
   <option value="6">横浜</option>
</SELECT><br>
<SELECT name="kansou"> と 項目名はkansouにして３〜０を選択
   <option value="3">IE最高</option>
   <option value="2">ＭＳは日本語技術情報ハヤク作れ</option>
   <option value="1">イヤもっと英語力付けろ</option>
   <option value="0">メルマガふざけないで・・・まじめに書け</option>
</SELECT>

テストで、
Ken3が好きなヨハコマベイスターズ
と
某掲示板で言われた最新情報ほしかったら英語のドキュメント読め
を選択するために、
SELECTタグの.SelectedIndexに値をセットしてみます。

objIE.Document.all.Ken.SelectedIndex = 5
objIE.Document.all.kansou.SelectedIndex = 2
と、上から（0から数えたインデックス）でデータを選択してます。

下記が、ソースファイルです。
option valueと連動していない（残念）なことも含めて確認してみてください。

Sub ie_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")

    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ
    objIE.Navigate "http://www.ken3.org/vba/test110.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     'SELECTタグに付いた名前(Name)がKen上から６番目(5)をテストでセット
     '.SelectedIndexに5をセット(012345で6番目となる)
     objIE.Document.all.Ken.SelectedIndex = 5
     
     'kansouの上から３番目(2)をテストで選択する.SelectedIndexに2をセット
     objIE.Document.all.kansou.SelectedIndex = 2

     '０からインデックスが始まるのがポイントです↑

End Sub

こんな方法もあるんですね・・・・逆に勉強になってしまった。

______________________________
---- 余談 試験問題のお話 ----
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
なんか、読者の質問に、別の回答が隠されて居たりしたので、
中学生の頃、英語の試験で、英単語が解らなかった時に、
別の和訳の問題に解答が書いてあった、
そんなかなり前のことをなぜか思い出してしまった。

現在の質問に過去問題の回答が隠されている。なんか面白いよね。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
現在の恋人とのケンカで、昔の恋人との簡単なもう一つの和解方法に気が付いたり？
※↑チョット違うかな。
  えっ、過去には戻れないので、今後にその経験を活かせば良いって？
　みなさん前向きなんですねメモメモ。過去はあまり引きずらないほうがいいよね！！

おっと、昔の問題解決方法は置いといて、現在の問題を処理しないとね。

-【けんぞう！】---------------------------------------------------------
ASPが利用可能なレンタルサーバーをお探しのアナタ、
http://www.ken3.org/asp/server.html ← けんぞうも使っているサーバーの紹介
『おっIISでbasp21でメール送信、mdbも使えるよ』（三流ＰＧ：31歳）
------------------------------------------------------------------------　

/*
 * ４．終わりの挨拶
*/

今回は、
またまた、読者質問の本線をほっといて、
勝手に脱線して、
.SelectedIndexを使ってみた話でした。
^^^^^^^^^^^^^^

だから、ハヤク、.SelectedIndexでJavaScriptが起動しない問題をヤレよ！！

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？の負け組のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

In message "[VBAで楽しく No.141] - 箇条書きで必要部品を洗い出し単体テストする",
 >日光が斜めから射すので、まっすぐに伸びない？
 >^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 >植物の成長って、日光に向かって伸びるんですよね。
 >太陽の光がナナメからだったら、ナナメに伸びる・・・
 >（上司や先輩の育て方や光具合が、新人の成長に影響を与えるのも事実です・・・）
---
って、話じゃないですが、私の変なサンプル見て、ナナメに育たないように、、、、
※最初に教えたループで回してより、
　今回の.SelectedIndexにセット方法がよかったみたいに、
　教わったことだけじゃなく、さらに調べてくださいね。　

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック