napisał: Kosmo postów: 33
umieszczony: 22 września 2005 07:40
|
|
Słuszna uwaga, panie Stanisławie |
|
napisał: Stanislaw postów: 109
umieszczony: 21 września 2005 16:53
|
|
Moje 3 grosze:
w kodzie procedury "Private Sub CommandButton2_Click"
wydaje się zbędna linijka
Me.Hide
która tylko ukrywa formularz, zwałaszcza, że po niej następuje linijka
Unload Me
usuwająca formularz z pamięci, co sprawia, że znika on z ekranu
bez potrzeby wcześniejszego ukrywania.
--
Pozdrawiam
Stanislaw |
|
napisał: Kosmo postów: 33
umieszczony: 21 września 2005 11:12
|
|
Może to Ci pomoże albo na coś naprowadzi:
Private Sub CommandButton1_Click()
'zatwierdzenie danych do wpisania
początkowy_wiersz_tabeli = 7 'na przykład
wiersz = Application.WorksheetFunction.CountA(Range("a:b")) + początkowy_wiersz_tabeli
'Range("a:b")lub inny zakres, w którym jest tabela
kolumna = 1 'na przykład
'i dalej:
Worksheets("arkusz1").Cells(wiersz, kolumna) = nazwa_pola_tekstowego1
Worksheets("arkusz1").Cells(wiersz, kolumna + 1) = nazwa_pola_tekstowego2
Worksheets("arkusz1").Cells(wiersz, kolumna + 2) = nazwa_pola_tekstowego3
Worksheets("arkusz1").Cells(wiersz, kolumna + 3) = nazwa_pola_tekstowego4
End Sub
Private Sub CommandButton2_Click()
'anulowanie danych
nazwa_pola_tekstowego1 = ""
nazwa_pola_tekstowego2 = ""
nazwa_pola_tekstowego3 = ""
nazwa_pola_tekstowego4 = ""
End Sub
Private Sub CommandButton2_Click()
'Zamknięcie formularza
Me.Hide
Unload Me
End Sub |
|
napisał: Gossard postów: 13
umieszczony: 28 lipca 2005 14:18
|
|
Witam Wszystkich!
Na poczatek chciałbym rzec, iż dopiero zaczynam swa przygodę z VBA. Dla niektórych użytkowników mój problem okaże się banalny, ale ja... Otóż stworzyłem dla tabeli w Excelu UserForm, na nim znajdują się cztery TextBoxy, oraz dwa CommandButton'y, zatwierdzający oraz anulujący wprowadzanie danych. Oczywiście aby aktywną komórką stała się poniższa. a dane wprowadzały się dopiero po skorzystaniu z CommondButtona zatwierdzjącego
Otóż po wprowadzeniu danych do TextBox'ów nie sa one przenoszone do tabeli w Excelu... Szczerze powiem, iż próbowałem skorzystać dostosowanego kodu z wiadomości o InputBox'ie, ale nic z tego:(
Czy ktoś mógłby mi pomóc, jak to wykonać, jaki kod wpisać? Byłbym bardzo wdzięczny!!! |
|
wstecz 1 dalej wszystkich stron: 1
|