กล่อง ComboBox ไม่โชว์ค่า ทศนิยม 2 ต่ำแหน่งครับ

[yodpao.b]

Capture5.PNG

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

Capture6.PNG

จุดประสงต์คือในรูปแรกตอน list รายการออกมาต้องการให้โชว์ค่า ทศนิยม 2 ต่ำแหน่งครับ

Code: Select all

Private Sub ComboBox4_Change()
ComboBox4 = Format(ComboBox4.Value, "0.00")
End Sub

[snasui]

ปรับให้เป็น 2 ตำแหน่งที่ต้นแหล่งก่อนที่จะนำเข้า หรือปรับให้เป็น 2 ตำแหน่งในขณะนำเข้าซึ่งต้อง Loop เข้ามา แทนใช้ RowSource ครับ

[yodpao.b]

Capture3.PNG

จากรูป ที่แหล่งต้นทางปรับเป็น 2 ต่ำแหน่ง ครับ แต่ผลที่ได้เป็นเหมือนเดิมครับ


จากรูป ลองใส่ Code ดู ผลก็เหมือนเดิมครับ

Code: Select all

Range("H3").Select
Do While Not IsEmpty(ActiveCell.Value)
        ComboBox4.AddItem ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
    ComboBox4.Text = Format(ComboBox4.Text, "0.00")
Loop

code อยู่ใน Private Sub UserForm_Initialize()

ไฟล์แนบ

รบกวนอาจารย์ช่วยดูหน่อยครับ

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Range("H3").Select
Do While Not IsEmpty(ActiveCell.Value)
    ComboBox4.AddItem Format(ActiveCell.Value, "0.00")
    ActiveCell.Offset(1, 0).Select
    'ComboBox4.Text = Format(ComboBox4.Text, "0.00")
Loop

[yodpao.b]

ขอบคุณครับอาจารย์

[yodpao.b]

เรียนอาจารย์ครับ และถ้าเป็น code นี้ละครับ
จะแก้ไขให้มี หลักพันได้ตรงไหนครับ

Code: Select all

Sheets("DATA0").Select
Range("J3").Select
MyComboBox2Initial = ActiveCell.Value
MyComboBox2 = ActiveCell.Value
ComboBox2.AddItem MyComboBox2
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell.Value)
    If MyComboBox2 <> ActiveCell.Value Then
        MyComboBox2 = ActiveCell.Value
        ComboBox2.AddItem MyComboBox2
    End If
    ActiveCell.Offset(1, 0).Select
    Loop

ผมลองเปลี่ยน Code แต่ก็ใช้ไม่ได้ Codeดังนี้

Code: Select all

Sheets("DATA0").Select
Range("J3").Select
MyComboBox2Initial = ActiveCell.Value
MyComboBox2 = ActiveCell.Value
ComboBox2.AddItem MyComboBox2
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell.Value)
    If MyComboBox2 <> ActiveCell.Value Then
        MyComboBox2 = ActiveCell.Value
        ComboBox2.AddItem MyComboBox2
        ComboBox2.AddItem Format(ActiveCell.Value, "#,###")  
    End If
    ActiveCell.Offset(1, 0).Select
    Loop

code ที่เพิ่มอยู่บรรทัดที่ 11 ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

จาก Code

Code: Select all

MyComboBox2 = ActiveCell.Value
ComboBox2.AddItem MyComboBox2

ปรับเป็น

Code: Select all

MyComboBox2 = Format(ActiveCell.Value,"#,##0")
ComboBox2.AddItem MyComboBox2

หรือปรับให้เหลือเพียง

Code: Select all

MyComboBox2.AddItem = Format(ActiveCell.Value,"#,##0")

มีกี่บรรทัดที่เป็นการ AddItem ก็ปรับให้หมดครับ

[yodpao.b]

จาการแก้ไข code คังต่อไปนี้

Code: Select all

Sheets("DATA0").Select
Range("J3").Select
'MyComboBox2Initial = ActiveCell.Value
MyComboBox2Initial = Format(ActiveCell.Value, "#,##0")   'เพิ่ม code
'MyComboBox2 = ActiveCell.Value
MyComboBox2 = Format(ActiveCell.Value, "#,##0")   'เพิ่ม code
ComboBox2.AddItem MyComboBox2
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell.Value)
    If MyComboBox2 <> ActiveCell.Value Then
        'MyComboBox2 = ActiveCell.Value
        MyComboBox2 = Format(ActiveCell.Value, "#,##0")   'เพิ่ม code
        ComboBox2.AddItem MyComboBox2
    End If
    ActiveCell.Offset(1, 0).Select
    Loop

ได้ผลดังรูปด้านล่าง
ซึงข้อมูลใน List มีซำ้กันครับ ความต้องการคือต้องไม่ซ้ำกันครับ

Capture2.PNG

ส่วนรูปด้านล่างนี้ถูกต้องครับ ใน List ไม่ซ้ำกันครับ แต่ไม่มีหลักพันครับ

code ด้านบน ไม่แน่ใจว่าผม แก้ไขถูกต้องไหมมันถึงได้มีซ้ำกัน

[yodpao.b]

คำถามด้านบน ยกเลิกครับ ผมใช้วิธีการ ใช้ตัวกรองข้อมูลให้ค่าออกมาไม่ซ้ำกันใน Excel แทนการใช้ Code ครับ
ขอบคุณมากครับ