重新編號

myleoyes

各位前輩你們好!
         前輩!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

hugh0620

回復 1# myleoyes


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

Hsieh

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

hugh0620

回復 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

myleoyes

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

myleoyes

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

hugh0620

回復 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

oobird

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

Hsieh

回復 4# hugh0620


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

1. Sub 編號()
   
2. k = 3: n = 1
   
3. Do Until Cells(153, k) = ""
   
4. test = Cells(153, k)
   
5.     Cells(153, k) = n
   
6.     If test <> Cells(153, k + 1) Then n = n + 1
   
7. k = k + 1
   
8. Loop
   
9. End Sub

複製代碼

hugh0620

回復 9# Hsieh


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