xl_kid | 11.12.2012 08:08 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Za formatiranje polja se možemo probati sa ovim kodom: If ExcelSheet.Application.Cells.Range("D2").Value = "" Then ExcelSheet.Application.Range("D2:E41").Borders.LineStyle = False Else ExcelSheet.Application.Range("D2:E41").Borders.LineStyle = True ...i možemo ga vezati za redni broj. |
xl_kid | 18.12.2012 12:44 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Neko rešenje |
zxz | 18.12.2012 23:31 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Pa nisi mi odgovorio na post 29. |
xl_kid | 19.12.2012 09:19 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Redni brojevi su promenjivi. Mogu biti od 10 do 40. Å to se tiče bojenja polja to ću ja da pokuÅ¡am. Ako mi negde zaÅ¡kripi pitaću te za pomoć. |
zxz | 19.12.2012 11:20 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Citat: Znaci ne pocinje uvijek od 1.Redni brojevi su promenjivi. Mogu biti od 10 do 40 Hoces li da napravimo combo pa da ukucas od kojeg broja pocinje ako nemas neki parametar odakle krenuti. Citat: Nije problem u farbanj polja nego koliko polja ofarbati.Å to se tiče bojenja polja to ću ja da pokuÅ¡am. Ako mi negde zaÅ¡kripi pitaću te za pomoć. Ja sam samo pitao dali je fiksan broj redova ili nije. Napr. Moze se napraviti da je fiksan broj redova a da otvori novi sit ili novi dokument kada broj redova u bazi prelazi taj broj. Drugi nacin je da se sve kodom odradi pa onda neka ide na vise stranica. Tvoje je da odlucis kako ako sam samo dobro opisao moju zamisao. |
xl_kid | 20.12.2012 08:14 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Nismo se razumeli za redne brojeve. Ovi uvek počinju od 1 ali se kreću od 10 do 40 (znači u rasponu 1-40 u proseku budu oko 25 ). Onaj prvi primer je ok. Samo kada bi mogao da se sredi da su redovi promenjivi i da je napomena na kraju. Potrebno mi je da se sve smesti na jednu stranu. |
zxz | 22.12.2012 15:34 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) PreuzmiIzvorni kôd (Visual Basic):
|
zxz | 26.12.2012 11:47 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Prepravi ovaj dio koda. Loop If red>25 then Red = Red + 4 else red=39 endif Set Celija = ExelO.Cells(Red, 2) Temp = Forms![T_Pregled_DA_G]![Napomena] Celija.Value = Temp Set Celija = ExelO.Cells(1, 1) Celija.Clear Celija.Select ExelO.Visible = True Izlaz: Exit Function Greska: End Function |
xl_kid | 26.12.2012 13:51 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) Opet isti problem. |
|
Prilozi: Pregled2.zip (Velicina datoteke:8.55 KB) |
zxz | 26.12.2012 15:33 |
---|---|
Predmet:Re: export u excel (redosled kao u reportu) PreuzmiIzvorni kôd (Visual Basic):
|