Xóa cùng một ô ở nhiều sheet khác nhau (1 người xem)

[ExcelQN]

Tôi có 1 file ex, gồm 10 sheet, tôi muốn cùng một lúc xóa ô A1 và K3 của tất cả 10 sheet đó thì làm sao? (trong file này, ngoài 10 sh đó, còn một số sh khác, nhưng tôi chỉ muốn xóa trên 10 sh đó thôi). Cảm ơn các anh chị trước.

 

[VetMini]

2 cách:

Nếu biết chắc chắn 10 tên
Sub t1()
Dim sh As Variant
For Each sh In [ { "sheet1", "sheet2" } ]
With Sheets(sh)
Union(.Range("A3"), .Range("K3")).ClearContents
End With
Next sh
End Sub

Nếu không chắc tên các sheets:
Sub t2()
Dim sh As Variant
For Each sh In Sheets
With sh
If (InStr("";Tên1;Tên2;Tên3;Tên4;Tên5;Tên6;Tên7;Tên8;Tên9;Tên10;"", ";" & LCase(.Name) & ";")) Then Union(.Range("A3"), .Range("K3")).ClearContents
End With
Next sh
End Sub

 

[Kẻ_Độc_Hành]

Tôi có 1 file ex, gồm 10 sheet, tôi muốn cùng một lúc xóa ô A1 và K3 của tất cả 10 sheet đó thì làm sao? (trong file này, ngoài 10 sh đó, còn một số sh khác, nhưng tôi chỉ muốn xóa trên 10 sh đó thôi). Cảm ơn các anh chị trước.

Chọn hết 10 sheet đó, rồi xoá ô A1 và K3 là xong chuyên.

 

[ExcelQN]

Nhân tiện cho tôi hỏi, cũng file ex có 10 sheet đó, mỗi sh đều được bảo vệ bằng một pas giống hêt nhau. Tôi muốn tạo một macro gỡ một lúc 10 sh đó luôn, nhờ các bạn chỉ giúp.

 

[phucbugis]

Nhân tiện cho tôi hỏi, cũng file ex có 10 sheet đó, mỗi sh đều được bảo vệ bằng một pas giống hêt nhau. Tôi muốn tạo một macro gỡ một lúc 10 sh đó luôn, nhờ các bạn chỉ giúp.

bạn tải file về xem sao nhé !

Sub UnProtect_nhieuSheet()
    Call hotro_Protectsheet(False)
End Sub

Sub Protect_nhieuSheet()
    Call hotro_Protectsheet(True)
End Sub

Sub hotro_Protectsheet(bLock As Boolean)
Dim ws As Worksheet, myPass As Variant

    Set WSArray = ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    
    myPass = "abc123"
    
    For Each ws In WSArray
        If bLock = True Then
            ws.Protect Password:=myPass
        Else
            ws.Unprotect Password:=myPass
        End If
    Next
    
End Sub

 

[ndu96081631]

Nhân tiện cho tôi hỏi, cũng file ex có 10 sheet đó, mỗi sh đều được bảo vệ bằng một pas giống hêt nhau. Tôi muốn tạo một macro gỡ một lúc 10 sh đó luôn, nhờ các bạn chỉ giúp.

Cái gì ra cái đó, không có chuyện NHÂN TIỆN đâu nha
Hỏi về Protect sheet thì chẳng liên quan gì đến chủ đề topic cả ---> Đóng topic (vì cái bạn cần đã xong)