|
Jaka さん、こんにちは。
ありがとうございます。
>>マクロでの入力はワークシートチェンジイベントは無効なのでしょうか。
>そんなことは無いです。by2002SP3
実際にJakaさんのコードをコピペして試しました。
いけました!
ですが、手元のものは、なぜかリストが作成されません。
Worksheet_Changeイベントは私が作成したものではないのですが、
Jakaさんのコード例を変えてみると以下のような形です。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
TEST
End If
End Sub
'**同ブック内にある別の標準モジュールで**
Sub TEST()
If Range("A1").Value = "あ" Then
With Range("A2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3,4,5"
.ErrorMessage = "正しい値をいれてください"
.IMEMode = xlIMEModeAlpha
End With
End If
End Sub
いろいろ記述を変えてみたりしたのですが、さっぱり分かりません。
すみませんが、何が問題なのか教えてください。
よろしくお願いします。
|
|