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

---

作者: jim    時間: 2012-8-3 10:53     標題: 合併儲存格

請教各位先進並指導
  當$q$5="A"時
   Range 從 d7:d146
   儲存格 d7:d10 --合併  d11:d14  --合併  d15:d18 --合併  以此類推至 d146
否則  儲存格 d7:d8 --合併  d9:d10 --合併  d11:d12 --合併 以此類推至 d146

---

作者: Hsieh    時間: 2012-8-3 16:24

回復 1# jim

1. Sub ex()
   
2. k = IIf([Q5] = "A", 4, 2)
   
3. [D7:D146].UnMerge
   
4. r = 7
   
5. Do Until r >= 146
   
6. Cells(r, 4).Resize(k, 1).Merge
   
7. r = r + k
   
8. Loop
   
9. End Sub

複製代碼

---

作者: jim    時間: 2012-8-3 18:46

回復 2# Hsieh
多謝幫忙 程式可執行 但是出現方塊 ( 你所選的範圍內包含有多個資料值-----)
必須按確定 , 且一次才能執行一格 ,是否有辦法讓方塊不出現 直接確定並一次執行完畢

---

作者: jim    時間: 2012-8-4 06:44

回復 3# jim
已解決 我把如下語法加上
Application.ScreenUpdating = False
Application.DisplayAlerts = False

---

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