Article View: pl.comp.lang.vbasic
Article #104379Re: Przeszukiwanie w excelu
From: janusz
Date: Tue, 17 Nov 2009 20:14
Date: Tue, 17 Nov 2009 20:14
23 lines
1445 bytes
1445 bytes
Witam
dla przykładu
Gapa | wredny
zamieni na
Gapa | wredna
Zamieni zaznaczony fragment kol A
Sub Zamien()
Dim Kom As Range
For Each Kom In Selection
If Mid(Kom, 1, 1) = "G" Then
Kom.Offset(0, 1) = Mid(Kom.Offset(0, 1), 1, Len(Kom.Offset(0, 1)) - 1) _
& Replace(Mid(Kom.Offset(0, 1), Len(Kom.Offset(0, 1)), 1), "y", "a")
End If
Next
End Sub
Janusz
Technical Details
Message-ID:
<hdv0c1$7qd$1@atlantis.news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!opal.futuro.pl!news.internetia.pl!newsfeed.neostrada.pl!nemesis.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mailReferences:
<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!newsfeed.neostrada.pl!nemesis.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail From: "janusz" <b_janusz@op.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: Przeszukiwanie w excelu Date: Tue, 17 Nov 2009 21:14:39 +0100 Organization: TP - http://www.tp.pl/ Lines: 25 Message-ID: <hdv0c1$7qd$1@atlantis.news.neostrada.pl> References: <51c44459-0ac9-49af-8756-8f8360202fd7@o10g2000yqa.googlegroups.com> NNTP-Posting-Host: ell159.neoplus.adsl.tpnet.pl X-Trace: atlantis.news.neostrada.pl 1258489025 8013 83.21.205.159 (17 Nov 2009 20:17:05 GMT) X-Complaints-To: usenet@news.neostrada.pl NNTP-Posting-Date: Tue, 17 Nov 2009 20:17:05 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.5843 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579 X-RFC2646: Format=Flowed; Original MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit