[[20151125154624]]　『エクセルVBAによる勤務表作成について、ご質問がａx（io）　ページの最後に飛ぶ

『エクセルVBAによる勤務表作成について、ご質問があります。』（io）

現在、某警備会社に勤務しており、勤務表作成を担当するようになりました。
時間数の集計などは、関数により自動で反映させるようにしてあるのですが、
その他の、勤務指定などについては、すべて手入力で行っております。

この作業を、VBAにて簡素化できないだろうかと思い、ご質問させていただきます。

１班～４班あり、各班の人員は４名です。

勤務サイクルは、「２，２，１，１、明、０，０、休」という１サイクルを３回繰り返したあと、「日、日、日、日、日、日」の日勤サイクルを１サイクル指定するという勤務内容です。

年間勤務表を作成するのに、このサイクルを１月～１２月の各表に自動で挿入させることは可能なのでしょうか？

４月を入力後、５月の１日の勤務は、４月の月末の勤務内容を参照して入力するようにさせなければならないのですが、それも可能なのでしょうか？？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

こんにちは

「２，２，１，１、明、０，０、休」の「２」「１」「０」とかってどういう意味でしょうか？

新規シートを開いておいて実行してみて下さい。

Sub test()

    Dim i As Long
    Dim d As Date
    For i = 0 To 60
        d = DateAdd("d", i, DateValue("2015/4/1"))
        Cells(i + 1, 1) = d
        Cells(i + 1, 2) = 勤務(DateValue("2015/4/1"), d)
    Next
End Sub
Function 勤務(start As Date, t As Date) As Variant
    Dim i As Long
    Dim a As Variant
    a = Array("2", "2", "1", "1", "明", "0", "0", "休", _
                "2", "2", "1", "1", "明", "0", "0", "休", _
                "2", "2", "1", "1", "明", "0", "0", "休", _
                "日", "日", "日", "日", "日", "日")
    i = DateDiff("d", start, t) Mod 30
    勤務 = a(i)
End Function

2015/4/1から勤務パターンがスタートする場合にしてあります。

（ウッシ） 2015/11/25(水) 16:28

ウッシ様

返事が遅くなり申し訳ございません。

「２」は、朝8：00～21：00　　「1」は、夜21：00～朝8：00　　「0」は休日という意味みなります。

ウッシ様がご教授してくださいましたコードを実行させてみましたところ、自分のしたいことにだいぶ近づけました！ありがとうございます。

現状縦に配列されますが、横に配列させるにはどのように書き換えればよろしいのでしょうか？
また、毎月の勤務表は、１か月単位で表が分かれておりますので、１か月以上続けて入力させるのではなく、
１か月単位で、指定した表に入力させることは可能でしょうか？？

質問ばかりで申し訳ございません。

（io） 2015/12/10(木) 09:41

コメント返信：

[ 一覧(最新更新順) ]

[[20151125154624]] 『エクセルVBAによる勤務表作成について、ご質問がａx（io） ページの最後に飛ぶ

[[20151125154624]]　『エクセルVBAによる勤務表作成について、ご質問がａx（io）　ページの最後に飛ぶ