[[20200716084453]]　『ドロップダウンリストを全シートに一括設定したい』（りお）　ページの最後に飛ぶ

『ドロップダウンリストを全シートに一括設定したい』（りお）

こんにちは。マクロ初心者です。
あるブックのシート全部に一括でドロップリストを設定したいのですが、
よい方法はないでしょうか？
シートは現在３０くらいなのですが、今後増える可能性も多々あるので、
1つひとつ設定していくよりも、一括で設定できますと、非常に助かります。

設定したい列は、AH列とAL列になります。

どなたかご教授願います。

＜使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

 Alt+↓

 ではだめですか？
（OK） 2020/07/16(木) 09:17

テーブルにすると、行追加で入力規制や数式を引き継げますけど、
利用できませんか。
（tkit） 2020/07/16(木) 09:26

こんにちは。ご返信ありがとうございます。
毎日行う業務で、１万件くらいのデータを条件にしたがってシートで分割して配信します。
現在、マクロを使用して各条件で抽出したうえで、シートに転載することまで、色々と助力をいただきながら
できたのですが、分割すると、元シートに設定していた書式が取れてしまい困っておりました。

現在試験的に行う予定ですので30シートくらいですが、今後300シートくらいまで増える可能性もあるので、
できれば簡易的に全シートのドロップリストの設定が行えればと考えておりました。
※各シートで抽出条件が違いますので、各シートの最終行はバラバラですし、日時で拾う情報も変わるので、
　毎日行数は変動します

やはり現状ひと手間行わないと難しいのでしょうか…。
検索しながら方法を模索しているのですが、さっぱり思いつかず。

みなさまの知恵をお借りできればと思います。宜しくお願いいたします。
（りお） 2020/07/16(木) 09:47

ドロップリストとは？
入力規則のこと？
フォームコントロールのコンボボックスのこと？
Activexコントロールのコンボボックスのこと？

（mm） 2020/07/16(木) 10:06

こんにちは。
紛らわしかったようですみません…。

入力規則のリスト設定になります！
（りお） 2020/07/16(木) 10:13

Sub main()

    'Sheet1のAH,AL列の入力規則をSheet2にコピーする例
    Dim c As Range
    On Error Resume Next
    For Each c In Sheets("Sheet1").Range("AH:AH").SpecialCells(xlCellTypeAllValidation)
        c.Copy Sheets("Sheet2").Range(c.Address)
    Next c
    For Each c In Sheets("Sheet1").Range("AL:AL").SpecialCells(xlCellTypeAllValidation)
        c.Copy Sheets("Sheet2").Range(c.Address)
    Next c
End Sub
（mm） 2020/07/16(木) 10:36

mmさんありがとうございます。
全シートに反映する＆Ａ列の入力のある最終行までの反映にしたいので
（＊シートが多いので固まりそうだったので）、
いただいたコードを元に自分でもにらめっこしてみようと思います。

（りお） 2020/07/16(木) 11:29

コメント返信：

[ 一覧(最新更新順) ]

[[20200716084453]] 『ドロップダウンリストを全シートに一括設定したい』（りお） ページの最後に飛ぶ

[[20200716084453]]　『ドロップダウンリストを全シートに一括設定したい』（りお）　ページの最後に飛ぶ