標題: [發問] 自動產生像次編號 [打印本頁]

---

作者: lionliu    時間: 2014-11-21 10:37     標題: 自動產生像次編號

各位大大好
小弟寫了一個自動產生像次號碼巨集，但是一直無法順利完成。
想請教應如何修改。
cakno     desc         數量
1              qwwe       123
                 asd-1
2             we111       234
                a21-1
               2333-1
3             wervv        23
[attach]19623[/attach]

---

作者: owen06    時間: 2014-11-21 11:25

本帖最後由 owen06 於 2014-11-21 11:29 編輯

回復 1# lionliu


    請問是要讓本來空白的chkno欄，自動產生出編號嗎？
    如果是的話試試看這樣。

1. Sub chkno()
   
2. Dim rcnt As Integer
   
3. Dim i, J As Integer
   
4. rcnt = Cells(Rows.Count, 2).End(xlUp).Row
   
5. 
   
6. For i = 5 To rcnt
   
7.    
   
8.     If Cells(i, 3) <> Empty Then
   
9.      J = J + 1
   
10.     Cells(i, 1) = J
    
11.   
    
12.     Else
    
13.     Cells(i, 1) = ""
    
14.         
    
15.     End If
    
16. 
    
17. Next i
    
18. End Sub

複製代碼

---

作者: lionliu    時間: 2014-11-21 12:57

回復 2# owen06
謝謝 owen06
測試 可以了謝謝

---

作者: owen06    時間: 2014-11-21 13:15

回復 3# lionliu


    下次當發生這種不知道自己寫的程式哪邊有問題的時候，就按f8逐行執行，
    看看設定變數的變化，這樣就能發現問題出在哪了。

---

作者: GBKEE    時間: 2014-11-21 16:15

回復 3# lionliu
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, e As Range, i As Integer
   
4.     On Error GoTo Is_Err          '程式碼有錯誤時到 Is_Err行
   
5.     Set Rng = Range("C5", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
   
6.     'SpecialCells:範圍中指定 xlCellTypeConstants。包含常數的儲存格
   
7.     'SpecialCells:範圍中沒有指定的特殊儲存格,程式會有錯誤
   
8.         For Each e In Rng.Cells
   
9.             i = i + 1
   
10.             Cells(e.Row, "a") = i
    
11.          Next
    
12. Is_Err:
    
13. If Err > 0 Then MsgBox "qty欄中 沒有數字"
    
14. End Sub

複製代碼

---

作者: lionliu    時間: 2014-12-3 14:37

回復 5# GBKEE
感謝 gbkee大哥的回覆
讓我的有更多的學習空間
謝謝!

---

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