Hugo121
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно и так, но проще нажать на запись, залить ячейку цветом, остановить запись и посмотреть код.
А для всех цветов есть уже готовый файл в сети, вот макрос из него:
Код: Sub colors56()
'57 colors, 0 to 56
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim i As Long
Dim str0 As String, str As String
For i = 0 To 56
Cells(i + 1, 1).Interior.ColorIndex = i
Cells(i + 1, 1).Value = "[Color " & i & "]"
Cells(i + 1, 2).Font.ColorIndex = i
Cells(i + 1, 2).Value = "[Color " & i & "]"
str0 = Right("000000" & Hex(Cells(i + 1, 1).Interior.Color), 6)
'Excel shows nibbles in reverse order so make it as RGB
str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
'generating 2 columns in the HTML table
Cells(i + 1, 3) = "#" & str & "#" & str & ""
Cells(i + 1, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
Cells(i + 1, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
Cells(i + 1, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
Cells(i + 1, 7) = "[Color " & i & ")"
Next i
done:
Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic
Application.ScreenUpdating = True
End Sub
|
А кодом типа твоего я ChrW(i) символов нерусских/неанглийских определял:
Код: For i = 1 To 30000
Cells(i, 1).Value = ChrW(i)
Next i
|
|
Я тоже в свое время долго трахался над возможностью удаленного управления книгой, без её активации. 
В мануале про это ни слова не нашёл. 
