Gość: Karolina IP: *.internetdsl.tpnet.pl 19.06.06, 13:28 Czy możecie mi napisać kilka mniej i bardziej skomplikowanych formuł matematycznych ? Z góry dziękuję za pomoc. Odpowiedz Link Zgłoś Obserwuj wątek Podgląd Opublikuj
Gość: Złośliwy Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 13:53 =JEŻELI(L300=1;MIN.K(JEŻELI((DEF.GRUP!$AX$2:$AX$65536)=C300;(DEF.GRUP! $AK$2:$AK$65536));Q300);JEŻELI(L300=2;MIN.K(JEŻELI((DEF.GRUP!$AY$2:$AY$65536) =C300;(DEF.GRUP!$AL$2:$AL$65536));Q300);"BŁĄD")) =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(D3;PARETO!A:C;3;FAŁSZ)) =PRAWDA;"";WYSZUKAJ.PIONOWO(D3;PARETO!A:C;3;FAŁSZ)) Sub definicje() x = 4 y = 2 yy = 2 Do Until IsEmpty(Cells(y, x)) typ = Cells(y, x).Value z = 1 Do Until IsEmpty(Cells(y, x)) Range("A" & yy).Value = typ Range("B" & yy).Value = Cells(y, x).Value If z = 1 Then Range("A" & yy & ":B" & yy).ClearContents yy = yy - 1 End If yy = yy + 1 x = x + 1 z = 0 Loop x = 4 y = y + 1 Loop End Sub Sub unikalne_nazwy_w_kolumnie() Dim nazwy() As String x = 1 'wiersz z kolejnymi kodami y = 1 'ilosc zmiennych w tablicy ReDim nazwy(100) unikalny = True nazwy(1) = "0" Do Until IsEmpty(Sheets("DEF.KOD").Range("C" & x)) = True For d = 1 To y If Sheets("DEF.KOD").Range("C" & x).Value = nazwy(d) Then unikalny = False Exit For End If Next d If unikalny <> False Then nazwy(y) = Sheets("DEF.KOD").Range("C" & x).Value Sheets("DEF.GRUP").Range("B" & y).Value = nazwy(y) Sheets("DEF.GRUP").Range("A" & y).Value = Sheets("DEF.KOD").Range("B" & x).Value y = y + 1 If y > UBound(nazwy) Then ReDim Preserve nazwy(UBound(nazwy) + 10) End If End If unikalny = True x = x + 1 Loop End Sub Sub rozdzial_kolkow_na_grupy() Dim tablica() As Single wiersz = 3 If Range("S1").Value <> "OK" Then MsgBox ("WYBIERZ POPRAWNE KRYTERIA DLA WSZYSTKICH POZYCJI PRODUKCYJNYCH") Exit Sub End If Range("T3:T35536").ClearContents Do Until IsEmpty(Range("P" & wiersz)) il_grup = Range("P" & wiersz).Value If il_grup > 0 Then ReDim tablica(1 To 3, 1 To il_grup) For wiersz_Tablicy = 1 To il_grup Range("Q" & wiersz).Value = wiersz_Tablicy tablica(1, wiersz_Tablicy) = Range("R" & wiersz).Value tablica(2, wiersz_Tablicy) = Range("S" & wiersz).Value If wiersz_Tablicy = 1 Then tablica(3, wiersz_Tablicy) = tablica(2, wiersz_Tablicy) Else tablica(3, wiersz_Tablicy) = tablica(3, wiersz_Tablicy - 1) + Range("S" & wiersz).Value End If Next wiersz_Tablicy Range("Q" & wiersz).Value = 1 'For x = 1 To 3 ' For y = 1 To il_grup ' Cells(wiersz + y, 30 + x).Value = tablica(x, y) ' Next y 'Next x stan = Range("I" & wiersz).Value czy_czas = False For x = 1 To (il_grup - 1) If stan - (tablica(1, x + 1) - tablica(1, x)) * tablica(3, x) > 0 Then stan = stan - (tablica(1, x + 1) - tablica(1, x)) * tablica(3, x) Else czas = tablica(1, x) + (stan / tablica(3, x)) czy_czas = True Exit For End If Next x If czy_czas = False And tablica(3, il_grup) > 0 Then czas = tablica(1, il_grup) + (stan / tablica(3, il_grup)) End If Range("T" & wiersz).Value = czas End If If il_grup = 0 Then Range("T" & wiersz).Value = "B/S" End If wiersz = wiersz + 1 Range("T" & wiersz).Activate Loop End Sub Sub sortuj_wg_kolek() Range("B3:T65536").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub Sub sortuj_wg_czas_konca() Range("B3:T65536").Sort Key1:=Range("T3"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub Sub sortuj_kolejnosc_form_wg_czas() Range("B4:J65536").Sort Key1:=Range("H4"), Order1:=xlAscending, Key2:=Range ("F4") _ , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal End Sub Sub sortuj_kolejnosc_form_wh_kolek() Range("B4:J65536").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortNormal End Sub Odpowiedz Link Zgłoś
Gość: Karolina Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 14:18 oj złośliwy jesteś, złośliwy, a ja serio potrzebuję pomocy Odpowiedz Link Zgłoś
Gość: ja Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 14:23 Napisz czego konkretnie potrzebujesz! Bo wypisac kilka jest ciezko. Ktore kilka? Odpowiedz Link Zgłoś
Gość: Karolina Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 14:40 Z tych prostszych: suma, różnica, iloraz i iloczyn dwóch komórek, suma kilku komórek oraz działanie złożone (konkretnie takie właśnie): (( a*100% )/b )- ((( a+ (1-c) *d ) *100% )/e - taki jest wzór który potrzebuję Chodzi mi o zaznaczanie wartości stałych i zmiennych oraz o procenty, wtedy poradzę sobie z tym wzorem i innymi. Odpowiedz Link Zgłoś
Gość: Karolina Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 14:42 aha i jak ustawiać np alfabetycznie, rosnąco i malejąco Odpowiedz Link Zgłoś
Gość: Maxiu ... Re: proszę o pomoc w EXCELU IP: *.neoplus.adsl.tpnet.pl 19.06.06, 16:58 Nie wytrzymam .... Bejbe , pomiłuj !!! do sortowania nie potrzeba pisać formuł :P Odpowiedz Link Zgłoś
singielek1 Re: proszę o pomoc w EXCELU 19.06.06, 18:00 Mogę oczywiście na Twojego priva. Pozdrawiam, Sgk1 Odpowiedz Link Zgłoś
Gość: Karolina Re: proszę o pomoc w EXCELU IP: *.internetdsl.tpnet.pl 19.06.06, 20:02 Ok, dzięki za chęci, poradziłam sobie na podstawie pomocy w arkuszu. Odpowiedz Link Zgłoś