休日の関数を動かしたい
こちらで 質問して 平日の関数 を追加したおかげで、とても助かっています。
そこで、休日の関数を使いたいのですが、そんな関数はあるのでしょうか
N7に1が入ると A7が 8/12になる
N8に1が入ると A8が 8/12になる
にしたいのですが、
どんな関数を下記にに追加すればいいのでしょうか？
ちなみに アドインには 分析ツールと分析ツール VBA 両方共チェックがあります。
シートには、下記のコードが入っています。
ご存知のかた教えていただければ助かります。
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("N:N"))
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
For Each h In Application.Intersect(Target, Range("B:B"))
If StrConv(h, vbNarrow) = "-" Then
Cells(h.Row, "A").ClearContents
End If
Next
End Sub
お礼
丁寧に教えて下さってありがとうございます！