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

这是我第一次在SO论坛上，我有一个问题需要帮助。我试图用VBA for excel编写一个宏，该宏从插入到工作表的两个表中检索一些值，该工作表使用access动态更新

我不确定到目前为止我是否解释得很好

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

=总和（Modelos！V3:V31）

起初，我考虑使用and If函数检查A1是否与列标题相同，但后来我记得当日期更改时，值将变为0，我希望它保留旧值

我有没有办法让细胞保持其ald值而不是变为0

更新（17/10/13） 然后我考虑使用许多if函数来保存这些值，但这不起作用，我添加了一张我尝试过的照片

---

您可以在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工作表中的新值进行系统更新。

如何触发宏？按钮，事件？@PortlandRunner我想用一个按钮触发它，该按钮在user@pnuts问题是我需要它来更新daily@pnuts好吧，我肯定我的解释会把你弄糊涂。我想要的是得到=SUM（Modelos！V3:V31）的当前值并将其放入一个单元格中，=SUM（Modelos！V3:V31）的值将不断变化，因此我希望它有不同的记录，以便稍后在现金流中使用它们。问题是，我需要它来检查一系列单元格，例如从B4到G4。如果D4等于A1，那么我希望值出现在D5上。然后你可以在

If

语句之前使用

for

循环，并相应地偏移

行

和

列

。很抱歉，我不理解你告诉我的内容，我对VBA和Excel没有任何线索。你能发布一张Excel工作表的屏幕截图吗，解释了您要检查哪些列，以及您要更新哪些单元格/列？好的，这里有屏幕截图：如果B6与日期相同，我希望它复制此表的值“销售量”、“收入”和“利润”，它们可以分别位于单元格U1、V1和W1中