Excel VBA質問箱 IV

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

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


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

30961 / 76732

←次へ　｜　前へ→


	【51030】Re:期間が重複していないか確認する方法

ssc - 07/8/26(日) 1:55 -


	引用なし

	パスワード

▼ichinose さん：
ありがとうございます。
一様自分なりに修正してみました。
結果もいい感じなのですが
間違いないでしょうかチョット自信がありません
確認宜しくお願いします。
'============================================================
Option Explicit
'============================================================
Sub main()
　　Dim rng As Range
　　Dim g0 As Long
　　Dim g1 As Long
　　Dim c_array As Variant
　　Dim st1 As Long, ed1 As Long
　　Dim ret As Boolean
　　
　　Set rng = Range("A3", Cells(Rows.Count, 6).End(xlUp))
　　rng.Interior.ColorIndex = xlNone
　　
'Cells.Interior.ColorIndex = xlNone★項目行色設定のため上記コードに変更
　　Set rng = Range("b3", Cells(Rows.Count, 2).End(xlUp))
　　If rng.Row > 1 Then
　　　 init_ovl_chk_tbl
　　　 For g0 = 1 To rng.Count
　　　　　c_array = get_ovl_chk_tbl(rng(g0, 1).Value)
　　　　　If TypeName(c_array) = "Boolean" Then
　　　　　　 Call add_ovl_chk_tbl(rng(g0, 1).Value, CLng(rng(g0, 3).Value), _
　　　　　　　　　　　　　　　　　CLng(rng(g0, 4).Value), rng(g0, 5).Value, _
　　　　　　　　　　　　　　　　　rng(g0, 6).Value)
　　　　　Else
　　　　　　 st1 = CLng(rng(g0, 3).Value)
　　　　　　 ed1 = CLng(rng(g0, 4).Value)
　　　　　　 ret = True
　　　　　　 For g1 = LBound(c_array) To UBound(c_array) Step 4
　　　　　　　　 If chk_ovl(st1, ed1, c_array(g1), c_array(g1 + 1)) Then
　　　　　　　　　　rng(g0).Resize(, 6).Interior.ColorIndex = 35
　　　　　　　　　　If rng(g0, 5).Value = c_array(g1 + 2) And _
　　　　　　　　　　　 rng(g0, 6).Value = c_array(g1 + 3) Then
　　　　　　　　　　　 rng(g0).Resize(, 6).Interior.ColorIndex = 6
　　　　　　　　　　　 End If
　　　　　　　　　　ret = False
　　　　　　　　　　Exit For
　　　　　　　　　　End If
　　　　　　　　 Next g1
　　　　　　 If ret = True Then
　　　　　　　　Call add_ovl_chk_tbl(rng(g0, 1).Value, st1, ed1, _
　　　　　　　　　　　　　　　　　　 rng(g0, 5).Value, rng(g0, 6).Value)
　　　　　　　　End If
　　　　　　 End If
　　　　　Next g0
　　　 term_ovl_chk_tbl
　　　 End If
　　
End Sub

0 hits

▼

【50935】期間が重複していないか確認する方法 やました 07/8/22(水) 21:00