Re: formatownie wierszy

Article View: pl.comp.lang.vbasic

Article #104548

Back to pl.comp.lang.vbasic Previous Next

#104548

From: Jacek
Date: Tue, 23 Mar 2010 11:50

17 lines
1184 bytes

Sub qq()
x = 1
y = 1
z = 1
Dim a As String
Dim l As Integer
While Sheets(1).Cells(x, 1) <> ""
    a = Sheets(1).Cells(x, 1)
    l = Len(a)
    Sheets(2).Cells(y, 1) = Left(a, l - 15) & Right(a, 8)
    y = y + 1
    Sheets(2).Cells(y, 1) = "'1." & z & " " & Mid(a, l - 15 + 1, 6)
    x = x + 1
    y = y + 1
    z = z + 1
Wend
End Sub

Technical Details

Message-ID: <1gafsfhm0cqp5$.1njmiyzc9pvf9.dlg@40tude.net>

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

References: <ho9vu7$4jq$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: Jacek <ala@ola.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: formatownie wierszy
Date: Tue, 23 Mar 2010 12:50:10 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 17
Message-ID: <1gafsfhm0cqp5$.1njmiyzc9pvf9.dlg@40tude.net>
References: <ho9vu7$4jq$1@inews.gazeta.pl>
NNTP-Posting-Host: 83-238-145-113.ip.netia.com.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1269345013 8960 83.238.145.113 (23 Mar 2010 11:50:13 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Tue, 23 Mar 2010 11:50:13 +0000 (UTC)
X-User: sha-lom
X-Antivirus: avast! (VPS 100322-0, 2010-03-22), Outbound message
X-Antivirus-Status: Clean
User-Agent: 40tude_Dialog/2.0.15.1pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message