Excel VBA質問箱 IV

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

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


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

21145 / 76732

←次へ　｜　前へ→


	【60990】選択範囲のクリアについて

たけ - 09/3/31(火) 22:13 -


	引用なし

	パスワード

お世話になります．
過去ログを検索しましたが，該当するものが見つけられませんでした．
見つけ方が不十分でしたら，申し訳ないです．

エクセルのVBAを使い，任意のセルに数字を入力すると，vlookupにて，
別シートで対応する文字に変換する方法を利用しています．

--------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err1
Application.EnableEvents = False

If Intersect(Target, Range("B2:AF6")) Is Nothing Then
Else
Target = WorksheetFunction.VLookup(Target, Worksheets("Sheet2").Range("A1:B8"), 2, False)
End If

Application.EnableEvents = True
Exit Sub
err1:
Application.EnableEvents = True
End Sub

--------------------------------------------

この場合，通常の入力には問題ありませんが，複数のセルを選択して，
一括でその内容をクリア（DEL）させると，セルが#N/A表記となって
しまいます．
1個1個丁寧にDELキーを押していけば問題ないんですが，セル数が膨大なため，
出来ればワンクリックで通常のクリア状態にさせたいのですが，
どのような方法がありますでしょうか？
教えてください．

0 hits

▼

【60990】選択範囲のクリアについて たけ 09/3/31(火) 22:13

≪