返回列表 上一主題 發帖

如何複製sheet1的公式結果到sheet2?

ian1021

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-3-19 
最後登錄
2012-3-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-19 18:31 | 只看該作者

如何複製sheet1的公式結果到sheet2?

本帖最後由 ian1021 於 2012-3-19 18:57 編輯

有一個問題想麻煩大家
我現在sheet2寫一個公式出來的結果存到G34 (G34=G32+G33)
希望按一個鈕之後直接copy到sheet1的F6

直接製作一個按鈕且寫為
Sub Button13_Click()
Sheets("sheet2").[G34].CurrentRegion.Copy Sheets("sheet1").[F6]
End Sub

但是結果是sheet2的結果是錯誤的
因為沒有辦法將sheet2的公式 (G34=G32+G33)帶過來sheet1
請問如何可以將sheet2的公式帶過來sheet1  感謝!!
收藏 分享

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-19 18:45 | 只看該作者
回復 1# ian1021

錄製一下，複製/選擇性貼上/值
學海無涯_不恥下問

TOP

ian1021

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-3-19 
最後登錄
2012-3-19 
3#
發表於 2012-3-19 18:56 | 只看該作者
回復 2# Hsieh


您好  方便幫我看一下嗎
欲達成  在sheet2 按下 Botton 13按鈕就會把[G34]的結果複製到sheet1的[F6]
非常感謝..

Example.rar (23.34 KB)

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-19 19:00 | 只看該作者
回復 3# ian1021
直接給值就行了
  1. Sub Button13_Click()
  2. Sheets("sheet1").[F6] = Sheets("sheet2").[G34].Value
  3. End Sub
複製代碼
學海無涯_不恥下問

TOP

ian1021

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-3-19 
最後登錄
2012-3-19 
5#
發表於 2012-3-19 19:05 | 只看該作者
回復 4# Hsieh

沒問題了!!
非常非常感謝版大!!

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題