VBAでデータ検証リストを追加するときにプログラムで値をセルに入れる

Question

VBAに精通していますが、過去15分間の検索で何も見つかりませんでした。

私は

startCell.Offset(1, 2).Select 
With Selection.Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="=Categories" 
    .IgnoreBlank = True 
    .InCellDropdown = True   
End With 

通常の方法でデータ検証リストを追加しかし、値のルーチンが終了なしが選択されていない場合、したがって、セルが空白になっています。

データ検証を追加するときにセル値を設定する方法はありますか？つまり、デフォルト値がデータ検証リストの最初の項目ですか？

Answer 1

はこれを試してみてください：

With startCell.Offset(1, 2) 
    With .Validation 
     .Delete 
     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
      Operator:= xlBetween, Formula1:="=Categories" 
     .IgnoreBlank = True 
     .InCellDropdown = True 
    End With 
    .Value = Range("Categories").Cells(1).Value 
End With