Excel VBA質問箱 IV

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

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


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

30940 / 76732

←次へ　｜　前へ→


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

ｓｓｃ - 07/8/26(日) 22:54 -


	引用なし

	パスワード

▼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))
>'　　　　　　　　　　　↑これは、実データは、3行目からなのですか？
>'　　　　　　　　　　　だとしたら・・・、
> 　　If rng.Row > 1 Then 'rng.Row>2　★okできました
>>　　　 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
>'　　　　　　　　　　　Ａ列が塗りつぶされないでしょ？　良いのですか？
　　　　　　　　　　　　★塗るつぶす方でrng(g0).Resize(-1, 6)としてみたので　　　　　　　　　　　　　すがうまくいきませんでした。修正箇所違いますか？
　　　　　　　　　　　　　よろしくお願いします。
>'　　　　　　　　　　　Ａ列も塗りつぶすなら考えてください
>>　　　　　　　　　　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

1 hits

▼

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