|
なるほど、Formula1をsplitするのですね。気づきませんでした。
確かに、この方法ならいけそうです。
BOTTA さんありがとうございます。
>あらやんさん、INAさん、こんにちは。
>Split関数で入力規則設定部分のリストを配列に格納する。
>という方法は使えませんか?
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim MyAry As Variant
>MyAry = Split(Range("A2:A5").Validation.Formula1, ",")
> If Target.Address = Range("A1").Address Then
> Select Case Target.Value
> Case "全部A"
> Range("A2:A5").Value = MyAry(0)
> Case "全部B"
> Range("A2:A5").Value = MyAry(1)
> Case "全部C"
> Range("A2:A5").Value = MyAry(2)
> End Select
> End If
>End Sub
|
|