เขียนVBAเพื่อกดปุ่มดึงกล่องกรอกข้อมูลออกมา

[natsuda]

ตามหัวข้อนะคะ
1 จะมีรูปเครื่องหมายบวกสีฟ้าอยู่ทางด้านซ้ายมือ พอกดลงมาจะมีช่องให้กรอก แต่ติดตรงที่พอกดดึงลงมาแล้วกลับไม่ลงมาให้ แต่ตอนนำดึงขึ้นกลับทำได้ค่ะ
2 คือพอยกเลิกการกดที่Design Mode แล้วกรองที่ให้ทำการกรองข้อมูลกลับหายไปคะ รบกวนช่วยหน่อยนะคะ ขอบคุณค่ะ

โค๊ดที่ใช้เพื่อการกดปุ่มจะเป็นประมาณนี้นะคะ

Code: Select all

Private Sub Image1_Click()
If rh = 0 Then
ObInvisible1
Rows(1).Interior.ColorIndex = 41
Rows(1).RowHeight = 10
Rows(2).RowHeight = 20
rh = 1

Range("B2").Value = "<< ........."
Exit Sub

ElseIf rh = 1 Then

Rows(1).Interior.Color = vbHighlight
Rows(1).RowHeight = 20
Rows(2).RowHeight = 150
rh = 0
ObVisible1
Range("B2").Value = ""
Exit Sub

End If
End Sub

Private Sub Label5_Click()
    ObReset
End Sub

Private Sub Worksheet_Activate()
rh = 0
Image1_Click
End Sub

[snasui]

แนบไฟล์ที่มี Code VBA มาด้วยครับ

ไฟล์ที่จะแนบ Code ได้จะมีนามสกุลเป็นเช่น .xlsm, .xlsb เป็นต้นครับ

[natsuda]

ขอโทษทีนะคะ ที่ไม่ได้ตรวจก่อนค่ะ

[snasui]

ตัวอย่างการปรับ Object และ Code ครับ

ปรับ Object ให้เป็นตามภาพ

SetDontMoveAndSize.png

ตัวอย่าง Code เพื่อการยุบและขยายบรรทัด

Code: Select all

If Range("a1") = 1 Then
    Shapes.Range(Array("กลุ่ม 1")).Visible = True
    Rows(2).RowHeight = 150
    Range("a1").Value = 0
    Range("b2").Value = ""
Else
    Shapes.Range(Array("กลุ่ม 1")).Visible = False
    Rows(2).RowHeight = 20
    Range("a1").Value = 1
    Range("b2").Value = "<< ........."
End If