累積報表修正語法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 累積報表修正語法

返回列表下一主題上一主題發帖

[發問] 累積報表修正語法

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

1^# 跳轉到 »

發表於 2017-1-24 20:15 | 顯示全部帖子

請教各位先進~
目前有兩個SHEET
想要把每日的資料複製至日累積報表
[每日資料]

[日累積]

由於目前 ...
Changbanana 發表於 2017-1-18 11:42

試試看,看看能否幫得上忙.:)

Sub EX()
Dim Rng, Dr
Dim i As Integer
Dim a
With ThisWorkbook.Worksheets("日檢核")
Rng = .[a1].CurrentRegion.Offset(1)
ReDim Dr(UBound(Rng) - 1, 1)
For i = 1 To UBound(Dr)
Dr(i, 1) = .[J2]
Next i
a = MsgBox("需要刪除當日檢核?", vbInformation + vbYesNo, "詢問")
If a = vbYes Then
.[a1].CurrentRegion.Offset(1).ClearContents
End If
End With
With ThisWorkbook.Worksheets("日累積")
.[A65535].End(xlUp).Offset(1).Resize(UBound(Dr), 1).Value = Dr
.[B65535].End(xlUp).Offset(1).Resize(UBound(Rng), UBound(Rng, 2)).Value = Rng
End With
End Sub

複製代碼

靜思自在 : 欣賞別人就是莊嚴自己。

返回列表下一主題上一主題