Board logo

標題: [發問] VBA複製儲存格顏色 [打印本頁]
作者: 蘿蔔泥    時間: 2020-5-19 11:15     標題: VBA複製儲存格顏色

各位好，有個問題麻煩各位幫忙解答
目前兩個EXCEL檔，一個用來作出勤登記，一個出勤統計用
統計的部分是依照所需要的日期區間做抓取資料，但因為登記的部分多增加了儲存格顏色來備註，
希望抓到統計那邊時儲存格顏色也能一併過去
  1. Sub Main()
  2.     Call 日期區間(S, E)
  3.     Call 加補休(S, E)
  4.     Call 加班費(S, E)
  5.    
  6. End Sub

  8. Sub 日期區間(S, E)
  9.    
  10.     S = CDate(Sheets("設定頁").Range("b8"))
  11.     E = CDate(Sheets("設定頁").Range("c8"))
  12.   
  13. End Sub


  16. Sub 加補休(S, E)

  18.     'Call 建立新工作表(S, E)

  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") '活頁簿名稱

  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)

  43.          x = x + 1
  44.     End If
  45. i = i + 1
  46. Loop

  48. End Sub

  50. Sub 加班費(S, E)

  52.     'Call 建立新工作表(S, E)

  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") '活頁簿名稱

  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)

  77.          x = x + 1
  78.          End If
  79.          i = i + 1
  80. Loop


  83. End Sub
複製代碼
作者: n7822123    時間: 2020-5-20 00:44

本帖最後由 n7822123 於 2020-5-20 00:46 編輯

回復 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)
作者: 蘿蔔泥    時間: 2020-5-25 10:18

回復 2# n7822123


  好，謝謝
作者: 蘿蔔泥    時間: 2020-5-26 11:02

回復 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    時間: 2020-5-28 02:03

本帖最後由 n7822123 於 2020-5-28 02:17 編輯

回復 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 是儲存格物件的 方法




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)