帖子: 40
主題: 9
精華: 0
積分: 70
點名: 0
作業系統: windows xp
軟體版本: office xp
閱讀權限: 20
註冊時間: 2012-12-17
最後登錄: 2013-1-28

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-4 21:20 | 只看該作者

[發問] 請問巨集要如何更改~才能執行不同sheet欄位的最後一行呢?

本帖最後由 alltest 於 2013-1-4 21:21 編輯

圖001       sheet1 錄製巨集
圖002       sheet2 執行巨集後
圖001巨集  程式

請問大大們sheet1錄製的巨集要如何更改,
才能讓sheet2也能執行如同sheet1的結果呢?

Book-計算.rar (6 KB)

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-1-5 17:09 | 只看該作者

回復 2# alltest

只需一句, 一句到尾

Range(Range("D2"), Range("D2").Offset(, -1).End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-1]-RC[-2]"

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

alltest

中學生 Rank: 2

帖子: 40
主題: 9
精華: 0
積分: 70
點名: 0
作業系統: windows xp
軟體版本: office xp
閱讀權限: 20
註冊時間: 2012-12-17
最後登錄: 2013-1-28

3^#

發表於 2013-1-6 08:02 | 只看該作者

回復 2# kimbal

謝謝版主大大kimbal的回覆^^
執行後的結果, 會出現錯誤耶
請問要如何修改才好呢?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-1-6 08:46 | 只看該作者

回復 3# alltest

Sub Macro1()
'
' Macro1 Macro
' user 在 2013/1/4 錄製的巨集
'
'
With ActiveSheet
.[D2].FormulaR1C1 = "=RC[-1]-RC[-2]"
.[D2].AutoFill Destination:=.Range(.[D2], .Range("C2").End(xlDown).Offset(, 1))
.Range(.[D2], .Range("C2").End(xlDown)).Select
.Range("E2").Select
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 2013-1-6 15:09 | 只看該作者

回復 3# alltest
這三程式碼作用都相同,(置於一般模組中 Module1 )可適用有相同資料格式的工作表

Sub Ex() '*************** C欄.Offset(, 1) => D欄的公式
Range("C2", Range("C2").End(xlDown)).Offset(, 1) = "=RC[-1]-RC[-2]" '
End Sub

複製代碼

Sub Ex1() '************** D欄.Offset(, -1)參考C欄最後有資料位置
Range("D2", Range("D2").Offset(, -1).End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-1]-RC[-2]"
End Sub

複製代碼