arrays - 用于选择数组最小值的 VBA 代码

Question

我需要选择包含今天日期最小值的单元格，仅查看这一天。问题是当月份滚动时，当我希望宏选择 28 时，它会选择 01。我的第一个想法是设置数组(28、29、30、31)，因为每个月都是一样的，但我还是想不通找出如何选择包含该数组最小值的单元格。

所以我有这个备用代码列表。最后 6 个数字是指日期 I.E。 “02362113015”是在11/30/15备份的，我只需要保留4天的备份，所以代码需要找到最早的日期然后复制整个代码。

A                    B
02362113015         30
03030210115         01
02455812815         28
03604583115         31
02458182915         29

提前感谢您的任何提示或建议。

这是我在代码方面的最远距离，然后我在空白中输入的任何内容对我来说都是没有意义的。

Dim cel As Range
Dim Rng As Range

Set Rng = H1: H5

For Each cel In Rng
    If cel = (28 Or 29 Or 30 Or 31) Then
       cel.Activate
    End If
Next

Answer 1

如果设置范围，则应将其设置为:

Set Rng = Range("H1:H5")

除此之外，这段代码对我有用:

Sub test()


Dim cel As Range
Dim Rng As Range

Set Rng = Range("H1:H8")

For Each cel In Rng
    If cel.Value = 28 Or cel.Value = 29 Or cel.Value = 30 Or cel.Value = 31 Then
        cel.Activate
    End If
Next cel
End Sub

然后，您想对相关单元格执行的任何操作都应放在 If 语句中。