Excel VBA質問箱 IV

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

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


183 / 74462 ←次へ | 前へ→

【79922】Re:シート内にセル参照があるか調べる方法
発言  マナ  - 18/5/23(水) 22:25 -

引用なし
パスワード
   ▼ペーターパン さん:

試してみてください

ht tp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim セル As Range
  Dim 参照セル As Range
  
  Application.EnableEvents = False
  For Each セル In Target
    If セル.HasFormula Then
      Set 参照セル = Nothing
      On Error Resume Next
      Set 参照セル = セル.DirectPrecedents
      On Error Resume Next
      If Not 参照セル Is Nothing Then
        MsgBox "その入力は禁止されています"
        Application.Undo
        Exit For
      End If
    End If
  Next
  Application.EnableEvents = True
  
End Sub

58 hits

【79885】シート内にセル参照があるか調べる方法 ペーターパン 18/5/18(金) 14:20 質問[未読]
【79886】Re:シート内にセル参照があるか調べる方法 マナ 18/5/18(金) 18:57 発言[未読]
【79887】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/18(金) 19:06 質問[未読]
【79888】Re:シート内にセル参照があるか調べる方法 マナ 18/5/18(金) 19:49 発言[未読]
【79901】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/21(月) 12:24 質問[未読]
【79914】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 19:12 発言[未読]
【79915】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/23(水) 19:42 質問[未読]
【79916】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 20:09 発言[未読]
【79917】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/23(水) 21:15 質問[未読]
【79918】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 22:03 発言[未読]
【79919】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/23(水) 22:06 質問[未読]
【79920】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 22:18 発言[未読]
【79921】Re:シート内にセル参照があるか調べる方法 ペーターパン 18/5/23(水) 22:20 質問[未読]
【79922】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 22:25 発言[未読]
【79923】Re:シート内にセル参照があるか調べる方法 マナ 18/5/23(水) 23:06 発言[未読]

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