สอบถามการทำ MsgBox เพิ่มเติมครับ
Posted: Wed Mar 14, 2018 4:00 am
ผมอยากทราบ Code ใน VBA ที่กดลูกศรแล้วให้เลือกระหว่าง รายรับกับรายจ่าย (ใน Column ประเภท) พอกดรายรับสีพื้นหลังจะเป็นสีฟ้า หรือพอกดรายจ่ายสีพื้นหลังจะเป็นสีชมพู
ลองปรับเป็นโค้ดนี้ครับborsalino wrote: Wed Mar 14, 2018 4:00 am ผมอยากทราบ 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