|
Aplikativni softver Svi programi i alati koji se ne uklapaju ni u jednu od ponuđenih kategorija |
|
Alatke vezane za temu | Vrste prikaza |
26.4.2010, 15:17 | #1 |
Novi član
Član od: 11.7.2006.
Poruke: 1
Zahvalnice: 0
Zahvaljeno 0 puta na 0 poruka
|
Treba mi pomoc u Excela - hitno
da li neko moze da mi napise formulu ili da mi da informaciju da napravim ovakav zapis gde ce se menjati srednji broj( koji povacava).Cilj mi je da skratim proceduru upisa
1AB.2001/10 2AB.2002/10 1AB.2003/10 2AB.2004/10 1AB.2005/10 2AB.2006/10 .............. ovo mi hitno treba jer treba da upisem preko 15000 artikala do 5.05.2010 P.S. moram sve rucno da unosim al bi na ovim brojevima skratio proceduru Hvala unapred |
26.4.2010, 21:29 | #2 |
Starosedelac
|
Re: Treba mi pomoc u Excela - hitno
A da napises Macro? Sada ću ja nešto da ti sastavim...
Evo: Kod:
Sub Entry() ' ' Entry Macro ' ' Dim startNum As Integer ' startni broj Dim oneOrTwo As Boolean ' "1" ili "2" na pocetku Dim numCells As Integer ' broj celija za popunjavanje Dim cContent As String ' sadrzaj celije Dim cCell As String ' lokacija celije oneOrTwo = True ' pocinjemo sa jedinicom startNum = 2001 ' od broja 2001 lenght = 15000 ' 15000 celija unapred numCells = startNum + lenght ' racunanje lokacije konacne celije For i = 1 To lenght ' prolazimo kroz sve celije cCell = "A" & Trim$(Str$(i)) ' kreiramo lokaciju If oneOrTwo = True Then ' biramo 1 ili 2 cContent = "1" oneOrTwo = False Else cContent = "2" oneOrTwo = True End If ' kreiramo sadrzaj celije cContent = cContent & "AB." cContent = cContent & Trim$(startNum - 1 + i) cContent = cContent & "/10" ' selektujemo celiju Range(cCell).Select ' i upisujemo sadrzaj ActiveCell.FormulaR1C1 = cContent Next i End Sub Poslednja ispravka: MG-RAY (26.4.2010 u 22:03) Razlog: Kod... |
Bookmarks sajtovi |
Tagovi |
excel, office |
|
|
Slične teme | ||||
tema | temu započeo | forum | Odgovora | Poslednja poruka |
Treba mi pomoc u VB 6 | MrDejan | Programiranje | 39 | 5.3.2010 17:02 |
Treba mi pomoc oko prezentacije! | Cryonosis | Audio softver | 2 | 17.2.2010 16:07 |
pomoc hitno | vlada282 | Šta da kupim? | 9 | 18.1.2008 1:25 |
Treba mi mala pomoc? | BeerBaron | Šta da kupim? | 11 | 29.1.2006 4:50 |
Treba mi pomoc oko konfiguracije | polarnimeda | Šta da kupim? | 8 | 10.11.2005 19:00 |