2つのVBAを組み合わせる方法
お世話になります、2つのVBAを組み合わせる方法で迷っています。
1つ目が
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, k As Long, myNum As Long
If Intersect(Target, Range("C1,B9:B39")) Is Nothing Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target
If .Column = 3 Then
myNum = WorksheetFunction.Max(Range("B9:B39"))
If IsDate(.Value) Then
For i = 9 To 39
If Cells(i, "A").Value = "" Then
Cells(i, "B").Value = ""
Else
Cells(i, "B") = myNum + i - 8
End If
Next i
End If
Else
i = .Row
If .Value = "" Then
Range(Cells(i + 1, "B"), Cells(39, "B")).ClearContents
Else
For k = i + 1 To 39
If Cells(k, "A").Value = "" Then
Cells(k, "B").Value = ""
Else
Cells(k, "B") = Cells(k - 1, "B") + 1
End If
Next k
End If
End If
End With
Application.EnableEvents = True
End Sub
です。
2つめが
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Intersect(Target, Range("R8:R38")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row, 18), Cells(39, 18)).Value = Target.Value
Application.EnableEvents = True
End Sub
です。2つのPrivate Sub Worksheet_Change(ByVal Target As Range)イベントのVBAですが、どのようにして組み合わせれば良いのでしょうか?
補足
>命題Q:彼は以前より忙しくはない は Q:A>B と表現できますね 「忙しくはない」なので、Q:A>=Bだと、つまり「大なりイコール」だとお考えいただけないでしょうか。 >問題は P True or False Q …(*) と書き直しても良いのでしょうか? すみません。数学が分からないので「P True or False Q」の意味が分かりません。 >上記の”True or False”は「同値」と訳せばよいのでしょうか? 申し訳ないのですが、「同値」と訳してよいのかどうかが分からないのです。お怒りはごもっともなのですが、純粋に英語の立場から見るとこの問題文(True or Falseの3語)は非常に曖昧で、「同値かどうかを判断せよ」という意味にも取れますし、「(1)は(2)の十分条件か」という意味にもとれます。数学の御専門の立場から見るとこのような「True or Falseの3語だけ」の設問は、通常はこんな意味だよという常識のようなものがあるのかと思いお尋ねしました。 いずれにせよ問題が不十分な形式で出題されたことは確かなように思われます。 しかし、今は、問題の適否ではなく答の出し方が分からない点に議論は集中していますので、(1)仮に同値であるかどうかを尋ねている問題であるとしたら答はTrueかFalseか、(2)仮に、(1)は(2)の十分条件かどうかを尋ねているとしたら答はTrueかFalseか、についてお教えいただけないでしょうか。