Excel VBA質問箱 IV

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

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


30942 / 76732 ←次へ | 前へ→

【51050】Re:期間が重複していないか確認する方法
発言  ichinose  - 07/8/26(日) 22:18 -

引用なし
パスワード
   ▼ssc さん:
こんばんは。
>一様自分なりに修正してみました。
>結果もいい感じなのですが
>間違いないでしょうかチョット自信がありません

>'============================================================
>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 
>    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
'           A列が塗りつぶされないでしょ? 良いのですか?
'           A列も塗りつぶすなら考えてください
>          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

1 hits

【50935】期間が重複していないか確認する方法 やました 07/8/22(水) 21:00 質問
【50937】Re:期間が重複していないか確認する方法 neptune 07/8/22(水) 21:28 発言
【50943】Re:期間が重複していないか確認する方法 やました 07/8/22(水) 23:36 お礼
【50944】Re:期間が重複していないか確認する方法 ssc 07/8/23(木) 0:23 発言
【50946】Re:期間が重複していないか確認する方法 じゅんじゅん 07/8/23(木) 6:51 発言
【50947】Re:期間が重複していないか確認する方法 ichinose 07/8/23(木) 7:47 発言
【50950】Re:期間が重複していないか確認する方法 訂... ichinose 07/8/23(木) 9:33 発言
【50951】Re:期間が重複していないか確認する方法 じゅんじゅん 07/8/23(木) 9:37 発言
【50953】Re:期間が重複していないか確認する方法 neptune 07/8/23(木) 9:54 回答
【50957】Re:期間が重複していないか確認する方法 じゅんじゅん 07/8/23(木) 10:40 発言
【50955】Re:期間が重複していないか確認する方法 Lindy 07/8/23(木) 10:24 発言
【50962】Re:期間が重複していないか確認する方法 ssc 07/8/23(木) 14:22 質問
【50963】すみませんでした。 Jaka 07/8/23(木) 15:04 発言
【51008】Re:期間が重複していないか確認する方法 ssc 07/8/24(金) 17:50 質問
【51012】Re:期間が重複していないか確認する方法 ichinose 07/8/25(土) 7:31 発言
【51013】Re:期間が重複していないか確認する方法 ssc 07/8/25(土) 12:37 質問
【51014】Re:期間が重複していないか確認する方法 ichinose 07/8/25(土) 14:45 発言
【51016】Re:期間が重複していないか確認する方法 ssc 07/8/25(土) 16:23 発言
【51017】Re:期間が重複していないか確認する方法 ssc 07/8/25(土) 16:38 お礼
【51025】Re:期間が重複していないか確認する方法 ssc 07/8/26(日) 0:10 質問
【51026】Re:期間が重複していないか確認する方法 ichinose 07/8/26(日) 0:19 発言
【51027】Re:期間が重複していないか確認する方法 ssc 07/8/26(日) 0:34 質問
【51028】Re:期間が重複していないか確認する方法 ichinose 07/8/26(日) 0:45 発言
【51030】Re:期間が重複していないか確認する方法 ssc 07/8/26(日) 1:55 質問
【51050】Re:期間が重複していないか確認する方法 ichinose 07/8/26(日) 22:18 発言
【51052】Re:期間が重複していないか確認する方法 ssc 07/8/26(日) 22:54 質問
【51053】Re:期間が重複していないか確認する方法 ssc 07/8/26(日) 23:15 質問
【51054】Re:期間が重複していないか確認する方法 ichinose 07/8/27(月) 8:04 発言
【51059】Re:期間が重複していないか確認する方法 ssc 07/8/27(月) 9:45 お礼

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