IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
 
MICROSOFT EXCEL 2007 - automatsko numeriranje redova tablice bez obzira na spojene ćelije - automatic number row merged cells

Kako automatski numerirati redove spojenih ćelija
(How to automatically numbering the rows of merged cells)

Search This Web Site

Adsense sponzor






Automatska numeracija redova (postavljanje rednih brojeva) iako postoje spojene ćelije - pomoću VBA makronaredbe
(Automatic numbering the row with merged cells)

Ako ste ikada imali potrebu na brzinu postaviti redne brojeve u nekoj tablici koja sadrži spojene ćelije (merge cells) a tih redova ima poprilično i nemate volje upisivati redne brojeve ručno tada probajte iskoristiti VBA makronaredbu iz ovog tutorijala. Isto tako uz malu izmjenu makro koda također možete izvršiti automatsko postavljanje rednih brojeva stupaca (Column). Ili ako se želite igrati tada pogledajte ovaj tutorijal

U ovom prvom slučaju imamo situaciju gdje trebamo numerirati redove tablice koja sadrži spojene ćelije. Dakle kada bi numeriranje radili povlačenjem prve dvije ćelije (Fill handle) da bi izvršili numeriranje, ne bi smo mogli jer Excel ne dozvoljava na ovaj način niz zbog spojenih ćelija.

Da bi smo izvršili brzu numeraciju (redanje brojeva) za sve redove bez obzira na spojene ćelije iskoristimo ovu makronaredbu ispod. Dotičnu makro naredbu kopirajmo u VBE našeg Excela u sami Sheet (ili klik Desni miš na naziv Sheeta => View Code => Paste)

Sub NumeriranjeRow()
'numeriranje redova bez obzira na spojene ćelije
Dim i As Integer
Dim k As Integer
Dim Kraj As String

i = 0
Kraj = InputBox("Upisi do kojeg broja zelis izvrsiti numeriranje:" & Chr(13) & "(upisi cijeli broj)", "Numeriranje")
If Kraj = 0 Or Kraj = "" Then: Exit Sub
Do
Range("A1").Offset(i, 0).Select
'pomak od prve celije koja vjerojatno sadrži neki naslov i ona se ne numerira
a = Selection.Cells.Count
If a = 1 Then
i = i + 1
ElseIf a > 1 Then
i = i + a
End If
k = k + 1
Range("A1").Offset(i, 0) = k
'linija koda koja određuje numeriranje reda ili stupca
If k = Kraj Then: Exit Do
Loop
Range("A1").Select
'pozicionira se na ovu celiju nakon završetka numeriranja
End Sub




Brzo numeriranje stupaca bez obzira na spojene ćelije (merged cells)

Ova druga makronaredba vrši automatsko numeriranje po stupcima

Sub NumeriranjeColumn()
'numeriranje stupaca bez obzira na spojene ćelije
Dim i As Integer
Dim k As Integer
Dim Kraj As String

i = 0
Kraj = InputBox("Upisi do kojeg broja zelis izvrsiti numeriranje:" & Chr(13) & "(upisi cijeli broj)", "Numeriranje")
If Kraj = 0 Or Kraj = "" Then: Exit Sub
Do
Range("A1").Offset(0, i).Select
'pomak od prve celije koja vjerojatno sadrži neki naslov i ona se ne numerira
a = Selection.Cells.Count
If a = 1 Then
i = i + 1
ElseIf a > 1 Then
i = i + a
End If
k = k + 1
Range("A1").Offset(0, i) = k
'linija koda koja određuje numeriranje reda ili stupca
If k = Kraj Then: Exit Do
Loop
Range("A1").Select
' pozicionira se na ovu celiju nakon završetka numeriranja
End Sub

Adsense sponzor






Adsense sponzor




  Ova web stranica koristi COOKIES - COPYRIGHT ©- 2006 - 2020 - IvanC  - Sva prava pridržana.  ic.ims.hr