EXCEL VBAについての質問です。
初心者です。宜しくお願い致します。
使用環境はWindows 2000 service pack4
Excel 2000.
=質問=
セルA1~A10に数値を入力しセルB1はその合計だとします。
セルB1が0以下になったときに"メッセージ1"が表示するようにするには以下のプログラムで実行できます。
Private Sub Worksheet_Calculate()
If Range("B1") < 0 Then
メッセージ1 '起動するマクロ名
End If
セルA1~A10に数値を入力した際、すでにA3の入力でセルB1が0以下で、そのA4~A10に数値を順に入力してもセルB1はマイナスのままだったとします。
上記、プログラムではA4~A10を入力する都度メッセージ1が表示されてしまいます。
メッセージ1はセルB1がはじめてマイナスになったときだけ表示させるようにするにはどのように変更すればいいでしょうか?
ご教授の程宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
今回使用する myFlg は、モジュールレベルで宣言する必要があります。
宣言する場所はモジュールの最上部で、最初のプロシージャの上の部分です。(宣言セション)
変数については、こちらを参考に
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VB …
わざわざ画像まで添付していただき、誠にありがとうございます。
先頭行にフラグを立てることで繰り返し注記が表示されることは無くなりました。
以上、お礼申し上げます。
No.2
- 回答日時:
フラグを付けるだけで良いでしょう
Dim myFlg As Boolean
Private Sub Worksheet_Calculate()
If Range("B1").Value < 0 And myFlg = False Then
MsgBox "マイナスになりました。", 48
myFlg = True
End If
End Sub
Range("B1") ⇒ Range("B1").Value
Valueプロパティは付けるようにしましょう
この回答への補足
早速の回答ありがとうございます。
アドバイスに従って、新規ファイルにVBAを組み込んだところ、正常に機能しました。(条件が1度発生した時のみメッセージが表示される。)
しかし、実際に使用するファイルの中には他の条件やプログラムが記載されており、その中にアドバイス文を入れ込むと動作しません。(毎回、メッセージが表示される。)
Dim myFlg As BooleanをPrivate Sub Worksheet_Calculate()より上の行に記載しなければうまく動かないようですが、その場合、さらに上に記載しているPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
文に対しコンパイルエラーが発生してしまいます。
以下に実際に使用するためのプログラムの抜粋を記しました。
以下に修正すべきかご教授いただけると助かります。
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("$CC$26") = "A"
Else: Range("$CC$26") = ""
End If
End Sub
Private Sub CommandButton5_Click()
Sheets("F3").Select
End Sub
Private Sub CommandButton6_Click()
Sheets("F1").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Address = "$D$11:$E$11" Then
With UserForm1
.ListBox1.List = Array("A", "B", "C")
.Show (0)
End With
ElseIf .Address = "$D$13:$E$13" Then
With UserForm2
Select Case Range("$D$11")
Case "A"
.ListBox1.List = Array("あ, "い","
う", "え", "お")
Case "B"
If Range("$CH$48").Value = "1A" Then
.ListBox1.List = Array("か", "き")
ElseIf Range("$CH$48").Value ="3A" Then
.ListBox1.List = Array("く")
ElseIf Range("$CH$48").Value ="2AN" Then
.ListBox1.List = Array("け")
ElseIf Range("$CH$48").Value ="3AN" Then
.ListBox1.List = Array("こ")
End If
Case "C"
.ListBox1.List = Array("さ", "し","
す", "せ")
End Select
.Show (0)
End With
End If
End With
End Sub
(以下、アドバイスいただきた文)
Dim myFlg As Boolean
Private Sub Worksheet_Calculate()
If Range("CC6") < And myFlg = False Then
MsgBox "注意1のメッセージ", 48
myFlg = True
End If
If Range("CF33") >= 3 And myFlg = False Then
MsgBox "注意2のメッセージ", 48(←48の意味を教えていただければ幸いです。)
myFlg = True
End If
(以下はセルCF42が1になったときに4秒間だけ注意3のメッセージを表示するプログラムです。)
If Range("CF42").Value >= 1 Then
注意3
End If
End Sub
Sub 注意3()
Dim myShell As Object
Set myShell = CreateObject("Wscript.Shell")
myShell.PopUp "注意3のメッセージ"
Set myShell = Nothing
End Sub
以上、度重なる質問で恐縮ですが宜しくお願い致します。
No.1
- 回答日時:
こんにちは。
ご質問のような場合はセルの値をチェックするのとは別のアプローチで
グローバル変数をフラグとして使えば対処できると思います。
モジュール先頭に
Dim blnCheckData as Boolean
などにして
IF BlnCheckData = False Then
'マイナスチェック処理
BlnCheckData = True
End IF
上記でできるかと推測します。
はずしてたらすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
メッセージボックス 1度だけ表示したい
Excel(エクセル)
-
最初の1回のみにボタンクリックでマクロ実行する
Visual Basic(VBA)
-
excel VBA YESNO付きのメッセージボックスが2回出てしまいます。
Excel(エクセル)
-
-
4
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
9
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
VBAのタイマー
Excel(エクセル)
-
12
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
13
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
14
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
15
VBA 2回実行してしまう?
Windows 7
-
16
エクセルである数値を超えたら赤で表示じエラーメッセージの方法
Excel(エクセル)
-
17
Excelで,特定のシートを開いたときにメッセージボックスを表示するに
その他(Microsoft Office)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
20
マクロの連続実行
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで、貼り付け禁止命令を実現...
-
VBAのListBoxで複数選択して...
-
エクセルVBA(実行時エラー438...
-
データが入力されている隣のセ...
-
メッセージを1度だけ表示したい。
-
VBA セルに合わせて移動するが...
-
VBAについて教えてください
-
エクセルテキストボックスの文...
-
EXCEL VBA Rangeの指定方法につ...
-
VBAで丸をつけたいです。
-
EXCELマクロ 保護されているシ...
-
複数行選択のテキストボックス
-
あるExcelファイルのセルへの入...
-
エクセル: セルの枠を超えて表示
-
エクセルでの計算式で求められ...
-
エクセル:マクロ「Application...
-
EXCELで特定のセルに表示...
-
エクセルで隣接していない複数...
-
エクセルのアポストロフィを一...
-
エクセルで表示形式の時刻の「0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
エクセルテキストボックスの文...
-
ハイパーリンクされているファ...
-
EXCELマクロ 保護されているシ...
-
VBAで、貼り付け禁止命令を実現...
-
VBA セルに合わせて移動するが...
-
エクセルVBA(実行時エラー438...
-
メッセージを1度だけ表示したい。
-
Excelのセル内にある図形を削除...
-
ダブルクリックすると現在の時...
-
(VBA)アクティブセルを起点に...
-
Jtableの特定のセルの背景色や...
-
VBAで丸をつけたいです。
-
Excel VBA ダブルクリックで入...
-
Windowsで動くVBAがmacOSで動か...
-
セル色を5秒間隔で変える
-
Excel VBA セルを指定個数ラン...
-
エクセルのVBAでダブルクリック...
-
Swing 編集不可でも選択可能なJ...
-
マクロを使って画像を貼り付け
おすすめ情報