コマンドボタン押すと入力規則の指定した数字のマクロ

質問

お世話になります、マクロで質問があります。

セル「U９」には入力規則がリストとして入力されています。リストの元の値は「　　　,=DT9」と表示されドロップダウンリストに表示されるようになっています。

「U１０」には「　　　,=DT10」と、「U11」には「　　　,=DT11」・・・と順番に入力されておりU３９には「　,=DT39」U３９までセルに入力規則が適用されています。

そして「V9」には「　　　,=DV9」と、「V10」には「　　　,=DV10」・・・と順番に入力されており「V39」には「　　,=DV39」とV39までのセルに入力規則が適用されています。

そして「AD9」には「　　　,=DR9」と、「AD10」には「　　　,=DR10」・・・と順番に入力されており「AD39」には「　　,=DR39」とAD39までのセルに入力規則が適用されています。

そこで質問ですがコマンドボタンを押すと、U9～V39とAD９～AD３９までのセルの入力規則「=○○○○」の方を自動で選択されるマクロはどの様に組めば宜しいでしょうか？

回答No.2

keithin · ベストアンサー

＞U9～V39とAD９～AD３９までのセルの入力規則「=○○○○」の方を自動で選択されるマクロ

とくにムズカシク考える必要もありませんので，ご相談の通りにやってみます。

private sub CommandButton1_Click()
　dim h as range
　on error resume next
　for each h in range("U9:V39,AD9:AD39")
　　h.formula = split(h.validation.formula1, ",")(1)
　next
end sub

＃もっとも，ご相談で言ってる「コマンドボタン」が具体的にフォームなのかコントロールツールボックス/ActiveXコントロールなのかという方で，失敗するカモですけどね。

お礼

この度は素早い回答ありがとうございました、ちゃんと作動する事が出来ました。

回答No.1

WindFaller

こんにちは。

>U9～V39とAD９～AD３９までのセルの入力規則「=○○○○」の方を自動で選択されるマクロはどの様に組めば宜しいでしょうか？

意味がよく理解できないのですが、選択というよりも、表示するのでしたら、入力規則は関係なく、そのまま、代入すれば済むことだと思います。

コードにすれば、以下のようなことです。ただし、入力規則の数式に例外がないという前提です。例外があれば、入力規則から数式を取り出さなくてはなりません。

'//
　Dim i As Long
　Dim j As Long
　Dim SourceArray As Variant
　Dim DistArray As Variant
　'設定
　SourceArray = Array("U", "V", "AD")
　DistArray = Array("DT", "DV", "DR")

　For j = 0 To UBound(SourceArray)
　　For i = 9 To 39 '行番号
　　　　Cells(i, SourceArray(j)).Value = Cells(i, DistArray(j)).Value
　　Next i
　Next j
'//

コードは、例えば、当該シートの　Private Sub CommandButton1_Click()　～　End Subの間に入れます。

お礼

この度は回答ありがとうございました。この様な方法もあるんですね。勉強になりました。