สอบถามการทำ MsgBox เพิ่มเติมครับ

[borsalino]

ผมอยากทราบ Code ใน VBA ที่กดลูกศรแล้วให้เลือกระหว่าง รายรับกับรายจ่าย (ใน Column ประเภท) พอกดรายรับสีพื้นหลังจะเป็นสีฟ้า หรือพอกดรายจ่ายสีพื้นหลังจะเป็นสีชมพู

[puriwutpokin]

ผมอยากทราบ Code ใน VBA ที่กดลูกศรแล้วให้เลือกระหว่าง รายรับกับรายจ่าย (ใน Column ประเภท) พอกดรายรับสีพื้นหลังจะเป็นสีฟ้า หรือพอกดรายจ่ายสีพื้นหลังจะเป็นสีชมพู

ลองปรับเป็นโค้ดนี้ครับ

Code: Select all

Sub Click()
 Dim cel As Range
    Range("A65536").End(xlUp).Offset(0, 0).EntireRow.Select
    Selection.Insert
    Range("A65536").End(xlUp).Offset(-1, 0).Value = Date - 1
    Range("A65536").End(xlUp).Offset(-1, 5).FillDown
    Range("A65536").End(xlUp).Offset(-1, 6).FillDown
    Range("A65536").End(xlUp).Offset(-1, 1).Select
    Application.CutCopyMode = False
         For Each cel In Range("g2:g90")
         Select Case LCase(Left(cel.Value, 7))
             Case "รายรับ"
                 cel.Offset(, -5).Resize(, 6).Interior.Color = RGB(0, 255, 255)
             Case "รายจ่าย"
                 cel.Offset(, -5).Resize(, 6).Interior.Color = RGB(255, 0, 255)
         End Select
     Next cel
End Sub