匿名使用者
匿名使用者 發問時間: 電腦與網際網路軟體 · 5 年前

VBA依日期判斷自動將該列貼上為值問題?

http://www.FunP.Net/336579

以上測試檔已錄製一個測試巨集(因小弟不會寫所以用錄的),正確巨集需求如下:

1.「數據」與「KPI」兩活頁,希望每次按下『貼上值』按鈕時,可以自動判斷將日期為TODAY()-1該列,將其整列複製貼上為值。

例如:今天是10/3,如按下『貼上值』按鈕時,可自動判斷將兩活頁10/2該列均複製貼上為值。今天是10/4,如按下『貼上值』按鈕時,可自動判斷將兩活頁10/3該列均複製貼上為值。以此類推.....

2.「工時表」、「E-C」、「報表系統」三個活頁均為清除資料動作,故較無問題。

以上求解~~~~~~~~非常感謝!!!!

2 個解答

評分
  • 5 年前
    最佳解答

    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

    • Commenter avatar登入以對解答發表意見
  • 小嵐
    Lv 4
    5 年前

    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

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。