>>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