重新編號

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

10^# 跳轉到 »

發表於 2011-1-19 16:27 | 只看該作者

回復 9# Hsieh

大大的寫法是因應將原碼直接修改成新碼
這樣簡短的程式碼~ 不算困難~ 但能直接就有這樣的邏輯~ 小弟還需要多學習~

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-1-19 15:04 | 只看該作者

回復 4# hugh0620

學習就是不斷練習，不怕錯，只怕不去做
以此為例，就是從第3欄開始，遇到數值不同就加1
參考看看

Sub 編號()
k = 3: n = 1
Do Until Cells(153, k) = ""
test = Cells(153, k)
Cells(153, k) = n
If test <> Cells(153, k + 1) Then n = n + 1
k = k + 1
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2011-1-19 11:04 | 只看該作者

只是小弟不知道要如何發問才能得到大家的
認同,請前輩真的不吝再指導,小弟一定改進
此例的問題在於：
沒有說明是以哪一列的數據為為分組的判條件
你想得到怎樣的結果也沒有表示出來
雖然下載了你的檔案，還是不懂你要做什麼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

7^#

發表於 2011-1-19 09:50 | 只看該作者

本帖最後由 hugh0620 於 2011-1-19 10:10 編輯

回復 6# myleoyes

不要叫我前輩~ 其實我也是新手~  ^^
互相漏氣求進步啦~
如果是固定15欄一個編號~ 我是有一個笨的寫法
Sub 編號()
   I = 0
   For J = 1 To 100       '<------- J為編號
      For X = 0 To 14    '<------- X為跑15次,將J這個編號填寫15次
            I = I + 1
            If Cells(1, 2 + I) = "" Then Exit Sub'<--------I為讓程式判斷是否有資料,若無則離開程式
            Cells(154, 2 + I) = J
      Next
Next

End Sub

學習才能提升自己

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2011-1-18 22:26 | 只看該作者

回復 4# hugh0620
hugh0620 前輩你好!
　　　前輩謝謝!!原程式並非小弟所寫小弟沒有這種功力
      至目前為止只能亂拼湊套用罷!
      程式是截取Hsieh前輩之前所教導範例之一小段
      抱歉因小弟的偷懶造成你的誤解!!
      程式無法適用再附檔說明
      辛苦囉!請不吝賜教謝謝再三!!

Leov40-1.rar (15.84 KB)

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2011-1-18 22:19 | 只看該作者

回復 3# Hsieh
hsieh前輩你好!
   偶像前輩!謝謝!!你的教誨小弟謹記在心
   只是小弟不知道要如何發問才能得到大家的
   認同,請前輩真的不吝再指導,小弟一定改進
   只是小弟有點要聲明的是好像小弟從來都不指導
   別人只要求別人幫小弟...其實不是小弟不願意
   只是我對Excel真的一點基礎都沒有就這裡來上課
   請各位前輩諒解...學到現在還一頭霧水...
   偶像前輩!請不吝再賜教謝謝再三!!!

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2011-1-18 11:28 | 只看該作者

本帖最後由 hugh0620 於 2011-1-18 16:13 編輯

回復 3# Hsieh

喔~~  原來是這樣呀~ 謝謝大大的說明~

不過~ 我應該沒法寫的比樓主好吧~ 但我還是會試看看~
其它方式的寫法(但可能是一種奇怪的邏輯來處理)~ ^.^

  用不同的寫法~ 不過是個新手的寫法~
  X = 0
  Do Until Cells(1, 3 + X) = ""
If Cells(1, 3 + X) = Cells(1, 3 + X - 1) And Cells(2, 3 + X) = Cells(2, 3 + X - 1) Then
   If Cells(154, 3 + X - 1) = "" Then
      Cells(154, 3 + X) = 1
   Else
      Cells(154, 3 + X) = Cells(154, 3 + X - 1)
   End If
Else
   Cells(154, 3 + X) = Cells(154, 3 + X - 1) + 1
End If
  X = X + 1
  Loop

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-1-18 11:13 | 只看該作者

回復 2# hugh0620
簡單說明一下
樓主目的只是優化程式
以邏輯來說就是要將零亂的編號重新由1開始
遇到與前格不同時加1
以您過去的學習態度我想應該寫得出來
只需迴圈跑完這些儲存格
中間加入判斷而已
註:樓主的發問態度我想大家要引以為戒
因為這樣往往會得不到好的解答

學海無涯_不恥下問

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2011-1-18 10:31 | 只看該作者

回復 1# myleoyes

我是一個新手~ 有進去看你發的問題~
下行是你提之問題
[前輩!因為資料刪除的關係造成編號無法連續,希望按鈕後編號能夠重新編號請按鈕,這就是需求,請知道的前輩,不吝賜教謝謝再三!!]
這樣的問題,可能是我文學程度不夠好,看不懂.
若照你字面上的說法,你自己寫的已經是符合按鈕後會重新編號
還是你有其他的意思??????

學習才能提升自己

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]