Multipage Trên Form (1 người xem)

[quocphuoc88]

E có 1 multipage trên form. Trên sheet1 2 có 3 optionbuton
1. Optionbuton 1 khi được chọn thì chỉ có page1 trên multipage hiện ra
2. Optionbuton 2 khi được chọn thì cả 2 page trên multipage hiện ra
3. Optionbuton 3 khi được chọn thì chỉ có page2 trên multipage hiện ra

Nếu code e có để tắt các sự kiện ( screnupdate, caculation ... ) thì nó không ra đúng ( phải chạy code lại lần 2 mới ra đúng ) còn nếu e không tắt các sự kiện thì nó đúng theo như yêu cầu.

E mò hoài mà không hiểu nguyên nhận nên e mạo mụi post bài này để mong các Anh, Chị và các Thầy giúp e !

E xin cảm ơn !

 

[Hoàng Trọng Nghĩa]

E có 1 multipage trên form. Trên sheet1 2 có 3 optionbuton
1. Optionbuton 1 khi được chọn thì chỉ có page1 trên multipage hiện ra
2. Optionbuton 2 khi được chọn thì cả 2 page trên multipage hiện ra
3. Optionbuton 3 khi được chọn thì chỉ có page2 trên multipage hiện ra

Nếu code e có để tắt các sự kiện ( screnupdate, caculation ... ) thì nó không ra đúng ( phải chạy code lại lần 2 mới ra đúng ) còn nếu e không tắt các sự kiện thì nó đúng theo như yêu cầu.

E mò hoài mà không hiểu nguyên nhận nên e mạo mụi post bài này để mong các Anh, Chị và các Thầy giúp e !

E xin cảm ơn !

Trời ơi, ai mà làm như thế!

Tôi không cần biết bạn tính toán gì, nhưng tôi chỉ giúp bạn cái khoản hiện và không hiện Page trong MultiPage nhé!

Trong UseForm, bạn sửa lại thủ tục UserForm_Initialize lại như sau:

Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong hWnd, -16, &H84C00080
    Dim THANG(), thang6()
    thang6 = Array("7", "8", "9", "10", "11", "12")
    THANG = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
    With Chon_KC
        .Frm_Q.Visible = False
        .Frm_T.Visible = False
        .CBO_T.List() = thang6
        .CBO_Den.List() = THANG
        .CBO_Tu.List() = THANG
    End With
End Sub

Trong Module bạn dùng thủ tục sau:

[GPECODE=vb]
Sub FormShow()
If Sheet1.OptionButton1 Then
Chon_KC.MultiPage1.Pages(1).Visible = False
ElseIf Sheet1.OptionButton3 Then
Chon_KC.MultiPage1.Pages(0).Visible = False
End If
Chon_KC.Show
End Sub
[/GPECODE]

Rồi, bây giờ shape "Test 1" bạn gán macro FormShow này vào và click thử nó xem sao!

 

[quocphuoc88]

Dạ. Cám ơn a, nó ra đúng như ý muốn. Nhưng sau e để cái thủ tục kiểm tra các OptionButton trong cái UserForm_Initialize thì cái code test2 nó vẫn ra đúng yêu cầu vậy a !

 

[Hoàng Trọng Nghĩa]

Dạ. Cám ơn a, nó ra đúng như ý muốn. Nhưng sau e để cái thủ tục kiểm tra các OptionButton trong cái UserForm_Initialize thì cái code test2 nó vẫn ra đúng yêu cầu vậy a !

Từ Thủ Đức tôi đi Sài Gòn, bằng xe bus, xe đạp, xe máy, xe hơi v.v... đằng nào cũng tới, nhưng do tôi quyết định đi bằng phương thức nào nhanh nhất, hiệu quả nhất mà thôi!

 

[quocphuoc88]

Từ Thủ Đức tôi đi Sài Gòn, bằng xe bus, xe đạp, xe máy, xe hơi v.v... đằng nào cũng tới, nhưng do tôi quyết định đi bằng phương thức nào nhanh nhất, hiệu quả nhất mà thôi!

Dạ, cám ơn a. E đã hiểu rồi ah !

 

[sealand]

Viết như thế này cho thoáng Code anh Nghĩa à

Sub Test1()
If Not Sheet1.OptionButton2 Then
        Chon_KC.MultiPage1.Pages(0).Visible = Sheet1.OptionButton1
        Chon_KC.MultiPage1.Pages(1).Visible = Sheet1.OptionButton3
End If
    Chon_KC.Show
End Sub

 

[quocphuoc88]

Viết như thế này cho thoáng Code anh Nghĩa à

Sub Test1()
If Not Sheet1.OptionButton2 Then
        Chon_KC.MultiPage1.Pages(0).Visible = Sheet1.OptionButton1
        Chon_KC.MultiPage1.Pages(1).Visible = Sheet1.OptionButton3
End If
    Chon_KC.Show
End Sub

Không biết có thoáng không mà e phải ngầm nghĩ một chút mới hiểu được nó. Hay thật !

 

[Hoàng Trọng Nghĩa]

Viết như thế này cho thoáng Code anh Nghĩa à

Sub Test1()
If Not Sheet1.OptionButton2 Then
        Chon_KC.MultiPage1.Pages(0).Visible = Sheet1.OptionButton1
        Chon_KC.MultiPage1.Pages(1).Visible = Sheet1.OptionButton3
End If
    Chon_KC.Show
End Sub

Dạ, như em đã nói, có nhiều phương thức để thực hiện, miễn sao mình cảm thấy hiệu quả ạ!