Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23814 / 76732

←次へ　｜　前へ→


	【58277】Re:入力規則にある「元の値」の取得方法

ponpon - 08/10/15(水) 23:21 -


	引用なし

	パスワード

▼夜勤担当さん：
>こんばんは
>　入力規則の「リスト」機能を使いたくて、やってみました。
>同じシート内であれば、その「元の値」の取得ができますが、他のシートにある
>範囲内の値の取得方法はわからなくて、この掲示板に投稿しました。
>ご伝授ください。
>
>例、元の値はシートＡにあるとします、
>シートＢのＡ１セルに甲
>　　　　　　　　　　乙
>　　　　　　　　　　丙
>のよう、表示するようにしておいて、そのリストから該当値を選択したいです。
>
>シートＡ
>　　Ａ　　　Ｂ　　　Ｃ
>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

0 hits

▼

【58275】入力規則にある「元の値」の取得方法 夜勤担当 08/10/15(水) 22:22