Excel VBA質問箱 IV

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

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


223 / 13621 ツリー ←次へ | 前へ→

【81324】エラーが表示されたらBeep音で知らせる pollock 20/6/4(木) 13:41 質問[未読]

【81333】Re:エラーが表示されたらBeep音で知らせる BJ 20/6/5(金) 10:29 発言[未読]
【81334】Re:エラーが表示されたらBeep音で知らせる BJ 20/6/5(金) 10:35 回答[未読]
【81335】すみません。誤字修正 BJ 20/6/5(金) 10:37 発言[未読]
【81341】Re:エラーが表示されたらBeep音で知らせる pollock 20/6/5(金) 14:14 お礼[未読]

【81333】Re:エラーが表示されたらBeep音で知らせる
発言  BJ  - 20/6/5(金) 10:29 -

引用なし
パスワード
   上記url先の
「外部リンクにより変更されたときに発生します。」
は、いまいち解りません。
私は、単純にセルの内容が書き換えられた時と思ってます。

【81334】Re:エラーが表示されたらBeep音で知らせる
回答  BJ  - 20/6/5(金) 10:35 -

引用なし
パスワード
  
難しい奴、クエリとか?
昔、日経PCに載ってた数式の実で時計表示ができるやつの部類?
私には、全然わかりませんでした。

【81335】すみません。誤字修正
発言  BJ  - 20/6/5(金) 10:37 -

引用なし
パスワード
   数式の実で
 ↓
数式だけで

【81341】Re:エラーが表示されたらBeep音で知らせる
お礼  pollock  - 20/6/5(金) 14:14 -

引用なし
パスワード
   BJ様

教えて頂いた情報を元に、試行錯誤をしていました。
お陰様で、以下のコードによって「エラーが表示されたらBeep音で知らせる」が叶いました。
プロシージャ名には名前以上の意味と機能が備わっていたのですね。とても勉強になりました。ありがとうございました。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r As Range, i As Integer
  If Not Intersect(Target, Range("AE17:AE116")) Is Nothing Then
    If Target.Offset(, -7).Value = "***" Then
    Beep
    End If
  End If
End Sub

223 / 13621 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free