Snasui Excel Forum

Posted: **Tue Oct 04, 2016 6:56 pm**

Capturevv.JPG

จากภาพ ถ้าผมกดปุ่ม - ตัวเลขจะลดลงไปเรื่อยๆ
ผมต้องการจะให้ค่าต่ำสุดอยู่ที่เลข 1
ผมปรับ Code อย่างไรครับ

Sub minus()
[No].Value = [No].Value - 1
End Sub
Sub plus()
[No].Value = [No].Value + 1
End Sub

Posted: **Tue Oct 04, 2016 8:18 pm**

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

[No].Value = Application.Max(1,[No].Value - 1)

Posted: **Tue Oct 04, 2016 8:59 pm**

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

[No].Value = Application.Max(1,[No].Value - 1)

ขอบคุณมากครับ
สามารถใช้งานตามที่ต้องการได้แล้วครับ

การสั่งปุ่มลบค่าแบบมีเงื่อนไข