錄製巨集每日向下新增一列資料-選擇性貼上設定 - Excel程式區

[發問] 錄製巨集每日向下新增一列資料-選擇性貼上設定

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-7-25 10:58 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-7-25 11:02 編輯

回復 1# zv1122
試試看

Option Explicit
Sub 抓資料到儲存格()
Dim R As Integer, Col As Integer
With Sheets("A")
R = .Cells(Rows.Count, "C").End(xlUp).Offset(1).Row 'R =>最後一的列號 ' Row:物件的屬性傳回Cells的列號
Col = .Range("C1:T1").Columns.Count 'Col => Copy範圍的總欗數
'Columns:儲存格的物件(欄)
'Count : 物件的屬性,傳回物件的數量
.Range("C1:T1").Copy .Cells(R, "C")
.Cells(R, "C").Resize(1, Col) = .Cells(R, "C").Resize(1, Col).Value
'***** Value: 物件的屬性,傳回公式計算後的值 *************
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-25 16:48 | 顯示全部帖子

回復 4# zv1122
數值為何會跑掉
不要執行這行程式碼,看看複製後的公式

複製代碼

C1的公式(相對的參照) =B!D20/100, 如複製到C11公式變成=B!D30/100
($ 絕對的參照) =B!$D$20/100 , 如複製到C11 公式還是=B!$D$20/100
上傳的檔案你要有如圖片上的架構,才好幫你的.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-7-26 12:04 | 顯示全部帖子

回復 6# zv1122
物件A的屬性=物件B的屬性

Option Explicit
Sub 抓資料到儲存格()
Dim R As Integer, Rng As Range
With Sheets(1)
R = .Cells(Rows.Count, "C").End(xlUp).Offset(1).Row
Set Rng = .Range("C1:T1") ' 物件B
.Range("C" & R & ":T" & R) = Rng.Value '物件A的屬性=物件B的屬性
.Range("C" & R & ":T" & R).Interior.ColorIndex = Rng.Interior.ColorIndex '物件A的屬性=物件B的屬性
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。