Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
354 views
in Technique[技术] by (71.8m points)

combobox - Combo box formatting

I apologize in advance. I am trying to edit a file that I did not create, and I am very new to this.

I have a combo box that is formation for a 6 digit serial number. I now have serial numbers that include a letter at the beginning. How do I make it accept both 6 digits and 5 digits with a letter?

Any help would be appreciated!

I have copied the current code.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If ComboBox1.Value = "" Then Exit Sub
updser6 = Format(ComboBox1.Value, "000000")
update2.TextBox2.Value = Application.WorksheetFunction.VLookup(updser6, Range("fullserlook"), 2, False)
fullser = Application.WorksheetFunction.VLookup(updser6, Range("fullserlook"), 2, False)
Sheets("Sheet1").Select
Dim rowsforluaddy As Integer
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
rowsforluaddy = Selection.Rows.Count
Range("A2").Select
Selection.Resize(rowsforluaddy, 19).Select
Selection.Name = "rawdata"
Set celladd1 = Cells(WorksheetFunction.Match(fullser, Sheets("Sheet1").Range("C2:C" & rowsforluaddy + 1), 0) + 1, 1)
updatestart = celladd1.Address
Dim updatestartrow As Integer
updatestartrow = celladd1.Row
question from:https://stackoverflow.com/questions/65904530/combo-box-formatting

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)
Waitting for answers

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...