Giang Hưng
Giang Hưng
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 140 lượt xem

Mình thấy thay vì viết lệnh khó nhớ đấy có thể viết cách nàyPrivate Sub

Mình thấy thay vì viết lệnh khó nhớ đấy có thể viết cách này

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("B2") <> "" Then

    Call Auto_AdF

    End If

End Sub

Hạn chế của cách viết đó so với cách viết mặc định của VBA là gì vậy ad? 

Thảo luận 1 câu trả lời
Lượt xem 140 lượt xem
Vỗ tay vỗ tay
Giang Hưng 15:07 - Jul 22, 2021

Chào bạn bạn có thể viết bằng cách ấn ctrl+ space nhé

 If Not Application.Intersect(Range(""), Target) Is Nothing Then
    // code
End If
Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông