|
▼shige さん:
両方ない場合は、And 一方でもない場合は、Orで判断されたらいかがでしょう。
>MsgBoxを表示する条件として
>B列とJ列にデータがない場合
>データがありませんと表示させたいのですが
>修正方法おしえてください。
>
> Cancel = True
> Set R = Intersect(Range("AG8:AG107"), Target.Cells(1))
> If R Is Nothing Then Exit Sub
> With R
> Select Case .Value
> Case ""
If Target.Offset(, -31).Value = "" And Target.Offset(, -23).Value = "" Then
MsgBox "B列とJ列にデータがありません"
Else
> Target.Value = "★"
> rc = MsgBox(Target.Offset(, -31) & "の " & Target.Offset(, -23).Value & "は、精算します。 ", vbYes, Title:="精算は・・・")
End If
> Case Else
> Target.Value = ""
> End Select
> End With
>End Sub
|
|