Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12617 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9676】Worksheet_ChangeイベントとDELキー 初心者 03/12/12(金) 14:10 質問
【9677】Re:Worksheet_ChangeイベントとDELキー INA 03/12/12(金) 14:24 回答
【9680】Re:Worksheet_ChangeイベントとDELキー 初心者 03/12/12(金) 14:29 お礼
【9676】Worksheet_ChangeイベントとDELキー
質問  初心者  - 03/12/12(金) 14:10 -
引用なし
パスワード
   はじめまして。

あるセルが空白だったら左隣のセルの値が入るように以下のような
コードをかいたのですが、

------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　If IsEmpty(Target.Value) = True Then
　　　　Target.Value = Target.Offset(0, -1).Value
　　End If

End Sub
------------------------------------------------------------
DELキーでデータを消されたときはSelectionChangeイベントが発生しない
ため、上記コードが働かず、困っています。
DEL（やBackSpace）キーで消されたときでも大丈夫なようにしたいのですが
何かいい方法はないでしょうか？
【9677】Re:Worksheet_ChangeイベントとDELキー
回答  INA  - 03/12/12(金) 14:24 -
引用なし
パスワード
   Changeイベントになってないけど？

>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
【9680】Re:Worksheet_ChangeイベントとDELキー
お礼  初心者  - 03/12/12(金) 14:29 -
引用なし
パスワード
   ▼INA さん：
>Changeイベントになってないけど？
すばやいフォローありがとうございます。
おっしゃるとおりです。

>
>>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
↑ではなくて
Private Sub Worksheet_Change(ByVal Target As Range)
ですよね。失礼しました。

投稿直後に気付いてすぐ削除しようとしたら、既にフォローされていて
ちょっとびっくり。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12617 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free