請問混合編碼我應該怎麼做

1^# 跳轉到 »

發表於 2015-9-18 15:21 | 顯示全部帖子

回復 1# sheau-lan
品號只會新增還是會去修改之前的??
例如: 如果修改[A6]儲存格為M4-xxx規格的品號 , 下方的存放編號要全部更新嗎??

如果不用管，可參考下面；如果要，不如建個按鈕更新全部存放編號比較適用。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ar, spec, prefix, count As Long
With Target
If .Row >= 3 And .Column = 1 Then
'其它欄處理略過, 假設D欄已取得規格
'.........
spec = Cells(.Row, "D").Value
prefix = Split(spec, "-")(0)
ar = Range(Cells(1, "H"), Cells(.Row - 1, "H"))
For Each x In ar
If prefix = Split(x, "-")(0) Then
count = count + 1
End If
Next
Application.EnableEvents = False
Cells(.Row, "H").Value = prefix & "-" & Replace(Cells(1, count / 4 + 1).Address(False, False), "1", "")
Application.EnableEvents = True
End If
End With
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。