請教：如何自動填入數值

hjr0702

hjr0702
個人積分：12分
文章編號：90088641

12分

樓主

2024-08-02 0:30

請問各位excel 達人請教：如何自動填入數值

如圖，總表B1是每天會變動的數值，有什麼公式可以讓我一執行試算表，就會自動按日期填入當天的數值嗎？
目前實在太笨只會複製貼上，各位達人指點一下，感恩.......

巨集不太懂，各位如果還有什麼好的方法再請提出給我參考，謝謝。

2024-08-02 0:30 發佈

文章關鍵字數值

internetlin

internetlin
個人積分：855分
文章編號：90088972

855分

2樓

2024-08-02 6:13

我想這個要用Excel的巨集才能做到
目前的寫法就是每次開啟檔案時自動執行巨集
然後巨集就會去抓取與寫入每日資料
內容與說明寫在最底下

如果不想開啟檔案時自動執行巨集
那也可以做個巨集按鈕，每天手動去按

如果想在指定時間自動執行
那就配合Windows的Schedule Task功能去開啟並執行檔案

' 用巨集去抓取與寫入每日資料
Sub LogDailyData()
Dim wsLog As Worksheet
Dim wsSource As Worksheet
Dim lastRow As Long
Dim todayDate As Date
Dim newValue As Variant

' 定義資料來源與目標表單
Set wsSource = ThisWorkbook.Sheets("總表")
Set wsLog = ThisWorkbook.Sheets("LogSheet")

' 抓取當前日期與總表!B1數值
todayDate = Date
newValue = wsSource.Range("B1").Value

' 找到目標表單的最後一列
lastRow = wsLog.Cells(wsLog.Rows.Count, 1).End(xlUp).Row

' 把日期與數值寫到最後一列的下一列Write the date and value to the next available row
wsLog.Cells(lastRow + 1, 1).Value = todayDate
wsLog.Cells(lastRow + 1, 2).Value = newValue
End Sub

' 開啟檔案時自動執行巨集
Private Sub Workbook_Open()
Call LogDailyData
End Sub