Array Function
рдбреЗрдЯрд╛ рдлрд╛рдБрдЯрд╕рдБрдЧ рдЪрд▓ рднрд┐рдиреНрди рдкреНрд░рдХрд╛рд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдПрд░реЗ (рддрд░реНрдХ рд╕реВрдЪреА)
DimрдПрд░реЗ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдорд╣рд░реВрджреНрд╡рд╛рд░рд╛ рд╡рд┐рднрд╛рдЬрд┐рдд рддрд░реНрдХ рд╕реВрдЪреА: рдХреБрдиреИ рдкрдирд┐ рддрд░реНрдХрд╣рд░реВрдХреЛ рд╕реВрдЪреА рд╕рдЩреНрдЦреНрдпрд╛ ред
рдЙрджрд╛рд╣рд░рдг:
Dim A As Variant
A =рдПрд░реЗ("рдлреНрд░реЗрдб","рдЯрдо","рдмрд┐рд▓")
Msgbox A(2)