Re: Funkcja w VBA "licz jeżeli"

Article View: pl.comp.lang.vbasic

Article #103874

Back to pl.comp.lang.vbasic Previous Next

#103874

From: 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

Technical Details

Message-ID: <1gqg5i96xqw3n.stm8u70rrkfo$.dlg@40tude.net>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.internetia.pl!not-for-mail

References: <5ca5f2c4-1fac-4e64-a684-2ace6f730962@k36g2000pri.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!news.internetia.pl!not-for-mail
From: Jacek <adres@moj.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Funkcja w VBA "licz jeżeli"
Date: Mon, 15 Dec 2008 16:56:04 +0100
Organization: Netia S.A.
Lines: 18
Message-ID: <1gqg5i96xqw3n.stm8u70rrkfo$.dlg@40tude.net>
References: <5ca5f2c4-1fac-4e64-a684-2ace6f730962@k36g2000pri.googlegroups.com>
NNTP-Posting-Host: 87-205-60-29.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1229356995 23645 87.205.60.29 (15 Dec 2008 16:03:15 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Mon, 15 Dec 2008 16:03:15 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
X-Antivirus-Status: Clean
X-Antivirus: avast! (VPS 081215-1, 2008-12-15), Outbound message
User-Agent: 40tude_Dialog/2.0.15.1pl
X-Server-Info: http://www.internetia.pl/news/
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message