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

Article View: pl.comp.lang.vbasic

Article #92269

Back to pl.comp.lang.vbasic Previous Next

#92269

From: Stanislaw
Date: Thu, 20 Oct 2005 21:46

19 lines
1460 bytes

Sub Usun_autora_z_komentarza()

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

End Sub

--
Stanislaw

Technical Details

Message-ID: <1129844818.216627.167640@g49g2000cwa.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g49g2000cwa.googlegroups.com!not-for-mail

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

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g49g2000cwa.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: 20 Oct 2005 14:46:58 -0700
Organization: http://groups.google.com
Lines: 20
Message-ID: <1129844818.216627.167640@g49g2000cwa.googlegroups.com>
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl>
NNTP-Posting-Host: 83.175.176.33
Mime-Version: 1.0
X-Trace: posting.google.com 1129844823 29032 127.0.0.1 (20 Oct 2005 21:47:03 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 20 Oct 2005 21:47:03 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g49g2000cwa.googlegroups.com; posting-host=83.175.176.33; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message