Snasui Excel Forum

ต้องการเขียน VBA ช่วยคลุมงาน
โดยผมทำเป็น ลิสรายการในช่อง D5
และต้องการให้ถ้ากดปุ่ม ย้อนกลับค่าลดลดครั้งละ 1
แต่ถ้ากดปุ่มต่อไปค่าเพิ่มขึ้นครังละ 1

ขอบคุณมากครับ

ต้องเขียน VBA มาเบื้องต้นตามกฏ ข้อ 5 ก่อนครับ แล้วติดขัดอย่างไร เพื่อนๆ จะได้ช่วยดูให้ครับ

puriwutpokin wrote:ต้องเขียน VBA มาเบื้องต้นตามกฏ ข้อ 5 ก่อนครับ แล้วติดขัดอย่างไร เพื่อนๆ จะได้ช่วยดูให้ครับ

ผมพยายามหาข้อมูลเปิดมา 10 กว่า เว็บ
แต่ไปไม่รอดจริงๆ

มั่วไปแบบนี้ก็ไม่ผ่าน
Sub test()
Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> ""
Cells(i, 2).Value = Cells(i, 1).Value + 1
i = i + 1
Loop
End Sub
ผมต้องปรับแก้ไขอย่างไรครับ

ลองปรับเป็น

puriwutpokin wrote:ลองปรับเป็น

Code: Select all

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

[d5].Value คือข้อมูลที่ต้องการเพิ่มหรือลกค่า
ส่วน [d5].Value - 1 เป็นการทำให้ลดค่าครั้งละ 1

ผมนั่งหาทางทำมาทั้งวัน
ขอบคุณมากครับ