ต้องการให้ใน Listbox บรรทีดที่ตรงกับเงื่อนไข มีสีที่แตกต่าง

[yodpao.b]

ต้องการให้ใน Listbox บรรทีดที่ตรงกับเงื่อนไข มีสีที่แตกต่าง
ตารางแสดงผลดังนี้

0.JPG

ต้องการให้บรรทัดที่มีตำว่า "ใช้งานอยู่" แสดงแถบสี หรือ ตัวหนังสือ เป็นสีที่แตกต่างครับ
ตัวอย่างดังรูป

1.JPG

Listbox ที่แสดงอยู่ Module2_Reset

Code: Select all

Sub ResetFormBorrow1()

    Dim iRow As Long

'    iRow = [Counta(Database!A:A)] ' idetifying the last row
    iRow = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Row
    

    With frmBorrow
        .lstDatabase.ColumnCount = 10
        .lstDatabase.ColumnHeads = True
        .lstDatabase.ColumnWidths = "40,130,200,130,60,0,0,0,0,0"
            If iRow > 1 Then
                .lstDatabase.RowSource = "Database!A6:J" & iRow
                    Else
                        .lstDatabase.RowSource = "Database!A6:J6"
            End If
    End With
    
End Sub

ขั้นตอนการทำงาน
คลิก

2.JPG

[yodpao.b]

ไฟล์แนบครับ

[snasui]

เขียน Code สำหรับการระบายสีไว้แล้วหรือไม่ ถ้ายังไม่เขียนให้เขียนมาก่อนครับ

[yodpao.b]

เขียนไม่ได้ครับ เปิด web หาดูทั้งวัน ไม่เจอเลยครับ
มีใครพอมีไกด์ไลน หรือ web ไหนช่วยบอกเป็นไกด์ไลนหน่อยครับ

[snasui]

ดูตัวอย่างที่นี่ครับ

[yodpao.b]

ขอบคุณครับ

0.JPG

ลักษณะแบบนี้เหมือนการเลือกมากกว่าครับ
ถ้าต้องการให้เป็นตัวหนังสือ สีแดงทั้งแถวละครับ
ต้องแก้ code อย่างไร

Code: Select all

Private Sub UserForm_Initialize()

Me.ListBox1.RowSource = "data"
Me.ComboBox1.RowSource = "months"

'.ListItems(lv_item).ForeColor = RGB(255, 0, 0)
'Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = vbRed

Dim i As Long, Total As Long
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
If Me.ListBox1.List(i, 2) = "no" Then
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.Selected(i) = True
End If
Next i

End Sub

[snasui]

ไม่มี Property ให้ทำเช่นนั้นได้ครับ

การจะทำอะไรได้นั้นมันจะต้องมี Property เช่น object.color โดยการกำหนดค่าจะมีลักษณะเช่น object.color = vbred เป็นต้น ถ้าไม่มี Property นั้นหรือมีแต่ให้อ่านอย่างเดียวก็ไม่สามารถจัดการได้ครับ

[yodpao.b]

ขอบคุณมากครับ
ผมเปลี่ยนมาใช้คำสั่งอื่นดีกว่าครับ

ในตอนที่ต้องการใส่สี ใน list ก็เพื่อให้เขาเห็นชัดชัดว่าบรรทัดนี้ อย่าเลือก

แต่คิดไปคิดมามันไม่น่าจะสวยเวลาแสดงข้อมูล

เลยหันมาเลือกใช้ if ดีกว่า

ไฟล์นี้เสร็จแล้วครับและทดลองทำงานได้ตามต้องการทุกอย่าง

ขอความพระคุณอย่างสูง