Excel, automatik
Prikazujem rezultate 1 do 2 od 2

Tema: Excel, automatik

  1. #1
    Ističe se AleX (avatar)
    Učlanjen
    21.07.2008.
    Pol
    muški
    Lokacija
    Beograd
    Poruke
    2.472
    Tekstova u blogu
    6
    Reputaciona moć
    60

    Podrazumevano Excel, automatik

    Kolona A1 sadrži neki broj, a B1 neko ime.
    Kada dođem do neke druge kolone, pr. F1, i ukucam neki broj, hoću da kada započnem, a ako je isti, da se automatski dopuni (znam da je moguće to sa slovima).

    Glavni problem je da hoću da kada otkucam taj neki broj u F1(koji je i ranije ukucan u neku kolonu pre), da se u F2 otkuca isto ime koje bi bilo da se F1 poklapa sa recimo B1, pa da se B2 prepiše u F2.

    Priloženom fajlu promenite ext u xls, zbog krste.

    Isto hoću i obrnuto.
    Priloženi fajlovi Priloženi fajlovi
    Poslednji put ažurirao/la AleX : 14.06.2009. u 19:52
    Let me hear your thoughts.



  2. #2
    Početnik Miloje Milic (avatar)
    Učlanjen
    12.01.2004.
    Pol
    muški
    Lokacija
    ево ме управо сам стигао са пута
    Poruke
    4
    Reputaciona moć
    0

    Post Re: Excel, automatik

    Алексе, овако:
    у подручју "ареа" (колона "А") постављени су бројеви.
    у колони "Б" налазе се имена (Јова, Милка, Жика, ...).
    е, сад треба још да укуцаш неки број - ред није важан - у колону "Ф".
    програмче снима сваку измену у колони "Ф" па онда
    упоређује тај број са вредностима у подручју "ареа" и резултат
    уписује у колону "Ц" (исти ред као и код унешеног броја).
    уз малу кодну измену могуће је програмче подесити да шљака
    по жељи.

    Нампомена:
    вредности у "ареа" подручју неморају бити само бројеви.
    подручје, колона "име", колона убацивања као и колона са резултатом
    може бити редефинисана.
    уз мало маште и додатних функција могућа је манипулација вредости
    коју овај прогић враћа.

    поздрав
    ------------------------------------------------------------------------------------------
    следи VBA-код

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo errHandler
    Application.EnableEvents = False

    Dim area As Range
    Dim uslov As String
    Dim pogodak As Boolean
    Dim tmp_vrednost As Variant
    Dim ime_kolona As Integer
    Dim rezultat_kolona As Integer
    Dim F_kolona As Integer
    Dim kolona As Long

    'ne zaboravi A kolona bi bila oznacena 0 (A_kolona=0) !!

    'start: moze po potrebi biti izmenjeno ---------------------------------
    'definicija podrucja: od A1 do zadjeg popunjenog reda
    Set area = Range("A1", Range("A1").End(xlDown).Address)
    ime_kolona = 1 'kolona "ime"
    F_kolona = 6 'je kolona unosne vrednosti
    rezultat_kolona = 3 'to je kolona u koju se automatski unosi nadjeno ime

    'end: moze po potrebi biti izmenjeno ---------------------------------

    kolona = Target.Column
    Target.Offset(0, 0).Select
    uslov = ActiveCell.Value

    pogodak = False

    'akcija prelistavanja podrucja
    For Each celija In area
    If celija.Value = uslov Then
    pogodak = True

    tmp_vrednost = celija.Offset(0, ime_kolona).Value
    Exit For
    End If
    Next
    'provera
    If pogodak Then
    If kolona = F_kolona Then
    Target.Offset(0, -rezultat_kolona).Value = tmp_vrednost
    Target.Offset(1, 0).Activate
    End If
    End If

    errHandler:
    'aktiviranje kursora
    Application.EnableEvents = True

    End Sub
    Priloženi fajlovi Priloženi fajlovi
    Poslednji put ažurirao/la Miloje Milic : 17.06.2009. u 22:37

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
  •