การใช้ ปุ่ม Command Buttons ในการบริหารคอลัมน์

[Panuwat]

เรียนท่านอาจารย์ครับ รบกวนท่านอาจารย์ช่วยแก้ปัญหาตามไฟล์แนบครับ คือตอนนี้มีช่องกรอกข้อมูลพนักงานได้ 20 คน (ลำดับที่ 21-70 ถูกซ่อนอยู่) และกรณีที่มีพนักงานเพิ่มขึ้นมา ก็ทำการคลิ๊กที่ ปุ่ม + ลำดับพนักงานที่ 21 ก็เพิ่มขึ้นมาให้กรอกข้อมูล ไปเรื่อยๆ (คลิ๊กที่ปุ่ม + ครั้ง ก็เพิ่ม 1 ลำดับ) โดยจะเพิ่มได้จนถึงลำดับที่ 70 ถ้าคลิ๊กปุ่ม + อีกเพื่อต้องการเพิ่มลำดับที่ 71 ให้ขึ้น Message ว่า "ไม่สามารถเพิ่มจำนวนพนักงานได้" กรณีที่คลิ๊กปุ่ม - ก็ให้ซ่อนลำดับท้ายสุดที่ปรากฎ ล่นขึ้นมาเรื่อยๆ (กด 1 ครั้งก็ล่น 1 ลำดับ) โดยเช็คว่าถ้าคอลัมน์ลำดับพนักงานนั้นๆ ต้องไม่มีข้อมูลอยู่ แต่ถ้ามีข้อมูลพนักงานอยู่ ให้ขึ้น Message ว่า "มีข้อมูลพนักงานอยู่ ไม่สามารถลบลำดับนี้ได้" ครับ

ขอแสดงความนับถือ

[snasui]

ลองตามไฟล์แนบครับ

โดยที่ F3 เขียนสูตรเพื่อแสดงจำนวนบรรทัดที่ไม่ได้ซ่อน

=SUBTOTAL(103,A4:A65536)

Enter

และเขียน Code ที่ Module1 ตามด้านล่างครับ

Code: Select all

Sub UnhideRow()
If Range("F3") = 70 Then Exit Sub
Range("A4").Offset(Range("F3"), 0) _
    .EntireRow.Hidden = False
End Sub
Sub HideRow()
If Range("F3") = 0 Then Exit Sub
Range("A4").Offset(Range("F3") - 1, 0) _
    .EntireRow.Hidden = True
End Sub

ส่วนการต้องการให้มี Message แสดงขึ้นมาว่ามีพนักงานอยู่ไม่สามารถลบได้ ลองปรับปรุงมาดูก่อน หากติดปัญหาค่อยมาถามกันต่อครับ