ReDim Statement
рдПрдХ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]
рдПрд░реЗрдХреЛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВ рд╕реБрд░рдХреНрд╖рд┐рдд рдЧрд░реНрдирд▓рд╛рдИ рд╕реБрд░рдХреНрд╖рд┐рдд рд╢рдмреНрджрдХреБрдЮреНрдЬреА рд▓рд╛рдИ рдкрд░рд╛рдорд┐рддрд┐рдХреЛ рд░реВрдкрдорд╛ рдердкреНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рддреНрдпреЛ рдкреБрди: рдЖрдпрд╛рдорд┐рдХ рд╣реБрдиреНрдЫ ред
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЪрд▓ рдирд╛рдо: рдХреБрдиреИ рдкрдирд┐ рдЪрд▓ рд╡рд╛ рдПрд░реЗ рдирд╛рдо ред
рд╕реБрд░, рдЕрдиреНрддреНрдп: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирд╣рд░реВ рд╡рд╛ рдЕрдЪрд▓рд╣рд░реВ рдЬрд╕рд▓реЗ рддрддреНрд╡рд╣рд░реВрдХреЛ рд╕рдЩреНрдЦреНрдпрд╛ рд░ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рджрд╛рдпрд░рд╛ рдкрд░рд┐рднрд╛рд╖реАрдд рдЧрд░реНрджрдЫ (NumberElements=(end-start)+1) ред
рдпрджрд┐ ReDim рдХрд╛рд░реНрдпрд╡рд┐рдзреАрдорд╛ рдкреНрд░рдпреЛрдЧ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕реБрд░реБ рд░ рдЕрдиреНрддреНрдпрд▓реЗ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВ рдЧрд░реНрди рд╕рдХреНрдЫрдиреН ред
VarрдкреНрд░рдХрд╛рд░:рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдЬрд╕рд▓реЗ рдЪрд▓рдХреЛ рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджрдЫ ред
рд╢рдмреНрджрдХреБрдЮреНрдЬреА: рдЪрд▓ рдкреНрд░рдХрд╛рд░
рдмреБрд▓: рдмреБрд▓рд┐рдпрди рдЪрд▓(рд╕рддреНрдп, рдЭреБрдареЛ)
рдорд┐рддрд┐: рдЪрд▓ рдорд┐рддрд┐
рджреНрд╡рд┐-рдЧреБрдирд╛: рджреНрд╡рд┐-рдЧреБрдирд╛ рдЙрддреНрдкреНрд▓рд╛рд╡рди рдмрд┐рдиреНрджреБ рдЪрд▓(рез.ренрепренремрепрейрезрейрекреоремреирейреиxрезрежEрейрежрео - рек.репрекрежремрелремрекрелреорекрезреирекренxрезрежE-рейреирек)
рдЗрдиреНрдЯрд┐рдЬрд░: рдЪрд▓ рдЗрдиреНрдЯрд┐рдЬрд░ (-рейреиренремрео - рейреиренремрен)
рд▓рд╛рдореЛ: рд▓рд╛рдорд╛ рдЗрдиреНрдЯрд┐рдЬрд░ рдЪрд▓рд╣рд░реВ (-реи,резрекрен,рекреорей,ремрекрео - реи,резрекрен,рекреорей,ремрекрен)
рд╡рд╕реНрддреБ: рд╡рд╕реНрддреБ рдЪрд▓ (рд╕реЗрдЯрджреНрд╡рд╛рд░рд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рд░реВрдкрдорд╛рддреНрд░ рдХреНрд░рдордмрджреНрдз рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ!)
[Single]: рдПрдХрд▓ рдЙрддреНрдкреНрд▓рд╛рд╡рди-рдмрд┐рдиреНрджреБ (рей.рекрежреиреореирейxрезрежEрейрео - рез.рекрежрезреирепреоxрезрежE-рекрел) ред рдпрджрд┐ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЪрд▓рд╣рд░реВ рдПрдХрд▓ рд░реВрдкрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░рд┐рдиреНрдЫ рдпрджрд┐ рдпреЛ рдирднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ DefBool рджреЗрдЦрд┐ DefVar рд╕рдореНрдордХрд╛ рдХрдердирд╣рд░реВ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫрдиреН ред
рд╕реНрдЯреНрд░рд┐рдЩ:рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рд▓реЗ рдЕрдзрд┐рдХрддрдо ремрек,режрежрежрд╕рдореНрдордХреЛ ASCII рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред
рднрд┐рдиреНрди: рднрд┐рдиреНрди рдЪрд▓ рдкреНрд░рдХрд╛рд░(рд╕рдмреИ рдкреНрд░рдХрд╛рд░рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрди рд╕рдХреНрдЫ рд░ рдкрд░рд┐рднрд╖рд╛рджреНрд╡рд╛рд░рд╛ рд╕реЗрдЯ рдЧрд░рд┐рдиреНрдЫ) ред
рдЖрдзрд╛рд░рднреВрдд LibreOffice рдорд╛, рддрдкрд╛рдИрдБрд▓реЗ рд╕реНрдкрд╖реНрдЯ рд░реВрдкрдорд╛ рдЪрд▓рд╣рд░реВ рдШреЛрд╖рдгрд╛ рдЧрд░реНрдиреБ рдЖрд╡рд╢реНрдпрдХ рдЫреИрди ред рддрд╛рдкрдирд┐, рддрд┐рдиреАрд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБ рдЕрдШрд┐ рдПрд░реЗ рдШреЛрд╖рдгрд╛ рдЧрд░реНрдиреБ рдкрд░реНрджрдЫ ред рддрдкрд╛рдИрдБрд▓реЗ рдбрд┐рдо рдХрдердирд╣рд░реВ рд╕рдБрдЧ рдмрд╣реБ рдШреЛрд╖рдгрд╛рд╣рд░реВ рд╡рд┐рднрд╛рдЬрди рдЧрд░реНрди рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдорд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐ рдЪрд▓ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди, рдирд┐рдореНрди рдирд╛рдо рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдкреНрд░рдХрд╛рд░-рдШреЛрд╖рдг рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН рд╡рд╛ рдЕрдиреБрдХреВрд▓ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
LibreOffice рдЖрдзрд╛рд░рднреВрдд рд╕рдорд░реНрдерди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХрд╛ рдЪрд▓ рдкреНрд░рдХрд╛рд░рджреНрд╡рд╛рд░рд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░рд┐рдПрдХрд╛ рдПрдХрд▓ рд╡рд╛ рдмрд╣реБ -рдЖрдпрд╛рдорд┐рдд рдПрд░реЗрд╣рд░реВ ред рддрдкрд╛рдИрдБрд▓реЗ рд╕рдореНрдкрд╛рджрди рдЧрд░реНрди рдЪрд╛рд╣рдиреБрднрдПрдХреЛ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕рд╛рдорд╛рдЧреНрд░реАрд╣рд░реВрдорд╛ рд╕реВрдЪреАрд╣рд░реВ рд╡рд╛ рддрд╛рд▓рд┐рдХрд╛рд╣рд░реВ рднрдПрдорд╛ рдПрд░реЗрд╣рд░реВ рдЕрдиреБрдХреВрд▓ рд╣реБрдиреНрдЫрдиреН ред рдПрд░реЗрд╣рд░реВрдХреЛ рдлрд╛рдЗрджрд╛ рддреНрдпреЛ рд╣реБрдиреНрдЫ рдХрд┐ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рдЕрдиреБрд╕рд╛рд░ рд╣рд░реЗрдХ рддрддреНрд╡рд╣рд░реВрдХреЛ рд╕рдореНрд╡реЛрдзрди рдЧрд░реНрди рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫ, рдЬрд╕рд▓рд╛рдИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╡рд╛ рдЪрд▓рд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рд╕реВрддреНрд░рдмрджреНрдз рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред
Dim рдХрдердирд╕рдБрдЧ рдШреЛрд╖рд┐рдд рдПрд░реЗрд╣рд░реВ рдХреЛрд▓рд╛рдЧрд┐ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛рд╣рд░реВрдХреЛ рджрд╛рдпрд░рд╛ рд╕реЗрдЯ рдЧрд░реНрдирд▓рд╛рдИ рджреБрдИрдЯрд╛ рдмрд╛рдЯрд╛рд╣рд░реВ рдЫрдиреН ред
DIM рдкрд╛рда(реиреж) рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ REMрдорд╛ реирез рддрддреНрд╡рд╣рд░реВ реж рдмрд╛рдЯ реирежрд╕рдореНрдо рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд
DIM рдкрд╛рда(рел рджреЗрдЦрд┐ реирел) рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛REM 21рдорд╛ рел рджреЗрдЦрд┐ реирел рд╕рдореНрдордХрд╛ рддрддреНрд╡рд╣рд░реВ рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд
DIM рдкрд╛рда$(-резрел рджреЗрдЦрд┐ рел) рд╕реНрдЯреНрд░рд┐рдЩреНрдХреЛ рд░реВрдкрдорд╛ REMрдорд╛ реирез рддрддреНрд╡рд╣рд░реВрд╣рд░реВрд╕рдорд╛рд╡реЗрд╢),
-резрел рджреЗрдЦрд┐ рел рд╕рдореНрдо рдХреНрд░рдорд╛рдЩреНрдХрд┐рдд rem
рдЪрд▓ рдлрд╛рдБрдЯрд╣рд░реВрд╣реЛ рдЕрд╕рд╛рдмрдзрд╛рдирд┐,рдпрджрд┐ рддрд┐рдиреАрд╣рд░реВ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛ рд╡рд╛ рдкреНрд░рдХрд╛рд░реНрдпрд╣рд░реВрдорд╛ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рд╕реНрддрд░рдорд╛ ReDimрджреНрд╡рд╛рд░рд╛ рдЖрдпрд╛рдорд┐рдХ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЧрддрд┐рд╕рд┐рд▓ рдмрд╛рдирд╛рдЙрди рд╕рдХрд┐рдиреНрдЫ ред рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛:рддрдкрд╛рдИрдБ рдПрд░реЗрдХреЛ рджрд╛рдпрд░рд╛ рдПрдХрдкрдЯрдХ рдорд╛рддреНрд░ рд╕реЗрдЯ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рд░ рддрдкрд╛рдИрдБ рдпреЛ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрджрдЫ рд╕рдХреНрдиреБрд╣реБрдиреНрди ред рдХрд╛рд░реНрдпрд╡рд┐рдзреА рднрд┐рддреНрд░ рддрдкрд╛рдИрдБ рдлрд╛рдБрдЯ рд╕рд╛рдЗрдЬрд╣рд░реВрдХреЛ рджрд╛рдпрд░рд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдирд▓рд╛рдИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрд╕рдБрдЧ ReDimрдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджреИ рдПрд░реЗрд╣рд░реВ рдШреЛрд╖рдгрд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleRedim
Dim iVar() As Integer, iCount As Integer
ReDim iVar(5) As Integer
For iCount = 1 To 5
iVar(iCount) = iCount
Next iCount
ReDim iVar(10) As Integer
For iCount = 1 To 10
iVar(iCount) = iCount
Next iCount
End Sub