VBA代码 选中单元格为当日日期

Sub SelectToday()
Range("A1").Select '选择起始单元格，可以根据实际情况修改
Do Until ActiveCell.Value = "" '循环直到遇到空单元格
If ActiveCell.Value = Date Then '判断单元格的值是否为今天的日期
ActiveCell.Select '选择单元格
Exit Sub '结束循环
End If
ActiveCell.Offset(1, 0).Select '选择下一个单元格
Loop
End Sub

相关问题

如何用vba在选中单元格插入日期

您可以使用以下代码将当前日期插入到选定的单元格中：

Sub InsertDate()
    Selection.Value = Date
End Sub

要使用此代码，请打开Excel工作簿，按下Alt + F11打开VBA编辑器，然后将代码复制粘贴到新模块中。接下来，选中您要插入日期的单元格，然后运行InsertDate宏。当前日期将立即插入到选定的单元格中。

如何用vba在选中单元格插入日期并将格式改为日期格式

下面是一个简单的VBA代码，可以在选中的单元格中插入当前日期并将其格式设置为日期格式：

Sub InsertDate()
    ActiveCell.Value = Date
    ActiveCell.NumberFormat = "yyyy-mm-dd"
End Sub

您可以将此代码复制并粘贴到VBA编辑器中，然后运行它。要运行此代码，请打开Excel工作簿，然后按下Alt + F11打开VBA编辑器。在VBA编辑器中，选择您要将日期插入的单元格，然后运行此代码。该代码将在所选单元格中插入当前日期并将其格式设置为“yyyy-mm-dd”日期格式。