- 730 名前：デフォルトの名無しさん [2010/03/20(土) 12:05:08 ]
- >>727
いくつか試したんですが例えば↓こんな感じです。
Dim objIE As Object
Dim objITEM As Object
Dim nNO As Integer
Dim strRADIO(0 To 5) As String
strRADIO(0) = "1"
strRADIO(1) = "2"
strRADIO(2) = "3"
strRADIO(3) = "4"
strRADIO(4) = "5"
strRADIO(5) = "6"
nNO1 = 1
On Error Resume Next
For Each objITEM In objIE.Document.all
If objITEM.TAGName = "INPUT" Then
If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then
objITEM.Checked = True
End If
End If
Next
