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

Skocz do:


Wybrane wątki (excel makra problem)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Thunedrbird - problem z odnośnikami w postach. marcoosp 2 2814 03.02.2019 17:45
Ostatni post: marcoosp
  Przekierowanie w przeglądarce greg8403 0 2764 03.02.2019 16:54
Ostatni post: greg8403
  ZenWriter Nomeolvides 0 3126 03.02.2019 14:15
Ostatni post: Nomeolvides
  problem z podglądem czcionki w Windows 7 64 bit marcoosp 2 3630 03.02.2019 13:05
Ostatni post: marcoosp
Wink Program do bezwzględnego fomatowania dysków. Squeazz 3 3419 03.02.2019 11:52
Ostatni post: Fix00ser
  Odzyskiwanie plików z folderu dokumenty . BartexVP 1 3853 03.02.2019 05:45
Ostatni post: stens
  Dump crash report phixor 5 3182 02.02.2019 23:15
Ostatni post: Officer Crabtree
  Dziwny problem po 1h-2h/różnie grania w fortnite Pompa12 3 3476 29.01.2019 20:54
Ostatni post: Squeazz
  Słaby laptop i który system wybrać mt17 6 5361 29.01.2019 18:35
Ostatni post: BartiX!
  "Programy i funkcje" nie widzi zainstalowanych programów na innej partycji.. kokus98 2 4008 25.01.2019 22:42
Ostatni post: kokus98
  Gamblr nie pozwala przesłać grafik i video na INSTAGRAM lionelius 0 2997 25.01.2019 12:34
Ostatni post: lionelius
  Win 7 - Logowanie usługi profilów nie powiodło się Muerte 22 7272 19.01.2019 13:13
Ostatni post: Der Langsame
  GiftSoft Privacy Protector Trojan? CREATIVE_ 2 3951 19.01.2019 00:22
Ostatni post: CREATIVE_
  Notepad++,wyrażenia regularne i usuwanie tekstu raxer 0 825 18.01.2019 12:58
Ostatni post: raxer
  OFFICE 2010 nie zapisuje jako pdf WitKac7 1 3326 17.01.2019 06:18
Ostatni post: Michu_PL