返回列表 上一主題 發帖

請問如何只貼上數字

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-30 11:37 | 只看該作者

請問如何只貼上數字

各位達人好~
我是vba的新手
想請問一下
我想從一個excel表複製到另一個excel表
我寫的如下
可是貼過去後，把算式還有格式都貼上了
但我只想貼上數值
我該如何改
謝謝
Application.DisplayAlerts = False
Dim y, m, d
y = InputBox("輸入月份(yyyy)")
m = InputBox("輸入月份(MM)")
d = InputBox("輸入日期(DD)")
Data1 = "http://rptap/report/Daily/DailyWaferYield/DailyWaferYield-" & y & "-" & m & "-" & d & ".xls"
Workbooks.Open Filename:=Data1

Range("d4:ah4").Copy ThisWorkbook.Sheets("data-" & m).Range("d7:ah7")
End Sub
收藏 分享

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-5-1 
2#
發表於 2015-10-30 13:28 | 只看該作者
ThisWorkbook.Sheets("data-" & m).Range("d7:ah7") = Range("d4:ah4").Value

TOP

52ee24

帖子
51 
主題
19 
精華
0 
積分
84 
點名
0  
作業系統
vista 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-11-26 
最後登錄
2024-1-15 
3#
發表於 2015-10-30 14:44 | 只看該作者
回復 2# 准提部林


    謝謝啦~
   原來可以這樣，小弟太淺了
   謝謝教導

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題