Snasui Excel Forum

ข้อ2 จากรูปด้านล่าง ช่อง textbox มีไว้สำหรับเลือกแต่ถ้าลืมแล้วคียลงไปโปรแกรมจะค้าง มีวิธีใดบ้างครับที่ไม่ให้คีย์ได้ หรือคีย์เครื่องฟ้องว่าหาไม่พบ

yodpao.b wrote:จากรูปที่ลูกศรชี้ใส่ สกอร์บาร์ได้ไหมครับ(ที่มันเลื่อนขึ้นเลื่อนลง)

1.GIF

Private Sub UserForm_Initialize()
    With Me
        .ScrollBars = fmScrollBarsBoth
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 2
    End With
End Sub

yodpao.b wrote:อยากถามอาจาร์ 2 ข้อครับ
ข้อ1จากรูปด้านล่าง โดยคำสั่งให้คลิกปุ่มหมายเลข 2 ฟอร์มจะขึ้นมาแล้วค่อยกรอกข้อมูลแล้วคอยสั่งให้มันนำกลับไปลงที่ textboxหมายเลข 1
แต่ว่าเป็นไปได้ไหมถ้าให้คลิกที่ช่องหมายเลข 1 แล้วฟอร์มขึ้นมาเลย พอกรอกในฟอร์มเสร็จแล้วคลิก okในฟอร์มย่อย แล้วข้อมูลก็เด้งไปอยู่ในtextboxหมายเลข 1

22222.GIF

โดคที่ได้ทดลองทำดังนี้ (โคด้อยู่ใtextbox)

Code: Select all

Private Sub TextBox111_Change()
Form3_Search1.Show
End Sub

ผลลัพท์คือตรงคีย์ตัวอักษรก่อนฟอร์มย่อยถึงจะปรากฏขึ้นมา พอคีย์ฟอร์มย่อยแล้วคลิก ok เกิด eeror เพราะคำสั่งไปซ้อนกับโดคที่เห็น
พร้อมกันนี้ได้แนบไฟล์อาจาร์ยได้ทดลอง ชื่อ ฟอร์ม Form3_NamePersonnel_AddData

Private Sub TextBox111_Change()
Form3_Search1.Show
End Sub

Private Sub TextBox111_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Form3_Search1.Show
End Sub

ลอง Search คำถามของคุณ Joo ใน Forum นี้เกี่ยวกับเรื่องนี้เพิ่มเติมดูครับ

1. ที่กล่องคีย์เวอร์ดสำหรับค้นหา คีย์ Dropdown หากไม่ทราบสามารถปล่อยว่างได้
2. ที่กล่องค้นหาจากผู้แต่งคีย์ Joo
3. เลื่อนไปด้านล่างสุดของหน้าจอแล้วคลิกค้นหา