VBA的寫作技巧與增進效能 - Excel程式區

skybbs

中學生 Rank: 2

帖子: 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 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

superjolihi

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 13
點名: 0
作業系統: W7
軟體版本: Office2003 & 2010
閱讀權限: 10
註冊時間: 2011-1-25
最後登錄: 2016-2-26

17^#

發表於 2011-1-31 21:20 | 只看該作者

高手~~ 繼續拜讀你的資料範圍選擇~ 在公司我用巨集寫完稍微修改~就自得意滿~果真是學深似海。

TOP

fpoqua

中學生 Rank: 2

帖子: 12
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: Win XP
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-8-5
最後登錄: 2019-11-7

16^#

發表於 2011-1-31 10:44 | 只看該作者

版大受教了

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

TOP

jslin

小學生 Rank: 1

帖子: 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

jeromefu

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 10
性別: 男
註冊時間: 2011-1-18
最後登錄: 2020-6-18

14^#

發表於 2011-1-18 12:11 | 只看該作者

回復 1# Hsieh

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

jeromefu

TOP

skybbs

中學生 Rank: 2

帖子: 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

FAlonso