Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51851 / 76732 ←次へ | 前へ→

【29736】フレームについてお聞きしたいのですが
質問  masa  - 05/10/12(水) 20:46 -

引用なし
パスワード
   エクセルで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 のところでエラーが起きます。どうすれば良いのか教えてもらいたいのですが。
1 hits

【29736】フレームについてお聞きしたいのですが masa 05/10/12(水) 20:46 質問
【29737】Re:フレームのOptionButtonの値によりマク... かみちゃん 05/10/12(水) 20:57 回答
【29738】Re:フレームのOptionButtonの値によりマク... masa 05/10/12(水) 21:11 お礼
【29742】Re:フレームについてお聞きしたいのですが Hirofumi 05/10/12(水) 21:56 回答
【29756】Re:フレームについてお聞きしたいのですが masa 05/10/13(木) 7:28 お礼
【29744】Re:フレームについてお聞きしたいのですが りん 05/10/12(水) 22:02 発言

51851 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free