Dodaj do ulubionych

proszę o pomoc w EXCELU

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.
Obserwuj wątek
    • 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
      • 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
        • 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?
          • 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.
          • 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
            • 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
    • singielek1 Re: proszę o pomoc w EXCELU 19.06.06, 18:00
      Mogę oczywiście na Twojego priva.

      Pozdrawiam,
      Sgk1
      • 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.
Inne wątki na temat:

Nie masz jeszcze konta? Zarejestruj się


Nakarm Pajacyka