Re: Przeszukiwanie w excelu

Article View: pl.comp.lang.vbasic

Article #104378

Back to pl.comp.lang.vbasic Previous Next

#104378

From: Jacek
Date: Tue, 17 Nov 2009 18:08

20 lines
1823 bytes

Dnia Tue, 17 Nov 2009 02:03:46 -0800 (PST), ZielonY napisał(a):

> Witam:)
> 
> Jestem zupełnie "ZielonY" z VBA. Narzędzie jakie stworzyłem sobie do
> pracy jest na poziomie przedpodstawowym ale działa:). Napotkałem
> jednak na problem z którym nie mogę sobie poradzić. Otóż chcę
> przeszukać kolumnę A i jak znajdę wpis zaczynający się na np G zmienić
> w tym samym wierszu ale już w kolumnie B końcówkę wpisu z "y." na
> "a.". Wygląda to pewnie na mało czytelne ale problem dla kogoś
> doświadczonego w programowaniu w Vba zawrze się w kilku linijkach kodu
> a ja się męczę bez skutku od.....nie przyznam się..;)...proszę o
> pomoc...w razie potrzeby wyślę wzorzez w xls. Dziękuję wszystkim za
> pomoc :)

x=1
While Cells(x,1)<>""
  If Left(Cells(x,1),1)="G" then Cells(x,2)=Replace(Cells(x,2),"y","a"))
  x=x+1
Wend

Technical Details

Message-ID: <1t8rykmcx58gw$.6w7wrjqr9cl6.dlg@40tude.net>

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

References: <51c44459-0ac9-49af-8756-8f8360202fd7@o10g2000yqa.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!opal.futuro.pl!news.internetia.pl!not-for-mail
From: Jacek <ala@ola.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Przeszukiwanie w excelu
Date: Tue, 17 Nov 2009 19:08:41 +0100
Organization: Netia S.A.
Lines: 20
Message-ID: <1t8rykmcx58gw$.6w7wrjqr9cl6.dlg@40tude.net>
References: <51c44459-0ac9-49af-8756-8f8360202fd7@o10g2000yqa.googlegroups.com>
NNTP-Posting-Host: 77-254-120-128.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1258481417 2768 77.254.120.128 (17 Nov 2009 18:10:17 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Tue, 17 Nov 2009 18:10:17 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
X-Antivirus-Status: Clean
X-Antivirus: avast! (VPS 091117-0, 2009-11-17), 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: 8bit

Reply to Parent Message