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,369 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,369 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

O Xin mọi người giúp e xử lý file Xuất nhập tồn (từ dọc -> ngang) ạ! (3 người xem)

• oiquetoi
• Thứ tư lúc 22:22
• Hàm và công thức Excel

Trả lời 18 Đọc 285 23 phút trước oiquetoi O M Cách tính ngày chay Âm lịch đạo Cao Đài

• • 

• MNCK452
• Thứ tư lúc 14:05
• Những vấn đề chung

Trả lời 6 Đọc 205 Hôm nay lúc 15:30 chiendich A

• Question Question

Code chọn khối thoả 2 điều kiện

• • 

• AnhThu-1976
• Hôm nay lúc 12:28
• Lập Trình với Excel

Trả lời 1 Đọc 65 Hôm nay lúc 12:58 SA_DQ A

• Question Question

Đã cách dòng, nhưng có Mã trùng lặp thì báo trùng

• AnhThu-1976
• Thứ sáu lúc 10:18
• Lập Trình với Excel

Trả lời 11 Đọc 294 Hôm nay lúc 10:40 AnhThu-1976 A Nhờ các bác xử lý hộ công thức có nhiều điều kiện

• thanhss
• Hôm qua, lúc 20:02
• Hàm và công thức Excel

Trả lời 4 Đọc 101 Hôm nay lúc 07:31 thanhss S Có ai biết hàm này làm như nào không ạ (2 người xem)

• SAM_HO
• Hôm qua, lúc 16:50
• Hàm và công thức Excel

Trả lời 2 Đọc 65 Hôm nay lúc 06:32 lamvankhoat1 L H Quên mật khẩu khóa protect

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 23 Đọc 2K Hôm qua, lúc 15:57 Gà Con yêu VBA C HÀM EXCEL TÍNH CÔNG

• • 

• Cúc Hr
• Thứ sáu lúc 22:38
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 11 Đọc 228 Hôm qua, lúc 09:48 Cúc Hr C 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 28 Đọc 1K Hôm qua, lúc 05:19 SA_DQ V npl thành phẩm may mặc

• vietviet2017
• Thứ sáu lúc 19:33
• Excel và Kế Toán

Trả lời 0 Đọc 61 Thứ sáu lúc 19:33 vietviet2017 V T Nhờ làm file excel quản lý kho N-X-T theo vị trí

• • 

• Tuan_Leok
• 1/11/18
• Excel Ứng Dụng

Trả lời 18 Đọc 6K Thứ sáu lúc 14:38 thanhphongtslocphat

• Đã giải quyết

HÀM FITROW - Co giãn dòng tự động và bổ trợ in ấn Excel v2.46 (*19/02/2025)

• • 
  • 

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

Trả lời 57 Đọc 29K Thứ năm lúc 18:42 chothadiem hỏi về công thức tách kí tự từ chuỗi

• Momominh
• 3/1/26
• Hàm và công thức Excel

Trả lời 10 Đọc 325 Thứ năm lúc 16:12 Momominh Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• 29/12/25
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 9 Đọc 354 Thứ năm lúc 14:13 anhthaimx22 A T Bị hiển các dòng, cột đã ẩn của bảng tính khi thực hiện tính toán tại 1 ô bất kỳ trong excel

• txbktxd50
• 13/8/24
• Hàm và công thức Excel

Trả lời 7 Đọc 561 Thứ năm lúc 07:37 photinh P CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 9 Đọc 2K Thứ tư lúc 22:48 PhanTuHuong H

• Question Question

Lấy thông tin doanh nghiệp trên trang ĐKKD tự động bằng Code VBA

• hoahuongduong1986
• 15/5/20
• Lập Trình với Excel

Trả lời 18 Đọc 4K Thứ tư lúc 15:14 phamduyhoang2907 P K Hàm tìm theo kết quả gần đúng nhất

• • 

• kiemkhach2
• Thứ hai lúc 21:14
• Hàm và công thức Excel

Trả lời 7 Đọc 244 Thứ ba lúc 20:03 kiemkhach2 K N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• 19/12/25
• Google Sheets

Trả lời 1 Đọc 237 Thứ ba lúc 09:51 yeudoi

• Question Question

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

• • 
  • 
  • 

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

4 5 6 Trả lời 585 Đọc 86K Thứ hai lúc 17:12 maphuong M 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

• ptm0412 14
• Phan Thế Hiệp 14
• oiquetoi 8
• sangdennh 7
• Cúc Hr 7
• DeTong 6
• AnhThu-1976 6
• dungpham01 5
• thanthanhan 4
• 2013myvietnam 4
• thanhphongtslocphat 4
• SA_DQ 4
• Duy Tùng 9x 3
• kiemkhach2 3
• lamvankhoat1 3
• huuthang_bd 2
• zonmaomao 2
• huhumalu 2
• Momominh 2
• chothadiem 2

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

• Phan Thế Hiệp 37
• ptm0412 29
• thanthanhan 8
• Cúc Hr 6
• 2013myvietnam 5
• dungpham01 5
• HUONGHCKT 4
• hoangtuaotrang_hp_vn 4
• DeTong 4
• SA_DQ 4
• LOGANWover 3
• AnhThu-1976 3
• huuthang_bd 2
• huhumalu 2
• PhanTuHuong 2
• 87kilua 1
• Duy Tùng 9x 1
• HeSanbi 1
• lamvankhoat1 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