Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Excel: pierwsze przekroczenie wartości

#1
Excel: pierwsze przekroczenie wartości
Witam,
chciałbym prosić Was o pomoc w rozwiązaniu problemu z pewną formułą. Problem wygląda następująco:
Posiadam jedną kolumnę z danymi zmiennoprzecinkowymi. Chciałbym posiadać formułę, która pozwoli mi na wskazanie pozycji wartości, która jest pierwszym od góry przekroczeniem zadanego progu.

Przykład.
wartość progowa (komórka B1): 1,5

dane (komórki A1:A10)
0,9
0,8
0,4
0,9
1,2
1,9
1,6
1,4
1,5
2,1

wynik działania funkcji (komórka C1): 6

Wynikiem powinna więc być liczba 6 jako szósta pozycja od góry, reprezentująca pierwsze przekroczenie wartości progowej w ciągu danych. W sytuacji, kiedy w ciągu nie znajduje się liczba większa od zadanego progu, funkcja powinna zwracać zero.

Byłbym bardzo wdzięczny gdyby ktoś dla podanego przykładu zaproponował formułę rozwiązującą mój problem.

Pozdrawiam,
Bartek
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: Excel: pierwsze przekroczenie wartości
Cytat:...pomoc w rozwiązaniu problemu z pewną formułą
Cytat:...od zadanego progu, funkcja powinna zwracać zero.

To w końcu co? Formuły tu nie widzę, funkcję - tak.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Excel: pierwsze przekroczenie wartości
Udało się rozwiązać problem:
=PODAJ.POZYCJĘ(PRAWDA;$A$1:$A$10>B1;0)

Dziękuję za zainteresowanie.
 System operacyjny: windows_seven Przeglądarka: chrome
#4
RE: Excel: pierwsze przekroczenie wartości
Alt-F11 > Wstaw > Moduł > wklej:
Kod PHP:
Option Explicit

Function Pierwsza_Wieksza(Kolumna As RangeProg As Range)
Dim i As IntegerAs Integerkol As Integer

kol 
Kolumna.Column
Cells(Rows.Countkol).End(xlUp).Row

Pierwsza_Wieksza 
0
For 1 To d
    
If Cells(i1).Value Prog.Value Then
        Pierwsza_Wieksza 
i
        
Exit For
    
End If
Next i
End 
Function 

Funkcja (użytkownika) zwraca w wybranej komórce nr wiersza w/g podanych argumentów (argument: Kolumna - wystarczy wskazać dowolną komórkę w kolumnie).

Ale jeśli zawsze ma być kol. A:A, B1 i C1 - to praktyczniejsze będzie makro:
Kod PHP:
Option Explicit
Sub FirstGT
()
Dim i As IntegerAs Integer

Cells(Rows.Count"A").End(xlUp).Row
Cells
(13).Value 0

For 1 To d
    
If Cells(i1).Value Cells(12).Value Then
        Cells
(13).Value i
        
Exit For
    
End If
Next i
End Sub 


Heh... nie wiem co bardziej skomplikowane - bo formuła nie spełnia warunku:
Cytat:W sytuacji, kiedy w ciągu nie znajduje się liczba większa od zadanego progu, funkcja powinna zwracać zero.

Po korekcie:
Kod PHP:
C1=JEŻELI(CZY.BŁĄD(PODAJ.POZYCJĘ(PRAWDA;$A$1:$A$10>B1;0));0;PODAJ.POZYCJĘ(PRAWDA;$A$1:$A$10>B1;0)) 
Tylko czy zawsze będzie zakres A1:A10?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (Excel: pierwsze przekroczenie wartości)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
Question "Excel 2007": Nie wychodzą kolory na wydrukach. Jaka przyczyna? Jak naprawić? dawidsab 8 2412 14.01.2019, 16:47
Ostatni post: dawidsab
  Dziwne wartości użycia procesora w menadżerze zadań koper1473 1 550 04.10.2018, 23:09
Ostatni post: jerzyf
  masowa zmiana wartości w nazwie plików moninml 2 2878 17.08.2018, 13:05
Ostatni post: panaho

Skocz do:


Wybrane wątki (Excel: pierwsze przekroczenie wartości)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  i5-3230m i Philips PUS6561/12 Wireless Display - Problem WildGee 0 3402 03.09.2017 14:54
Ostatni post: WildGee
  Dysk SDD i Windows 10 kolo48 5 3349 02.09.2017 15:30
Ostatni post: Ajgor
  Problem ze z botowaniem windows 7 Zone10 11 5776 02.09.2017 11:11
Ostatni post: ~Anonim
  Klient poczty email a prywatność fatymid 11 5600 01.09.2017 21:37
Ostatni post: ~Anonim
  problem z odzyskaniem ustawien fabrycznych notebooka Sony Vaio drx8888 5 1071 01.09.2017 17:02
Ostatni post: ~Anonim
  Słaba wydajność laptopa przed jak i po formacie Nightday96 9 4458 01.09.2017 13:30
Ostatni post: ~Anonim
  Diagnostyka powolnego uruchamiania Windows 7 oraz Google chrome klatkowanie filmów ppqq 4 1109 31.08.2017 06:31
Ostatni post: ppqq
Sad Przyciecia obrazu Arct 3 3516 29.08.2017 13:17
Ostatni post: Arct
  Codzienne bluescreeny przed 3 lata! JestemKuba 3 3542 29.08.2017 10:42
Ostatni post: broda99
Sad Windows 10 zawiesza się podczas startu systemu. GrYVi 5 12128 27.08.2017 21:36
Ostatni post: GrYVi
  Jak usunąć Avast Antivirus Clear Unistall? krzysiek1993 4 3231 26.08.2017 17:37
Ostatni post: krzysiek1993
  Instalacja systemu - brak sterownika. Dothraki 3 5165 24.08.2017 22:47
Ostatni post: Armo
  [Windows 10] Po ponownym uruchomieniu nie włącza się cieptak 4 1165 23.08.2017 15:34
Ostatni post: cieptak
Ściana Asus K53T - Blue Screen i ciągłe zamulanie komputera. MannyG 5 3660 21.08.2017 21:24
Ostatni post: Armo
Question "Firefox 55.0.2" (64-bity) się zamyka. Dopiero przy 3 otwarciu działa. Przyczyna? dawidsab 6 3931 21.08.2017 17:45
Ostatni post: dawidsab