Funkcja w VBA "licz jeżeli"

Thread View: pl.comp.lang.vbasic

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by lach Mon, 15 Dec 2008 13:46

#103872

Author: lach
Date: Mon, 15 Dec 2008 13:46

13 lines
1847 bytes

Witam!
Siedzę nad problemem już 2 dni i nic nie mogę wymyślić. Wiem że sprawa
jest prosta,  ale nie mogę sobie poradzić z tą funkcją w VBA.
Napisałem funkcję w Excelu , ale ponieważ ona na bieżąco analizuje
cały arkusz więc przez to spowalnia działanie innych makr co powoduje
że  moje rozwiązanie jest nie do przyjęcia. Problem jest następujący:
Załóżmy że mamy dane jedynie w dwóch kolumnach. Rekordów jest jakaś
liczba n. Chcę napisać funkcję która obliczy mi ilość rekordów, kiedy
w kolumnie pierwszej jest 1 ORAZ w kolumnie 2 jest  np. 1,32, 51 ,
6,7 ....  (czyli jakieś wartości definiowane przeze mnie)
Z góry dziękuję za pomoc i wszystkie sugestie
Pozdrawiam
Piotrek

Re: Funkcja w VBA "licz jeżeli"

#103874

Author: Jacek
Date: Mon, 15 Dec 2008 15:56

18 lines
1380 bytes

Zakladajac, ze wartosci zdefiniowane przez Ciebie sa w kolumnie C, a dane
sa w A i B, to cos w tym stylu:

Sub qq()
x = 1
While Cells(x, 1) <> ""
  y = 1
  Do While Cells(y, 3) <> ""
    If Cells(x, 1) = 1 And Cells(x, 2) = Cells(y, 3) Then
      N = N + 1
      Exit Do
    End If
      y = y + 1
  Loop
  x = x + 1
Wend
Cells(1, 4) = N
End Sub

Re: Funkcja w VBA "licz jeżeli"

#103876

Author: radoslaw85
Date: Wed, 26 Jun 2019 12:57

8 lines
1629 bytes

a czy tak nie prościej:

lastR = Cells(Rows.Count, 1).End(xlUp).Row

'możesz dodatkowo wynik wpisać sobie w jakąś komórkę:
Range("D1") = lastR

i odrazu wiesz ile masz wierszy, a to identyfikuje ci liczbę rekordów...

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads