[發問] VBA複製儲存格顏色

蘿蔔泥

各位好，有個問題麻煩各位幫忙解答
目前兩個EXCEL檔，一個用來作出勤登記，一個出勤統計用
統計的部分是依照所需要的日期區間做抓取資料，但因為登記的部分多增加了儲存格顏色來備註，
希望抓到統計那邊時儲存格顏色也能一併過去

1. Sub Main()
   
2.     Call 日期區間(S, E)
   
3.     Call 加補休(S, E)
   
4.     Call 加班費(S, E)
   
5.    
   
6. End Sub
   
7. 
   
8. Sub 日期區間(S, E)
   
9.    
   
10.     S = CDate(Sheets("設定頁").Range("b8"))
    
11.     E = CDate(Sheets("設定頁").Range("c8"))
    
12.   
    
13. End Sub
    
14. 
    
15. 
    
16. Sub 加補休(S, E)
    
17. 
    
18.     'Call 建立新工作表(S, E)
    
19. 
    
20.     i = 3
    
21.     x = 2
    
22.    
    
23.     If Sheets(1).Cells(2, 1) = "" Then
    
24.     x = 2
    
25.     Else
    
26.     x = ActiveSheet.UsedRange.Rows.Count + 1
    
27.    ' MsgBox x
    
28.     End If
    
29.          
    
30.     SNAME = Sheets("設定頁").Range("B2") '活頁簿名稱
    
31. 
    
32. Do While Workbooks(SNAME).Sheets("補休").Cells(i, 1) <> ""
    
33.     'MsgBox S
    
34.     If (Workbooks(SNAME).Sheets("補休").Cells(i, 4) >= CDate(S) And Workbooks(SNAME).Sheets("補休").Cells(i, 4) <= CDate(E)) = True Then
    
35.          '建立新工作表
    
36.          
    
37.          Sheets(1).Cells(x, 1) = Workbooks(SNAME).Sheets("補休").Cells(i, 1)
    
38.          Sheets(1).Cells(x, 2) = Workbooks(SNAME).Sheets("補休").Cells(i, 2)
    
39.          Sheets(1).Cells(x, 3) = Workbooks(SNAME).Sheets("補休").Cells(i, 12)
    
40.          Sheets(1).Cells(x, 4) = CDate(Workbooks(SNAME).Sheets("補休").Cells(i, 4))
    
41.          Sheets(1).Cells(x, 8) = Workbooks(SNAME).Sheets("補休").Cells(i, 5)
    
42. 
    
43.          x = x + 1
    
44.     End If
    
45. i = i + 1
    
46. Loop
    
47. 
    
48. End Sub
    
49. 
    
50. Sub 加班費(S, E)
    
51. 
    
52.     'Call 建立新工作表(S, E)
    
53. 
    
54.     i = 3
    
55.     x = 2
    
56.    
    
57.     If Sheets(1).Cells(2, 1) = "" Then
    
58.     x = 2
    
59.     Else
    
60.     x = ActiveSheet.UsedRange.Rows.Count + 1
    
61.     'MsgBox x
    
62.     End If
    
63.          
    
64.     SNAME = Sheets("設定頁").Range("B2") '活頁簿名稱
    
65. 
    
66. Do While Workbooks(SNAME).Sheets("加班及請假").Cells(i, 1) <> ""
    
67.      If Workbooks(SNAME).Sheets("加班及請假").Cells(i, 3) <> "" And Workbooks(SNAME).Sheets("加班及請假").Cells(i, 4) <> "" = True Then
    
68.             
    
69.          Sheets(1).Cells(x, 1) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 2)
    
70.          Sheets(1).Cells(x, 2) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 3)
    
71.          Sheets(1).Cells(x, 3) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 1)
    
72.          Sheets(1).Cells(x, 4) = CDate(Workbooks(SNAME).Sheets("加班及請假").Cells(i, 4))
    
73.          Sheets(1).Cells(x, 5) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 5)
    
74.          Sheets(1).Cells(x, 6) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 6)
    
75.          Sheets(1).Cells(x, 7) = Workbooks(SNAME).Sheets("加班及請假").Cells(i, 7)
    
76. 
    
77.          x = x + 1
    
78.          End If
    
79.          i = i + 1
    
80. Loop
    
81. 
    
82. 
    
83. End Sub

複製代碼

n7822123

回復 1# 蘿蔔泥

沒檔案測試，我講方法，請自己改

用"Copy" 取代 "="  的方式，可以把儲存格格式一併Copy過去


Sheets(1).Cells(x, 1) = Workbooks(SNAME).Sheets("補休").Cells(i, 1)

改成

Workbooks(SNAME).Sheets("補休").Cells(i, 1).Copy Sheets(1).Cells(x, 1)

蘿蔔泥

回復 2# n7822123


  好，謝謝

蘿蔔泥

回復 2# n7822123


  你好，請問我做更改會在日期那行會出現錯誤，該怎更改呢？
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 2).Copy Sheets(1).Cells(x, 1)
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 3).Copy Sheets(1).Cells(x, 2)
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 1).Copy Sheets(1).Cells(x, 3)
         CDate(Workbooks(SNAME).Sheets("加班及請假").Cells(i, 4)).copy Sheets(1).Cells(x, 4)
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 5).Copy Sheets(1).Cells(x, 5)
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 6).Copy Sheets(1).Cells(x, 6)
         Workbooks(SNAME).Sheets("加班及請假").Cells(i, 7).Copy Sheets(1).Cells(x, 7)

n7822123

回復 4# 蘿蔔泥


看看是不是你要的

Workbooks(SNAME).Sheets("加班及請假").Cells(i, 4).copy Sheets(1).Cells(x, 4)  
Sheets(1).Cells(x, 4).NumberFormatLocal = "hh:mm:ss AM/PM"


CDate(數值) ---------  O
CDate(物件) ---------  X

儲存格物件.Copy ------- O
值.Copy   ----------------X

儲存格是個物件
Copy 是儲存格物件的 方法