|
▼夜勤担当 さん:
>こんばんは
> 入力規則の「リスト」機能を使いたくて、やってみました。
>同じシート内であれば、その「元の値」の取得ができますが、他のシートにある
>範囲内の値の取得方法はわからなくて、この掲示板に投稿しました。
>ご伝授ください。
>
>例、元の値はシートAにあるとします、
>シートBのA1セルに甲
> 乙
> 丙
>のよう、表示するようにしておいて、そのリストから該当値を選択したいです。
>
>シートA
> A B C
>1 甲
>2 乙
>3 丙
>
>
まず、シートAのA1からA3までのデータを変数に取り込み、
その変数をリストにしたらいかがでしょう。
Sub test()
Dim myData As String
Dim i As Long
With Sheets("SheetA")
For i = 1 To 3
myData = myData & "," & .Cells(i, 1).Value
Next
myData = Mid(myData, 2)
End With
With Sheets("SheetB").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=myData
End With
End Sub
|
|