Diskuze: Jednoduchý skript ve VBA (ArcGis)

Software Microsoft Office a kancelářské aplikace Jednoduchý skript ve VBA (ArcGis)

Avatar
Standa Drong
Člen
Avatar
Standa Drong:

Ahoj, prosím o pomoc s formulací funkce, jedná se o jednoduchý skript v ArcGis, v field calculatoru- je to tabulka jako v Excelu, používá VBA, potřebuju tam přidat funkci if.., je tam na výběr jazyk VB nebo Phyton. Vybral jsem VB.

Tabulka obsahuje sloupec pojmenovaný KAT- (obsahuje text( NPR, PR..) a
ROZL( rozloha v hektarech).
Mám zadáno pokud je v KAT vyraz "NPR", přiřad číslo 20 do slopce BODY. Pokud je v KAT vyraz "PR" a v ROZL 40 a méně, zapiš do sloupce BODY číslo 10, pokud je nad 40, zapiš číslo 13. Zkouším tu první část, ale hláška je chybná syntaxe.

if Range("KAT").Value = "NPR" then
Range("BODY").Value = 20
else
Range("BODY").Value = 10
end if

Děkuju.

 
Odpovědět 3.11.2015 18:29
Avatar
Odpovídá na Standa Drong
Michal Štěpánek:

Zkusil jsi to nějak jinak "ozávorkovat", nebo použít "=="? Např.

if (Range("KAT").Value == "NPR") then
        Range("BODY").Value = 20
else
        Range("BODY").Value = 10
end if
Nahoru Odpovědět 4.11.2015 8:23
Nikdy neříkej nahlas, že to nejde. Vždycky se totiž najde blbec, který to neví a udělá to...
Avatar
Standa Drong
Člen
Avatar
Standa Drong:

Právě že zkoušel, jenže výsledek je pořád chybná syntaxe, nevím jestli můžu takto volat řádek Range("KAT").Value. Můj prvnípokus vypadal takto:

dim ["KAT"]
if ["KAT"] = "NPR" then
"BODY" = 20
else
"BODY" = 10
end if
jenže výsledek je pořád chybná syntaxe.

 
Nahoru Odpovědět 4.11.2015 8:50
Avatar
P(r)D
Člen
Avatar
P(r)D:

dim BODY
if [KAT] = "NPR" then
BODY = 20
else
BODY = 10
endif

zkus to takhle
http://thebiobucket.blogspot.cz/…-arcgis.html
http://gis.stackexchange.com/…python-or-vb

 
Nahoru Odpovědět 4.11.2015 9:07
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.