指定した日付のシフト表を自動で作成する方法ですが、下記の方法を教えていただきました。 Sub シフト表作成() Dim org As Integer Dim dst As Integer Dim i As Integer Worksheets("週シフト表").Activate Range("C4:I4").Find(What:=Worksheets("日別").Range("C3").Value, _ LookAt:=xlWhole).Select Range(ActiveCell.Offset(2), ActiveCell.Offset(6)) _ .Copy Destination:=Worksheets("日別").Range("C6") Worksheets("日別").Activate For i = 6 To 10 If Range("C" & i).Value <> "休み" Then org = Application.WorksheetFunction.VLookup( _ Worksheets("日別").Range("C" & i), _ Worksheets("シフトマスタ").Range("B4:D6"), 2, False) dst = Application.WorksheetFunction.VLookup( _ Worksheets("日別").Range("C" & i), _ Worksheets("シフトマスタ").Range("B4:D6"), 3, False) Range(Cells(i, org - 5), Cells(i, dst - 5)).Interior.Color = vbBlue End If Next End Sub 日別のシートにシフトを作成しており、週シフトシートに、個々の日別の勤務（早番、遅番等）が記載されており、シフトマスタシートに各勤務の開始時刻を終了時刻が記載されています。 今は以下のような日別シートがあり、勤務に合わせてＤ列～Ｐ列間で色がつくようになっています。 _____Ａ_______Ｂ________Ｃ_______Ｄ_______Ｅ_______Ｆ ・・・・ Ｐ ５_________氏名_____シフト___9時____10時____11時 ・・・・ 21時 ６_________1さん_____早 ７_________2さん_____遅 ８_________3さん_____休 ９_________4さん_____遅 １０_______5さん_____遅 これを、１時間単位ではなく、３０分単位（Ｅ列が９時３０分、Ｆ列が１０時、Ｇ列が１０時３０分・・・）にすると色の付く範囲がずれてしまいます。 コードをどのように変えれば良いかわからず困っております。 お手隙の方、いらっしゃいましたら何卒ご教授の程、お願い致します。
↧