標題: [發問] 有關編號顯示問題~~~~ [打印本頁]

---

作者: afu9240    時間: 2018-10-15 17:29     標題: 有關編號顯示問題~~~~

各位高手及超級版主 大家好

    希望表單選擇類別時,編號能抓到目前最後一筆要新增的編號,,,,比方說類別選 Z2為何編號不能跳到Z200015??卻是以數量為計算顯示Z200013,,,可以幫忙嗎???要如何解呢
感恩~~~~~~~~~~~~[attach]29537[/attach]

---

作者: GBKEE    時間: 2018-10-15 18:41

回復 1# afu9240

1. Option Explicit
   
2. Private Sub ComboBox1_Change()
   
3.     Dim E As Range, St As String
   
4.     With 工作表1
   
5.         For Each E In .Range("a:a").SpecialCells(xlCellTypeConstants)
   
6.             If E Like ComboBox1 & "*" Then
   
7.                 St = IIf(Replace(E, ComboBox1, "") > St, Replace(E, ComboBox1, ""), St)
   
8.             End If
   
9.         Next
   
10.         If St = "" Then St = 0
    
11.     End With
    
12.     TextBox1.Text = ComboBox1 & Format(St + 1, "00000")
    
13. End Sub

複製代碼

---

作者: afu9240    時間: 2018-10-16 09:12

回復 2# GBKEE


    感謝超級版主回覆~感謝*100000
   沒看過的語法真的有點需要時間消化,,版主有在授課嗎?

---

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