Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35269 / 76738

←次へ　｜　前へ→


	【46670】Re:データが存在しない場合MsgBoxに表示

shige - 07/2/12(月) 0:24 -


	引用なし

	パスワード

▼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

0 hits

▼

【46668】データが存在しない場合MsgBoxに表示 shige 07/2/11(日) 23:52