Kako u Excelu podesiti stampanje samo jedne ili dve celije sa podacima, recimo samo celije B4 i C8?
[Excel] Kako podesiti stampanje celije
Zaključano
Zakačeno
izmenjeno 1 put, poslednji put Shadowed 14.02.2006. u 08:05
Izmene poruke
- Shadowed14.02.2006. u 08:05zapis iz teksta poruke
Moze li neko da rastumaci ovaj macro:
[Shadowed: dodati [code] tagovi i malo sredjen kod.]
Code:
Sub Transpose()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Enter row number to print.")
Columns("A:B").Insert
For Iloop = 1 To 15
Cells(Iloop, "A") = Cells(2, Iloop + 2)
Cells(Iloop, "B") = Cells(Ans, Iloop + 2)
Next Iloop
Range("A1:B15").PrintOut Copies:=1, Collate:=True
Columns("A:B").Delete
Application.ScreenUpdating = False
End Sub
Sub Transpose()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Enter row number to print.")
Columns("A:B").Insert
For Iloop = 1 To 15
Cells(Iloop, "A") = Cells(2, Iloop + 2)
Cells(Iloop, "B") = Cells(Ans, Iloop + 2)
Next Iloop
Range("A1:B15").PrintOut Copies:=1, Collate:=True
Columns("A:B").Delete
Application.ScreenUpdating = False
End Sub
[Shadowed: dodati [code] tagovi i malo sredjen kod.]
Selektuješ opseg ćelija, pa u dijalogu Print označiš u sekciji Print What - Selection.
Možeš selektovati i dve odvojene oblasti (kao u navedenom primeru) koristeći taster Ctrl, ali u tom slučaju svaka oblast biće odštampana na posebnom listu.
Možeš selektovati i dve odvojene oblasti (kao u navedenom primeru) koristeći taster Ctrl, ali u tom slučaju svaka oblast biće odštampana na posebnom listu.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Hvala Predraze, ali nije rec o tom nacinu stampanja vec o upotrebi macro-a.
Resheno, rec je o macro-u. Evo ako nekome bude trebao:
code
Sub Declaration()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Za stampanje celija B5:C14 ukucati bilo koji broj do 100")
Columns("B").Insert
For Iloop = 1 To 100
Cells(Iloop, "B") = Cells(1, Iloop + 0)
Cells(Iloop, "B") = Cells(Ans, Iloop + 0)
Next Iloop
Range("D14:C5").PrintOut Copies:=1, Collate:=True
Columns("B").Delete
Application.ScreenUpdating = False
End Sub
...u liniji Range("D14:C5").PrintOut Copies:=1, Collate:=True (stampa tabelu)
menjajte u Range("D14,C5").PrintOut Copies:=1, Collate:=True (stampa samo dve)
ako zelite da stampate posebne celije.
code
Sub Declaration()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Za stampanje celija B5:C14 ukucati bilo koji broj do 100")
Columns("B").Insert
For Iloop = 1 To 100
Cells(Iloop, "B") = Cells(1, Iloop + 0)
Cells(Iloop, "B") = Cells(Ans, Iloop + 0)
Next Iloop
Range("D14:C5").PrintOut Copies:=1, Collate:=True
Columns("B").Delete
Application.ScreenUpdating = False
End Sub
...u liniji Range("D14:C5").PrintOut Copies:=1, Collate:=True (stampa tabelu)
menjajte u Range("D14,C5").PrintOut Copies:=1, Collate:=True (stampa samo dve)
ako zelite da stampate posebne celije.