VC 操作Excel，设置单元格格式为下拉框

Question

我有数据A.B.C，现在想在Excel的某个单元格中以下拉框的格式显示，3Q

Answer 1

下面是VBA的，参考一下。   
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="A,B,C"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With