帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-4-10 17:13 | 只看該作者

[發問] 複製不同活頁簿中特定儲存格

請問大大，進行不同活頁簿之間的複製動個，是不二個活頁簿都要在開啟的狀態呢？
設設將 a.xls 的儲存格 A2:B10 複製於 b.xls的儲存格A2中，該如何呢

樓主熱帖

寶寶

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

8^#

發表於 2012-4-11 00:08 | 只看該作者

受益感謝大大們的幫助

寶寶

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-4-10 22:14 | 只看該作者

回復 6# caichen3
Workbooks("b.xls").Sheets(1).Range("A2:B10 ")=Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Value

學海無涯_不恥下問

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

6^#

發表於 2012-4-10 22:08 | 只看該作者

在a.xls中設置按鈕，按下按鈕後，將a.xls中儲存格 A2:B10 複製於 b.xls的儲存格A2，
但a.xls中儲存格B2：B10 有註解，若不想將註解複製於b.xls的儲存格，該如何呢？
a.xls中按鈕程式碼如下：
sub copy( )
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "C:\Documents and Settings\328-2\b.xls"
Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Copy Workbooks("b.xls").Sheets(1).Range("A2")
Workbooks("b.xls").Range("B2:B10 ").ClearComments
Workbooks("b.xls").Save
Workbooks("b.xls").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
end sub

我在思考是不是不可以於a.xls中清除b.xls裡的註解，有沒有其他辦法呢？？

寶寶

TOP

GBKEE