2017-02-07 14 views
0

私は1時間オンラインで見てきましたが、私にとってうまくいった解決策を見つけることができません。 私は、別の範囲に基づいてその範囲内の各セルにデータ検証を適用したいセルの範囲を持っています。私はFor Eachループが必要かどうか、またはリスト全体にバリデーションを一度に割り当てることができるかどうかはわかりません。これまで私がこれまで持っていたことは次のとおりです。VBAプログラムによるデータ検証の追加

With Range(rngMonthStart, rngMonthEnd) 
    With .Validation 
     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:= ("='Settings'!" & totalrange.Address) 
    End With 
End With 

.Add行に到達すると、アプリケーション定義エラーが発生します。どんな助けにも大変感謝しています

+0

'私は両方の方法を試し式 – BruceWayne

+0

@BruceWayne、同じエラーを囲む'()を削除してください:以前のデータの検証とtotalrange削除/ – SanomaJean

+0

1列のみである必要またはhttp行かもしれない:/を/stackoverflow.com/questions/22956604/how-to-add-data-validation-to-a-cell-using-vba – Slai

答えて

4

あなたは検証を上書きしているようです。すでに存在する場合は、上書きすると実行時エラーが発生します。試す:

With .Validation 
    .Delete 
    .Add ... 
+1

Ahhhh完璧です。私は削除しませんでした。ありがとうございました。 – SanomaJean

関連する問題