Re: zimenna typu date w tabeli

Article View: pl.comp.lang.vbasic

Article #104200

Back to pl.comp.lang.vbasic Previous Next

#104200

From: Jacek
Date: Mon, 29 Jun 2009 05:19

17 lines
1375 bytes

Ten kod w kolumnie B wstawi ">1" w przypadku, gdy wartosc w A wystepuje
wiecej niz 1 raz:

Sub qq()
x = 1
z = 0
While Cells(x, 1) <> ""
  y = 1
  While Cells(y, 1) <> ""
    If x <> y Then
      If Cells(x, 1) = Cells(y, 1) Then Cells(x, 2) = ">1"
    End If
    y = y + 1
  Wend
  x = x + 1
Wend
End Sub

Technical Details

Message-ID: <v8pw74yf9qsz$.vw894rph43iu.dlg@40tude.net>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!not-for-mail

References:

<a75e2721-78da-4433-a11a-7c48f1082905@g20g2000vba.googlegroups.com>  <h1t3gm$hee$1@inews.gazeta.pl> <d93ff76f-0fad-4b52-9739-00b8f25bade5@l12g2000yqo.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!not-for-mail
From: Jacek <ala@ola.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: zimenna typu date w tabeli
Date: Mon, 29 Jun 2009 07:19:46 +0200
Organization: Netia S.A.
Lines: 17
Message-ID: <v8pw74yf9qsz$.vw894rph43iu.dlg@40tude.net>
References: <a75e2721-78da-4433-a11a-7c48f1082905@g20g2000vba.googlegroups.com>  <h1t3gm$hee$1@inews.gazeta.pl> <d93ff76f-0fad-4b52-9739-00b8f25bade5@l12g2000yqo.googlegroups.com>
NNTP-Posting-Host: 77-254-87-195.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1246253446 4705 77.254.87.195 (29 Jun 2009 05:30:46 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Mon, 29 Jun 2009 05:30:46 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
X-Antivirus-Status: Clean
X-Antivirus: avast! (VPS 090628-0, 2009-06-28), 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