麻辣家族討論版版 » Excel程式區 » 項次自動變更

返回列表下一主題上一主題發帖

[發問] 項次自動變更

中學生 Rank: 2

帖子: 50
主題: 11
精華: 0
積分: 72
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-3-20
最後登錄: 2024-10-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-7-24 16:07 | 只看該作者

[發問] 項次自動變更

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

0724.rar (1.69 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 50
主題: 11
精華: 0
積分: 72
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-3-20
最後登錄: 2024-10-20

5^#

發表於 2012-7-25 16:15 | 只看該作者

回復 4# GBKEE

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

4^#

發表於 2012-7-25 15:33 | 只看該作者

回復 3# toxin

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

複製代碼

中學生 Rank: 2

帖子: 50
主題: 11
精華: 0
積分: 72
點名: 0
作業系統: WIN XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-3-20
最後登錄: 2024-10-20

3^#

發表於 2012-7-25 08:05 | 只看該作者

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

回復 2# GBKEE

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

超級版主 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^#

發表於 2012-7-24 16:18 | 只看該作者

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

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

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

返回列表下一主題上一主題