|
▼ponpon さん:
ありがとうございます。
>両方ない場合は、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
ここをOrにした場合
たとえばB列にデータがありません
またはJ列にデータがありません
と分けられるのでしょうか?
出来るのであれば別々に表示できれば更にgoodなんですが
よろしくお願いします。
= "" 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
|
|