Question

如果B14中（及下）的日期小于当前日期，而在日期大于当前日期的地方保留空白，我想在F列中标记“ X”。

它只是在底部标记一个X，而不考虑日期。

Sub button_1()

Dim rCell As Range
Dim lrow As Long

On Error Resume Next

lrow = ActiveSheet.Cells(Rows.Count, 1).End(xlDown).Row
rCell = Range("B14:B" & lrow)

With Sheet1
    For Each rCell In .Range("F14:F" & lrow).Cells
        If rCell.Value <= Date Then
            rCell.Value = "x"
        ElseIf rCell.Value > Date Then
            rCell.Value = rCell.Value
        End If
    Next rCell
End With

End Sub

Answer 1

我将假定这在Sheet1私有代码表中，而不在公共模块代码表中。在workheeet的专用代码表中，所有的Range和Cells均默认为该工作表作为父级工作表，因此除非您要引用另一个工作表，否则无需完全像父级工作表一样。

遍历B列并更改F列以适合。

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<select class="value1">
    <option value="=">Equal To</option>
    <option value="<">Less Than</option>
    <option value=">">Greater Than</option>
    <option value="<=">Less Than or Equal To</option>    
    <option value=">=">Greater Than or Equal To</option>      
</select>

根据当前日期在单元格中输入

1 个答案: