帖子: 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)

樓主熱帖

alltest

中學生 Rank: 2

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

7^#

發表於 2013-1-6 22:14 | 只看該作者

回復 5# GBKEE

謝謝您~ GBKEE 版主大大的熱心幫忙^^
提供好多不同程式幫忙解決,
讓初學的我及討論區的朋友們
可以多學一些,感恩~
(每個程式皆可執行成功)

TOP

alltest

中學生 Rank: 2

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

6^#

發表於 2013-1-6 21:57 | 只看該作者

回復 4# Hsieh

謝謝您~ Hsieh 超級版主大大的幫忙^^
執行結果已經成功,感恩~

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

複製代碼

Sub Ex2() '***************
Range("D2").Select '"D2"為指定儲存格
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
'Selection.AutoFill Destination:=Range("D2:D8") '這裡"D2:D8",才不會出錯
Selection.AutoFill Destination:=Range("D2:D" & Range("C2").End(xlDown).Row)
' Range("C2").End(xlDown).Row 可延伸到C欄最後有資料位置之列號(Row)

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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