Vzorec (Index) s pomocí makra
Napsal: 04 črc 2013 14:14
Dobrý den,
při tvorbě vlastní funkce jsem narazil na problém. Moc VBA neovládám, takže bych vás rád požádal o radu, proč se VBA nelíbí zápis vzorce Index (viz níže). Hlásí mi to Compile Error: Sub or Function not defined. Díky za ochotu.
při tvorbě vlastní funkce jsem narazil na problém. Moc VBA neovládám, takže bych vás rád požádal o radu, proč se VBA nelíbí zápis vzorce Index (viz níže). Hlásí mi to Compile Error: Sub or Function not defined. Díky za ochotu.
Kód: Vybrat vše
Public Function Plan(odpracovano, rok)
' grade dle odpracovanych let
Select Case odpracovano
Case Is < Range("y4"): Grade = Range("Z3")
Case Is < Range("y5"): Grade = Range("Z4")
Case Is < Range("y6"): Grade = Range("Z5")
Case Is < Range("y7"): Grade = Range("Z6")
Case Is >= Range("y7"): Grade = Range("Z7")
End Select
' oblast dle pocitaneho roku
Select Case rok
Case Is = Range("AA2"): Oblast = Range("AA3:AA7")
Case Is = Range("AB2"): Oblast = Range("AB3:AB7")
Case Is = Range("AC2"): Oblast = Range("AC3:AC7")
Case Is = Range("AD2"): Oblast = Range("AD3:AD7")
Case Is = Range("AE2"): Oblast = Range("AE3:AE7")
End Select
Oblast2 = Range("Z3:Z7")
Plan = Index(Oblast, Match(Grade, Oblast2, 0))
End Function