如何讓表單自動產生財產編號?? - Excel程式區

[發問] 如何讓表單自動產生財產編號??

　暱稱: Raymond Chien

1^# 跳轉到 »

發表於 2018-4-16 16:07 | 顯示全部帖子

回復 4# afu9240

會有這個錯是因為當你按下"儲存"時，所以格子都被清空，所以觸動到combobox3_change，但此時combobox3裡面沒有值
所以解決方法就是，判斷若combobox3裡沒有值，就不執行程式

Private Sub ComboBox3_Change()
If ComboBox3.Text = "" Then Exit Sub
With Worksheets(1).Range("A:A")
Set c = .Find(ComboBox3.Text, LookIn:=xlValues, SearchDirection:=xlPrevious)
If Not c Is Nothing Then
TextBox1.Text = ComboBox3.Text & Format(Val(Right(c.Value, Len(c.Value) - 2)) + 1, "00000")
Else
TextBox1.Text = ComboBox3.Text & "00001"
End If
End With
End Sub

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

靜思自在 : 為自己找藉口的人永遠不會進步。