12345678910... 11
返回列表 上一主題 發帖

[轉貼] VBA的寫作技巧與增進效能

土行孫

帖子
1 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-12-31 
最後登錄
2014-12-5 
11# 跳轉到 »
發表於 2010-12-31 17:19 | 只看該作者
拜讀後,覺得愛益良多,感謝分享心得,謝謝

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
12#
發表於 2010-12-31 17:37 | 只看該作者
Cells(r, c) = .Cell(r, c)

這行,究竟幾時用單數的物件,例如cell,worksheet等字眼,有單數眾數,比較混亂
80 字節以內
不支持自定義 Discuz! 代碼

TOP

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
13#
發表於 2011-1-17 21:40 | 只看該作者
本帖最後由 skybbs 於 2011-1-19 20:23 編輯

回復 01# Hsieh
請問謝大,

在EXCEL2003裡寫了如下:
01 Range("D6:E6").Copy
02 Range("h3").PasteSpecial xlPasteValues
因為各有一個值分別在D6&E6, 所以直接複製到H3時, 就會變成複製到H3 & I3

想要依照謝大的方式簡短, 分別試了如下:
Sheet1.[H2:I2] = Application.Transpose(Sheet1.[D6:E6])
結果僅會把D6的值複製到H2&I2, E6並不會複製到I2.

另外也試了:
Range("H2:I2") = Range("D6:E6")
結果都沒有動作.
請問如果要把同一個Sheet的D6 & E6複製到H3 & I3應該如何寫語法呢 ?
謝謝.

TOP

jeromefu

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


    感謝分享;對新手來說真是獲益良多:)
jeromefu

TOP

jslin

帖子
19 
主題
16 
精華
0 
積分
40 
點名
0  
作業系統
Windows xp 
軟體版本
Office 2003 
閱讀權限
10 
註冊時間
2010-5-19 
最後登錄
2015-3-17 
15#
發表於 2011-1-18 15:53 | 只看該作者
Looking Ahead on Request
「Wish you all the best」 Thanks a lot ！！
↖(^ω^)↗
♨

TOP

fpoqua

帖子
12 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
Win XP 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2010-8-5 
最後登錄
2019-11-7 
16#
發表於 2011-1-31 10:44 | 只看該作者
版大受教了

以後錄製的巨集會修正後再使用

TOP

superjolihi

帖子
1 
主題
0 
精華
0 
積分
13 
點名
0  
作業系統
W7 
軟體版本
Office2003 & 2010 
閱讀權限
10 
註冊時間
2011-1-25 
最後登錄
2016-2-26 
17#
發表於 2011-1-31 21:20 | 只看該作者
高手~~ 繼續拜讀你的 資料範圍選擇~ 在公司我用 巨集寫完 稍微修改~就自得意滿~果真是學深似海。

TOP

Hsieh

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

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

cells並無所謂擔負數之分，在EXCEL中cells就是全部儲存格，而括號中的2個引數，分別是列號與欄號
Cells(1,1)就是指到A1儲存格，他就是單一儲存格，若CELLS則會指向所有儲存格。
WorkSheet是工作表物件，這唯一會造成單數現象是發生在變數宣告時，當變數要宣告成工作表物件型態時
Dim Sh As WorkSheet
這就表示Sh變數是一個工作表
那麼，當我們在眾多工作表中，取得單一工作表就是在複數工作表中指名工作表
Set Sh=WorkSheets(index)
學海無涯_不恥下問

TOP

Hsieh

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

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


    Range("H2:I2") = Range("D6:E6").Value
學海無涯_不恥下問

TOP

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
20#
發表於 2011-2-1 21:50 | 只看該作者
回復 21# Hsieh

請問謝大:
Range("H2:I2").Value = Range("D6:E6").Value
Range("H2:I2") = Range("D6:E6").Value
此兩個表示式有何不同.

TOP

        靜思自在 : 甘願做、歡喜受。
12345678910... 11
返回列表 上一主題