...
МОЙ_МАССИВ = Array(0,10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,255)
Как создать свой массив цветов?
В моем файле цвета выбираются в Function GetAColor()
'If WorkbookIsActive Then
'Buttons(ButtonCount).ColorButton.BackColor = _
'ActiveWorkbook.Colors(ButtonCount)
'Else
'Buttons(ButtonCount).ColorButton.BackColor = _
'ThisWorkbook.Colors(ButtonCount)
'End If
Соответственно, если вместо
'Buttons(ButtonCount).ColorButton.BackColor = _
'ThisWorkbook.Colors(ButtonCount)
я подставлю
'Buttons(ButtonCount).ColorButton.BackColor = _
'МОЙ_МАССИВ(ButtonCount), то по идее все должно получиться.
Проблема в том, что я с массивами еще не разобрался. Поэтому не знаю, как сделать массив из 56 ячеек, чтобы значения цветов брались из этого массива, а не из стандартного набора в 56 цветов.
Плиз, очень нужно. Помогите ламеру. СПАСИБО"!
'If WorkbookIsActive Then
'Buttons(ButtonCount).ColorButton.BackColor = _
'ActiveWorkbook.Colors(ButtonCount)
'Else
'Buttons(ButtonCount).ColorButton.BackColor = _
'ThisWorkbook.Colors(ButtonCount)
'End If
Соответственно, если вместо
'Buttons(ButtonCount).ColorButton.BackColor = _
'ThisWorkbook.Colors(ButtonCount)
я подставлю
'Buttons(ButtonCount).ColorButton.BackColor = _
'МОЙ_МАССИВ(ButtonCount), то по идее все должно получиться.
Проблема в том, что я с массивами еще не разобрался. Поэтому не знаю, как сделать массив из 56 ячеек, чтобы значения цветов брались из этого массива, а не из стандартного набора в 56 цветов.
Плиз, очень нужно. Помогите ламеру. СПАСИБО"!
Самое простое, использовать Array, написать:
Можно забить все нужные цвета в строку, разделенные, например запятой, а потом использовать Split:
в МОЙ_МАССИВ теперь храниться массив наших цветов, только значения их будут типа String, но в данном случае это не принципиально.
Код:
Можно забить все нужные цвета в строку, разделенные, например запятой, а потом использовать Split:
Код:
Const ColorsStr = "0,10,20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,255"
Sub t()
...
МОЙ_МАССИВ = Split(ColorsStr, ",")
End Sub
Sub t()
...
МОЙ_МАССИВ = Split(ColorsStr, ",")
End Sub
в МОЙ_МАССИВ теперь храниться массив наших цветов, только значения их будут типа String, но в данном случае это не принципиально.