Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49595 / 76732

←次へ　｜　前へ→


	【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
　　
　　'キーワード１（種類）から範囲指定
　　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
　　
　　'キーワード２（種別）から範囲指定
　　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
　　
　　'キーワード３（性別）から範囲指定
　　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

1 hits

▼

【31830】表から値を取得する方法 じゅん 05/11/30(水) 16:58