ReDim Statement
λ³μλ λ°°μ΄μ μ μΈν©λλ€.
ꡬ문:
[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]
μ νμ μΌλ‘ Preserve ν€μλλ₯Ό λ§€κ° λ³μλ‘ μΆκ°νμ¬ λ€μ μ°¨μνλλ λ°°μ΄μ λ΄μ©μ μ μ§ν μ μμ΅λλ€.
λ§€κ° λ³μ:
VarName: μμμ λ³μ λλ λ°°μ΄ μ΄λ¦μ λλ€.
Start, End: μμ μ(NumberElements=(end-start)+1)μ μμΈ λ²μλ₯Ό μ§μ νλ μ«μ κ° λλ μμμ λλ€.
ReDimμ νλ‘μμ μμ€μμ μ¬μ©ν κ²½μ° Start λ° Endλ μ«μ μμ΄ λ μ μμ΅λλ€.
VarType: λ³μμ λ°μ΄ν° μ νμ μ μΈνλ ν€μλμ λλ€.
Keyword: λ³μ μ ν
Bool: Boolean λ³μ(True, False)
Date: Date λ³μ
Double: Double λΆλ μμμ λ³μ(1.79769313486232x10E308 - 4.94065645841247x10E-324)μ λλ€.
Integer: Integer λ³μ(-32768 - 32767)
Long: Long integer λ³μ(-2,147,483,648 - 2,147,483,647)
Object: Object λ³μ(μ΄νμ Setμ ν΅ν΄μλ§ μ§μ ν μ μμ)
[Single]: Single λΆλ μμμ λ³μμ λλ€(3.402823x10E38 - 1.401298x10E-45). ν€μλλ₯Ό μ§μ νμ§ μμΌλ©΄ DefBoolμμ DefVarκΉμ§μ λ¬Έμ μ¬μ©νμ§ μλ κ²½μ° λ³μλ Singleλ‘ μ§μ λ©λλ€.
String: μ΅λ 64,000κ°μ ASCII λ¬Έμλ₯Ό ν¬ν¨νλ String λ³μ
Variant: Variant λ³μ μ ν(λͺ¨λ μ νμ ν¬ν¨ν μ μμΌλ©° μ μλ³λ‘ μ€μ λ¨)
LibreOffice Basicμμλ λ³μλ₯Ό λͺ μμ μΌλ‘ μ μΈν νμκ° μμ΅λλ€. κ·Έλ¬λ λ°°μ΄μ μ¬μ©ν μ μμΌλ €λ©΄ λ¨Όμ λ°°μ΄μ μ μΈν΄μΌ ν©λλ€. λ³μλ Dim λ¬Έμ μ¬μ©νμ¬ μ μΈν μ μμΌλ©°, μ΄λ μ¬λ¬ μ μΈμ ꡬλΆνλ €λ©΄ μΌνλ₯Ό μ¬μ©ν©λλ€. λ³μ μ νμ μ μΈνλ €λ©΄ μ΄λ¦ λ€μ μ ν μ μΈ λ¬Έμλ₯Ό μ λ ₯νκ±°λ ν΄λΉ ν€μλλ₯Ό μ¬μ©ν©λλ€.
LibreOffice Basicμ μ§μ ν λ³μ μ νμ μν΄ μ§μ λλ μΌμ°¨μ λλ λ€μ°¨μ λ°°μ΄μ μ§μν©λλ€. νΈμ§ν λͺ©λ‘μ΄λ ν μ΄λΈμ΄ νλ‘κ·Έλ¨μ ν¬ν¨λ κ²½μ°μ λ°°μ΄μ΄ μ ν©ν©λλ€. λ°°μ΄μ μ₯μ μ μ«μ μ λλ λ³μλ‘ κ³΅μνν μ μλ μμΈμ λ°λΌ κ°λ³ μμλ₯Ό μ§μ ν μ μλ€λ κ²μ λλ€.
Dim λ¬Έμ μ¬μ©νμ¬ μ μΈν λ°°μ΄μ μμΈ λ²μλ₯Ό μ€μ νλ λ°©λ²μλ λ€μ λ κ°μ§κ° μμ΅λλ€.
DIM text(20) As String REM 21 elements numbered from 0 to 20
DIM text(5 to 25) As String REM 21 elements numbered from 5 to 25
DIM text$(-15 to 5) As String REM 21 elements (0 inclusive),
rem numbered from -15 to 5
λ³μ νλλ μλΈλ£¨ν΄ λλ ν¨μμμ 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