返回列表 上一主題 發帖

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

alltest

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

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

論壇貢獻勳章
2#
發表於 2013-1-5 17:09 | 只看該作者
回復 2# alltest


    只需一句, 一句到尾
  1. 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

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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-1-6 08:46 | 只看該作者
回復 3# alltest
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' user 在 2013/1/4 錄製的巨集
  5. '

  7. '
  8. With ActiveSheet
  9.     .[D2].FormulaR1C1 = "=RC[-1]-RC[-2]"
  10.     .[D2].AutoFill Destination:=.Range(.[D2], .Range("C2").End(xlDown).Offset(, 1))
  11.     .Range(.[D2], .Range("C2").End(xlDown)).Select
  12.     .Range("E2").Select
  13. End With
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

帖子
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 )可適用有相同資料格式的工作表
   
  1. Sub Ex() '*************** C欄.Offset(, 1) => D欄的公式
  2.     Range("C2", Range("C2").End(xlDown)).Offset(, 1) = "=RC[-1]-RC[-2]"      '
  3.     End Sub
複製代碼
  1. Sub Ex1() '************** D欄.Offset(, -1)參考C欄最後有資料位置
  2.     Range("D2", Range("D2").Offset(, -1).End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-1]-RC[-2]"
  3. End Sub
複製代碼
  1. Sub Ex2() '***************
  2.     Range("D2").Select                               '"D2"為指定儲存格
  3.     ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
  4.     'Selection.AutoFill Destination:=Range("D2:D8") '這裡"D2:D8",才不會出錯
  5.     Selection.AutoFill Destination:=Range("D2:D" & Range("C2").End(xlDown).Row)
  6.     ' Range("C2").End(xlDown).Row 可延伸到C欄最後有資料位置之列號(Row)
複製代碼

TOP

alltest

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

alltest

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

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題