Excel VBA質問箱 IV

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

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


6212 / 13644 ツリー ←次へ | 前へ→

【46586】入力規制 (リスト) err 07/2/7(水) 15:34 質問[未読]
【46587】Re:入力規制 (リスト) Jaka 07/2/7(水) 15:45 発言[未読]

【46586】入力規制 (リスト)
質問  err  - 07/2/7(水) 15:34 -

引用なし
パスワード
   Excel メニューのデータ>データの入力規則>入力値の種類を「リスト」にして
「元の値」を設定する場合,同一Sheet内でないと,範囲指定できません。
同一Sheetでは都合が悪いので,
別sheetにリストを作成しておき(数行から数十行),そのリストの文字列を全て足して
VBAで変数Lpに代入しました。

Lp=",東京A,東京B,大阪A,大阪B,新潟A,・・・・・・・・・・・・・・・・・・・・・・" のように。

それを,最下行のようなコードを作成し処理しました。
しかし,Lpの文字数が少なければ問題なく動作するのですが
文字数が200文字を少し超えると,それ以降はリストとして表示されなくなります。
X=Len(Lp) では,Xは全て足された文字列数(770文字)となっており
Lpには代入されているようです。
全てのリストを表示するための解決方法を教えていただけませんか?

      With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Lp
      End With

【46587】Re:入力規制 (リスト)
発言  Jaka  - 07/2/7(水) 15:45 -

引用なし
パスワード
   ▼err さん:
> Excel メニューのデータ>データの入力規則>入力値の種類を「リスト」にして
>「元の値」を設定する場合,同一Sheet内でないと,範囲指定できません。
>同一Sheetでは都合が悪いので,
目安箱の
【100】入力規則、条件付書式で、別シートのデータを参照する 
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=100;id=FAQ
 ↑
上4文字全角

6212 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free