Page 1 of 1
textbox โชว ค่า max
Posted: Wed May 22, 2019 10:23 pm
by yodpao.b
ต้องการให้ textbox โชว ค่า max ที่อยู่ใน excel
เขียน code อย่างไรครับ
ที่ผมใช้
Code: Select all
Private Sub UserForm_Initialize()
TextBox1.Text = maxco1
End Sub
maxco1 มาจากการตั้งชื่อใน excel ใช้ไม่ได้ครับมันไม่ขึ้น
1.JPG
2.JPG
Re: textbox โชว ค่า max
Posted: Wed May 22, 2019 10:34 pm
by snasui
ตัวอย่าง Code ครับ
TextBox1.Text = Application.Max([maxco1])
Re: textbox โชว ค่า max
Posted: Wed May 22, 2019 11:25 pm
by yodpao.b
ได้ textbox หนึี่งแล้วตรับ
ขอเพิ่มอีก textbox ครับ ค่าที่ต้องการ E-0006
max ที่ได้คือ 6 นำมาผสมกับ "e-"&max&รูบแบบ text "0000"
Re: textbox โชว ค่า max
Posted: Wed May 22, 2019 11:37 pm
by yodpao.b
ได้มาหน่อยครับ
Code: Select all
cmbslno1.Text = "E-" & Application.Max([max_no]) + 1
ผลตือ E-76 แต่ไม่รู้จะเอารูปแบบเข้าอย่างไร
Re: textbox โชว ค่า max
Posted: Wed May 22, 2019 11:47 pm
by yodpao.b
ขอบคุณครับ แก้จนได้แล้วครับ
ใช้ โคด
Code: Select all
cmbslno1.Text = "E-" & Application.Text(Application.Max([max_no]) + 1, "0000")