返回列表 上一主題 發帖

[發問] 抓取公式中的值

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-27 18:48 | 只看該作者

[發問] 抓取公式中的值

小弟想請問一下

小弟今天在BOOK1.xls的Hello中    抓取BOOK2.xls中的GOOBYE的cells( 1 , 1 ) 至   Hello的cells( 2, 2 )

但BOOK2.xls 中的SHEET2 的 cells( 1 , 1 ) 是EXCEL的公式 EX: =MIN(F6:F76)

小弟寫的部份程式

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Workbooks.Open "C:\Documents and Settings\host\桌面\BOOK2.xls"
   Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy  Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)
   Workbooks("BOOK2.xls").Close
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True

   小弟成功抓取後  發現公式也會一並被抓取
   但小弟只要抓取公式後的值而已
   所以想請問一下  有沒有只取值而不抓取公式的函數呢 ?
   麻煩請教各位了!!
收藏 分享
WOW

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-27 18:55 | 只看該作者
回復 1# g93353

複製全部
Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy  Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)

複製值
Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2)=Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1)

TOP

kimbal

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

論壇貢獻勳章
3#
發表於 2012-3-28 00:40 | 只看該作者
分兩行
Workbooks("BOOK2.xls").Sheets("GOOBYE").Cells(1, 1).Copy
Workbooks("BOOK1.xls").Sheets("GOOBYE").Cells(2, 2).PasteSpecial Paste:=xlPasteValues

參考一下 選擇性貼上->值, 這個功能相當有用.
當然也可用register313兄的簡單方法
懂得發問,答案就會在其中

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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題