如何在 VBA Excel 中添加將當前日期和時間添加到單元格的按鈕？

Question

我需要在 VBA Excel 中為按鈕編寫代碼。

此按鈕的目的是從 0 開始增加某些單元格中的值，我已經這樣做了，但是此按鈕的第二個功能應該是單擊此按鈕后，當前日期和時間將顯示在開始的 A 列中來自 A2它在 excel 中的外觀

所以基本上如果“L13”中的值為1，則當前日期和時間應該出現在“A2”中，如果“L13”中的值為2，則日期和時間應該出現在A3中，等等直到讓我們說A200。

我試圖讓它做不同的循環，但我無法得到預期的結果。

以下是此按鈕的當前代碼： https://github.com/Cuyer/excel/blob/main/add_click

Sub Add_Click()
   Dim countCell As Range
   Set countCell = ActiveSheet.Range("L13")
   countCell = countCell + 1
   
   
   Dim wb As Workbook
   
   For Each wb In Application.Workbooks
   wb.Save
   Next wb
   
End Sub

我真的很感激在解決這個問題方面的任何幫助。

Answer 1

Sub Add_Click()
   Dim countCell As Range, ws As Worksheet

   Set ws = ActiveSheet
   Set countCell = ws.Range("L13")
   countCell.Value = countCell.Value + 1
   'use Offset() to find the date cell
   ws.Range("A1").Offset(countCell.Value,0) = Date

   Dim wb As Workbook
   
   For Each wb In Application.Workbooks
       wb.Save
   Next wb
   
End Sub

Answer 2

VBA 中的日期function 將為您提供當天的日期值。

然后你可以將它分配給一個范圍的值：

Activesheet.Range("A" & countCell + 1).Value = Date

我不確定您的意思是日期應該出現在單個單元格中還是出現在等於“L13”中的值的多個單元格中。 上面的代碼是針對單個單元格的，但下面是您對多個單元格執行此操作的方法：

ActiveSheet.Range("A2:A" & countCell + 1).Value = Date