- 帖子
- 51
- 主題
- 19
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- vista
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2014-11-26
- 最後登錄
- 2024-1-15
|
本帖最後由 52ee24 於 2015-12-31 08:52 編輯
各位大大請問一下
我想把每天整理的資料設按鍵自動更新到當月資料的最下面一列
想避免如果不小心按到就又把資料再貼一次
但判斷的方式好像不對
請各位幫忙看看那錯了
謝謝
Sub MTD()
Dim a, b, c, today
today = InputBox("輸入更新日期例:yyyy/mm/dd")
a = Worksheets("Brick資料庫_1次IR").Range("a2").CurrentRegion.Rows.Count
b = Worksheets("Brick資料庫_1次IR").Range("a2").CurrentRegion.Columns.Count
c = Worksheets("Brick資料庫_1次IR-MTD").Range("a1").CurrentRegion.Rows.Count
Worksheets("Brick資料庫_1次IR").Select
'看資料有無重複貼
If Worksheets("Brick資料庫_1次IR-MTD").Range("a:a") = today Then
MsgBox ("更新過了")
Else: Range(Cells(2, 1), Cells(a, b)).Copy Worksheets("Brick資料庫_1次IR-MTD").Range("a" & c + 1)
End If
'樞紐
Worksheets("Brick資料庫_1次IR-MTD").Select
Dim FF As Range
Set FF = Worksheets("Brick資料庫_1次IR-MTD").Range(Cells(1, 1), Cells(c + a - 1, b))
Sheets("失敗率").Select
'MTD
Range("b107").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=FF
ActiveSheet.PivotTables("失敗率-MTD").PivotCache.Refresh
Sheets("失敗率").Select
MsgBox ("MTD-整理完成") |
|
發表於 2015-12-31 08:51
| 
