Tạo nút marco 2 trong 1 (2 người xem)

[GTK-PM]

Trong file có 2 nút marco: Đóng và Mở. Em muốn gộp lại thành 1 nút marco có tự đổi tên động theo. Rất mong anh chị giúp đỡ bài này ạ.

 

[phulien1902]

Trong file có 2 nút marco: Đóng và Mở. Em muốn gộp lại thành 1 nút marco có tự đổi tên động theo. Rất mong anh chị giúp đỡ bài này ạ.

Bạn thử:

Selection.EntireRow.Hidden = Not Selection.EntireRow.Hidden

 

[GTK-PM]

Bạn thử:

Selection.EntireRow.Hidden = Not Selection.EntireRow.Hidden

Bạn ơi đoạn này không được đâu.

Private Sub Cmd1_Click()
If Cmd1.Caption = "OK" Then
    s_GPE1
    Cmd1.Caption = "CANCEL"
Else
    s_Gpe2
    Cmd1.Caption = "OK"
End If
End Sub

Mình muốn dạng như này, nhưng do chưa ghép được để ẩn hiện hàng A2:G11 trong bảng tính bạn ạ.

 

[phulien1902]

Bạn xem File

 

[GTK-PM]

Bạn xem File

Cảm ơn bạn, đúng ý rồi. Nhờ bạn sửa giúp mình đoạn code Shapes sang Forms Control với ạ.

 

[SA_DQ]

Bạn muốn vầy chăng?

 

[GTK-PM]

Bạn muốn vầy chăng?

Em cám ơn anh SA_DQ rất tâm huyết 4:56 đã có mặt trên diễn đàn giải đáp bài giúp ace. Trong bài viết chắc do em diễn đạt chưa chuẩn nên có thêm cả 1 userform. Em có lắp đoạn code dưới vào nút marco nhưng không hoạt động, nhờ anh sửa lại giúp em ạ.

Private Sub cmdDM_Click()
 If Me!cmdDM.Caption = "HIDE" Then
    Me!cmdDM.Caption = "UNHIDE"
    Sheet1.Rows("2:11").Hidden = True
 Else
    Me!cmdDM.Caption = "HIDE"
    Sheet1.Rows("2:11").Hidden = False
 End If
End Sub

 

[giaiphap]

Em cám ơn anh SA_DQ rất tâm huyết 4:56 đã có mặt trên diễn đàn giải đáp bài giúp ace. Trong bài viết chắc do em diễn đạt chưa chuẩn nên có thêm cả 1 userform. Em có lắp đoạn code dưới vào nút marco nhưng không hoạt động, nhờ anh sửa lại giúp em ạ.

Private Sub cmdDM_Click()
If Me!cmdDM.Caption = "HIDE" Then
    Me!cmdDM.Caption = "UNHIDE"
    Sheet1.Rows("2:11").Hidden = True
Else
    Me!cmdDM.Caption = "HIDE"
    Sheet1.Rows("2:11").Hidden = False
End If
End Sub

Thử sửa lại thế này.

Private Sub cmdDM_Click()
 If Sheet1.cmdDM.Caption = "UNHIDE" Then
    Sheet1.cmdDM.Caption = "HIDE"
    Call DONGVAO
Else
    Sheet1.cmdDM.Caption = "UNHIDE"
    Call MORA
End If
End Sub

 

[GTK-PM]

Thử sửa lại thế này.

Private Sub cmdDM_Click()
If Sheet1.cmdDM.Caption = "UNHIDE" Then
    Sheet1.cmdDM.Caption = "HIDE"
    Call DONGVAO
Else
    Sheet1.cmdDM.Caption = "UNHIDE"
    Call MORA
End If
End Sub

Em đã làm được rồi ạ, cám ơn anh!

 

[VetMini]

Thử sửa lại thế này.

Private Sub cmdDM_Click()
If Sheet1.cmdDM.Caption = "UNHIDE" Then
    Sheet1.cmdDM.Caption = "HIDE"
    Call DONGVAO
Else
    Sheet1.cmdDM.Caption = "UNHIDE"
    Call MORA
End If
End Sub

Thường thì cách xét caption không được an toàn cho lắm. Nếu công việc liên quan đến trạng thái (hiện hoặc ẩn của cái gì đó) thì xét thẳng cái trạng thái đó.
RangeGiDo.Hidden = Not RangeGiDo.Hidden
ButtonGiDo.Caption = IIF(RangeGiDo.Hidden, "HIEN", "MO")
Hoặc nếu công việc phức tạp hơn:
IF RangeGiDo.Hidden Then
...
Else
...
End If