Deggasad SliceЕще вопросик в догонку..... Почему при изменение формата данных в ячейках, не все принимают этот формат? приходится в каждую из них дабл кликом заходить, как через VBA попросить эксель принимать нужный формат во всех ячейках?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Function FColor(Optional Etalon As Range, Optional GdeIskat As Range) As String
Dim EtColor As Long, rngColumn As Range, rngRows As Range, ColLetter As String, stroka1 As String, stroka2 As String
EtColor = Etalon.Interior.ColorIndex
Application.Volatile
For Each rngColumn In GdeIskat.Columns
For Each rngRows In rngColumn.Rows
If rngRows.Interior.ColorIndex = EtColor Then stroka1 = stroka1 & "," & rngRows.Address( 0 , 0 )
Next
ColLetter = Split(Columns(rngColumn.Column).Address, ":$")( 1 )
stroka2 = stroka2 & Chr( 10 ) & "в столбце " & ColLetter & " - " & _
IIf(stroka1 = "", "нет", "ячейки " & Replace(stroka1, ",", "", 1 , 1 ))
stroka1 = ""
Next
FColor = "В диапазоне " & GdeIskat.Address( 0 , 0 ) & _
" цветом " & EtColor & "(ячейка " & Etalon.Address( 0 , 0 ) & ") окрашены: " & stroka2
End Function
Поменяй на эту функцию или сам добавь строку
И можно обновлять по нажатию <F9>
Не помогло....
Это никак не относится к твоей функции, просто есть заполненные ячейки в формате даты, а я меняю ее формат и какие-то ячейки обновляются, а какие-то остаются такими же, хотя я всем присвоил одинаковый формат
