こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセルの警告メッセージ表示について

エクセルのVBAについて皆様のお力を貸してください!

あるシートに以下のような複数入力項目があって、“割引”に該当するとカウントします。
A1 ・・・ 定価
A2 ・・・ 割引
A3 ・・・ 定価
   ・
   ・
   ・

D5に、カウントされた割引日数を合計算出。

D5の割引を182回まではOK。そのまま保存ができるものとします。
もし183回超えたら「警告!182回超えています!」というようなメッセージボックスを出して保存できないようにする。

というようなVBAを組み込みたいのですが、うまくいかなくて困っています。
ぜひとも教えていただけますでしょうか。

よろしくお願いいたします。

投稿日時 - 2018-02-02 12:19:16

QNo.9424794

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Option Explicit

'次行以下、Thisworkbookオブジェクトに記述

'//-------------------------------------------------------------------------
'// 閉じるときにチェック 該当したらメッセージを表示して抜ける
'//-------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 With ThisWorkbook
  'D5をチェック
  If .Sheets(1).Range("D5").Value > 182 Then
   MsgBox "警告!182回超えています!」"
   Cancel = True
   Exit Sub
  End If
 End With
End Sub

投稿日時 - 2018-02-02 17:20:59

隣に、IF(B1="値引",1,0)
さらに SUM(C$1:C1) でドラッグ

IF(D1>183,"182を超えてます","")

投稿日時 - 2018-02-02 15:45:01

あなたにオススメの質問