Uvoz opdatkov s spleta

Pomoč pri delu z MS Excelom
Odgovori
Tomi
Prispevkov: 10
Pridružen: Sr Apr 11, 2007 10:54 am
Kraj: Ljubljana

Uvoz opdatkov s spleta

Odgovor Napisal/-a Tomi »

Prosim za pomoč.

Za potrebe svoje evidence uvažam celotno tabelo z neke spletne strani, vendar sam potrebujem le določen podatek v tej tabeli.

Težava pa nastane takrat, ko se tabela ažurira in se občasno oblikovno tudi spremeni (pridobi ali izgubi vrstice). Tako moj podatek ni vedno v določeni celici, iz katere potem izhaja nadaljna formula v mojem excelovem dokumentu.

Pozna kdo rešitev?

Hvala in LP!
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

:),

V kolikor ne uporabite neke vrste umetne inteligence ni načina, da bi računalnik vedel, kateri podatek vas zanima. Računalnik vam lahko vrne podatek, če mu vi poveste kateri vas zanima; torej podatek morate na nek način edinstveno okvalificirati. Če to ne gre potem vam računalnik ne more pomagati.
lp,
Matjaž Prtenjak
Administrator
Tomi
Prispevkov: 10
Pridružen: Sr Apr 11, 2007 10:54 am
Kraj: Ljubljana

Odgovor Napisal/-a Tomi »

Hvala za odgovor.

Poskusil sem že s funkico IF, vendar ne deluje (celica levo od mojega podatka je vedno enaka). Lahko dobim kakšen namig?

LP!
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Moram priznati, da z Excelovimi (vgrajenimi) formulami tudi jaz tega ne znam rešiti je pa z majhno VBA kodo takšno funkcijo skrajno preprosto napisati:

Koda: Izberi vse

Function NajdiCelico(vrednost)
    Dim celica
    
    For Each celica In ActiveSheet.UsedRange
        If (celica.Value = vrednost) Then
            NajdiCelico = celica.Offset(0, 1).Value
            Exit Function
        End If
    Next
    
    NajdiCelico = "#N/V"
End Function
In takšno funkcijo preprosto pokličete v excelu, kot vsako drugo, npr.

Koda: Izberi vse

=NajdiCelico("USD")
lp,
Matjaž Prtenjak
Administrator
Tomi
Prispevkov: 10
Pridružen: Sr Apr 11, 2007 10:54 am
Kraj: Ljubljana

Odgovor Napisal/-a Tomi »

Najlepša hvala za odgovor.

Ker delovanja VBA zaenkrat še ne poznam, ne vem niti kam vpisati prilagojeno kodo.
Vendar se bom potrudil, da zadevi pridem do dna :)

Hvala še enkrat in LP!

Tomi
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

lp,
Matjaž Prtenjak
Administrator
Tomi
Prispevkov: 10
Pridružen: Sr Apr 11, 2007 10:54 am
Kraj: Ljubljana

Odgovor Napisal/-a Tomi »

Še enkrat hvala za vso pomoč. Vsekakor bom sedaj lažje prišel do rešitve problema.

LP! Tomi
Odgovori