formatownie wierszy

Thread View: pl.comp.lang.vbasic

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by news.gazeta.pl Tue, 23 Mar 2010 08:59

#104546

Author: news.gazeta.pl
Date: Tue, 23 Mar 2010 08:59

25 lines
1639 bytes

Prośba o pomoc w stworzeniu makra które formatowało by wiersze w nastepujący 
sposób:
z
      1 PIERSCIEN CENTR. 1 1.1730 2893-150
      2 PLYTA MOCUJACA 1 1.1731 2893-151
      3 PLYTA MOCUJACA 1 1.1732 2893-152

na
      1 PIERSCIEN CENTR. 1 2893-150
                                             1.1  1 1.1730
      2 PLYTA MOCUJACA 1 2893-151
                                             1.2   1.1731
      3 PLYTA MOCUJACA 1 2893-152
                                            1.3   1.1732

Z góry dziekuję
S.M. 



__________ Informacja programu ESET NOD32 Antivirus, wersja bazy sygnatur wirusow 4966 (20100322) __________

Wiadomosc zostala sprawdzona przez program ESET NOD32 Antivirus.

http://www.eset.pl lub http://www.eset.com

Re: formatownie wierszy

#104548

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads