Cách gom các Sheet ở trong một With (1 người xem)

[Hong.Van]

Thầy cô & anh chị giúp em gom code này cho ngắn gọn

Sub ABC()
        Dim Sh1 As Worksheet, Sh2 As Worksheet, i As Long 
    Set Sh1 = Sheets("A"): Set Sh2 = Sheets("B")
        With Sh1
        .Unprotect "abc" 
        End With
        With Sh2
        .Unprotect "abc" 
        End With
......
End Sub

Em dùng

With Union (Sh1,Sh2)
.Unprotect "abc" 
 End With

nó không chịu
Em cảm ơn
------------
Có cách nào khi chạy bấy kỳ code nào thì dùng fương thức gì để Unprotect tòan bộ các sheet và chạy xong protect lại các sheet (PW: các sheet như nhau)

 

[nghiaphuc]

Để Unprotect toàn bộ các sheet thì bạn có thể sử dụng code sau:

Sub Test()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        Sh.Unprotect "GPE"
    Next
End Sub

 

[SA_DQ]

Mình cứ tưởng đang ở BOX "Thư giản", vui thiệt đó nha!

Ai lại dùng fương thức UNION() cho các trang tính bao giờ!

UNION() chỉ xài với Range & Cells thôi, nha.

Bạn có thể thử đoạn mã sau:

 Dim Sh As WorkSheet

 For Each Sh In ThíWorkbook.Worksheets
   If Left( Sh.Name, 3)="GPE" Then 


   End If Next Sh

)(in lỗi trước nếu tiêu đề đã làm bạn giận!

 

[Hong.Van]

Ai lại dùng fương thức UNION() cho các trang tính bao giờ!

UNION() chỉ xài với Range & Cells thôi, nha.
)(in lỗi trước nếu tiêu đề đã làm bạn giận!

Không biết thỉ hỏi, nếu những lời góp ý là chân tình thì có gì để giận!

 

[ndu96081631]

Thầy cô & anh chị giúp em gom code này cho ngắn gọn

Sub ABC()
        Dim Sh1 As Worksheet, Sh2 As Worksheet, i As Long 
    Set Sh1 = Sheets("A"): Set Sh2 = Sheets("B")
        With Sh1
        .Unprotect "abc" 
        End With
        With Sh2
        .Unprotect "abc" 
        End With
......
End Sub

Em dùng

With Union (Sh1,Sh2)
.Unprotect "abc" 
 End With

nó không chịu
Em cảm ơn
------------
Có cách nào khi chạy bấy kỳ code nào thì dùng fương thức gì để Unprotect tòan bộ các sheet và chạy xong protect lại các sheet (PW: các sheet như nhau)

Đương nhiên không dùng như vậy được!
Vòng lập duyệt qua các sheet thì không nói làm gì, tôi nghĩ cách này sẽ tùy biến cao hơn và nhanh hơn:

Sub Test()
  Dim wksArr, wksItem
  wksArr = Array("A", "B")
  For Each wksItem In wksArr
    Sheets([COLOR=#ff0000]CStr[/COLOR](wksItem)).Unprotect "abc"
  Next
End Sub

Chỉ duyệt qua cái nào mình cần
------------------
Đố bạn biết tại sao phải cần có CStr?

 

[Quang_Hải]

Đương nhiên không dùng như vậy được!
Vòng lập duyệt qua các sheet thì không nói làm gì, tôi nghĩ cách này sẽ tùy biến cao hơn và nhanh hơn:

Sub Test()
  Dim wksArr, wksItem
  wksArr = Array("A", "B")
  For Each wksItem In wksArr
    Sheets([COLOR=#ff0000]CStr[/COLOR](wksItem)).Unprotect "abc"
  Next
End Sub

Chỉ duyệt qua cái nào mình cần
------------------
Đố bạn biết tại sao phải cần có CStr?

Em không biết tại sao anh thêm Cstr nhưng theo suy đoán anh đề phòng nếu tên sheet được là 1 số thì lúc đó bị lẫn lộn giữa sheetcode và sheet name. Đoán thôi nhưng chưa test thử.

 

[kyo]

Em không biết tại sao anh thêm Cstr nhưng theo suy đoán anh đề phòng nếu tên sheet được là 1 số thì lúc đó bị lẫn lộn giữa sheetcode và sheet name. Đoán thôi nhưng chưa test thử.

Đúng rồi đó anh quanghai. Nếu tên sheet là "1" thì nó vẫn là chuỗi chứ không phải số. Do đó có sự khác biệt giữa Sheets(1) và Sheets("1") nên để xác định tên cần dùng CStr

 

[ndu96081631]

Em không biết tại sao anh thêm Cstr nhưng theo suy đoán anh đề phòng nếu tên sheet được là 1 số thì lúc đó bị lẫn lộn giữa sheetcode và sheet name. Đoán thôi nhưng chưa test thử.

Là lộn giữa Sheet Name và Sheet Index chứ
Thí nghiệm thì biết
Ẹc... Ẹc...

 

[huuthang_bd]

Đúng rồi đó anh quanghai. Nếu tên sheet là "1" thì nó vẫn là chuỗi chứ không phải số. Do đó có sự khác biệt giữa Sheets(1) và Sheets("1") nên để xác định tên cần dùng CStr

Không biết anh ndu có ý gì khác không chứ nếu là vấn đề này thì khi khai báo các phần tử của mảng ta chỉ cần khai báo dạng String là được rồi, đâu cần phải dùng hàm CStr.

 

[ndu96081631]

Không biết anh ndu có ý gì khác không chứ nếu là vấn đề này thì khi khai báo các phần tử của mảng ta chỉ cần khai báo dạng String là được rồi, đâu cần phải dùng hàm CStr.

Phòng luôn luôn chắc!
Ở trên chỉ là ví dụ nhỏ. thực tế thì wksArr chắc gì là Array(...) do ta khai báo ---> Nhiều khi là 1 mảng thu thập được từ dữ liệu cũng không chừng ---> Ai mà biết nó là String hay là cái giống gì