VBA เปลียนช่องรายการ ย้อนกลับ-ต่อไป

[yangkodza]

Capture.JPG (29.11 KiB) Viewed 67 times

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

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

test1.xlsx

(10.23 KiB) Downloaded 8 times

[puriwutpokin]

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

[yangkodza]

ต้องเขียน 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]

ลองปรับเป็น

Code: Select all

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

[yangkodza]

ลองปรับเป็น

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

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