« 【株】 2008/06/06(金) ±0 日経△148.32 | トップページ | 【Excel VBA備忘ログ】WebBrowserコントロールのプロパティが適用できない »

【Excel VBA備忘ログ】htmlのラジオボタン/オプションを選択する

value値を使用してのラジオボタンを選択する関数。
オプション選択にも応用可能。

Function select_radio(page As Object, sel As Variant, value As Variant)
    Dim objA As Object
    select_radio = False

    For Each objA In page.document.all.tags("input")
        If objA.tagName = "INPUT" Then  'まず、タグでINPUTか判断
'           Debug.Print "option name [" + objItem.Name + "]"
'           Debug.Print "option value[" + objItem.Value + "]"
            If objA.Name = sel And objA.value = value Then
                objA.Checked = True
                select_radio = True
                Exit Function
            End If
        End If
    Next
End Function

引数
 page・・htmlドキュメント
 sel・・対象ラジオボタン名
 value・・対象項目名
使用例
 Call select_radio(WebBrowser1, "option1", "3")
 Call select_radio(WebBrowser1.document.frames("middleframe"), "option2", "1")

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【株】 2008/06/06(金) ±0 日経△148.32 | トップページ | 【Excel VBA備忘ログ】WebBrowserコントロールのプロパティが適用できない »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/21465735

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】htmlのラジオボタン/オプションを選択する:

« 【株】 2008/06/06(金) ±0 日経△148.32 | トップページ | 【Excel VBA備忘ログ】WebBrowserコントロールのプロパティが適用できない »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