我需要在 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
我真的很感激任何幫助解決這個問題。
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
VBA 中的日期函式將為您提供當天的日期值。
然后你可以將它分配給一個范圍的值：
Activesheet.Range("A" & countCell 1).Value = Date
我不確定您的意思是日期應該出現在單個單元格中還是出現在等于“L13”中的值的多個單元格中。上面的代碼是針對單個單元格的，但這里是如何針對多個單元格執行此操作：
ActiveSheet.Range("A2:A" & countCell 1).Value = Date
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/391298.html
上一篇：使用ajax顯示/隱藏元素
下一篇：使用宏打開檔案