novi red
Prikazujem rezultate 1 do 4 od 4

Tema: novi red

  1. #1
    Početnik
    Učlanjen
    19.09.2004.
    Lokacija
    Subotica
    Poruke
    46
    Reputaciona moć
    0

    Podrazumevano novi red

    Dali postoji komanda u excelu koja automatski dodaje novi red prilikim svakog otvaranja radnog lista.tj da ne moram svaki put kad udjem u tabelu da dodam po jedan red pa ga onda upisem.



  2. #2
    Zainteresovan član Каспер (avatar)
    Učlanjen
    29.09.2004.
    Poruke
    313
    Reputaciona moć
    52

    Podrazumevano

    Uz uslov da u tom radnom listu ispod tabele ne postoji neki dodatni tekst može se izvesti korišćenjem VBA koda

    Kod:
    Sub Auto_Open()
    
    
        Dim red As Integer
        Dim kolona As Integer
        Dim I As Integer
    
        ActiveCell.SpecialCells(xlLastCell).Select
        red = ActiveCell.Row
        kolona = ActiveCell.Column
        
        For I = 1 To kolona
        
            Cells(red + 1, I).Select
        
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        
        Next I
        
        Cells(red + 1, 1).Select
        
        
    End Sub

  3. #3
    Početnik
    Učlanjen
    19.09.2004.
    Lokacija
    Subotica
    Poruke
    46
    Reputaciona moć
    0

    Podrazumevano eh

    Jos kad bi znao kako da to aktiviram

  4. #4
    Zainteresovan član Каспер (avatar)
    Učlanjen
    29.09.2004.
    Poruke
    313
    Reputaciona moć
    52

    Podrazumevano

    Tools->Macro->Macros
    U polju 'Macro name:' upiši Auto_Open
    u polju 'Macros in:' izaberi This Workbook

    klik na 'Create'

    otvoriće ti se novi prozor u kome piše:

    Sub Auto_Open()

    End Sub


    obriši ova dva reda pa onda Copy->Paste u taj prozor onaj kod (zeleni tekst)
    snimi dokument izadji iz njega i ponovo ga otvori i videćeš rezultat.

    Ukoliko ti više odgovara da taj red doda pre izlaska iz dokumenta onda Auto_Open zameni sa Auto_Close

    VAŽNA NAPOMENA: pre nego sto pokušaš ovo napravi kopiju dokumenta za svaki slučaj.

Slične teme

  1. NOVI SAJT I NOVI FORUM
    Autor insider032 u forumu Zanimljivi sajtovi
    Odgovora: 1
    Poslednja poruka: 23.01.2007., 20:11
  2. Odgovora: 147
    Poslednja poruka: 02.09.2005., 12:02

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •