การใช้คำสั่งใน Combobox

[13th]

สวัสดีครับ
มีประเด็นอยากจะขอความช่วยเหลือในการใช้คำสั่งใน Combobox ครับ
ผมพยายามหาวิธีการมาหลายวันแล้วแต่ก็หาไม่ได้เลยตัดสินใจขอความช่วยเหลือกับอาจารย์ทุกท่าน

Code: Select all

Private Sub ComboBox11_dropbuttonClick()
ComboBox11.Clear
Sheets("source").Range("b5:b24").ClearContents

Sheets("source").Range("b5").Select
    i = Sheets("source").Range("b5").Value
    Do
    
    i = i + 1
    Selection.Value = i
    Selection.Offset(1, 0).Select
    Loop Until i = Sheets("saba").Range("g36").Value
    
Dim m11 As Range 
Dim mr11 As Range
With Sheets("source")
Set m11 = .Range(("B5"), .Range("B24"))
End With
For Each mr11 In m11
ComboBox11.AddItem mr11
Next mr11
    

End Sub

- วิธีแก้ไขที่ช่วยให้หยุดการวนลูปซ้ำ เมื่อเวลาเรากดคลิ๊กที่ Combobox ไหมครับ เพราะว่าเวลากดแต่ละครั้งมันก็จะมีข้อมูลขึ้นซ้ำมาทุกครั้ง

* ขอโทษด้วยครับที่ไม่ได้แนบไฟล์

[snasui]

แนบไฟล์ตัวอย่างมาพร้อมอธิบายวิธีการทดสอบ ปัญหาที่เป็น และสิ่งที่ต้องการให้เป็น จะได้สะดวกในการตอบครับ

[13th]

ขอโทษด้วยครับ พอดีรีบโพสรีบออกไปทำงาน

คือผมได้ลองสร้างฟอร์มขึ้นมาเพื่อให้ง่ายต่อการprintลงแบบพิมพ์ต่อไปครับ

long.xls

- ฟอร์มที่ใช้ userform1 แต่ผมไม่ได้ให้มันโหลดไว้เพราะใช้ทดสอบๆแก้ๆอยู่เรื่อยๆครับ

ซึ่งฟอร์มจะมีให้ใส่ จำนวนปี(textbox1) , จำนวนยอดเงินรวม(textbox2) , แล้วระบุงวดที่...(combobox1) ,ถึงงวดที่...(combobox2) เป็นจำนวนเงิน(textbox3)

สิ่งที่เจอปัญหาและต้องการทำคือ เมื่อระบุจำนวนปี เช่น 8 ปี จึงเลือก combobox1 ที่ระบุค่าเป็น 1 ไว้(เป็นงวดที่1) combobox2 ก็จะรันตัวเลขจากงวดที่ 1 ไปจนถึงปีที่ระบุเพื่อให้เราสามารถเลือกได้ว่าจะให้ถึงงวดไหนก็ได้

Code: Select all

Private Sub ComboBox2_DropButtonClick()

Dim m As Range
Dim mr As Range

'ComboBox2.Clear
Range("c5:c14").ClearContents

Range("C5").Select

    i = 0
    Do
    If Range("B1").Value = "" Then
    MsgBox "put year"
TextBox1.SetFocus
    Exit Do
    End If
    i = i + 1
    Selection.Value = i
    Selection.Offset(1, 0).Select
    Loop Until i = Worksheets("Sheet1").Range("B1").Value

With Sheet1
Set m = .Range(("C5"), .Range("C14"))
End With
For Each mr In m
ComboBox2.AddItem mr
Next mr

End Sub

ปัญหากรณีแรก คือ เมื่อเราเกิดเปลี่ยนใจอยากเปลี่ยนงวดใหม่ เมื่อกดcombobox2 มันก็จะมีชุดข้อมูลซ้ำเข้ามาตามจำนวนที่เรากด
ผมก็พยายามลองหาวิธีการและลองปรับเปลี่ยนวิธีการเท่าที่พอจะทำได้(แบบงูๆปลาๆ)

'combobox2.clear พยายามเอาคำสั่งนี้ดักเมื่อคลิ๊กใหม่ ได้ผล แต่กดเลือกรายการไม่ขึ้น

Range("c5:c14").ClearContents ให้ลบข้อมูลในช่วงทุกครั้งเพราะเคยมีผิดพลาด มันบวกมากจนexcelลากยาวจนค้าง

ช่วยปรับและแนะนำด้วยครับ เพราะผมก็พยายามเรียนรู้จากไม่รู้อะไรจนทำฟอร์มช่วยงานง่ายๆได้มาบ้างและพยายามปรับปรุง ผสมผสานโดยส่วนมากก็จากในกระดานนี้ล่ะครับ ขอบคุณมากครับ
*ผมค่อยๆถามนะครับ เพราะผมอ่านที่พิมพ์เองยัง งง เอง

[snasui]

เกิดจากไปใช้ Event ของ ComboBox2_DropButtonClick ซึ่งเป็นการใช้ Event ของตนเองกำหนดค่าให้ตนเอง เมื่อคลิกก็ทำงานทุกครั้งไป

ในกรณีนี้ การกำหนดรายการใน Combobox2 ควรกำหนดจาก Event อื่นไม่ใช่กำหนดจาก Event ที่เกิดจากตนเอง ยกตัวอย่างเปลี่ยน จาก Private Sub ComboBox2_DropButtonClick() ไปเป็น ComboBox1_Change แล้วทดสอบดูใหม่ครับ

[13th]

สวัสดีครับ ขอโทษที่ตอบกลับช้า พอดีว่าที่ทำงานไม่มีเน็ตใช้เลยต้องคอยไปอาศัยคนอื่น

ลองทดสอบดูแล้ว ปรากฏว่า even

Code: Select all

combobox1_change

ได้ผลตามที่ต้องการครับ แต่เมื่อทดลองดูว่าเกิดเปลี่ยนใจจะเปลี่ยนจากกำหนด 10 ปีเป็น 5 ปี
ยังเกิดอาการเดิมๆตามมา ผมเลยเอะใจตามที่อาจารย์แนะนำว่าไปผูก even กับตัวมันเอง เลยยก code ทั้งหมดไปใส่ต่อจากเดิมใน textbox1 ซึ่งรับค่าจำนวนปี ทำให้ได้ตามความต้องการในกรณีนี้แล้วครับ

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

*ตอนนี้พักก่อนแล้วจะแวะเข้ามาขอคำแนะนำเรื่อยๆนะครับ