Tạo Danh Mục Bị Lỗi Reference Is Not Valid | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Excel và Kế Toán

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tạo danh mục bị lỗi reference is not valid (1 người xem)

• Thread starter Thread starter bjboyn00b
• Ngày gửi Ngày gửi 25/5/16

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

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5 Mình có lấy code ở trên mạng để tạo list các sheet trong file ở sheet đầu tiên, với vài sheet không sao, nhưng với file có nhiều sheet thì bị lỗi "reference is not valid" Code mình lấy như sau: Mã: Sao chép. Sub Binh_Creat_List() ' ' Binh_Creat_List Macro ' ' Keyboard Shortcut: Ctrl+j Dim wsSheet As Worksheet Dim ws As Worksheet Dim Counter As Long On Error Resume Next Set wsSheet = Sheets("Mucluc") 'Kiem tra su ton tai cua Sheet On Error GoTo 0 If wsSheet Is Nothing Then 'Neu chua co thi them vao vi tri dau tien cua Workbook Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)) wsSheet.Name = "Mucluc" End If With wsSheet .Cells(2, 1) = "DANH SACH CAC SHEET" .Cells(2, 1).Name = "Index" .Cells(4, 1).Value = "STT" .Cells(4, 2).Value = "Ten Sheet" End With 'Merge Cell With Range("A2:B2") .Merge .HorizontalAlignment = xlCenter .Font.Bold = True End With 'Set ColumnWidth With Columns("A:A") .ColumnWidth = 8 .HorizontalAlignment = xlCenter End With With Range("A4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Columns("B:B").ColumnWidth = 30 With Range("B4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Counter = 1 For Each ws In Worksheets If ws.Name <> wsSheet.Name Then 'Gan gia tri cot thu tu wsSheet.Cells(Counter + 4, 1).Value = Counter 'Tao lien ket wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _ Address:="", _ SubAddress:=ws.Name & "!A1", _ ScreenTip:=ws.Name, _ TextToDisplay:=ws.Name 'Them nut Quay ve Sheet Muc luc tai moi Sheet With ws .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve" End With Counter = Counter + 1 End If Next ws Set xlSheet = Nothing End Sub Ai biết chỉ giúp mình code sai ở đâu với nhé

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,809 Được thích 6,370 Donate (Momo) Giới tính Nam Bạn up file bị lỗi lên xem thử thế nào, chứ nhìn vào đám rừng này mệt quá. B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5

giaiphap đã viết: Bạn up file bị lỗi lên xem thử thế nào, chứ nhìn vào đám rừng này mệt quá. Nhấp chuột vào đây để mở rộng...

File kiểu này nhé bạn

File đính kèm

• Copy of apr2016.zip Copy of apr2016.zip 779.5 KB · Đọc: 26

quanluu

Thành viên gắn bó

Tham gia 11/4/13 Bài viết 2,157 Được thích 1,274 Donate (Momo) Giới tính Nam

bjboyn00b đã viết: File kiểu này nhé bạn Nhấp chuột vào đây để mở rộng...

với tên sheets có dấu "-" thì phải có nháy cho tên sheets nhé: 'xxx' SubAddress:="'" & ws.Name & "'!A1",_ B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5

quanluu1989 đã viết: với tên sheets có dấu "-" thì phải có nháy cho tên sheets nhé: 'xxx' SubAddress:="'" & ws.Name & "'!A1",_ Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, mình sửa rồi nhưng vẫn bị, không phải chỉ sheet có dấu - mới bị mà sheet thường cũng thế, có sheet được, có sheet không

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,809 Được thích 6,370 Donate (Momo) Giới tính Nam

bjboyn00b đã viết: Cảm ơn bạn, mình sửa rồi nhưng vẫn bị, không phải chỉ sheet có dấu - mới bị mà sheet thường cũng thế, có sheet được, có sheet không Nhấp chuột vào đây để mở rộng...

Miễn tên sheet có dấu "-", khoảng trắng, dấu "="... và một số ký tự đặc biệt khác đều bị. B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5

giaiphap đã viết: Miễn tên sheet có dấu "-", khoảng trắng, dấu "="... và một số ký tự đặc biệt khác đều bị. Nhấp chuột vào đây để mở rộng...

Mình đã sửa như sau Mã: Sao chép. Sub Binh_Creat_List() ' ' Binh_Creat_List Macro ' ' Keyboard Shortcut: Ctrl+j Dim wsSheet As Worksheet Dim ws As Worksheet Dim Counter As Long On Error Resume Next Set wsSheet = Sheets("Mucluc") 'Kiem tra su ton tai cua Sheet On Error GoTo 0 If wsSheet Is Nothing Then 'Neu chua co thi them vao vi tri dau tien cua Workbook Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)) wsSheet.Name = "Mucluc" End If With wsSheet .Cells(2, 1) = "DANH SACH CAC SHEET" .Cells(2, 1).Name = "Index" .Cells(4, 1).Value = "STT" .Cells(4, 2).Value = "Ten Sheet" End With 'Merge Cell With Range("A2:B2") .Merge .HorizontalAlignment = xlCenter .Font.Bold = True End With 'Set ColumnWidth With Columns("A:A") .ColumnWidth = 8 .HorizontalAlignment = xlCenter End With With Range("A4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Columns("B:B").ColumnWidth = 30 With Range("B4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Counter = 1 For Each ws In Worksheets If ws.Name <> wsSheet.Name Then 'Gan gia tri cot thu tu wsSheet.Cells(Counter + 4, 1).Value = Counter 'Tao lien ket wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _ Address:="", _ [COLOR=#ff0000]SubAddress:="'" & ws.Name & "'!A1",_[/COLOR] ScreenTip:=ws.Name, _ TextToDisplay:=ws.Name 'Them nut Quay ve Sheet Muc luc tai moi Sheet With ws .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve" End With Counter = Counter + 1 End If Next ws Set xlSheet = Nothing End Sub Sửa như vậy đã okie chưa bạn nhỉ?

quanluu

Thành viên gắn bó

Tham gia 11/4/13 Bài viết 2,157 Được thích 1,274 Donate (Momo) Giới tính Nam

bjboyn00b đã viết: Mình đã sửa như sau Mã: Sao chép. Sub Binh_Creat_List() ' ' Binh_Creat_List Macro ' ' Keyboard Shortcut: Ctrl+j Dim wsSheet As Worksheet Dim ws As Worksheet Dim Counter As Long On Error Resume Next Set wsSheet = Sheets("Mucluc") 'Kiem tra su ton tai cua Sheet On Error GoTo 0 If wsSheet Is Nothing Then 'Neu chua co thi them vao vi tri dau tien cua Workbook Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)) wsSheet.Name = "Mucluc" End If With wsSheet .Cells(2, 1) = "DANH SACH CAC SHEET" .Cells(2, 1).Name = "Index" .Cells(4, 1).Value = "STT" .Cells(4, 2).Value = "Ten Sheet" End With 'Merge Cell With Range("A2:B2") .Merge .HorizontalAlignment = xlCenter .Font.Bold = True End With 'Set ColumnWidth With Columns("A:A") .ColumnWidth = 8 .HorizontalAlignment = xlCenter End With With Range("A4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Columns("B:B").ColumnWidth = 30 With Range("B4") .HorizontalAlignment = xlCenter .Font.Bold = True End With Counter = 1 For Each ws In Worksheets If ws.Name <> wsSheet.Name Then 'Gan gia tri cot thu tu wsSheet.Cells(Counter + 4, 1).Value = Counter 'Tao lien ket wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _ Address:="", _ [COLOR=#ff0000]SubAddress:="'" & ws.Name & "'!A1",_[/COLOR] ScreenTip:=ws.Name, _ TextToDisplay:=ws.Name 'Them nut Quay ve Sheet Muc luc tai moi Sheet With ws .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve" End With Counter = Counter + 1 End If Next ws Set xlSheet = Nothing End Sub Sửa như vậy đã okie chưa bạn nhỉ? Nhấp chuột vào đây để mở rộng...

cái chỗ bôi đỏ giống như mình nói mà. Mình test có bị cái nào đâu nhỉ? B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5

quanluu1989 đã viết: cái chỗ bôi đỏ giống như mình nói mà. Mình test có bị cái nào đâu nhỉ? Nhấp chuột vào đây để mở rộng...

mình làm thì bị báo như sau Bạn xem giúp mình nhé, tk bạn

File đính kèm

• 456..jpg 18.2 KB · Đọc: 39

B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5 a .

File đính kèm

• Untitled.png 25.6 KB · Đọc: 20

B

bjboyn00b

Thành viên chính thức

Tham gia 17/12/10 Bài viết 84 Được thích 5

quanluu1989 đã viết: cái chỗ bôi đỏ giống như mình nói mà. Mình test có bị cái nào đâu nhỉ? Nhấp chuột vào đây để mở rộng...

Hehe, thank bạn, mình vừa tự mò ra được rồi, đúng ra là thêm nháy cả sau nữa Mã: Sao chép. [COLOR=#ff0000]SubAddress:="'" & ws.Name & "'" & "'!A1",_ [/COLOR]

quanluu

Thành viên gắn bó

Tham gia 11/4/13 Bài viết 2,157 Được thích 1,274 Donate (Momo) Giới tính Nam

bjboyn00b đã viết: mình làm thì bị báo như sau Bạn xem giúp mình nhé, tk bạn Nhấp chuột vào đây để mở rộng...

Ảnh của bạn mờ quá, chẳng nhìn thấy gì, theo mình suy đoán bạn bị lỗi ở sheet có STT 16, 17. và mình thử test với file, có vấn đề gì đâu. Lần chỉnh sửa cuối: 26/5/16

Ba Tê

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

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

bjboyn00b đã viết: mình làm thì bị báo như sau Bạn xem giúp mình nhé, tk bạn Nhấp chuột vào đây để mở rộng...

Nếu file của bạn đã có sẵn sheet "Mucluc" thì chạy thử Sub này coi sao: PHP: Sao chép. Public Sub GPE() Application.ScreenUpdating = False Dim Ws As Worksheet, Rng As Range, Cll As Range, Tem As String, Arr(), K As Long ReDim Arr(1 To Worksheets.Count, 1 To 1) For Each Ws In Worksheets If Ws.Name <> "Mucluc" Then Tem = Ws.Name K = K + 1 Arr(K, 1) = Tem Ws.Activate ActiveSheet.Hyperlinks.Add Anchor:=Range("H1"), Address:="", SubAddress:= _ "'Mucluc'!H1", TextToDisplay:="Quay Ve" End If Next Ws With Sheets("Mucluc") .Activate .[B5:B1000].Clear .Range("B5:B1000").NumberFormat = "@" .[B5].Resize(K) = Arr Set Rng = .Range(.[B5], .[B5].End(xlDown)) Rng.Sort Key1:=.[B5] For Each Cll In Rng ActiveSheet.Hyperlinks.Add Anchor:=Cll, Address:="", SubAddress:= _ "'" & Cll.Value & "'!H1", TextToDisplay:=Cll.Value Next Cll End With End Sub

File đính kèm

• Mucluc.rar Mucluc.rar 693.4 KB · Đọc: 19

Lần chỉnh sửa cuối: 26/5/16 T

thanhtungk31

Thành viên mới

Tham gia 29/12/09 Bài viết 3 Được thích 0 Giới tính Nữ

Ba Tê đã viết: Nếu file của bạn đã có sẵn sheet "Mucluc" thì chạy thử Sub này coi sao: PHP: Sao chép. Public Sub GPE() Application.ScreenUpdating = False Dim Ws As Worksheet, Rng As Range, Cll As Range, Tem As String, Arr(), K As Long ReDim Arr(1 To Worksheets.Count, 1 To 1) For Each Ws In Worksheets If Ws.Name <> "Mucluc" Then Tem = Ws.Name K = K + 1 Arr(K, 1) = Tem Ws.Activate ActiveSheet.Hyperlinks.Add Anchor:=Range("H1"), Address:="", SubAddress:= _ "'Mucluc'!H1", TextToDisplay:="Quay Ve" End If Next Ws With Sheets("Mucluc") .Activate .[B5:B1000].Clear .Range("B5:B1000").NumberFormat = "@" .[B5].Resize(K) = Arr Set Rng = .Range(.[B5], .[B5].End(xlDown)) Rng.Sort Key1:=.[B5] For Each Cll In Rng ActiveSheet.Hyperlinks.Add Anchor:=Cll, Address:="", SubAddress:= _ "'" & Cll.Value & "'!H1", TextToDisplay:=Cll.Value Next Cll End With End Sub Nhấp chuột vào đây để mở rộng...

-------------------------------------------------------------- Mình làm cách này được nha. Cám ơn bạn. Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

H Lọc giá trị duy nhất theo cụm (2 người xem)

• hoaiantrinh
• Hôm qua, lúc 14:58
• Hàm và công thức Excel

Trả lời 6 Đọc 116 12 phút trước hungvinh1402 H

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 623 Đọc 92K 43 phút trước imnaaaaaa I Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 65 Đọc 2K Hôm nay lúc 05:05 SA_DQ N Tạo COM Add-In bằng Visual C++

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 18 Đọc 2K Hôm qua, lúc 21:07 nguyendang95 N M Bảo mật code VBA autocad!

• Michael Bit
• Thứ hai lúc 08:44
• Hỏi đáp những vấn đề khác

Trả lời 12 Đọc 272 Hôm qua, lúc 19:17 Michael Bit M CHÚC MỪNG NĂM MỚI BÍNH NGỌ 2026 (1 người xem)

• • 
  • 
  • 

• GPE-Trợ Lý
• Hôm qua, lúc 10:45
• Thông tin về diễn đàn

Trả lời 0 Đọc 72 Hôm qua, lúc 10:45 GPE-Trợ Lý L Thu Chi Gia Đình (1 người xem)

• • 

• lehang0812
• Thứ năm lúc 17:12
• TPHCM

Trả lời 5 Đọc 230 Hôm qua, lúc 10:19 nguoiconxunui N

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 77 Đọc 30K Thứ hai lúc 19:00 chothadiem

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026)

• • 
  • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 85 Đọc 18K Chủ nhật lúc 21:43 chothadiem

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 62 Đọc 13K Thứ bảy lúc 18:10 Nguyễn Duy Tuân E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K Thứ sáu lúc 15:20 luongha.ktqd L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• 4/2/26
• Lập Trình với Excel

Trả lời 12 Đọc 394 Thứ năm lúc 11:13 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K Thứ năm lúc 08:54 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• • 
  • 

• HeSanbi
• 2/2/26
• Lập Trình với Excel

Trả lời 1 Đọc 255 4/2/26 HeSanbi Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K 3/2/26 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K 3/2/26 Gà Công Nghệ V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 18 Đọc 754 3/2/26 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating

• hoanglocphat
• 2/2/26
• Hỏi đáp những vấn đề khác

Trả lời 6 Đọc 223 3/2/26 Gà Con yêu VBA Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số

• mrjun80
• 31/1/26
• Hàm và công thức Excel

Trả lời 4 Đọc 221 1/2/26 Gà Con yêu VBA N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn

• • 
  • 

• nguyendang95
• 23/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 36 Đọc 1K 31/1/26 ptm0412 Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 14
• chothadiem 11
• Michael Bit 6
• HieuCD 5
• Gà Công Nghệ 5
• YêuCN 4
• Officexinh 4
• vietdang170 4
• pycckuu410 3
• chiendich 3
• DeTong 3
• hoanglocphat 3
• LOGANWover 2
• VietHoangPhan 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• hoaiantrinh 2
• vuvannguyen1972 1
• ptm0412 1
• hungvinh1402 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 19
• Quang_Hải 7
• GPE-Trợ Lý 7
• vietdang170 5
• HieuCD 4
• Gà Con yêu VBA 4
• pycckuu410 3
• chiendich 3
• DeTong 3
• Phuocam 3
• HUONGHCKT 2
• YêuCN 2
• Officexinh 2
• LOGANWover 1
• Michael Bit 1
• nguyendang95 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Excel và Kế Toán

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom