VBA-1: Excel单元格读写、单元格颜色

Sub WriteExcel()
For i = 1 To 26 Step 1
    v=Worksheets("Sheet 1").Cells(i, 1).Value
    Worksheets("Sheet 1").Cells(i, 2).Value = i*v
    Worksheets(1).Cells(i, 3).Interior.Color = 16777215
    k = cellcolor(1, i, 2, hex2hex("#FA7F6F"))
    colorhex = "#6F7FFA"
    Worksheets(1).Cells(i, 2).Interior.Color = CLng("&H" & colorhex)
    Worksheets(1).Cells(i, 1).Interior.Color = RGB(255, 23, 45)
Next
End Sub


Function hex2hex(mstr As String) As String

hex2hex = Mid(mstr, 6, 2) + Mid(mstr, 4, 2) + Mid(mstr, 2, 2)

End Function


Function cellcolor(sheet As Integer, row As Integer, col As Integer, colorhex As String) As Integer

Worksheets(sheet).Cells(row, col).Interior.Color = CLng("&H" & colorhex)
cellcolor = 1

End Function

存在颜色位置的差异。
k = cellcolor(1, i, 2, hex2hex("#FA7F6F"))
colorhex = “#6F7FFA”