返回列表 上一主題 發帖

自動編號問題

hcy_tp

帖子
8 
主題
3 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-10-26 
最後登錄
2010-11-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-3 09:14 | 顯示全部帖子

自動編號問題

Book1.rar (8.51 KB) 各位先進們好！
雖然可以使用函數完成B欄位的自動編碼，
但請先進們可否用VBA程式來執行。
案號                   案次
RM960101        RM960101-1
RM960101        RM960101-2
RM960102        RM960102-1
RM960103        RM960103-1
RM960103        RM960103-2
RM960104        RM960104-1
RM960105        RM960105-1
RM960105        RM960105-2
收藏 分享

hcy_tp

帖子
8 
主題
3 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-10-26 
最後登錄
2010-11-30 
2#
發表於 2010-11-3 13:47 | 顯示全部帖子
感謝您的協助，
不過有幾個問題想詢問一下
1.可以只設定工作表Sheet1自己自動執行嗎？
2.有可能讓a欄位有變動時再調整嗎？例如a4有資料輸入b4才會執行，不用讓全部的欄位都重新跑過。

TOP

hcy_tp

帖子
8 
主題
3 
精華
0 
積分
16 
點名
0  
作業系統
xp 
軟體版本
sp3 
閱讀權限
10 
性別
男 
註冊時間
2010-10-26 
最後登錄
2010-11-30 
3#
發表於 2010-11-4 07:21 | 顯示全部帖子
謝謝您的建議
已經程式略調整成
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim d As Object, rng, i%
Set d = CreateObject("Scripting.Dictionary")
rng = Range([a2], "b" & [a65536].End(3).Row)
For i = 1 To UBound(rng)
d(rng(i, 1)) = d(rng(i, 1)) + 1
rng(i, 2) = rng(i, 1) & "-" & d(rng(i, 1))
Next
[b2].Resize(i - 1, 1) = Application.Index(rng, , 2)

End Sub
目前測試ok
謝謝您的幫忙

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題