Excel VBA質問箱 IV

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

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


74015 / 76738 ←次へ | 前へ→

【7194】Re:
質問  sibira  - 03/8/26(火) 11:40 -

引用なし
パスワード
   コンボボックスのリストを選んだら他のテキストボックス2・3・4・5にエクセルで作った表のデータが入力されると言った感じなのですが、うまくいきません。

Private Sub ComboBox1_Change()

    TextBox1.Text = ComboBox1.Value


  Set myrange = Range(Cells(2, 5), Cells(Range("E65536").End(xlUp).Row, 5))
           'データ範囲
  
  Dim myrange As Range
  
  For Each wRange In myrange
    If wRange.Value = Me.ComboBox1.Text Then
      Me.TextBox2.Value = wRange.Offset(, 1).Value
      'コードをテキストボックス2へ転送
    End If
    If wRange.Value = Me.ComboBox1.Value Then
      Me.TextBox3.Value = wRange.Offset(, -1).Value
      'コードをテキストボックス3へ転送
    End If
    If wRange.Value = Me.ComboBox1.Value Then
      Me.TextBox4.Value = wRange.Offset(, 2).Value
      'コードをテキストボックス4へ転送
    End If
    If wRange.Value = Me.ComboBox1.Value Then
      Me.TextBox5.Value = wRange.Offset(, -4).Value & _
      wRange.Offset(, -3).Value & wRange.Offset(, -2).Value
      'コードをテキストボックス5へ転送
    End If
  Next wRange

End Sub

0 hits

【7186】コンボボックス sibira 03/8/26(火) 9:30 質問
【7189】Re:コンボボックス つん 03/8/26(火) 10:19 回答
【7190】あ、違う! つん 03/8/26(火) 10:38 回答
【7193】Re:あ、違う! Jaka 03/8/26(火) 11:35 発言
【7194】Re: sibira 03/8/26(火) 11:40 質問
【7202】Re: つん 03/8/26(火) 13:37 発言
【7203】Re: sibira 03/8/26(火) 14:53 お礼
【7205】Re: Jaka 03/8/26(火) 15:39 発言

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