Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2455 / 76734

←次へ　｜　前へ→


	【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

17 hits

▼

【79885】シート内にセル参照があるか調べる方法 ペーターパン 18/5/18(金) 14:20