mialem zrobione makro do arkusza do liczenia liter z odpowiednimi kolorami ne excelu, no niestety po zmianie firmy pracuje na openoffice 3.3 czy moglbym prosic o przerobienie tego
z góry dziękuje za pomoc
Kod: Zaznacz cały
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Function LICZ_KOLOR2(Pattern As Range, Data As String, ParamArray x())
Dim i As Byte, j As Byte
Dim Item
Application.Volatile
LICZ_KOLOR2 = 0
For Each Item In x()
If IsArray(Item) Then
If IsObject(Item) Then
For i = 1 To Item.Rows.Count
For j = 1 To Item.Columns.Count
If Item(i, j).Font.Color = Pattern.Interior.Color And _
(Item(i, j).Value = Data Or Data = "") Then
LICZ_KOLOR2 = LICZ_KOLOR2 + 1
End If
Next j
Next i
End If
Else
If IsObject(Item) Then
If Item.Font.Color = Pattern.Interior.Color And _
(Item.Value = Data Or Data = "") Then
LICZ_KOLOR2 = LICZ_KOLOR2 + 1
End If
End If
End If
Next Item
End Function