平日の場合も 動作したい

質問

OKWAVEで質問してある程度出来が上がってきましたが、まだ解決できないところがあり、
ご指導下さい、

M列に０以上の数字が入力されたらA列の日付を変えたい

B列の　毎日は　＋１日後
B列の　毎週は　＋７日後

つまり

M1に０以上なら　5／5が表示できるようにしたい(＋１日後)
M6に０以上なら　5／13が表示できるようにしたい(＋７日後)

それが下記の計算式です。

-------------------------------------
エクセルのシート名タブを右クリックしてコードの表示－現れたシートに下記をコピー貼り付けています
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h As Range
Dim c As Long
On Error Resume Next

For Each h In Application.Intersect(Target, Range("M:M"))
If h > 0 Then
If Cells(h.Row, "B") = "毎日" Then
c = 1
ElseIf Cells(h.Row, "B") = "毎週" Then
c = 7
Else
c = 0
End If
Cells(h.Row, "A") = Cells(h.Row, "A") + c
End If
Next
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

＜質問1＞
C列を使う事で　A7の平日　は可能でしょうか？
平日とは　月～金までをいい、M7に１が入ったら　A7は　5/7 と表示したいです

回答No.1

keithin · ベストアンサー

＞平日

平日を力技で計算しても出来ますが、てっとり早くエクセル画面からアドインで「分析ツール」「分析ツール－ＶＢＡ」のチェックを入れてWORKDAY関数で計算させてみます。
土日のほか、祝祭日一覧を別途どこかのシート上に用意して、除外することもできます。

作成例：
private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("M:M"))
　if h > 0 then
　　select case cells(h.row, "B")
　　case "毎日"
　　　cells(h.row, "A") = cells(h.row, "A") + 1
　　case "平日"
　　　cells(h.row, "A") = application.run("ATPVBAEN.XLA!WorkDay", cells(h.row, "A"), 1)
　　case "毎週"
　　　cells(h.row, "A") = cells(h.row, "A") + 7
　　case "隔週"
　　　cells(h.row, "A") = cells(h.row, "A") + 14
　　case "毎月"
　　　cells(h.row, "A") = dateadd("M", 1, cells(h.row, "A"))
　　case "隔月"
　　　cells(h.row, "A") = dateadd("M", 2, cells(h.row, "A"))
　　end select
　end if
　next
end sub

お礼

ありがとうございます。WORKDAY関数という概念を初めて知りました

早速試しに使ってみます・