Przeszukiwanie w excelu

Thread View: pl.comp.lang.vbasic

3 messages

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

3 total messages Started by ZielonY Tue, 17 Nov 2009 10:03

#104377

Author: ZielonY
Date: Tue, 17 Nov 2009 10:03

12 lines
1891 bytes

Witam:)

Jestem zupełnie "ZielonY" z VBA. Narzędzie jakie stworzyłem sobie do
pracy jest na poziomie przedpodstawowym ale działa:). Napotkałem
jednak na problem z którym nie mogę sobie poradzić. Otóż chcę
przeszukać kolumnę A i jak znajdę wpis zaczynający się na np G zmienić
w tym samym wierszu ale już w kolumnie B końcówkę wpisu z "y." na
"a.". Wygląda to pewnie na mało czytelne ale problem dla kogoś
doświadczonego w programowaniu w Vba zawrze się w kilku linijkach kodu
a ja się męczę bez skutku od.....nie przyznam się..;)...proszę o
pomoc...w razie potrzeby wyślę wzorzez w xls. Dziękuję wszystkim za
pomoc :)

Re: Przeszukiwanie w excelu

#104378

Author: Jacek
Date: Tue, 17 Nov 2009 18:08

20 lines
1823 bytes

Dnia Tue, 17 Nov 2009 02:03:46 -0800 (PST), ZielonY napisał(a):

> Witam:)
> 
> Jestem zupełnie "ZielonY" z VBA. Narzędzie jakie stworzyłem sobie do
> pracy jest na poziomie przedpodstawowym ale działa:). Napotkałem
> jednak na problem z którym nie mogę sobie poradzić. Otóż chcę
> przeszukać kolumnę A i jak znajdę wpis zaczynający się na np G zmienić
> w tym samym wierszu ale już w kolumnie B końcówkę wpisu z "y." na
> "a.". Wygląda to pewnie na mało czytelne ale problem dla kogoś
> doświadczonego w programowaniu w Vba zawrze się w kilku linijkach kodu
> a ja się męczę bez skutku od.....nie przyznam się..;)...proszę o
> pomoc...w razie potrzeby wyślę wzorzez w xls. Dziękuję wszystkim za
> pomoc :)

x=1
While Cells(x,1)<>""
  If Left(Cells(x,1),1)="G" then Cells(x,2)=Replace(Cells(x,2),"y","a"))
  x=x+1
Wend

Re: Przeszukiwanie w excelu

#104379

Author: janusz
Date: Tue, 17 Nov 2009 20:14

23 lines
1445 bytes

Witam
dla przykładu
      Gapa    | wredny

zamieni na
      Gapa    | wredna


Zamieni zaznaczony fragment kol A

Sub Zamien()
Dim Kom As Range

For Each Kom In Selection
If Mid(Kom, 1, 1) = "G" Then
Kom.Offset(0, 1) = Mid(Kom.Offset(0, 1), 1, Len(Kom.Offset(0, 1)) - 1) _
& Replace(Mid(Kom.Offset(0, 1), Len(Kom.Offset(0, 1)), 1), "y", "a")
End If
Next
End Sub


Janusz

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