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)"