Ho scritto questo codice che in apertura di un form memorizza alcuni valori, e vorrei modificarlo utilizzando un solo array a più dimensioni.
Questo il codice testato inserito in Userform
- Codice: Seleziona tutto
Option Explicit
Public arrX As Variant
Public arrY As Variant
Public arrZ As Variant
Private Sub UserForm_Initialize()
Dim ctl As Control
Dim arrA() As String
Dim arrB() As String
Dim arrC() As String
Dim Cnt As Long
Cnt = 1
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.Label Then
Cnt = Cnt + 1
ReDim Preserve arrA(1 To Cnt)
ReDim Preserve arrB(1 To Cnt)
ReDim Preserve arrC(1 To Cnt)
arrA(Cnt) = ctl.Name
arrB(Cnt) = ctl.Left
arrC(Cnt) = ctl.Top
End If
Next ctl
arrX = arrA
arrY = arrB
arrZ = arrC
End Sub
Versione Excel 2003