Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - VBA

bobol · Wysłany: 24-01-2007, 17:58 **VBA**

Witam wszystkich!
Jak zaznaczyć ostatnią niepustą komórkę w aktywnym wierszu (V.B.A.)

Rycho · Excel Expert **Pomógł:** 203 razy Posty: 322

Hej

Cells(ActiveCell.Row, Cells.Columns.Count).End(xlToLeft).Select

bobol · Wysłany: 24-01-2007, 18:39

Dzięki Rycho!

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Można to zrobić jeszcze inaczej. Linia będzie bardziej rozbudowana, ale daje większe możliwości. Posiada jednak jeden mankament.

Kod:

OstatniaNiepustaKomórka = Rows(ActiveCell.Row).Find(What:="*", _
After:=Cells(ActiveCell.Row, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select

Problemem może być brak komórki niepustej w obszarze przeszukiwanym. Plusy: uwzględnia komórki ukryte oraz nie ma potrzeby sprawdzać czy komórka od której rozpoczynasz poszukiwania jest pusta (czego i tak w zasadzie się nie robi). Dla dużego obszaru poszukiwań jest szybsza od sposobu przedstawionego przez Rycha. Pewne elelmenty w przedstawionej linii można pominąć.
Rozwiązanie to podejrzałem na forum VBA.mania u kolegi Artika.

Osobiście stosuję sposób przedstawiony przez Rycha, ale tylko z przyzwyczajenia.

Pozdrawiam

bobol · Wysłany: 25-01-2007, 11:12

Dzięki Trebor !!!
Odpowiedź Rycha jest na 10.
Twoja pewnie też mi się przyda.

Przy okazji, mam kolejny problem.

Mam zaznaczony obszar (przykładowo:) A20:J20 jak w dalszej części kodu umieścić w pierwszej i ostatniej komórce zaznaczenia komentarz z wartośćą , odpowiednio w kolumnach z komórki z trzeciego wiersza.

Pozdrawiam

Tajan · **Pomógł:** 5501 razy Posty: 11968

Możesz to trochę szerzej objaśnić? Np. co w przypadku, gdy w zaznaczeniu będzie więcej wierszy?

bobol · Wysłany: 25-01-2007, 14:29

Witam
Dzięki Tajan za zainteresowanie !

Nie może być więcej wierszy w zaznaczeniu, dotyczy tylko pojedyńczego wiersza,
i zawsze komórki z tej samej kolumny z trzeciego wiersza gdzie wpisana jest data
która ma być pobrana do komentarza w pierwszej komórce zaznaczonego obszaru
oraz w ostatniej.
Z kolumny ostatniej zaznaczonego obszaru.

Ale zagmatwałem. :oops:

Tajan · **Pomógł:** 5501 razy Posty: 11968

No, faktycznie niezbyt to jasne :-)

Ale myślę, że chodzi Ci o coś takiego:

Kod:

Sub test()
Dim w As Long
Dim k1 As Long, k2 As Long
Dim cmt As Comment

Range("A20:J20").Select

With Selection
w = .Row
k1 = .Column
k2 = .Column + .Columns.Count - 1
End With

With Cells(w, k1)
Set cmt = .Comment
If cmt Is Nothing Then Set cmt = .AddComment
cmt.Text Text:=Cells(3, k1).Text
End With

With Cells(w, k2)
Set cmt = .Comment
If cmt Is Nothing Then Set cmt = .AddComment
cmt.Text Text:=Cells(3, k2).Text
End With

End Sub

bobol · Wysłany: 25-01-2007, 23:42

Dzięki Tajan!
Właśnie to, to jest to. :-D