帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-3-9 10:33 | 只看該作者

合併儲存格

如何以程式碼插入合併儲存格呢？？

樓主熱帖

寶寶

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2012-4-7 17:42 | 只看該作者

Sub Test()
Selection.EntireRow.Insert
Range("A" & Selection.Row).Resize(1, 7).MergeCells = True
End Sub

'    A B C D E F G H I J K
' 1       b1
' 2       b2    * (執行前，游標此時停留在 D2 欄位)
' 3       b3
' 4       b4
' 5       b5
' 6

'    A B C D E F G H I J K
' 1       b1
' 2             * (執行完畢游標此時依然停留在 D2 欄位，然原本之 B2 欄位則下移一列，本行 A2:G2 則合併成一欄)
' 3       b2
' 4       b3
' 5       b4
' 6       b5

感謝 register313 前輩的說明！

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

11^#

發表於 2012-3-13 22:16 | 只看該作者

回復 10# jean0165
Range([G10], [G10].Offset(a, b)).Merge

學海無涯_不恥下問

TOP

jean0165

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 18
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2012-3-13
最後登錄: 2012-4-8

10^#

發表於 2012-3-13 22:02 | 只看該作者

回復 9# register313

謝謝你的回覆!!

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

9^#

發表於 2012-3-13 21:40 | 只看該作者

回復 7# jean0165

設G10為原基準儲存格

Range([G10], [G10].Offset(a, b)).MergeCells = True
a:數值,a為正:表往下擴展之格數,a為負:表往上擴展之格數
b:數值,b為正:表往右擴展之格數,b為負:表往左擴展之格數

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

8^#

發表於 2012-3-13 20:57 | 只看該作者

回復 7# jean0165

合併動作的程式碼必須了解你的基準點在哪?
這是如何取得合併範圍的必要條件
問題問得太過空洞，得不到正確解答

學海無涯_不恥下問

TOP

jean0165

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 18
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2012-3-13
最後登錄: 2012-4-8

7^#

發表於 2012-3-13 20:39 | 只看該作者

回復 6# register313

按照上面的程式碼，將會合併左方七列儲存格，請問能設定合併左邊/右邊的儲存格嗎??

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-3-12 17:36 | 只看該作者

回復 5# caichen3

Selection.EntireRow.Insert
Range("A" & Selection.Row).Resize(1, 7).MergeCells = True

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

5^#

發表於 2012-3-12 14:58 | 只看該作者

本帖最後由 caichen3 於 2012-3-12 15:03 編輯

假使我設定按一次按鈕，插入一列並且合併7行的儲存格呢？謝謝！

寶寶

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

4^#

發表於 2012-3-9 14:23 | 只看該作者

回復 3# caichen3
要知道你要合併幾列幾欄?

學海無涯_不恥下問

TOP