Re: Jak w *.xls usunąć autora komentarza?

Article View: pl.comp.lang.vbasic

Article #92270

Back to pl.comp.lang.vbasic Previous Next

#92270

From: juras
Date: Fri, 21 Oct 2005 07:38

22 lines
1600 bytes

Dim komórka     As Range
Dim pusty       As String

On Error Resume Next

    For Each komórka In Selection.Cells
        With komórka.Comment
            pusty = Replace(.Text, Application.UserName & ":", "", , ,
vbTextCompare)
            .Text pusty
        End With
    Next komórka

Dzięki.
Rozumiem, że kluczowe jest:
            pusty = Replace(.Text, Application.UserName & ":", "", ,
,vbTextCompare).Text pusty
czy da się to jakoś wykonać w pętli którą podałem, czy wykonać
przeszukiwanie ponownie?

pozdr
Jurek

Technical Details

Message-ID: <708c5$43589af9$3eb35d81$26394@news.chello.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail

References: <d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail
From: "juras" <jurrekm@poczta.onet.pl>
Newsgroups: pl.comp.lang.vbasic
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com>
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: Fri, 21 Oct 2005 09:38:33 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <708c5$43589af9$3eb35d81$26394@news.chello.pl>
X-Complaints-To: abuse@chello.pl
Organization: chello.pl
Lines: 25
NNTP-Posting-Host: 62.179.93.129 (62.179.93.129)
NNTP-Posting-Date: Fri, 21 Oct 2005 09:38:33 +0200
X-Trace: 708c543589af99b16f82426394
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message