Lưu dữ liệu vào một mảng trong VBA. (1 người xem)

[toantinhte87]

========================
Sub Test3()
Dim Arr(1 To 10)
For i = 1 To 10
Arr(i) = "A" & i
Next
End Sub
========================
Mình tạo ta một mảng để lưu dữ liệu như trên. Dữ liệu mình cần sẽ được lưu vào các Arr(i). Làm cách nào để lấy dữ liệu đó ở các chương trình con khác ví dụ trong một Sub khác mình muốn lấy dữ liệu đó như sau:

Sub asasas()
Range("A10") = Arr(1)
End Sub

Thì không được. Ai biết chỉ mình với. Tk All

 

[ndu96081631]

========================
Sub Test3()
Dim Arr(1 To 10)
For i = 1 To 10
Arr(i) = "A" & i
Next
End Sub
========================
Mình tạo ta một mảng để lưu dữ liệu như trên. Dữ liệu mình cần sẽ được lưu vào các Arr(i). Làm cách nào để lấy dữ liệu đó ở các chương trình con khác ví dụ trong một Sub khác mình muốn lấy dữ liệu đó như sau:

Sub asasas()
Range("A10") = Arr(1)
End Sub

Thì không được. Ai biết chỉ mình với. Tk All

Sửa thế này:

[COLOR=#ff0000]Public Arr(1 To 10)[/COLOR]
Sub Test3()
For i = 1 To 10
Arr(i) = "A" & i
Next
End Sub

Sub asasas()
Range("A10") = Arr(1)
End Sub

 

[toantinhte87]

Sửa thế này:

[COLOR=#ff0000]Public Arr(1 To 10)[/COLOR]
Sub Test3()
For i = 1 To 10
Arr(i) = "A" & i
Next
End Sub

Sub asasas()
Range("A10") = Arr(1)
End Sub

Sao không được bạn nhỉ??? Bạn xem lại mình với được không ạ!

 

[giaiphap]

Sao không được bạn nhỉ??? Bạn xem lại mình với được không ạ!

Máy mình vẫn chạy đúng ngon lành luôn.

 

[HieuCD]

chạy code trên trước rồi chạy code dưới

 

[toantinhte87]

mình chưa thử bạn thử xem được không
Public Arr(1 To 10)
Sub Test3()
For i = 1 To 10
Arr(i) = "A" & i
Next
End Sub

Sub asasas()
Range("A10").value = Arr(1)
End Sub

Được rồi bạn à do mình chưa chạy phần Test3 nên chưa có dữ liệu cho Arr(1) Tk bạn nhiều! chúc bạn vui vẻ nhé!

 

[ndu96081631]

Sao không được bạn nhỉ??? Bạn xem lại mình với được không ạ!

Bạn phải chạy Sub Test3 trước

 

[HieuCD]

Bạn phải chạy Sub Test3 trước

Mình không rành về lập trình nên hỏi câu nầy nhờ bạn chỉ : làm sao xóa "biến" mảng Arr sao khi chạy Sub asasas(), ý là khi chạy Sub asasas() lần thứ 2 thì sẽ không nhận được giá trị của Arr

 

[VetMini]

Sửa thế này thì khỏi cần chạy sub Test3 trước

Sub asasas()
[COLOR=#ff0000]If IsEmpty(Arr(1)) Then Test3[/COLOR]
Range("A10") = Arr(1)
End Sub