| |
▼裕香 さん：
こんばんは。
>現在伝票入力フォームを作成中ですが、あるキーワードで蓄積データから検索し
>各セルにVLOOKUP関数を使って表示させます。表示させるセルには入力規則でリスト選択入力している箇所もあります。
>実際私のしたい事は、VLOOKUPで表示させた時、データが数字や文字ならそれを表示。
>もし、VLOOKUPで表示させたデータが「0」ゼロなら、入力規則のリスト選択が出来る様にしたいのです。
これは、シートのChangeイベントで↑このような動作になるようなコードを
記述しなければなりませんね！！
例
新規ブックのSheet1というシート（規定シート）のセルＧ１からＨ５に以下のような
表があるとします。
Ｇ Ｈ
１ 1 aaaaaa
２ 2 bbbbbb
３ 3 cccccc
４ 4 dddddd
５ 5 0
同じシートの
セルＡ１に
数字（1〜5）を入力すると、
対応したＨ列のデータをセルＢ１に表示します。
但し、上記のＧ１〜Ｇ５以外のデータがセルＡ１に入力された場合、
または、5を入力した場合の対応するＨ列のデータは、0のような場合は、
Ｈ１〜Ｈ４のリストでセルＢ１に入力規則を設定します。
まず、標準モジュールに
'==========================================================
Sub main()
With ActiveSheet
With .Range("g1:h5")
.FormulaArray = "={1,""aaaaaa"";2,""bbbbbb"";" & _
"3,""cccccc"";4,""dddddd"";5,0}"
.Value = .Value
End With
End With
End Sub
上記を実行して、当該シートのG1:H5に表を作成してください。
次に上記の表を作成したシートモジュールに
'============================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ans As Variant
Dim rng As Range
Set rng = Application.Intersect(Target, Range("a1"))
If Not rng Is Nothing Then
With rng.Offset(0, 1)
.Validation.Delete
.Select
End With
DoEvents
rng.Select
DoEvents
rng.Offset(0, 1).Activate
Application.EnableEvents = False
ans = Application.VLookup(Target.Value, Range("g1:h4"), 2, False)
If IsError(ans) Then ans = 0
If ans <> 0 Then
rng.Offset(0, 1).Value = ans
Else
With rng.Offset(0, 1).Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$H$1:$H$4"
End With
End If
Application.EnableEvents = True
End If
End Sub
これで当該シートの
セルＡ１に1〜4を指定してください。
ＧＩ〜Ｈ１の表を検索し、該当する文字列がセルＢ１に表示されます。
セルＡ１に5、又は、Ｇ列にない文字を指定してください。
セルＢ1がリストH1:H4の入力規則が設定されます。
例題を試してみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
