Xin được trợ giúp Ẩn cột theo điều kiện là tháng (1 người xem)

le_vis · 26/3/20

Tôi có sử dụng đoạn code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [AR4]) Is Nothing Then

Dim Cls As Range, Rws As Long

Columns("AL:AN").Hidden = False

Rws = [D8].CurrentRegion.Rows.Count

For Each Cls In [AL6].Resize(, 3)

If Month(Cls.Value) <> Target.Value Then

Cls.EntireColumn.Hidden = True

End If

Next Cls

End If

End Sub

Với mục tiêu là ẩn cột theo điều kiện từng tháng . nhưng code chạy không theo ý muốn - Nhưng sửa mãi không được - Kính mong nhận được sự hỗ trợ của quý thầy cô và các bạn (Mọi chi tiết xin được diễn giải trong File đính kèm) - Xin trân trọng cảm ơn.

leonguyenz · 26/3/20

Thêm Month ở giá trị Target: Month(Cls.Value) <> Month(Target.Value)

le_vis đã viết:
If Month(Cls.Value) <> Target.Value Then

le_vis · 26/3/20

leonguyenz đã viết:
Thêm Month ở giá trị Target: Month(Cls.Value) <> Month(Target.Value)

Cảm ơn bạn đã quan tâm - Nhưng không được Leonguyenz ạ. Bạn xem lại giúp nhé

be_09 · 26/3/20

le_vis đã viết:
Với mục tiêu là ẩn cột theo điều kiện từng tháng . nhưng code chạy không theo ý muốn - Nhưng sửa mãi không được - Kính mong nhận được sự hỗ trợ của quý thầy cô và các bạn (Mọi chi tiết xin được diễn giải trong File đính kèm) - Xin trân trọng cảm ơn.

Thử File, thay đổi tháng trong AR4, code dựa theo số ngày tại AR6.
Tôi sửa lại code và chuyển File xuống bài 6.

le_vis · 26/3/20

be09 đã viết:
Thử File, thay đổi tháng trong AR4, code dựa theo số ngày tại AR6.

Code chạy chuẩn luôn - Xin cảm ơn thầy nhiều

be_09 · 26/3/20

le_vis đã viết:
Code chạy chuẩn luôn - Xin cảm ơn thầy nhiều

Chuyển File xuống bài 10.
Tôi đặt điều kiện thừa nên tôi sửa lại code.
Bổ sung thêm định dạng thứ bảy, chúa nhật.

le_vis · 27/3/20

be09 đã viết:
Thử File, thay đổi tháng trong AR4, code dựa theo số ngày tại AR6.
Tôi sửa lại code và chuyển File xuống bài 6.

be09 đã viết:
Tôi đặt điều kiện thừa nên tôi sửa lại code.

Cảm ơn thầy (Còn trường hợp những năm tháng 2 chỉ có 28 ngày) dựa trên code thầy cho tôi đã tùy biến xong nếu thử thay đổi xuống 2/2019 thì code chạy đúng sau đó giữ nguyên chỉ thay đổi thành năm 2020 thì nó không đánh bài ì . Xin thầy chỉ giáo thêm. Cảm ơn thầy nhiều nhiều.

SA_DQ · 27/3/20

Bạn tham khảo macro sự kiện này để tiếp tục công việc của bạn:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [AR4]) Is Nothing Then
    Dim Cls As Range
    Dim SoNgay As Integer
    Columns("AL:AN").Hidden = True
    
    SoNgay = Day(DateSerial(Year(Target.Value), 1 + Month(Target.Value), 0))
    MsgBox SoNgay

 End If
End Sub

le_vis · 27/3/20

SA_DQ đã viết:
Bạn tham khảo macro sự kiện này để tiếp tục công việc của bạn:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [AR4]) Is Nothing Then Dim Cls As Range Dim SoNgay As Integer Columns("AL:AN").Hidden = True SoNgay = Day(DateSerial(Year(Target.Value), 1 + Month(Target.Value), 0)) MsgBox SoNgay End If End Sub

Nhờ thầy tét lại và chỉnh cho tý. Thay đối tháng nào nó cũng ẩn hết từ AL đến AN chỉ để 28 ngày thôi - Cảm ơn thày đã phải dậy sớm

