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 4066 09.02.2020, 18:36
Ostatni post: Fix00ser
  Pobieranie rekordów z Facebook'a - MS Excel krisoo 1 4579 29.10.2019, 05:06
Ostatni post: broda99
Question "Excel 2007": Nie wychodzą kolory na wydrukach. Jaka przyczyna? Jak naprawić? ~Anonim 8 7651 14.01.2019, 16:47
Ostatni post: ~Anonim

Skocz do:


Wybrane wątki (excel makra problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Windows 10 home i brak slajdów na ekranie blokady DanielAr 0 5036 17.06.2019 10:40
Ostatni post: DanielAr
  Problem z wysyłaniem plików na laptopa przez BT laser 5 11773 16.06.2019 10:09
Ostatni post: Uzytkownikk
  Przywracanie systemu do ustawień początkowych Machuu 3 1463 16.06.2019 09:19
Ostatni post: Michu_PL
  Vista i svchost.exe Qatro 0 5027 13.06.2019 13:36
Ostatni post: Qatro
  Explorer.exe wszystkie wymagane dllki lordmkoes 0 5001 12.06.2019 09:43
Ostatni post: lordmkoes
  Jak przeniesc folder ulubione andrzej29 5 1649 11.06.2019 22:54
Ostatni post: Ajgor
  Trojan w avaście alicja1956 5 6861 06.06.2019 18:00
Ostatni post: jou300
  [Win 10] Jaki klucz kupić? OEM SROEM Allegro loanme 11 11210 06.06.2019 14:50
Ostatni post: Officer Crabtree
  Jakiś dobry program do emulowania wirtualnych napędów mrowa93 6 9381 04.06.2019 13:44
Ostatni post: Illidan
  Jak przywrócić domyślną czcionkę w Notatniku w systemie Windows 10 Home LilPeneros 3 6008 02.06.2019 15:39
Ostatni post: Armo
  Skąd pobrać ms office 2003? sewerynn 8 5956 31.05.2019 13:07
Ostatni post: paintedfireworks
  Jak przywrócić domyślną czcionkę w Notatniku w systemie Windows 10 Home LilPeneros 0 5094 30.05.2019 21:20
Ostatni post: LilPeneros
  Ogromny spadek FPS dawid1233 3 5819 22.05.2019 10:48
Ostatni post: goblin
  Win7 - Rozmiar folderu goblin 0 5410 22.05.2019 10:40
Ostatni post: goblin
  Włączanie Wind 10 błąd CMOS checksum Error polak123 2 6094 16.05.2019 21:40
Ostatni post: polak123