標題: [發問] 項次自動變更 [打印本頁]

---

作者: toxin    時間: 2012-7-24 16:07     標題: 項次自動變更

請問各位大師
如附件sheet1一樣項次給予了
而要刪除第五項
變成像是sheet2一樣
要如何做??
可以的話開檔或存檔的時候可以自動執行設定好的巨集嗎?

[attach]11834[/attach]

---

作者: GBKEE    時間: 2012-7-24 16:18

回復 1# toxin
看不出你是要如何改變

可以的話開檔或存檔的時候可以自動執行設定好的巨集嗎   
如圖
[attach]11835[/attach]

---

作者: toxin    時間: 2012-7-25 08:05

本帖最後由 toxin 於 2012-7-25 08:07 編輯

回復 2# GBKEE

抱歉還沒改...
所以要看內文
主要是sheet1的第10列刪除時
第7項次自動改成第6項次

---

作者: GBKEE    時間: 2012-7-25 15:33

回復 3# toxin

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, R As Integer, i As Integer
   
4.     Set Rng = Range("a1").CurrentRegion             'CurrentRegion : 取得A欄的目前區域-> 是指以任意空白列及空白欄的組合為邊界的範圍
   
5.     R = 1                                           '項次從1 開始
   
6.     i = 2                                           '第2列 開始
   
7.     Do
   
8.         Rng.Cells(i, 1) = R                          'Rng.Cells(i, 1) :目前區域的第一欄
   
9.         i = i + Rng.Cells(i, 1).MergeArea.Rows.Count '計算儲存格合併範圍的列數
   
10.         R = R + 1                                    '項次再加1
    
11.     Loop While i <= Rng.Rows.Count                   '執行迴圈:  Rng.Rows.Count - 計算範圍的列數
    
12. End Sub

複製代碼

---

作者: toxin    時間: 2012-7-25 16:15

回復 4# GBKEE

感謝GBKEE版主的大力幫忙
試驗過一切正常
小部份因需求問題我在自己改就好了謝謝

---

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