Xin nhờ giải thích giùm cách lọc số điện thoại trong file

Gà Công Nghệ

Hãy giữ cho cái đầu thật lạnh.
Tham gia ngày
11 Tháng tám 2015
Bài viết
695
Được thích
333
Điểm
435
Em có file lọc số điện thoại sưu tầm trên GPE (lâu quá em không nhớ tác giả của file). Em copy sheet này để dán sang sheet file khác và copy code trong file luôn mà vẫn không chạy, hoặc em chỉnh sửa code lại cho tìm ở cột D2 vẫn không chạy. Cho em hỏi ở cột C2 này có dùng thêm gì để mà chạy được. Có thành viên nào biết chỉ giùm em với. Em xin cám ơn.
 

File đính kèm

ptm0412

Bad Excel Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
10,022
Được thích
29,935
Điểm
1,910
Tuổi
58
Nơi ở
Gò Vấp
D2 vẫn không chạy. Cho em hỏi ở cột C2 này có dùng thêm gì để mà chạy được.
Trong code của sheet, C2 đang là target. Muốn là D2 thì sửa If Target.Address =$C$2 thành $D$2
Code có 1 đoạn không chạy và báo lỗi ở ShowAllData nếu đang ở tình trạng show all sẵn.
Sửa như sau và xoá từ On error resume next trở xuống nếu không xài:
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
    Range("C2").NumberFormat = "@"
    If Target.Address = "$C$2" Then
        If Target = "" Then
            ShowAllData
        Else
            abc
            [c2].Select
        End If
    End If
    ' tu On Error Resume Next la kiem tra ngay gio'
     On Error Resume Next
    With Range("A1:O5000")
        If Not Intersect(Target, .Cells) Is Nothing Then
            If Target <> "" Then Target.Offset(, 15 - Target.Column()) = Now
        End If
    End With
End Sub
 

Gà Công Nghệ

Hãy giữ cho cái đầu thật lạnh.
Tham gia ngày
11 Tháng tám 2015
Bài viết
695
Được thích
333
Điểm
435
Trong code của sheet, C2 đang là target. Muốn là D2 thì sửa If Target.Address =$C$2 thành $D$2
Code có 1 đoạn không chạy và báo lỗi ở ShowAllData nếu đang ở tình trạng show all sẵn.
Sửa như sau và xoá từ On error resume next trở xuống nếu không xài:
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
    Range("C2").NumberFormat = "@"
    If Target.Address = "$C$2" Then
        If Target = "" Then
            ShowAllData
        Else
            abc
            [c2].Select
        End If
    End If
    ' tu On Error Resume Next la kiem tra ngay gio'
     On Error Resume Next
    With Range("A1:O5000")
        If Not Intersect(Target, .Cells) Is Nothing Then
            If Target <> "" Then Target.Offset(, 15 - Target.Column()) = Now
        End If
    End With
End Sub
Thầy cho em hỏi module 1 và module 2 có sửa hay xóa gì nữa không thầy? Và cho em hỏi thêm nữa là file cũ chạy được mà em copy dữ liệu, code, module 1 và module 2 sang sheet mới của file mới mà c2 không chạy được?
 

ptm0412

Bad Excel Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
10,022
Được thích
29,935
Điểm
1,910
Tuổi
58
Nơi ở
Gò Vấp
Thầy cho em hỏi module 1 và module 2 có sửa hay xóa gì nữa không thầy? Và cho em hỏi thêm nữa là file cũ chạy được mà em copy dữ liệu, code, module 1 và module 2 sang sheet mới của file mới mà c2 không chạy được?
Module chứa abc thì để, module kia chứa code lỗi mà lại không xài, xoá đi
Còn code của sheet đâu không thấy hỏi?
 

Gà Công Nghệ

Hãy giữ cho cái đầu thật lạnh.
Tham gia ngày
11 Tháng tám 2015
Bài viết
695
Được thích
333
Điểm
435
Module chứa abc thì để, module kia chứa code lỗi mà lại không xài, xoá đi
Còn code của sheet đâu không thấy hỏi?
Dạ, vâng. Em tưởng code sheet thầy chỉ ở bài 2. Vậy code sheet mình sửa như bài 2 hay là sao thầy.
 

ptm0412

Bad Excel Member
Thành viên BQT
Super Moderator
Tham gia ngày
4 Tháng mười một 2007
Bài viết
10,022
Được thích
29,935
Điểm
1,910
Tuổi
58
Nơi ở
Gò Vấp
Top Bottom