Question

这是我第一次参加SO论坛，我需要帮助解决一些问题。我正在尝试使用VBA为excel编写宏，从插入到工作表中的两个表中检索一些值，这些表通过访问进行动态更新。

我不确定我现在是否正在解释自己。

我想要一个宏，它将单元格A1的值（此单元格是今天的日期）与一行中不同列标题的值进行比较。如果日期与列标题中的日期相同，我希望它执行此计算：

= SUM（Modelos V3：V31）

首先我考虑使用和If函数来检查A1是否与列标题相同，但后来我记得当日期更改时，值将变为0并且我希望它保持旧值。 / p>

我有办法让细胞保持其ald值而不是0吗？

更新（2013年10月17日）然后我考虑使用许多if函数来保存值，但这不起作用，我添加了我尝试过的照片 http://i.stack.imgur.com/w9XQY.png

Answer 1

您可以在VBA代码中使用简单if语句：编辑：根据您的不同评论，截图和编辑，这是我对您的需求的理解：

Dim Row As Integer, Column As Integer, vSum As Integer, i As Integer
    If Cells(Row, Column) = Cells(1, 1) Then
        Sheets("Modelos").Activate
        vSum = 0
        For i = 3 To 31
            vSum = vSum + Cells(i, 22)
        Next
        Sheets("Sales Flash").Activate
        Cells(Row + 3, Column) = vSum
    End If 'no else: if the value is different, the cell content will remain untouched

公式绝对不是一个选项，可以直接在您的工作表或VBA中，因为您的内容将使用您的Modelos表中的新值系统地更新。

宏按日期自动将值输出到不同的单元格

1 个答案: