Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

excel makra problem

#1
excel makra problem
witam dostalem takie zadanie domowe ma to wyglądać tak jak w załączniku , a mam tu błąd i to chyba nie jeden znaleźć tam ma się uzupełniać po kolei w kolejnych komórkach , dzięki za pomoc pozdraiam

Kod PHP:
Sub Przygotuj_arkusz()
Range("A:Z").Clear
Range
("A1").Formula "Lp"
Range("B1").Formula "Tytul"
Range("C1").Formula "Ilość"
Range("D1").Formula "Cena zakupu"
With Range("A1:D1").Interior
.ColorIndex 6
End With
Range
("A1:D1").Font.Bold True
Range
("A1""C1:D1").Columns.AutoFit
Range
("B:B").ColumnWidth 30
End Sub

Sub w_dane
()
Application.CountA(Sheets("Ksiazki").Range("A:A"))
Do
1
ilosc 
InputBox("Podaj ilosc książek danego tytulu""Ilosc""0")
If 
Not IsNumeric(iloscThen
MsgBox 
"Podaj liczbe"vbOKOnly"error"
Exit Sub
End 
If
cena InputBox("Podaj cene książek danego tytulu""Cena""0")
If 
Not IsNumeric(cenaThen
MsgBox 
"Podaj liczbe"vbOKOnly"error"
Exit Sub
End 
If
Range("A" i).Value 1
Range
("B" i).Formula InputBox("Podaj tytul ksiazki""Tytul")
Range("C" i).Formula ilosc
Range
("D" i).Formula CCur(cena)
Loop While MsgBox("Czy dodajesz nowe dane"vbYesNo"Dodaj") = vbYes
End Sub

Option Explicit
Dim rekord 
As Integer

Sub ile
()
rekord Range("Ksiazki!A1").CurrentRegion.Rows.Count
lblRekordliczba
.Caption rekord 1
lstKsiazki
.RowSource "Ksiazki!a2:d" rekord
End Sub

Private Sub cmbAnuluj_Click()
txtTytul.Text ""
txtIlosc.Text ""
txtCena.Text ""
End Sub

Private Sub cmbAnuluj_MouseMove(ByVal Button As IntegerByVal Shift As IntegerByVal X As SingleByVal Y As Single)
With cmbAnuluj.Font
.Bold True
.Size 10
End With
cmbAnuluj
.ForeColor RGB(25500)
End Sub

Private Sub cmbDodaj_Click()
If 
Not IsNumeric(txtIlosc.TextThen
MsgBox 
"Podaj wartosc liczbową"vbOKOnly"Błąd"
Exit Sub
End 
If
If 
Not IsNumeric(txtCena.TextThen
MsgBox 
"Podaj wartosc liczbową"vbOKOnly"Błąd"
Exit Sub
End 
If
Range("Ksiazki!A" rekord 1).Value rekord
Range
("Ksiazki!B" rekord 1).Value txtTytul.Text
Range
("Ksiazki!C" rekord 1).Value CInt(txtIlosc.Text)
Range("Ksiazki!D" rekord 1).Value CCur(txtCena.Text)
txtTytul.Text ""
txtIlosc.Text ""
txtCena.Text ""
Call ile
End Sub

Private Sub cmbDodaj_MouseMove(ByVal Button As IntegerByVal Shift As IntegerByVal X As SingleByVal Y As Single)
With cmbDodaj.Font
.Bold True
.Size 10
End With
cmbDodaj
.ForeColor RGB(25500)
End Sub

Private Sub cmbWyjscie_Click()
frmKsiazki.Hide
End Sub

Private Sub MultiPage1_MouseMove(ByVal Index As LongByVal Button As IntegerByVal Shift As IntegerByVal X As SingleByVal Y As Single)
With cmbDodaj.Font
.Bold False
.Size 8
End With
cmbDodaj
.ForeColor RGB(000)
With cmbAnuluj.Font
.Bold False
.Size 8
End With
cmbAnuluj
.ForeColor RGB(000)
End Sub

Private Sub UserForm_Initialize()
Call ile
End Sub 


Załączone pliki Miniatury
   
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: excel makra problem
1. Kod wklejamy w znacznikach "Kod" lub "Kod PHP" - poprawiłem.
2. Kod napisany (skopiowany?) bez ładu i składu. Zlepek kilku makropoleceń na zasadzie "trochę przerobię i a nuż się uda".
3. Podałeś kod a w załączniku pokazujesz formę. Masz ją w ogóle?

Daj plik źródłowy (.xls) i napisz jak ma ten kod działać.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (excel makra problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Excel, GIMP, Photoshop - nauka z książki? adi191 1 722 09.02.2020, 18:36
Ostatni post: Fix00ser
  Pobieranie rekordów z Facebook'a - MS Excel krisoo 1 2061 29.10.2019, 05:06
Ostatni post: broda99
Question "Excel 2007": Nie wychodzą kolory na wydrukach. Jaka przyczyna? Jak naprawić? ~Anonim 8 4052 14.01.2019, 16:47
Ostatni post: ~Anonim

Skocz do:


Wybrane wątki (excel makra problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Nie umiem zainstalować virtualbox 5.1.38 w win10 aktywny27 0 707 28.09.2018 00:01
Ostatni post: aktywny27
  Sprzedaż komputera a dane natka94 6 4198 27.09.2018 15:37
Ostatni post: Ajgor
  Jak zabezpieczyć plik "compressed zipped folder" hasłem? Baguette10 4 4335 27.09.2018 13:40
Ostatni post: Illidan
  Mozilla Firefox problem maze20lb 1 3924 26.09.2018 20:08
Ostatni post: maze20lb
  Problem z xp Graciano Pele 1 3799 26.09.2018 09:32
Ostatni post: Ajgor
Ściana Ciągła aktualizacja Defender Antywirus - KB2267602 ? DonOmar3 7 5409 26.09.2018 06:43
Ostatni post: DonOmar3
  Jak przeinstalować Windows 7 na laptopie? gamepad 8 4439 24.09.2018 14:33
Ostatni post: gamepad
  Problem z VC++ 2015 dantek321 2 4220 24.09.2018 13:32
Ostatni post: dantek321
  Zestaw słuchawkowy dla streamerów levanthai 0 3705 24.09.2018 04:39
Ostatni post: levanthai
  przenoszenie danych z pamięci zewnętrznej do komputera evita 1 3917 23.09.2018 21:35
Ostatni post: Officer Crabtree
  Uprawnienia dla odszyfrowania pulpitu Seliao90 0 3519 23.09.2018 10:08
Ostatni post: Seliao90
  Otwierające się nowe karty w przeglądarce i spowoloniony internet koziom 3 3806 22.09.2018 16:54
Ostatni post: koziom
  winload.efi i UEFI Mkill 6 4940 20.09.2018 23:13
Ostatni post: Mkill
  Dziwny proces w menadżerze zadań. meJson96 3 4356 20.09.2018 15:12
Ostatni post: Fix00ser
  Stracone pliki karta sd lordkwiatek 5 4219 19.09.2018 12:09
Ostatni post: Fix00ser