🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #92281

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

#92281
From: Waldi
Date: Fri, 21 Oct 2005 06:28
22 lines
1622 bytes
> Mam mniej więcej taki kawałek kodu, gdzie usuwam sobie listy, przyciski
> etc.ale w przypadku komentarza chciałbym usunąć informacje o autorze. 
> Tylko
> jak??


Np tak:

Sub Makro1()
'---------------------------------------------------------------------------------------
' Procedure : Makro1
' DateTime  : 2005-10-21 08:25
' Author    : waldek e-mail: vba (at) profit.pl
' Purpose   : usuwa z początku komentarza słowo określone zmienną Usuwaj
'---------------------------------------------------------------------------------------
   Usuwaj = "Autor"
   Set cmt = Worksheets(1).Comments
For Each C In cmt
   C.Text Text:=Mid(C.Text, Len(Usuwaj) + 2)
Next

End Sub 
Technical Details
Message-ID: <dja1pu$1mrl$1@news.mm.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news.task.gda.pl!news.mm.pl!not-for-mail
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news.task.gda.pl!news.mm.pl!not-for-mail
From: "Waldi" <nyr@wp.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: Fri, 21 Oct 2005 08:28:07 +0200
Organization: Multimedia Polska sp. z o.o.
Lines: 23
Message-ID: <dja1pu$1mrl$1@news.mm.pl>
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl>
NNTP-Posting-Host: 62.141.232.194
Mime-Version: 1.0
X-Trace: news.mm.pl 1129876094 56181 62.141.232.194 (21 Oct 2005 06:28:14 GMT)
X-Complaints-To: abuse@multimedia.pl
NNTP-Posting-Date: Fri, 21 Oct 2005 06:28:14 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit