Moduleแรก
Private Sub ArrayStorage()
Dim Finish_Order As Integer
Finish_Order = Worksheets("Plan").Range("FinishOrder").Value
For i = 1 To Finish_Order
Order(i) = Worksheets("Plan").Range("Order").Cells(i).Value
Next
ReDim Array_A(Finish_Order, Finish_Order)
For a = 1 To Finish_Order
For a1 = 1 To Finish_Order
Array_A(a, a1) = Order(a1)
Next
Next
codeประมาณนี้ครับ คืออยากเก็บค่า Array_Aในmoduleแรกเเล้วนำมาเรียกใช้ในmoduleที่2 ต้องทำยังไงครับ
อยากทราบเรื่องการใช้ตัวแปรข้าม ModuleในVBAหน่อยครับ ทำยังไงหรอครับ
Private Sub ArrayStorage()
Dim Finish_Order As Integer
Finish_Order = Worksheets("Plan").Range("FinishOrder").Value
For i = 1 To Finish_Order
Order(i) = Worksheets("Plan").Range("Order").Cells(i).Value
Next
ReDim Array_A(Finish_Order, Finish_Order)
For a = 1 To Finish_Order
For a1 = 1 To Finish_Order
Array_A(a, a1) = Order(a1)
Next
Next
codeประมาณนี้ครับ คืออยากเก็บค่า Array_Aในmoduleแรกเเล้วนำมาเรียกใช้ในmoduleที่2 ต้องทำยังไงครับ