Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9805 / 76734 ←次へ　｜　前へ→
【72486】Re:数値範囲のデータから数値がその範囲にあるか、もしくは含むかを調べる方法
発言  UO3  - 12/8/15(水) 22:09 -
引用なし
パスワード
   ▼T.K さん：

眠いので、思考力が、最悪ですので間違っているかもしれませんが。
Sheet1がクラス内では『昇順』だとして。

Sub Sample()
　　Dim v As Variant
　　Dim i As Long
　　Dim f As Long
　　Dim t As Long
　　Dim myClass As String
　　Dim dic As Object
　　Dim w As Variant
　　Dim c As Range
　　Dim x As Long
　　
　　v = Sheets("Sheet1").Range("A1").CurrentRegion.Value
　　Set dic = CreateObject("Scripting.Dictionary")
　　
　　For i = LBound(v, 1) To UBound(v, 1)
　　　　myClass = v(i, 1)
　　　　If Not dic.exists(myClass) Then
　　　　　　dic(myClass) = Array(i, i)
　　　　End If
　　　　w = dic(myClass)
　　　　w(1) = i
　　　　dic(myClass) = w
　　Next
　　
　　With Sheets("Sheet2")
　　　　For Each c In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
　　　　　　x = 0
　　　　　　myClass = c.Value
　　　　　　f = c.Offset(, 1).Value
　　　　　　t = c.Offset(, 2).Value
　　　　　　For i = dic(myClass)(0) To dic(myClass)(1)
　　　　　　　　If (f >= v(i, 2) And f < v(i, 3)) Or _
　　　　　　　　　 (f <= v(i, 2) And t >= v(i, 3)) Or _
　　　　　　　　　 (f >= v(i, 2) And t <= v(i, 3)) Or _
　　　　　　　　　 (t > v(i, 2) And t <= v(i, 3)) Then
　　　　　　　　　 x = i
　　　　　　　　　 Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　If x > 0 Then
　　　　　　　　c.Offset(, 3).Value = v(x, 4)
　　　　　　Else
　　　　　　　　c.Offset(, 3).Value = "ハズレ"
　　　　　　End If
　　　　Next
　　End With
　　
End Sub
1 hits
▼ 【72485】数値範囲のデータから数値がその範囲にあるか、もしくは含むかを調べる方法 T.K 12/8/15(水) 20:24 質問
【72486】Re:数値範囲のデータから数値がその範囲に... UO3 12/8/15(水) 22:09 発言≪
【72489】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/15(水) 22:38 発言
【72491】Re:数値範囲のデータから数値がその範囲に... UO3 12/8/15(水) 22:48 発言
【72492】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/16(木) 0:37 発言
【72493】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/16(木) 0:51 発言
【72494】Re:数値範囲のデータから数値がその範囲に... UO3 12/8/16(木) 8:16 発言
【72495】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/16(木) 9:03 発言
【72500】Re:数値範囲のデータから数値がその範囲に... UO3 12/8/16(木) 12:54 発言
【72505】Re:数値範囲のデータから数値がその範囲に... UO3 12/8/17(金) 21:25 発言
【72596】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/27(月) 21:46 質問
【72598】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/27(月) 23:55 発言
【72602】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/28(火) 9:51 質問
【72603】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 10:07 発言
【72605】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 10:12 発言
【72606】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/28(火) 10:38 発言
【72607】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 11:27 お礼
【72608】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 11:56 お礼
【72630】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 19:29 発言
【72631】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 19:43 発言
【72612】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 15:49 質問
【72613】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/28(火) 18:37 質問
【72628】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 18:53 発言
【72629】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 19:12 発言
【72632】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 20:17 発言
【72634】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 21:35 発言
【72635】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/29(水) 21:40 発言
【72657】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/31(金) 15:49 発言
【72659】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/31(金) 16:25 発言
【72660】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/31(金) 17:30 質問
【72664】Re:数値範囲のデータから数値がその範囲に... kanabun 12/8/31(金) 19:35 発言
【72666】Re:数値範囲のデータから数値がその範囲に... T.K 12/8/31(金) 19:45 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9805 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free