我想问一下VBA中的for循环,我有以下脚本要提醒我(“提醒”是一个子函数),如果当前日期是CheckDate1,2,3,4,5,6 ...,我想问我是否需要添加更多日期,是否可以使用for循环包含所有CheckDate,而不添加更多ElseIf函数?

对不起,我的英语不好,非常感谢!

Dim dtmMyDate As Date

Const CheckDate1 = #1/9/2018#
Const CheckDate2 = #1/11/2018#
Const CheckDate3 = #1/16/2018#
Const CheckDate4 = #1/18/2018#
Const CheckDate5 = #1/23/2018#
Const CheckDate6 = #1/25/2018#

dtmMyDate = DateSerial(Year(Now()), Month(Now()), Day(Now()))
If dtmMyDate = CheckDate1 Then
    Remind
ElseIf dtmMyDate = CheckDate2 Then
    Remind
ElseIf dtmMyDate = CheckDate3 Then
    Remind
ElseIf dtmMyDate = CheckDate4 Then
    Remind
ElseIf dtmMyDate = CheckDate5 Then
    Remind
ElseIf dtmMyDate = CheckDate6 Then
    Remind
Else
    NormalCheck
End If

#1楼 票数:4 已采纳

像这样做会更可持续:

将日期加载到工作表上的Excel范围中,然后将动态命名范围定义MyDates然后在工作簿级别分配范围。 这样,添加或删除日期将非常容易。

然后可以是您的代码:

Dim vDates as Variant
vDates = Range("myDates")

Dim lDate as Long

For lDate = LBound(vDates) to UBound(vDates)
    If vDates(lDate,1) = Format(Now,"m/d/yyyy") Then 
        Remind
        Dim bRemind as Boolean
        bRemind = True
        Exit For
    End If
Next

If Not bRemind Then NormalCheck

  ask by Jackyson translate from so

未解决问题?本站智能推荐:

2回复

VBA-excel双循环条件

我目前正在excel vba中工作,尽管我的编程非常糟糕。 我想执行以下功能。 我有2个数据范围: 一个范围(a1:a10)指的是需要对照另一范围(b1:b250)检查的变量。 变量要检查的条件是,如果变量(<)小于范围(b1:b250)内的值,则应吐出该变量,否则应显示“ 0”
1回复

Excel-VBA-在IF/IfElse条件下,此for循环会循环很多次

到目前为止,这是我的代码: 产生以下输出: 这是我在单元格E1:G14中的数据 但这就是我想要的输出: 我试过在每个if语句后放置一个Next c ,但这不起作用。
1回复

VBA(Excel):多个工作表中多个条件的循环复制

背景 我有一个主文件,其中包含许多数据,我有一个请求更改的列表,不断更新。 我需要编写一个宏,这样它将在“更改”表中的每一行中运行,并在实际数据表中找到它的对应部分。 我需要将相关单元格从更改工作表复制到其特定工作表中存在的相应行。 信息 每个观察在A列( LOBID )中都有
2回复

Excel-VBA,用于循环语法,放置“for”和“nextx”

经过大约一个星期的学习并失败了Excel VBA,我认为我已经很接近我想要的工作了。 我的last for循环只需要一点帮助。 上面的代码正是我想要的。 我用一个值对X进行了硬编码以对其进行调试。 现在,我需要循环X以遍历该行中的每个单元格并执行相同的操作。
1回复

VBA电子邮件循环,用于Excel报告

我创建了一个宏,该宏将为选定的个人运行报告,并向该人发送包含该软件包的电子邮件。 该报告大约可容纳20个人,但是为每个人运行该报告然后将其发送非常繁琐。 我想知道是否有一种方法可以在要向其运行报告的人员的单元格中键入名称,并让excel遍历每个报告,然后将该报告发送给选定的个人,然后循环到
1回复

Excel迭代循环VBA

我试图遍历一列数据并更改文本框以显示结果数据。 目前这是我的代码 但是我希望根据索引将“ F3”更改为“ F4”,“ F5”等。 我敢肯定,只有严重的脑痉挛才很简单。 我尝试了以下方法,但是没有用 我想我需要隔离行号,但不确定如何...帮助!
3回复

Excel-VBA条件格式

我正在创建一个电子表格,它将用作电子订单。 一些单元格需要特定类型的值。 例如,对于几列,仅某些数字有效。 在另一列中,总共有17列需要应用条件格式。 我可以使用条件格式来执行所需的操作,但是由于我想将这些规则应用于许多电子表格,因此我认为需要将其转换为VBA代码以使其成为宏。 首
2回复

Excel(或VBA)条件转置行

我下面有一个数据集,列标题中有月份,我想根据当前月份来复制行。 我遇到的一个问题是自动化,因为用户不断被添加/删除。 样本输出: