[發問] 設定自動當日資料貼到當月資料

52ee24

各位大大請問一下
我想把每天整理的資料設按鍵自動更新到當月資料的最下面一列
想避免如果不小心按到就又把資料再貼一次
但判斷的方式好像不對
請各位幫忙看看那錯了
謝謝
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-整理完成")

GBKEE

回復 1# 52ee24
試試看

1. c = Worksheets("Brick資料庫_1次IR-MTD").Range("a1").CurrentRegion.Rows.Count
   
2. Worksheets("Brick資料庫_1次IR").Select
   
3. '看資料有無重複貼
   
4.    If Worksheets("Brick資料庫_1次IR-MTD").Range("a"&C) = Date Then

複製代碼

52ee24

回復 2# GBKEE


GBKEE大  你好~
我是想搜尋a欄有沒有相同日期的
如果已經有了就不要把資料貼過去
如果把改成↓
If Worksheets("Brick資料庫_1次IR-MTD").Range("a" & c) = Date Then
是不是就只看"a&c"那一格
有沒有搜尋整個欄位的方法嗎?
再麻煩大大幫忙了
謝謝

GBKEE

回復 3# 52ee24

想搜尋a欄有沒有相同日期的
試試看

1. Dim Rng As Range
   
2.     '看資料有無重複貼
   
3.     Set Rng = Worksheets("Brick資料庫_1次IR-MTD").Range("a:a").Find(Date, LookIn:=xlFormulas)
   
4.     If Not Rng Is Nothing Then '在A欄 尋找 當日的日期 有找到
   
5.       MsgBox ("更新過了")
   
6.     Else: Range(Cells(2, 1), Cells(A, b)).Copy Worksheets("Brick資料庫_1次IR-MTD").Range("a" & c + 1)
   
7.         '貼上程式碼
   
8.     End If

複製代碼

52ee24

回復 4# GBKEE


謝謝GBKEE 大的教導
已經可以用了
謝謝
另外如果要搜尋欄位的值不是日期而是函數
請問這樣也搜尋的到嗎?

GBKEE

回復 5# 52ee24


   

下載 (77.05 KB)

2016-1-5 13:42

錄製巨集程式碼,練習體會看看

52ee24

回復 6# GBKEE


    好的
謝謝GBKEE大的教導