be_09 · 27/3/20

le_vis đã viết:
Nhờ thầy tét lại và chỉnh cho tý.
- Cảm ơn thày đã phải dậy sớm

Tôi chỉnh lại code theo trường hợp, code cũ thiếu trường hợp tháng 2 có 28 ngày.
Bổ sung thêm thứ và định dạng thứ bảy màu vàng, chúa nhật màu hường để bạn áp dụng File này cho nhiều năm sau..

le_vis · 27/3/20

be09 đã viết:
Tôi chỉnh lại code theo trường hợp, code cũ thiếu trường hợp tháng 2 có 28 ngày.
Bổ sung thêm thứ và định dạng thứ bảy màu vàng, chúa nhật màu hường để bạn áp dụng File này cho nhiều năm sau..

Xin cảm ơn Thầy rất nhiều; Code đã đáp ứng đúng công việc tôi cần. Xa quá không có điều kiện gặp để bái tạ, nhưng tôi nghĩ chắc Thầy là người luôn Tận tình-Chu đáo-sáng tạo và đức độ. Xin cảm ơn Thầy

leonguyenz · 27/3/20

le_vis đã viết:
Cảm ơn bạn đã quan tâm - Nhưng không được Leonguyenz ạ. Bạn xem lại giúp nhé

Không biết là "không được" ở khúc nào?

SA_DQ · 27/3/20

THÀY LƯỜI QUÁ ĐÓ NHA

Nhờ thầy tét lại và chỉnh cho tý. Thay đối tháng nào nó cũng ẩn hết từ AL đến AN chỉ để 28 ngày thôi

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [AR4]) Is Nothing Then
    Dim Cls As Range
    Dim SoNgay As Integer
    Columns("AL:AN").Hidden = True
    
    SoNgay = Day(DateSerial(Year(Target.Value), 1 + Month(Target.Value), 0))
    Columns("J:J").Resize(, SoNgay).Hidden = False
 End If
End Sub

be_09 · 27/3/20

SA_DQ đã viết:

THÀY LƯỜI QUÁ ĐÓ NHA

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AR4]) Is Nothing Then
    Dim Cls As Range
    Dim SoNgay As Integer
    Columns("AL:AN").Hidden = True
   
    SoNgay = Day(DateSerial(Year(Target.Value), 1 + Month(Target.Value), 0))
    Columns("J:J").Resize(, SoNgay).Hidden = False
End If
End Sub

Trong code thừa biến Cls anh ơi.

Ba Tê · 27/3/20

Ngược với bài #13:

PHP:

Public Sub AnCot()
Const CoL As Long = 40
Dim X As Long
Columns("AL:AN").EntireColumn.Hidden = False
   X = 31 - Day(DateSerial(Year(Range("AR4")), Month(Range("AR4")) + 1, 0))
If X Then Cells(1, CoL - X + 1).Resize(, X).EntireColumn.Hidden = True
End Sub

anhtuand1989 · 27/3/20

SA_DQ đã viết:
Thầy ơi, nhờ thầy hướng dẫn giùm em ở chủ đề này với ạ: https://www.giaiphapexcel.com/diend...-mã-hàng-không-trùng-nhau.148544/#post-960806

le_vis · 27/3/20

leonguyenz đã viết:
Không biết là "không được" ở khúc nào?
View attachment 234119

Xin lỗi leonguyenz do tôi tes không kỹ. Code chạy chuẩn - Cảm ơn bạn nhiều

Xin được trợ giúp Ẩn cột theo điều kiện là tháng (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tích cực

File đính kèm

Thành viên gạo cội

Thành viên tích cực

Biên Hòa, Đồng Nai

Thành viên tích cực

Biên Hòa, Đồng Nai

Thành viên tích cực

/(hông là gì!

Thành viên tích cực

File đính kèm

Biên Hòa, Đồng Nai

File đính kèm

Thành viên tích cực

Thành viên gạo cội

/(hông là gì!

Biên Hòa, Đồng Nai

Cạo Rồi Khỏi Gội

Thành viên mới

Thành viên tích cực

Sinh nhật lần 19 GPE