|
エクセルでsheet1,sheet2で
sheet1には
a b c
1 31101 あああ
2 31102 いいい
3 31103 ううう
4 31104 えええ
5 31105 おおお
6
7
sheet2には
a b c d e f
1 101 かかか 101 さささ 101 たたた
2 102 ききき 102 ししし 102 ちちち
3 103 くくく 103 すすす 103 つつつ
4 104 けけけ 104 せせせ 104 ててて
5
6
UserForm1においてテキストボックスを6個、フレーム内にオプションボタンを3つ作りました。
テキストボックス1に入植した数値をsheet1より探しテキストボックス2に表示する。
フレームないのボタンをボタン1、ボタン2、ボタン3としたとき、ボタン1を選択したときにはテキストボックス3より数値を入力し、ボタン1を選択していればa列から検索、ボタン2を選択していればc列から検索、ボタン3を選択したときにはe列から検索しそれをテキストボックス4に返したいと思います。
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 = 1 Then Goto koku
If OptionButton2 = 1 Then Goto kou
If OptionButton3 = 1 Then Goto siri
End sub
-----------------------------------------
Sub koku()
Dim koku1 As String
Dim koku2 As String
Dim k As Integer
koku1 = TextBox3.Text
For k = 1 To Range("A65536").End(xlUp).Row
koku2 = Range("A" & k).Value
If koku1 = koku2 Then
TextBox4.Value = Range("A" & k).Offset(0, 1).Value
End If
Next k
End Sub
-----------------------------------------------------------------
Sub kou()
Dim kou1 As String
Dim kou2 As String
Dim u As Integer
koku1 = TextBox3.Text
For u = 1 To Range("C65536").End(xlUp).Row
kou2 = Range("C" & u).Value
If kou1 = kou2 Then
TextBox4.Value = Range("C" & u).Offset(0, 1).Value
End If
Next u
End Sub
--------------------------------------------------------------
Sub siri()
Dim siri1 As String
Dim siri2 As String
Dim s As Integer
siri1 = TextBox3.Text
For s = 1 To Range("E65536").End(xlUp).Row
koku2 = Range("E" & s).Value
If siri1 = siri2 Then
TextBox4.Value = Range("E" & s).Offset(0, 1).Value
End If
Next s
End Sub
のように作ってみたもののOptionButtonにおいての操作が良く分かりません。また
If OptionButton1 = 1 Then Goto koku のところでエラーが起きます。どうすれば良いのか教えてもらいたいのですが。
|
|