|
masa さん、こんばんわ。
ほかの部分は見ていませんが、オプションボタンの分岐だけ。
>Private Sub textbox1_Change()
>
> Worksheets("sheet1").Select 'シートを選択する
>
> Dim oriVal As String
> Dim tmpVal As String
> Dim i As Integer
>
> oriVal = TextBox1.Text
>
> For i = 1 To Range("A65536").End(xlUp).Row
> tmpVal = Range("A" & i).Value
> If oriVal = tmpVal Then
> TextBox2.Value = Range("A" & i).Offset(0, 1).Value
> End If
> Next i
>
> Worksheets("sheet2").Select 'シートを選択する
>
If OptionButton1.Value = True Then koku
If OptionButton2.Value = True Then kou
If OptionButton3.Value = True Then siri
>End sub
>-----------------------------------------
>Sub koku()
略
>End Sub
>-----------------------------------------------------------------
>Sub kou()
略
>End Sub
>--------------------------------------------------------------
>Sub siri()
略
>End Sub
これでいかがですか?
|
|