VBAで作業の効率化をしたいです！

質問

うちの職場の勤務指定の一部分なんですが、日勤、中勤が出勤日で非番が休日です。（見辛くてすみません）
４日連続勤務（日勤または中勤）のセルにはそれぞれに赤色の下線を引いて
５日以上連続勤務（日勤または中勤）のセルにはそれぞれに赤色の下線の二重線を引きたいと思っています。

佐藤さんの場合だと４日から７日までか連続勤務してるのでE2からH2までのセルに赤色の下線を引きます。
田中さんの場合だと３日から７日まで連続勤務してるのでD3からH3までのセルに赤色の下線の二重線を引きます。
鈴木さんの場合はちょうど真ん中に非番（休日）がありますので４日連続勤務はないのでなにもなしです。

といった感じの作業をマクロで自動化するプログラムを教えて下さい！
本来ならある程度自分で作成してから投稿するべきなのでしょうが、自宅にプログラミングできる環境がないのと、職場では一から作成している時間が取れないので何卒よろしくお願いします。

ちなみに、100人近い社員がいるので手作業だとかなりの負担があり困っています。

回答No.2

kkkkkm · ベストアンサー

以下で試してみてください。

Sub Test()
Dim mRow As Long, mCol As Long
Dim mCount As Long

Application.ScreenUpdating = False
For mRow = 2 To Cells(Rows.Count, "A").End(xlUp).Row
mCount = 0
For mCol = Columns("B:B").Column To Columns("H:H").Column
If Cells(mRow, mCol).Value <> "非番" Then
mCount = mCount + 1
If mCount = 4 Then
With Cells(mRow, mCol - 3).Resize(1, 4).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = -16776961
End With
ElseIf mCount = 5 Then
With Cells(mRow, mCol - 4).Resize(1, 5).Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Color = -16776961
End With
End If
Else
mCount = 0
End If
Next
Next
Application.ScreenUpdating = True
End Sub

回答No.1

bardfish

Excelだと単純に面倒くさいのでVisual Studio とデータベースを使用して一つのシステムを作成します。

Excelのシートのように縦と横の両方に広がりがあるデータというのは【非常に】扱いづらい。だからデータベースのように１行が持つ項目が固定で行数が延々と続くようなデータ構造が扱いやすい。

と言うことで、データの持ち方から改めて考え直した方が結果的に効率のよいものがですあがると思います。

>といった感じの作業をマクロで自動化するプログラムを教えて下さい！
残念ながら、実際に動作するものを提供するためにはこちらも時間がありません。だから考え方だけを教える程度になってしまいます。
あとはご自分で知恵を絞ってください。

こういうのはアイデア次第でどうにでもなるんです。マクロを作らなくても表の作り方次第で１００人程度なら手間に感じないようにすることも不可能ではありません。

同期は同じでも取り組む姿勢が曖昧だったり場当たり的だと後で困ることになります。今回のようにね。
はじめから手間を考慮した設計で作り込まれていれば後が楽になります。

楽な方向にばかり進んでいると後で絶対後悔することになります。