napisał: mykey postów: 6
umieszczony: 4 maja 2005 13:38
|
|
Witam ponownie
Juz sobie z tym poradzile :) i tak dla wszystkich zainteresowanch umieszczam rozwiazanie:
"Sub suma()
Worksheets().Range().Formula = "=Sumbycolor()"
End Sub"
a nastepnie przypisac to makro do przcisku myszki i mamy aktualizujace sie pole po dwukrotnym kliknieciu :) |
|
napisał: mykey postów: 6
umieszczony: 4 maja 2005 10:09
|
|
Witam,
Mam pytanie dotyczace opcji automatycznego odswiezania wynikow. Napisalem takie makro:
"Function SumByColor(InputRange As Range, ColorRange As Range)
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Font.ColorIndex
TempSum = 0
On Error Resume Next
For Each cl In InputRange.Cells
If cl.Font.ColorIndex = ColorIndex Then
TempSum = TempSum + cl.Value
End If
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function"
Ma ono zliczac wartosci podane w tabeli uwzgledniajac kolor czcionki. Wszystko dziala jak nalezy, ale chcialbym aby dane sie automatycznie aktualizowaly po dokonaniu zmiany w tabeli w liczbach. Czy jest cos takiego wogole mozliwe?
Pozdrawiam |
|
wstecz 1 dalej wszystkich stron: 1
|