Xin code để hide sheet tự động (1 người xem)

[lehoaivan89]

Chào cả nhàMình không biết code trên excel. mình muốn xin code để tự động hide các sheet có mã là 1 trên file đính kèm.Cả nhà giúp mình với

 

[Quang_Hải]

Chào cả nhàMình không biết code trên excel. mình muốn xin code để tự động hide các sheet có mã là 1 trên file đính kèm.Cả nhà giúp mình với

Cho code này vào 1 module

Sub hidesheet()
Dim Dk(), i
Dk = Sheet1.Range(Sheet1.[A4], Sheet1.[B65536].End(3)).Value
For i = 1 To UBound(Dk)
   If Dk(i, 2) = 1 Then
      Sheets(Dk(i, 1)).Visible = 0
   End If
Next
End Sub

 

[lehoaivan89]

Thank anh nhé,
Nếu muốn làm 1 code mà có ca hide và unhide thì làm thế nào, tức là khi em đổi giá trị tại cột B mà chạy lại macro ý thì sẽ unhide những sheet mà mình đổi giá trị rồi

 

[Quang_Hải]

Thank anh nhé,
Nếu muốn làm 1 code mà có ca hide và unhide thì làm thế nào, tức là khi em đổi giá trị tại cột B mà chạy lại macro ý thì sẽ unhide những sheet mà mình đổi giá trị rồi

Code cũng y vậy. Mình cũng biết trước là bạn sẽ hỏi điều này mà.

Sub hidesheet()
Dim Dk(), i
Dk = Sheet1.Range(Sheet1.[A4], Sheet1.[B65536].End(3)).Value
For i = 1 To UBound(Dk)
   If Dk(i, 2) = 1 Then
      Sheets(Dk(i, 1)).Visible = 0
   Else
     Sheets(Dk(i, 1)).Visible = -1
   End If
Next
End Sub

 

[lehoaivan89]

Thanks anh nhé, . Đúng cái em cần rồi

 

[hellohaibalo]

Mình có một thắc mắc không biết post ở đâu, nên xin phép post tại đây để hỏi các bạn
Mình có bảng dữ liệu như hình vẽ, mình muốn hỏi các bạn là: phải dùng lệnh gì để tính tổng của a=? b=? c=? ... rất mong được sự giúp sức của các bạn.

 

[chuot0106]

Mình có một thắc mắc không biết post ở đâu, nên xin phép post tại đây để hỏi các bạn
Mình có bảng dữ liệu như hình vẽ, mình muốn hỏi các bạn là: phải dùng lệnh gì để tính tổng của a=? b=? c=? ... rất mong được sự giúp sức của các bạn.View attachment 125026

Bạn sử dụng hàm sumif nhé.

 

[hellohaibalo]

cảm ơn chuot0106 đã giúp đỡ, nhưng có cách khác không bạn vì phần mềm mình dùng trên điện thoại không có hàm sumif?

 

[chuot0106]

cảm ơn chuot0106 đã giúp đỡ, nhưng có cách khác không bạn vì phần mềm mình dùng trên điện thoại không có hàm sumif?

Thế thì mình bó tay thôi.

 

[hellohaibalo]

cảm ơn bạn, mình tìm ra rồi dùng hàm: =SUMPRODUCT((A1:A8="a")*(B1:B8))