帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-12-16 17:11 | 只看該作者

儲存格自動合併問題

想請問：當B1~B50儲存格內輸入"結存"時F1~N1儲存格自動合併的語法怎麼寫
EX：B1輸入"結存"    F1~N1自動合併
      B2輸入"50000"    F2~N2維持原格式不變
      B3輸入"結存"    F3~N3自動合併

樓主熱帖

你猜!!

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-12-16 17:35 | 只看該作者

回復 1# bear0925900003
試試看 (沒有附檔是否如此)

Option Explicit
'Intersect 方法傳回 Range 物件，此物件代表兩個或多個範圍重疊的矩形範圍。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("b1:b50"), Target.Cells(1)) Is Nothing Then
With Range("F" & Target.Cells(1).Row & ":N" & Target.Cells(1).Row)
If Target.Cells(1) = "結存" Then .Merge Else .UnMerge
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

3^#

發表於 2013-12-17 16:05 | 只看該作者

感謝老師賜教!!

你猜!!

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

4^#

發表於 2014-1-7 17:57 | 只看該作者

再請教一下大大!!如何讓B1~B50儲存格內的"結存"被改成其他內容時，F~N就會自動回復合併前的格式?

你猜!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-1-8 08:02 | 只看該作者

本帖最後由 GBKEE 於 2014-1-8 08:11 編輯

回復 4# bear0925900003
2# 程式碼

If Target.Cells(1) = "結存" Then .Merge Else .UnMerge

複製代碼

Else -> <> "結存"

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

6^#

發表於 2014-1-8 11:41 | 只看該作者

請問大大不行改耶!請賜教，可以給完整的程式碼嗎?感恩

你猜!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-1-8 11:47 | 只看該作者

回復 7# bear0925900003
應該是你要附上完整的檔案,不然我怎知你的構想!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bear0925900003

中學生 Rank: 2

帖子: 55
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2013-7-17
最後登錄: 2020-12-31

8^#

發表於 2014-1-8 12:19 | 只看該作者

回復 8# GBKEE

對不起!!大大原來的程式碼就可以做到不需要改，我又腦殘了.....

你猜!!

TOP