Không tạo được Macro

Quảng cáo

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
mọi người giúp em với ạ. em đang muốn tạo sheet macro kết hợp advanced filter để lọc dữ liệu sang sheet bên cạnh nhưng cứ gặp lỗi như hình dưới. và sau đó lọc không hiện thông tin. em gửi file đính kèm mọi người chỉ giúp em đang bị lỗi ở chỗ nào ạ.

1599706343100.png
 

File đính kèm

  • List tổng.xlsx
    20 KB · Đọc: 0

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
Không thấy miếng mác rô nào bạn.
bạn ơi file gốc rất nặng mình làm macro trên file ấy và không up file lên được. mình cut bớt dữ liệu làm vào file mới này thì ko trích xuất được dữ liệu cần lọc. bạn xem giúp mình với nhé
 

File đính kèm

  • List tổng.xlsx
    28.1 KB · Đọc: 1

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,725
Được thích
53,569
Điểm
50
bạn ơi file gốc rất nặng mình làm macro trên file ấy và không up file lên được. mình cut bớt dữ liệu làm vào file mới này thì ko trích xuất được dữ liệu cần lọc. bạn xem giúp mình với nhé
Bạn lưu ý rằng file có định dạng .XLSX sẽ không bao giờ có chứa bất cứ macro nào cả. Vậy nếu bạn record macro mà muốn lưu lại thì BẮT BUỘC phải lưu theo định dạng khác, là .XLSM hoặc .XLSB nhé!
 

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
Bạn lưu ý rằng file có định dạng .XLSX sẽ không bao giờ có chứa bất cứ macro nào cả. Vậy nếu bạn record macro mà muốn lưu lại thì BẮT BUỘC phải lưu theo định dạng khác, là .XLSM hoặc .XLSB nhé!
mình đã lưu thành xlsm nhưng khi mình advanced filter thì dưới phần danh sách lọc hiện ra bảng lỗi không đầy đủ thông tin. bạn giúp mình với
 

File đính kèm

  • List tổng.xlsm
    696.1 KB · Đọc: 2

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,725
Được thích
53,569
Điểm
50
mình đã lưu thành xlsm nhưng khi mình advanced filter thì dưới phần danh sách lọc hiện ra bảng lỗi không đầy đủ thông tin. bạn giúp mình với
Bạn biết sử dụng chức năng Advanced Filter không? Với file của bạn, nếu thực hiện Advanced Filter (không cần record macro) thì có được không?
 

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
Bạn biết sử dụng chức năng Advanced Filter không? Với file của bạn, nếu thực hiện Advanced Filter (không cần record macro) thì có được không?
mình đang dùng kết hợp cả advanced filter và macro nhưng khi nhấn nút tìm kiếm thì không hiện lên giá trị cần tìm. như bảng bên dưới bạn ạ. mình không hiểu đang mắc lỗi ở đâu mà ko trích xuất được bảng dữ liệu
 

File đính kèm

  • danh sách nhận khẩu trang T10.xlsm
    18.7 KB · Đọc: 3

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,725
Được thích
53,569
Điểm
50
mình đang dùng kết hợp cả advanced filter và macro nhưng khi nhấn nút tìm kiếm thì không hiện lên giá trị cần tìm. như bảng bên dưới bạn ạ. mình không hiểu đang mắc lỗi ở đâu mà ko trích xuất được bảng dữ liệu
Macro của bạn đây
Mã:
Sub tim()
'
' tim Macro
'

'
    Sheets("Sheet1").Range("A2:E18").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:E2"), CopyToRange:=Range("A10"), Unique:=False
    Range("A10:E26").Select
    Selection.Clear
    Range("H11").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("E5").Select
End Sub
Sau khi lọc ra kết quả thì lại:
Mã:
Range("A10:E26").Select
Selection.Clear
xóa sạch hết luôn, lấy đâu mà thấy gì?
Vậy bạn sửa macro lại thành vầy là được:
Mã:
Sub tim()
    Sheets("Sheet1").Range("A2:E18").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:E2"), CopyToRange:=Range("A10"), Unique:=False
End Sub
-----------------------------------------
Ah quên! Bấm Alt + F11 để vào cửa số lập trình sẽ nhìn thấy macro (nhắc nếu bạn chưa từng làm vụ này lần nào)
 

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
Macro của bạn đây
Mã:
Sub tim()
'
' tim Macro
'

'
    Sheets("Sheet1").Range("A2:E18").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:E2"), CopyToRange:=Range("A10"), Unique:=False
    Range("A10:E26").Select
    Selection.Clear
    Range("H11").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("E5").Select
End Sub
Sau khi lọc ra kết quả thì lại:
Mã:
Range("A10:E26").Select
Selection.Clear
xóa sạch hết luôn, lấy đâu mà thấy gì?
Vậy bạn sửa macro lại thành vầy là được:
Mã:
Sub tim()
    Sheets("Sheet1").Range("A2:E18").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:E2"), CopyToRange:=Range("A10"), Unique:=False
End Sub
-----------------------------------------
Ah quên! Bấm Alt + F11 để vào cửa số lập trình sẽ nhìn thấy macro (nhắc nếu bạn chưa từng làm vụ này lần nào)
cảm ơn bạn rất nhiều mình đã làm được macro bảng excel vừa rồi.
về bảng excel list tổng của mình khi cop thông tin từ list thông tin sang sheet macro thì báo lỗi này. bạn giải thích giúp mình là lỗi gì được không ạ

1599726726455.png
 

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,725
Được thích
53,569
Điểm
50
cảm ơn bạn rất nhiều mình đã làm được macro bảng excel vừa rồi.
về bảng excel list tổng của mình khi cop thông tin từ list thông tin sang sheet macro thì báo lỗi này. bạn giải thích giúp mình là lỗi gì được không ạ

View attachment 245289
Lỗi Curcular... là lỗi tham chiếu vòng. Kiểu như bạn gõ vào cell A1 công thức =A1 thì excel không thể tính toán được. Nếu lỗi này xuất hiện, excel sẽ ghi cụ thể cell nào lỗi ở khu vục status bar, bạn nhìn vào đó, đi đến cell bị lỗi và xử lý nhé
 

ThuongvuCandy

Thành viên mới
Tham gia ngày
8 Tháng chín 2020
Bài viết
11
Được thích
4
Điểm
0
Tuổi
31
Lỗi Curcular... là lỗi tham chiếu vòng. Kiểu như bạn gõ vào cell A1 công thức =A1 thì excel không thể tính toán được. Nếu lỗi này xuất hiện, excel sẽ ghi cụ thể cell nào lỗi ở khu vục status bar, bạn nhìn vào đó, đi đến cell bị lỗi và xử lý nhé
mình đã làm được rồi. cảm ơn bạn rất nhiều
 
Quảng cáo
Top Bottom