textbox โชว ค่า max

[yodpao.b]

ต้องการให้ textbox โชว ค่า max ที่อยู่ใน excel
เขียน code อย่างไรครับ
ที่ผมใช้

Code: Select all

Private Sub UserForm_Initialize()
TextBox1.Text = maxco1
End Sub

maxco1 มาจากการตั้งชื่อใน excel ใช้ไม่ได้ครับมันไม่ขึ้น

1.JPG

2.JPG

[snasui]

ตัวอย่าง Code ครับ

TextBox1.Text = Application.Max([maxco1])

[yodpao.b]

ได้ textbox หนึี่งแล้วตรับ
ขอเพิ่มอีก textbox ครับ ค่าที่ต้องการ E-0006
max ที่ได้คือ 6 นำมาผสมกับ "e-"&max&รูบแบบ text "0000"

[yodpao.b]

ได้มาหน่อยครับ

Code: Select all

cmbslno1.Text = "E-" & Application.Max([max_no]) + 1

ผลตือ E-76 แต่ไม่รู้จะเอารูปแบบเข้าอย่างไร

[yodpao.b]

ขอบคุณครับ แก้จนได้แล้วครับ
ใช้ โคด

Code: Select all

cmbslno1.Text = "E-" & Application.Text(Application.Max([max_no]) + 1, "0000")