http://www.FunP.Net/336579
以上測試檔已錄製一個測試巨集(因小弟不會寫所以用錄的)，正確巨集需求如下：
1.「數據」與「KPI」兩活頁，希望每次按下『貼上值』按鈕時，可以自動判斷將日期為TODAY()-1該列，將其整列複製貼上為值。
例如：今天是10/3，如按下『貼上值』按鈕時，可自動判斷將兩活頁10/2該列均複製貼上為值。今天是10/4，如按下『貼上值』按鈕時，可自動判斷將兩活頁10/3該列均複製貼上為值。以此類推.....
2.「工時表」、「E-C」、「報表系統」三個活頁均為清除資料動作，故較無問題。
以上求解~~~~~~~~非常感謝!!!!
VBA依日期判斷自動將該列貼上為值問題?
2015-10-02 6:16 pm
回答 (2)
2015-10-03 2:24 pm
✔ 最佳答案
Sub test()arr = Array("數據", "API")
For j = 0 To 1
Sheets(arr(j)).Select
For i = 2 To [A65536].End(xlUp).Row
If IsDate(Cells(i, 1)) Then
If Day(Cells(i, 1)) = Day(Now() - 1) Then
Rows(i).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End If
Next
Next
Sheets("數據").Select
End Sub
2015-10-03 6:57 am
Cells(i, 3) = "XX" 就是要作的程序
Sub test()
For i = 7 To 37
If Day(Cells(i, 1)) = Day(Now() - 1) Then
Cells(i, 3) = "XX"
End If
Next
End Sub
Sub test()
For i = 7 To 37
If Day(Cells(i, 1)) = Day(Now() - 1) Then
Cells(i, 3) = "XX"
End If
Next
End Sub
收錄日期: 2021-05-04 02:04:29
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20151002101636AAB3OTQ