如何使vba执行此操作?

如何使vba执行此操作?,vba,excel,Vba,Excel,我一直在构建一个仪表板作为工具检查表。输出到日志的数据工作正常。我还不知道如何实施我的下一步。我想找到一种方法,在日志上写上“登记”日期,以完成程序 我想知道什么是参考表1的有效方法;e10至活页2;columnB应该是 伪代码: if column (i) is empty or 0 then =today() in sheet2;same row column (i). endif" 我想将此宏指定给按钮。我对结帐程序也做了同样的操作。要直接回答您的问题: Sheets("Table1

我一直在构建一个仪表板作为工具检查表。输出到日志的数据工作正常。我还不知道如何实施我的下一步。我想找到一种方法,在日志上写上“登记”日期,以完成程序

我想知道什么是参考表1的有效方法;e10至活页2;columnB应该是

伪代码

if column (i) is empty or 0 then
  =today() in sheet2;same row column (i).
endif"

我想将此宏指定给按钮。我对结帐程序也做了同样的操作。

要直接回答您的问题:

Sheets("Table1").Range("B1").Value = "Logging date: " & Now
这个小片段将文本“记录日期:10.06.2015 09:30:21”放在B1的字段中。另一种可能是使用单元格(rowIndex,colIndex),在本例中是单元格(1,2),这在我看来不太容易理解

我只能猜测,您的伪代码应该做什么,这里是我的解释:

Dim row As Integer
Dim col As Integer
row = 1
col = 2

If (IsEmpty(Cells(row, col)) Or Cells(row, col).Value = "0") Then
    Sheets("Table1").Range("B1").Value = "Logging date: " & Now
Else
    'whatever you want to do otherwise
End If

不要指望它能立即解决你的问题。但这可能是您的第一个起点?

您的问题有点不清楚-您似乎想检查列中的每一行是否为空,如果是,您想将今天的日期放在不同工作表中某一列的同一行中?我的假设正确吗?