12
返回列表 上一主題 發帖

[發問] Range(Cells(1324, 71), Cells(1380, 80))語法有錯嗎?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4# 跳轉到 »
發表於 2014-6-30 20:12 | 只看該作者
本帖最後由 yangjie 於 2014-6-30 20:14 編輯

謝了
完全吸收
又有一奇想      想再請教兩位版主:
有無方式寫法可將Excel  各欄各列(不含上面功能列)
完全搬入userform內(含卷軸)
或者
使Excel 剩下各欄各列(不含上面功能列)(含卷軸)利用ComdButton再恢復原使或userform
極想了解，學習。謝謝！

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2014-6-30 16:53 | 只看該作者
將 With Sheets("TempA") 改為 With Sheets("Temp") 節省程式碼長度

With Sheets("Temp")
         .Range(.Cells(1324, 71), .Cells(1380, 80)).Copy   Sheets("TempA").Cells(4, 5)
End With
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Hsieh

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

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

With Sheets("TempA")
         Sheets("Temp").Range(Sheets("Temp").Cells(1324, 71), Sheets("Temp").Cells(1380, 80)).Copy   .Cells(4, 5)
End With
學海無涯_不恥下問

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
12
返回列表 上一主題