napisał: pil
postów: 154
 umieszczony:
25 marca 2005
08:39
|
|
Option Explicit
Private Sub WyswietlInf(wiersz, kolumna)
MsgBox "przeszukiwana kolumna : " & kolumna & ", pierwsza pusta komórka w wierszu nr : " & wiersz
End Sub
Sub Przycisk1_Kliknięcie()
Dim i, col As Integer
i = 1 'wartość startowa
col = 1 'numer przeszukiwanej kolumny 1-A, 2-B, 3-C itd.
Do While (Arkusz1.Cells(i, col).Value <> "")
'iteracja licznika jeżeli zawartość komórki w
'kolumnie col w Arkusz1 jest różna od łańcucha pustego
i = i + 1
Loop
Call WyswietlInf(i, col) 'uruchomienie procedury wyświetlającej informację
End Sub
Powodzenia. |
|
|
napisał: Darek
postów: 3
umieszczony:
22 marca 2005
21:39
|
|
Dzięki za odzew. Ale mi chodzi o konketną formułe. VB zajmuję się od klu tygodni i o amatorsko. zrobiem mały plik lecz brakuje mi tylko tej formuły.
Pozdrawiam |
|
|
napisał: pil
postów: 154
umieszczony:
21 marca 2005
07:04
|
|
Spróbuj wykorzystać pętle do...while
i=1' wartość startowa licznika
Do While (Worksheets("Arkusz1").Cells(i, 1) <> "")
jakiś tam kod
i=i+1
Loop |
|
|
napisał: Darek
postów: 3
umieszczony:
20 marca 2005
22:37
|
|
Witam Wszystkich.
Jestem tutaj pierwszy raz
i od razu mam pytanie tak jak niżej tyle tylko, że problem dotyczy Excel-a. Czyli nie wiem jak napisać makro by odnajdywało mi pierwszą wolną komórkę w konkretnej kolumnie bez względu, która komórka jest w danym momencie zaznaczona. Z góry dziękuję i pozdrawiam
Darek:o |
|
|
napisał:  admin
postów: 613
umieszczony:
2 marca 2005
18:55
|
|
| Cytat: Witam
Mam problem, mam do napisania w OPEN OFFICE PL
Hm... Open Office nie wspiera VBA. Czy się mylę? |
|
|
napisał: fan
postów: 1
umieszczony:
23 lutego 2005
01:07
|
|
Witam
Mam problem, mam do napisania w OPEN OFFICE PL takie makro które dziala nastepujaco:
na arkuszu_1 jest wypelniany formulaz ktorego zawartosc po zatwierdzeniu makrem jest kopiowana do tabeli w arkuszu_2 a formulaz w arkuszu _1 jest czyszcony
Dziala mi to wszystko dla tylko jednego wpisu bo kazdy kolejny jest zapisywany na tym poprzednim, nie wiem JAK PRZEJSC DO OSTATNIEGO WOLNEGO WIERSZA W TABELI tak by wpisy z formularza byly dokonywane jeden pod drugim w tabeli. Czy ktos mi pomoze??
Z gory dzieki |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
