| |
お世話になります．
過去ログを検索しましたが，該当するものが見つけられませんでした．
見つけ方が不十分でしたら，申し訳ないです．
エクセルの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キーを押していけば問題ないんですが，セル数が膨大なため，
出来ればワンクリックで通常のクリア状態にさせたいのですが，
どのような方法がありますでしょうか？
教えてください．
|
|
たけ
- 09/3/31(火) 22:13 -
