Excel VBA質問箱 IV

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

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


49599 / 76736 ←次へ | 前へ→

【32041】Re:表から値を取得する方法
回答  じゅん  - 05/12/5(月) 11:44 -

引用なし
パスワード
   じゅんです。
お世話になります。

前回、書かせていただきました、
>1.「種類」から選んでもらい、その行の初めと終わりを取得。
>2.「種別」を選んでもらい、その行の初めと終わりを取得。
>3.「性別」を選んでもらい、その行を取得。
>4.3.で取得した行から、「値」の値とアドレスを取得。
を基準にコードが完成しましたので、記載致します。
本当にそのままでして、また初心者丸出しのコードですが、
どうぞご勘弁下さい。

Private Sub Result_Click()
  Dim Key1   As String
  Dim Key2   As String
  Dim Key3   As String
  Dim Result  As String
  
  Dim StartRow  As Integer
  Dim EndRow   As Integer
  Dim i      As Integer
  
  'キーワードを取得
  Key1 = Range("G4").Text
  Key2 = Range("H4").Text
  Key3 = Range("I4").Text
  
  '表全体の開始行/終了行を取得
  Range("B3").CurrentRegion.Select
  StartRow = Selection.Item(1).Row
  EndRow = Selection.Item(Selection.Count).Row
  
  'キーワード1(種類)から範囲指定
  For i = StartRow To EndRow
    If Cells(i, "B").Text = Key1 Then
      Cells(i, "B").Select
      StartRow = Selection.Item(1).Row
      EndRow = Selection.Item(Selection.Count).Row
      Exit For
    End If
  Next i
  
  'キーワード2(種別)から範囲指定
  For i = StartRow To EndRow
    If Cells(i, "C").Text = Key2 Then
      Cells(i, "C").Select
      StartRow = Selection.Item(1).Row
      EndRow = Selection.Item(Selection.Count).Row
      Exit For
    End If
  Next i
  
  'キーワード3(性別)から範囲指定
  For i = StartRow To EndRow
    If Cells(i, "D").Text = Key3 Then
      Cells(i, "D").Select
      StartRow = Selection.Item(1).Row
      EndRow = Selection.Item(Selection.Count).Row
      Exit For
    End If
  Next i
  
  '値を取得
  Result = Cells(StartRow, "E").Text
  Range("G7").Value = Result
  
End Sub

0 hits

【31830】表から値を取得する方法 じゅん 05/11/30(水) 16:58 質問
【31833】Re:表から値を取得する方法 inoue 05/11/30(水) 18:10 回答
【31843】Re:表から値を取得する方法 Kein 05/11/30(水) 20:37 発言
【31844】Re:表から値を取得する方法 huyuitibann 05/11/30(水) 20:38 回答
【31913】Re:表から値を取得する方法 じゅん 05/12/2(金) 10:13 お礼
【32041】Re:表から値を取得する方法 じゅん 05/12/5(月) 11:44 回答

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