[[20210302111331]]　『マクロ特定のセルに0以外の数字が入力されたらビ』（くまさかとらえもん）　ページの最後に飛ぶ

『マクロ特定のセルに0以外の数字が入力されたらビープ音を鳴らしたい』（くまさかとらえもん）

エクセル初心者です

A列に数値が入っていて
確認のため、再度B列に同じ数値を入力します
C列に
IF=(B1="","",A1-B1)
↑以下同じ数式

B列に入力し、A-B=0以外だったときビープ音(警告音)を鳴らしたいです。音の種類は問いません。

このような場合どのようなマクロを書けばよろしいでしょうか？

当方マクロを最近使い始めたばかりなのでお手柔らかにおねがいします。

　　　A列　　 B列 C列

 1　　 32　　  32      0 （IF=(B1="","",A1-B1)）
 2  　 25  　  10     15 （IF=(B2="","",A2-B2)）←ビープ音

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

 >ビープ音(警告音)を鳴らしたいです。

 会社の使用でしたら止めた方が良いです。
 やかましいのは嫌がられる原因。
 会社だと、みなさん音がならないようにしてませんかね？
 システム異常音の消し方が解らないので、それはそれで別な話。
 条件付き書式で、値が同じなら色を付けるとかが安全では。
 空白かどうかの判別も必要。 
（BJ） 2021/03/02(火) 12:26

返信ありがとうございます。
職場での使用ですが、
普段からセルの読み上げ確認を行っているので、
音が出ることは問題ありません。

画面を見ずに手元だけを見て入力するので、
色ではなく音が出るようにし、
音が鳴ったらその都度確認訂正したいと思っています。

例えば
入力ミスがあった場合、
D列に特定の文字列（"チェック"など）が表示され、
その際にビープを鳴らすことであればできるでしょうか？
（くまさかとらえもん） 2021/03/02(火) 14:03

どうしても都度確認・訂正が必要でなければ、
BJさんのおっしゃる通り条件付き書式で色付けしておき、
データ入力終了後に視覚的に確認する方が良いと思いますけど。
一応C列が0以外なら音が鳴ると思います。

 Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iCol As Long: iCol = Target.Column
   Dim iRow As Long: iRow = Target.Row
   If iCol = 2 Then
     If Cells(iRow, iCol).Offset(0, 1).Value <> 0 Then Beep
   End If
 End Sub

入力ミスについては、どのような事象を持ってミスとするのか判断しかねます。
（からあげ） 2021/03/07(日) 09:04

コメント返信：

[ 一覧(最新更新順) ]

[[20210302111331]] 『マクロ 特定のセルに0以外の数字が入力されたらビ』（くまさかとらえもん） ページの最後に飛ぶ

[[20210302111331]]　『マクロ特定のセルに0以外の数字が入力されたらビ』（くまさかとらえもん）　ページの最後に飛ぶ