Thursday, October 20, 2016

Excel - Định dạng màu tự động từ các chỉ số (R, G, B)

Microsoft Excel Magic : How to make colors automatically, using the R G B value?

https://www.youtube.com/watch?v=pRsB_fZDvXA

Private Sub CommandButton1_Click()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
R = Range(Cells(i, 1), Cells(i, 1)).Value
G = Range(Cells(i, 2), Cells(i, 2)).Value
B = Range(Cells(i, 3), Cells(i, 3)).Value
Range(Cells(i, 4), Cells(i, 4)).Interior.Color = RGB(R, G, B)
Next i
End Sub

--/--

Với:

  • i = 2: i là hàng/dòng bắt đầu tính toán. Giá trị này cần thay thế tùy thuộc vào bảng của bạn.
    Ví dụ: Bắt đầu tính toán và trả ra giá trị từ hàng 5 thì phải thay "i = 5"
  • Cells(i, 4): 4 là cột mà màu sẽ trả ra. Con số này thay đổi theo tùy chọn của người dùng. Muốn trả ra màu ở cột thứ mấy thì thay số 4 thành số thứ tự của cột đó.
    Ví dụ: Muốn trả ra giá trị ở cột thứ 10 thì phải thay là "Cells(i, 10)"