すぐマク  Home      この画面を閉じるには、×ボタンをクリック

-----------------------------------------------------------------------------------------
Private Sub 合成シートの年月日が指定範囲内のものを判別シートに記入する()
    Sheets("判別").Select                       '判別シートを
        Cells.Clear                             'すべてクリアする
    Sheets("合成").Select                       '合成シートを
        Range("A1:AG27").Copy                   'コピーして
    Sheets("判別").Select                       '判別シートに
        Range("A1").PasteSpecial Paste:=xlAll   'すべて貼り付ける
        Range("C2:AG27").ClearContents          'C2〜AG27セルの数式と値をクリアする
        For 行 = 2 To 26 Step 2                 '2行から26行まで2行間隔で
            For 列 = 3 To 33                    'C列からAG列まで
                年月日 = Sheets("合成").Cells(行, 列).Value '合成シートから年月日を取り出す
                If 年月日 >= 開始YMD And 年月日 <= 終了YMD Then '年月日が開始年月日と終了年月日以内なら
                    Range(Cells(行 + 1, 列), Cells(行 + 1, 列)).Value = 1 '判別シートに暦日フラグを記入
                    色 = Sheets("合成").Cells(行, 列).Interior.ColorIndex '合成シートから色を取り出す
                    If 色 <> -4142 Then         '色がなしなら
                        Range(Cells(行, 列), Cells(行, 列)).Value = 1 '判別シートに休日フラグを記入
                    End If
                End If
            Next                                '最終列まで繰り返す
        Next                                    '最終行まで繰り返す
        Range("A1").Select
End Sub
-----------------------------------------------------------------------------------------