Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64681 Skopiuj do schowka Uzupełnienie makra
Autor Wiadomość
Krzysiek 
Exceloholic


Pomógł: 3 razy
Posty: 212
Wysłany: 08-04-2019, 14:57   Uzupełnienie makra

Korzystam z makra liczącego dane w tabeli (makro od forumowicza). Chciałbym prosić o uzupełnienie tego makra o funkcje jak opisałem w załączonym arkuszu.
Pozdrawiam

LKolory.xlsm
Pobierz Plik ściągnięto 9 raz(y) 18.17 KB

ID posta: 365639 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1249 razy
Posty: 4291
Wysłany: 08-04-2019, 17:20   

Z jakich danych ma być ta średnia i odchylenie standardowe? Wpisz w arkuszu jakich oczekujesz wyników.
ID posta: 365647 Skopiuj do schowka
 
 
Krzysiek 
Exceloholic


Pomógł: 3 razy
Posty: 212
Wysłany: 08-04-2019, 17:55   

Dane do obróbki to jedynki tylko z zielonych pół. Do obliczenia średniej przerobiłem makro na postać:
Kod:
Function AvgCellsByColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
    Dim avgRes
   
    Application.Volatile
    avgRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
        AvgCellsByColor = sumRes / WorksheetFunction.Count(rData)
   
End Function

Działa prawidłowo. Jak obliczyć odchylenie pokombinuję.
Pozdrawiam
ID posta: 365649 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1249 razy
Posty: 4291
Wysłany: 08-04-2019, 18:20   

Jak już masz policzone te swoje zielone jedynki, to do średniej i odchylenia nie jest potrzebne makro - wystarczy formuła.

LKolory2.xlsm
Pobierz Plik ściągnięto 10 raz(y) 20.09 KB

ID posta: 365651 Skopiuj do schowka
 
 
Krzysiek 
Exceloholic


Pomógł: 3 razy
Posty: 212
Wysłany: 08-04-2019, 18:25   

Na razie dziękuję. Chciałem hurtem w jednym programie zawrzeć wszystko co chciałem. Popracuję nad tym jeszcze.
Pozdrawiam
ID posta: 365652 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 195 razy
Posty: 885
Wysłany: 08-04-2019, 20:00   

Do info z pliku:
Krzysiek napisał/a:
... Co można zrobić, by makro nie zamulało przy liczeniu ponad setki wierszy? ...

1. Zbieraj dane do zmiennych tablicowych/obszarowych i z nich dokonuj obliczeń
2. Zakomentuj "Volatile", jak niżej, chyba nie ma co przeliczać funkcji z każdą zmianą dowolnej komórki w arkuszu ?
Kod:
'Application.Volatile
ID posta: 365655 Skopiuj do schowka
 
 
Krzysiek 
Exceloholic


Pomógł: 3 razy
Posty: 212
Wysłany: 09-04-2019, 16:28   

Mam zapytanie do forumowicza Macieja Goneta a propos mojego przykładu: czy formuła realizująca proponowany wzór na odchylenie standardowe jest aby poprawna? Bo w niczym nie przypomina ona klasycznego wzoru podręcznikowego w którym pod pierwiastkiem w liczniku jest kwadrat różnicy średniej bieżącej i średniej ogólnej. Mianownik jest w porządku.
Jeżeli formuła jest w porządku to proszę o wyjaśnienie jej.
Wpisz jedynkę w dowolne białe pole tabeli a zobaczysz, że wynik zmieni się. Wynik (średnia i STD może zmienić się tylko przy wypełnianiu pól zielonych).
Pozdrawiam
ID posta: 365732 Skopiuj do schowka
 
 
KOKOSEK
Starszy Forumowicz


Pomógł: 6 razy
Posty: 27
Wysłany: 10-04-2019, 21:18   

Poprawiłem (wg mnie) trochę VBA.
Spróbuj tego, jeśli dobrze rozumiem.

LKolory2.xlsm
Pobierz Plik ściągnięto 3 raz(y) 19.87 KB

  
ID posta: 365832 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe