นำค่า array จาก Userform อื่นมาใช้

[b5930304629]

สวัสดีค่ะ จะนำ array ใน userform2 มาใช้ใน userform3 ค่ะ สามารถทำได้ไหมคะ array ที่ต้องการนำมาใช้ใน userform3 คือ one ค่ะ

Code ใน userform 2 ค่ะ

Code: Select all

Public Sub CommandButton6_Click()

    n = UserForm1.ComboBox2.Value
    m = 3 * n
    
    Dim one() As Double
    ReDim one(1 To n, 1 To m) As Double
    
    For ii = 1 To n
        For jj = 3 * (ii - 1) + 1 To m
            one(ii, jj) = input1(tt, 2 + 3 * (ii - 1)) - input1(tt, jj)
            'Cells(ii, jj).Value = one(ii, jj)
        Next jj
    Next ii

ได้ลองทำการเขียน Code ใน userform 3 ค่ะ

Code: Select all

Private Sub CommandButton3_Click()

    n = UserForm1.ComboBox2.Value
    m = 3 * n
    
    For ii = 1 To n
        For jj = 3 * (ii - 1) + 1 To m
            UserForm4.MultiPage1.Page1.Controls("TextBox" & jj + (21 * (ii - 1))).Value = UserForm2.one(ii, jj)
        Next jj
    Next ii

[snasui]

ประกาศตัวแปร One ใน Module ปกติเป็นแบบ Public ไม่ประกาศตัวแปรนี้ใน UserForm ใด ๆ

จากนั้น Assign ค่าให้กับตัวแปร One ใน UserForm2 หรือด้วย Prodecure ใด ๆ ก็ได้ตามต้องการ จากนั้นสามารถนำไปใช้ได้ในทุก Module

Array นี้ไม่ได้เป็นสมาชิกของ Object ใด เมื่ออ้างถึงให้ใช้ One(n,m) ไม่อ้างเป็น Object.One(n,m) ครับ

[b5930304629]

ขอบคุณค่ะ