[[20210909132246]]　『特定のセルの数値がある数値以上になれば音を鳴ら』（しろくろえすた）　ページの最後に飛ぶ

『特定のセルの数値がある数値以上になれば音を鳴らす。』（しろくろえすた）

題名の通り、コードを作りましたが、上手くいきません。

セル”E1”の値は毎秒常に変化しており、その値が10000以上の時だけ音を鳴らしたいです。以下のコードだと、10000以上の数値が継続した場合でも、１５秒に一回しか音が鳴りません。10000を超えたときは常に音を鳴らしたいのです。（せめて5秒に一回にしたい）

Private Sub Worksheet_Change(ByVal Target As Range)

        If Cells(1, 5).Value >= 10000 Then
         ActiveSheet.OLEObjects(1).Verb
        End If

End Sub

以上、どなたかご教授いただければ幸いです。よろしくお願いいたします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

2つ実験してみてください

1つは

 ActiveSheet.OLEObjects(1).Verb

を

 Debug.Print Now()

に変更しイミディエイトウィンドウを確認すること

もう一つは

 Sub BeepTest()
  Dim i As long
  For i = 0 to 10
   Beep
  Next
 End Sub

これを作動させて音が出るか、また、何回音が出るかを確認してください

（めざめるパワー） 2021/09/09(木) 15:15

めざめるパワー様
前者の方法を試したところ、２８～３０秒おきに処理されていることが分かりました。
後者の方法では音が鳴りませんでした。音自体は

ActiveSheet.OLEObjects(1).Verb

の方法で出せています。

心当たりがあるのは、標準モジュールで、
Sub tesr()
Application.OnTime Now + TimeValue("00:00:30"), "tesr"
Cells(1, 4).Value = Cells(1, 3).Value
End Sub
この処理を行っています。
また、
cells(1,5)=cells(1,3)/cells(1,4)＊10000となっています。

内容としては、セル(1,3)は変化する数値
　　　　　　　セル(1,4)はセル(1,3)の30秒前の値
　　　　　　　セル(1,5)はセル(1,3)/セル(1,4)＊10000
　　　　　　　セル(1,5)が10000以上で音を鳴らす。
という、セルの数値の変化を音で知らせるマクロを作りたいです。

（しろくろえすた） 2021/09/09(木) 17:35

コメント返信：

[ 一覧(最新更新順) ]

[[20210909132246]] 『特定のセルの数値がある数値以上になれば音を鳴ら』（しろくろえすた） ページの最後に飛ぶ

[[20210909132246]]　『特定のセルの数値がある数値以上になれば音を鳴ら』（しろくろえすた）　ページの最後に飛ぶ