生成一个VB代码 获取当前日期

以下是获取当前日期的VB代码：

Dim currentDate As Date
currentDate = Date.Today
MsgBox("Today's date is: " & currentDate)

这段代码会在窗口中弹出一个消息框，显示当前日期。如果你想在程序中使用当前日期，可以将 `currentDate` 变量传递给其他函数或方法。

相关问题

生成一个宏，可以将按钮的名字改成当前时间

要在Excel中生成一个宏，用于将按钮（可能是指工作表中的形状或工具栏上的按钮）的名称改为当前时间，你可以按照以下步骤操作：

1. 打开Excel并确保已经启用了VBA编辑器。可以通过点击"开发者"菜单中的"Visual Basic"，或者按下`Alt + F11`快捷键来开启。

2. 在VB编辑器中，找到你的工作簿或模块（通常是Sheet1对象下的ThisWorkbook或者具体工作表对应的Module），如果没有，请右键单击并选择“插入”，然后选择“模块”。

3. 创建新的宏：
- 在新窗口中，输入以下代码：

     Sub ChangeButtonNameToCurrentTime()
         Dim CurrentDateTime As String
         Dim ButtonShape As Shape '假设按钮是形状对象
         
         '获取当前日期和时间
         CurrentDateTime = Format(Now(), "yyyy年mm月dd日_hh:mm:ss")
         
         '遍历所有形状，查找特定名称的按钮（请根据实际情况替换'YourButtonName'）
         For Each ButtonShape In ActiveSheet.Shapes
             If ButtonShape.Name = "YourButtonName" Then '替换为你实际的按钮名称
                 ButtonShape.Name = CurrentDateTime '更新按钮名称
                 Exit For '跳出循环，因为我们找到了目标形状
             End If
         Next ButtonShape
     End Sub

4. 修改代码中的"YourButtonName"部分，使其匹配你要改变名字的按钮的实际名称。

5. 保存并关闭VBA编辑器。

6. 在Excel中返回，选中你想放置按钮的位置，选择“开发”选项卡，然后点击“控件库”。选择“形状”类别，绘制一个按钮。右键点击刚刚画好的按钮，在弹出菜单中选择“属性”，在“常规”标签页中，将事件设置为"单击"（或其他你想触发宏的方式），并在"事件名"框中输入`ChangeButtonNameToCurrentTime`。

7. 单击确定，现在每次点击这个按钮时，它的名称就会自动更新为当前时间。

记住，每个形状都需要独立配置，如果有多個按钮需要这种功能，你需要为每一个按钮复制上述代码并更改相应的按钮名称。