Xin hỏi về câu lệnh khi sử dụng mutipage (1 người xem)

[huralove]

Cho mình hỏi câu lệnh để khi chạy form mình kích vào tab page 1 thì biến i trả về giá trị 0 còn kích vào tab page 2 thì biến i trả về giá trị 1 là gì. Cảm ơn !

 

[leonguyenz]

Cú pháp:

Private Sub MultiPage1_Change()
    Sheet1.[P3] = Me.MultiPage1.Value
End Sub

 

[jack nt]

Cú pháp:

Private Sub MultiPage1_Change()
    Sheet1.[P3] = Me.MultiPage1.Value
End Sub

bổ sung: giả sử có 2 pages như trong file đính kèm phía trên.
nếu Page1 đứng trước (default) thì
MultiPage1.Pages("Page1").Index = 0
MultiPage1.Pages("Page2").Index = 1
nếu Page2 đứng trước thì
MultiPage1.Pages("Page1").Index = 1
MultiPage1.Pages("Page2").Index = 0
trong trường hợp 1 khi click vào page1 thì .Value = 0, nhưng trong trường hợp 2 thì giá trị trả về lại là 1.
cái index này tương ứng với vị trí của page trên multipage (có thể thay đổi). để biết page nào được chọn không dùng trực tiếp .Value được mà phải đối chiếu với .Index

    With MultiPage1        
        Select Case .Value
            Case .Pages("Page1").Index
                'do smt with Page1
            Case .Pages("Page1").Index
                'do smt with Page2
        End Select
    End With