[es] - [Excel] unos podataka - pamćenje unosa

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

[Excel] unos podataka - pamćenje unosa - reset unosa

^{28.03.2007. u 16:27 - pre 207 meseci}

e ovako,interesuje me da li je ovo moguce u excelu a ako ne u kom programu da napravim ovo.prilozio sam primer koji je simplificiran. naime trebalo bi mi da gornji i donji levi deo sluzi samo za unos podataka i kada se jednom unesu svi podaci onda se datum i zbir ukupno prepisu u desnu tabelu i sve se resetuje,znaci levi deo sluzi samo za unos a pamti ga u desnom.mislim da ste me shvatili sta zelim,napominjem da nikada nisam radio u excelu.

Prikačeni fajlovi

primer.xls - 13.5k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{29.03.2007. u 12:47 - pre 207 meseci}

Koliko sam razumeo, može samo uz korišćenje VBA. Ubaciš neko dugme, na koje klikneš kad si završio unos. Tad se uneti sadržaj programski prepiše gde treba i obrišu uneseni podaci. Ukoliko imaš malo iskustva u programiranju nije previše komplikovano. Vidi za početak http://www.elitesecurity.org/t246081-0#1480006 i top temu Rad sa makroima

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{29.03.2007. u 17:13 - pre 207 meseci}

ja sam totalni pocetnik,razumeo sam da moze uz pomoc visual basica samo mi nije jasno gde ja treba da implementiram onaj kod iz one teme koju si prilozio (gde kucam ono? ). hvala puno

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{30.03.2007. u 07:04 - pre 207 meseci}

Kod iz te teme je samo primer, nije gotovo rešenje. Treba ga uneti u VB editor(Alt+F11). Rešenje za tvoj slučaj pokušaj sam da napraviš. Za početak pregledaj temu http://www.elitesecurity.org/t222802-Office-Rad-sa-makroima. Tamo ćeš naći neka osnovna uputstva kao i linkove za dalji rad.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{30.03.2007. u 07:57 - pre 207 meseci}

Osnovne komande sam pohvatao...

Sub Prepis()
Dim shSource As Worksheet
Dim shDest As Worksheet
Set shSource = ActiveWorkbook.Sheets(1)
Set shDest = ActiveWorkbook.Sheets(2)
shDest.Cells(2, 1).Value = shSource.Cells(1, 2).Value
shDest.Cells(2, 2).Value = shSource.Cells(7, 2).Value
End Sub

ovako cu da prepisem celije koje mi trebaju ali kako cu da napravim scriptu koja ce svaki put kada se startuje da pomeri prepisivanje za red ispod? i kako da postavim recimo to dugme da klikom na njega se aktivira skripta? hvala

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{30.03.2007. u 08:23 - pre 207 meseci}

Citat:

kako da postavim recimo to dugme da klikom na njega se aktivira skripta

Za dugme možeš naći odgovor u temi u koju te upućujem već treći put :
http://www.elitesecurity.org/t222802-0#1323361
pogledaj i odgovore ispod.

Citat:

kako cu da napravim scriptu koja ce svaki put kada se startuje da pomeri prepisivanje za red ispod ?

Nadješ poslednji popunjeni red, pa se pomeriš red ispod. Za nalaženje poslednjeg popunjenog reda imaš primer u kodu na koji sam te već uputio, na ovom forumu http://www.elitesecurity.org/t246081-0#1480006 ili na sajtu praktikuma deo za Excel - link ćeš naći u već spomenutoj temi.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{01.04.2007. u 05:57 - pre 207 meseci}

na primer jel ovo ok?

Sub macro1()
Dim shSource As Worksheet
Dim shDest As Worksheet
Dim i As Integer
Set shSource = ActiveWorkbook.Sheets(1)
Set shDest = ActiveWorkbook.Sheets(2)
i = 2
10
If shDest.Cells(i, 1).Value = 0 Then
shDest.Cells(i, 1).Value = shSource.Cells(1, 2).Value
shDest.Cells(i, 2).Value = shSource.Cells(2, 2).Value
shDest.Cells(i, 3).Value = shSource.Cells(3, 2).Value
GoTo 20
Else: i = i + 1
GoTo 10
End If
20
End Sub

ili bi trebalo drugacije, za dugme sam se snasao,ali mislio sam da dugme moze da bude celija ? vidjao sam to negde, kako da se unose podaci a onda dugme ne da bude gore u toolbaru nego odma pored u sledecoj celiji?
i jos jedno:kojom komandom otvaram podprogram u skripti? u basicu je to bilo sa begin i end.
Puno hvala.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] unos podataka - pamćenje unosa - reset unosa

^{01.04.2007. u 10:08 - pre 207 meseci}

Da isprobaš da li radi jednostavno startuješ makro koji si kreirao . Pre izvršavanja proveriće se da li je program sintaksno ispravan i ukazati na eventualne greške. Ako program radi to što tebi treba onda je OK - nisi detaljno objasnio ceo postupak.
U tvom programu greške se odnose na pozivanje labela. Labele se u VBA navode kao tekst sa dve tačke na kraju

Dakle umesto 10
PocetakPetlje:

a umesto Go To 10:
Go To PocetakPetlje

Iza Else ne treba dvotačka dakle

Code:

If shDest.Cells(i, 1).Value = 0 Then
  shDest.Cells(i, 1).Value = shSource.Cells(1, 2).Value
  shDest.Cells(i, 2).Value = shSource.Cells(2, 2).Value
  shDest.Cells(i, 3).Value = shSource.Cells(3, 2).Value
  GoTo Kraj
Else
  i = i + 1
  GoTo PocetakPetlje
End If

Usput ovde nema nigde brisanja sadržaja. Da obrišeš sadrćaj ćeljie koristiš metodu ClearContents, npr.
shSource.Cells(1, 2).ClearContents

Dugme se može postaviti na list, umesto na toolbar izborom iz palete alata Forms, pa potom dodeljivanjem makroa dugmetu kao što je već opisano u ranije spomenutoj temi.

Da li si pogledao i linkove za VBA http://www.elitesecurity.org/t222802-0#1341502. Sigurno je lakše učiti na primerima nego metodom uzaludnih pokušaja.

Zaboravio sam da odgovorim za potprogram.
Potprogram se kreira kao i glavni program unutar strukture Sub ... End Sub unutar modula.
Moguće je da potprogram ima jedan ili više parametera. Npr.:

Code:

Sub Test (p1 As Integer, p2 As String)
' Ovde slede komande potprograma

End Sub

Iz glavnog programa potprogram se poziva navodjenjem imena (i parametara ako ih ima) dakle

Code:

Sub GlavniProgram
' Komande glavnog program
'Poziv potprobgama sa dva parametra
Test 2, "Proba"
' Ostale komande
End Sub

_{[Ovu poruku je menjao Jpeca dana 01.04.2007. u 18:17 GMT+1]}

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu