Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4248 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【57684】Delete押下によるセル内容削除を抑制したいのですが・・・ ぴょん吉 08/9/9(火) 14:07 質問[未読]
【57685】Re:Delete押下によるセル内容削除を抑制し... かみちゃん 08/9/9(火) 14:18 発言[未読]
【57694】Re:Delete押下によるセル内容削除を抑制し... ぴょん吉 08/9/9(火) 22:30 お礼[未読]
【57684】Delete押下によるセル内容削除を抑制した...
質問  ぴょん吉  - 08/9/9(火) 14:07 -
引用なし
パスワード
   Delete押下によるセル内容削除を抑制したいのですが、方法をご存知の方はご教示いただけませんでしょうか。
【57685】Re:Delete押下によるセル内容削除を抑制...
発言  かみちゃん  - 08/9/9(火) 14:18 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Delete押下によるセル内容削除を抑制したい

抑制したいということは、元の値に戻したいということでしょうか？

一応、以下のような感じのコードをシートモジュールに記述することでできます。

Private Sub Worksheet_Change(ByVal Target As Range)
　Application.EnableEvents = False
　If IsEmpty(Target.Value) Then Application.Undo
　Application.EnableEvents = True
End Sub

複数セルを一括Delキー押下には対応していません。
【57694】Re:Delete押下によるセル内容削除を抑制...
お礼  ぴょん吉  - 08/9/9(火) 22:30 -
引用なし
パスワード
   かみちゃん さん
早速のご回答ありがとうございました。
ご教示いただいた方法とは若干異なることになりそうですが、Worksheetのイベントハンドラを用いた実装をして、お客様に提案することになりました。
繰り返しになりますが、素早いご回答、本当にありがとうございました。

>こんにちは。かみちゃん　です。
>
>>Delete押下によるセル内容削除を抑制したい
>
>抑制したいということは、元の値に戻したいということでしょうか？
>
>一応、以下のような感じのコードをシートモジュールに記述することでできます。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>　Application.EnableEvents = False
>　If IsEmpty(Target.Value) Then Application.Undo
>　Application.EnableEvents = True
>End Sub
>
>複数セルを一括Delキー押下には対応していません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4248 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free