在Excel中，可以使用条件格式或数据验证来限制在列中添加金额和日期。以下是两种解决方法的代码示例。

解决方法1：使用条件格式限制列中的输入

Sub RestrictAmountAndDate()
    Dim rng As Range
    Set rng = Range("A2:A100") '将范围更改为适合您的需求
    
    With rng
        '清除现有的条件格式
        .FormatConditions.Delete
        
        '添加条件格式限制金额
        .FormatConditions.Add Type:=xlExpression, Formula1:="=ISNUMBER(A2)"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        
        With .FormatConditions(1).Font
            .Color = -16383844 '设置字体颜色（可以根据需要更改）
        End With
        
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615 '设置背景颜色（可以根据需要更改）
        End With
        
        '添加条件格式限制日期
        .FormatConditions.Add Type:=xlExpression, Formula1:="=ISNUMBER(A2)"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        
        With .FormatConditions(1).Font
            .Color = -16383844 '设置字体颜色（可以根据需要更改）
        End With
        
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 13551615 '设置背景颜色（可以根据需要更改）
        End With
    End With
End Sub

解决方法2：使用数据验证限制列中的输入

Sub RestrictAmountAndDate()
    Dim rng As Range
    Set rng = Range("A2:A100") '将范围更改为适合您的需求
    
    '清除现有的数据验证
    rng.Validation.Delete
    
    '设置数据验证限制金额
    rng.Validation.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="0", Formula2:="1000000" '将范围更改为适合您的需求
    
    '设置数据验证限制日期
    rng.Validation.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="1/1/1900", Formula2:="12/31/9999" '将范围更改为适合您的需求
End Sub

这两种方法均可根据需要进行适当的调整，以适应您的实际情况。