標題: 儲存格自動合併問題 [打印本頁]

---

作者: bear0925900003    時間: 2013-12-16 17:11     標題: 儲存格自動合併問題

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

---

作者: GBKEE    時間: 2013-12-16 17:35

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

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

複製代碼

---

作者: bear0925900003    時間: 2013-12-17 16:05

感謝老師賜教!!

---

作者: bear0925900003    時間: 2014-1-7 17:57

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

---

作者: GBKEE    時間: 2014-1-8 08:02

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

回復 4# bear0925900003
2# 程式碼

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

複製代碼

Else ->   <> "結存"

---

作者: bear0925900003    時間: 2014-1-8 11:41

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

---

作者: GBKEE    時間: 2014-1-8 11:47

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

---

作者: bear0925900003    時間: 2014-1-8 12:19

回復 8# GBKEE


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)