Lỗi Run-time Error '1004' | Giải Pháp Excel

Trang chủ » Excel Bị Lỗi Run Time Error 1004 » Lỗi Run-time Error '1004' | Giải Pháp Excel

Có thể bạn quan tâm

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 New 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
  • Lập Trình với Excel
  • Lập Trình với Excel
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. Lỗi run-time error '1004'
  • Thread starter Thread starter duchuynh103
  • Ngày gửi Ngày gửi 10/3/09
Liên hệ QC D

duchuynh103

Thành viên thường trực
Tham gia 25/9/07 Bài viết 209 Được thích 146 Nhờ các bạn giúp mình: Làm cách nào để sử dụng được macro sau khi Protect sheet? Trong file của mình sau khi protect xong thì bị lỗi Run-time error '1004'. Cảm ơn các bạn.

File đính kèm

  • Book2.xls Book2.xls 41 KB · Đọc: 288
Chỉnh sửa lần cuối bởi điều hành viên: 10/3/09
  • 1
  • 2
Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọn Hai Lúa Miền Tây

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,308 Được thích 15,863 Giới tính Nam Nghề nghiệp Làm ruộng. Cái này bạn bị Protect sheet : bạn bào tools\protection, chọn unprotect sheet là xong Upvote 0 ChanhTQ@

ChanhTQ@

0901452không62
Tham gia 5/9/08 Bài viết 4,254 Được thích 4,861 Bạn tham khảo bọn này xem sao? PHP:Sao chép. Sub To_Sh1() i = Range("A600").End(xlUp).Row Protect True '<=|' Range("B3:E" & i).ClearContents Sheet1.Select [a600].End(xlUp).Select Protect '<=|' End Sub Sub To_sh2() Sheet2.Select Protect True '<=|' i = Range("A600").End(xlUp).Row Range("B3:E" & i).FormulaR1C1 = "=SUMIF(Sheet1!R3C1:R7C1,Sheet2!RC1,Sheet1!R3C:R7C)" Protect '<=|' End Sub Mã:Sao chép. [B]Sub Protect(Optional Khoa As Boolean = False)[/B] If Khoa Then ActiveSheet.Unprotect Else ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If [B]End Sub[/B] Upvote 0 ERX_Vietnam

ERX_Vietnam

Thành viên hoạt động
Tham gia 27/9/08 Bài viết 114 Được thích 178 Bạn ChanhTQ@ ơi, mình cũng có file giống bạn duchuynh103 nè. khi protect sheet hay share đều bị runtime error 1004 hết. Bạn xem giúp mình được không? Thank bạn trước hen.

File đính kèm

  • Bang Sap Tai - CL.xls Bang Sap Tai - CL.xls 37 KB · Đọc: 140
Upvote 0 N

ngoctrongdat

Thành viên mới
Tham gia 31/8/08 Bài viết 45 Được thích 13 Tôi cũng có một bài như vậy đấy, các Bác giúp hộ xem phải làm thế nào? Tôi cũng đã thử xong đoạn code của ChanhTQ@ tôi không biết phải viết vào đâu và thực hiện như thế nào?

File đính kèm

  • Book1.xls Book1.xls 49.5 KB · Đọc: 51
Upvote 0 ndu96081631

ndu96081631

Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950
ngoctrongdat đã viết: Tôi cũng có một bài như vậy đấy, các Bác giúp hộ xem phải làm thế nào? Tôi cũng đã thử xong đoạn code của ChanhTQ@ tôi không biết phải viết vào đâu và thực hiện như thế nào? Nhấp chuột vào đây để mở rộng...
Bài của bạn đã được giải quyết xong tại đây: http://www.giaiphapexcel.com/forum/showpost.php?p=169351&postcount=15 Upvote 0 1

123

Thành viên mới
Tham gia 6/9/07 Bài viết 20 Được thích 1 Chào cả nhà, Tôi cũng gặp phải tình trạng hệt như vậy, tuy nhiên file của tôi có khác hơn một chút, là do 1- File của tôi để trên máy chủ mà nhiều người dùng một lúc nên phải đặt ở chế độ share workbook 2- Do có một số phần lọc hay được sử dụng nên tôi đã tạo một số nút command button và gán các macro để thực hiện các thao tác lọc cho nhanh. 3- Do nhiều người thuộc nhiều nhóm khác nhau cùng truy cập nên tôi muốn phân quyền cho mỗi người làm việc trên một số ô cụ thể của file (màu xanh và màu vàng tương ứng trên file đính kèm) và tôi đã đặt được pass vùng cho 2 vùng nay. Trước đây tôi cũng bị lỗi khi protect sheet để sử dụng pass vùng thì các nút bấm không thể sử dụng được và báo lỗi run time error 1004 như đã nêu. Qua trao đổi của cả nhà, tôi đã xử lý được lỗi này khi không share workbook. Nhưng khi share thì vẫn báo lỗi như trên. Mọi người có thể chỉ dẫn tôi cách xử lý được không? Yêu cầu của vấn đề là: 1-Phải để file ở chế độ share 2-Phải sử dụng được các nút bấm 3-Phải đặt được pass vùng (mỗi người chỉ được quyền nhập số liệu trên một vùng nhất định) Cám ơn mọi người . Thân mến

File đính kèm

  • Book1 by 123.xls Book1 by 123.xls 45 KB · Đọc: 64
Upvote 0 D

Doan huu chinh

Thành viên mới
Tham gia 5/7/09 Bài viết 3 Được thích 0 xin mọi người sửa giúp cho tôi lỗi này , nó báo là :run-time error '1004' và đây là đoạn mã sai mà tôi ko biết sửa như thế nào : Sub Home() i4 = WorksheetFunction.Match(SHd.Range("E1"), _ Sheets("Table No.").Range("A2:A25"), 0) If i4 <= 8 Then j1 = 4 ElseIf i4 <= 16 Then j1 = 6 Else: j1 = 8 End If j2 = 3 * (i4 Mod 8) + 2 If j2 = 6 Then j2 = 26 End Sub Upvote 0 Po_Pikachu

Po_Pikachu

Po_pikachu@ymail.com
Tham gia 29/4/08 Bài viết 2,209 Được thích 3,572 Nghề nghiệp #VALUE! Code này mình đâu thấy có lỗi gì đâu. Bạn xem lại vùng dữ liệu [A2:A25] xem đúng dữ liệu chưa? Mã:Sao chép. Sub Home() i4 = WorksheetFunction.Match(SHd.Range("E1"), _ Sheets("Table No.").Range("A2:A25"), 0) j1 = Int((i4 - 1) / 8) * 2 + 4 If j1 > 8 Then j4 = 8 j2 = 3 * (i4 Mod 8) + 2 If j2 = 6 Then j2 = 26 End Sub Thân. Upvote 0 D

Doan huu chinh

Thành viên mới
Tham gia 5/7/09 Bài viết 3 Được thích 0 bạn po pikachu ơi ! mình đã kiểm tra lại vùng dữ liệu nhưng vẫn ko được. Bây giờ phải làm gì tiếp đây.Mình nhờ bạn xem lại giúp mình . nó báo run-time error '1004' . unable to get the match property of the worksheetfunctionclass Option Explicit Public i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer Public eR1 As Integer, eR2 As Integer, k, j1, j2 Public SHd As Worksheet, SDa As Worksheet Sub PreviewInvoice() ActiveWindow.SelectedSheets.PrintPreview End Sub Sub khaibao() Set SHd = Sheets("Invoice") ' <-- Gán SHd là sheet 'Invoice' Set SDa = Sheets("Data") ' <-- Gán SHd là sheet 'Data' End Sub Sub SaveInvoiceProcess() Application.ScreenUpdating = False LuuDL XoaDL Application.ScreenUpdating = True End Sub Sub LuuDL() Dim A2 khaibao ' <-- Goi sub 'khaibao' eR1 = SHd.Range("C21").End(xlUp).Row ' <-- Dong cuoi trong bang hoa don eR2 = SDa.Range("A65536").End(xlUp).Row + 1 ' <-- Dong trong ngay duoi dong cuoi trong 'Data' If eR1 >= 12 Then k = WorksheetFunction.CountIf(SDa.Range("C2:C" & eR2), _ Range("B1")) If k > 0 Then i2 = WorksheetFunction.Match(SHd.Range("B1"), _ Sheets("Data").Range("C1:C" & eR2), 0) ' <-- Dong dau tien chua so HDon i3 = WorksheetFunction.Match(SHd.Range("B1"), _ Sheets("Data").Range("C1:C" & eR2), 1) ' <-- Dong cuoi cung chua so HDon SDa.Range("A" & i3 + 1 & ":H" & i3 + eR1 - 11).Insert Shift:=xlDown ' <-- Chen them dong SDa.Range("H" & i2).Copy SDa.Range("H" & i3 + 1 & ":H" & i3 + eR1 - 11) SDa.Range("A" & i2 & ":H" & i3).Delete Shift:=xlUp ' <-- Xoa dong cu eR2 = i2 End If Else MsgBox "Khong co du lieu de luu", , "Error" Exit Sub End If '====================================== SHd.Range("B12:E" & eR1).Copy SDa.Cells(eR2, 4).PasteSpecial xlPasteValues SDa.Cells(eR2, 1) = SHd.Range("E10") SDa.Cells(eR2, 2) = SHd.Range("E1") SDa.Cells(eR2, 3) = SHd.Range("B1") SDa.Range("A" & eR2 & ":C" & eR2).Copy _ SDa.Range("A" & eR2 & ":C" & eR2 + eR1 - 12) Home End Sub Sub XoaDL() SHd.Range("B1") = SHd.Range("B1").Value + 1 SHd.Range("B12:C21").ClearContents Sheets("Home").Activate If SDa.Range("H" & eR2) = "" Then Sheets("Home").Cells(j2, j1) _ = WorksheetFunction.Sum(SDa.Range("G" & eR2 & ":G" & eR2 + eR1 - 12)) End Sub Sub Home() i4 = WorksheetFunction.Match(SHd.Range("E1"), _ Sheets("Table No.").Range("A2:A25"), 0) If i4 <= 8 Then j1 = 4 ElseIf i4 <= 16 Then j1 = 6 Else: j1 = 8 End If j2 = 3 * (i4 Mod 8) + 2 If j2 = 6 Then j2 = 26 End Sub Lần chỉnh sửa cuối: 23/10/09 Upvote 0 Po_Pikachu

Po_Pikachu

Po_pikachu@ymail.com
Tham gia 29/4/08 Bài viết 2,209 Được thích 3,572 Nghề nghiệp #VALUE! Cái bạn cần làm là gửi file bị lỗi ấy lên chứ gửi cả đống link lên mà chẳng thấy dữ liệu thì làm sao mà làm chứ? Nhìn vậy giống như ăn chay vậy? Gọi là thịt mà có phải thịt đâu, toàn là tàu hủ thúi cả. Hhuhuhuhu Thân. Upvote 0 D

Doan huu chinh

Thành viên mới
Tham gia 5/7/09 Bài viết 3 Được thích 0 đây mình gửi file các bạn xem hộ

File đính kèm

  • Invoice..xls.7z Invoice..xls.7z 30.5 KB · Đọc: 35
Upvote 0 R

Ruou_va_hoa

Thành viên mới
Tham gia 23/10/10 Bài viết 2 Được thích 0 Có ai giúp mình với Anh em xem cái lỗi file Excel này rùi sữa cho mình với. Cảm ơn trước nha: Sửa xong nhớ gửi về "Quanghieu.vl@gmail.com" Upvote 0 R

Ruou_va_hoa

Thành viên mới
Tham gia 23/10/10 Bài viết 2 Được thích 0 xem và sửa dùm sửa xong nhờ gửi đến : quanghieu.vl@gmail.com

File đính kèm

  • lam diem.rar lam diem.rar 83.2 KB · Đọc: 43
Upvote 0 H

Hoangtrang211

Thành viên mới
Tham gia 5/7/16 Bài viết 1 Được thích 0 Các bác ơi giúp em sửa lỗi run time error 1004 này với ạ, em có mấy file toàn bị như thế này ex.jpg Untitled.jpg Upvote 0 T

Talaai123

Thành viên mới
Tham gia 20/9/15 Bài viết 2 Được thích 0 Em có cái file bị dính lỗi runtime erro 1004, loay hoay các kiểu không khắc phục được, em post lên đây nhờ các bác fix dùm ạ. Em xin cảm ơn nhiều ! Hic ! file dung luong qua 1MB nen khong tai duoc, em phai dung duong link. Lần chỉnh sửa cuối: 17/10/16 Upvote 0 T

Talaai123

Thành viên mới
Tham gia 20/9/15 Bài viết 2 Được thích 0 EM up lên nhờ các cao thủ đi qua fix giùm. Upvote 0 D

Dang MInh Tue

Thành viên mới
Tham gia 29/5/17 Bài viết 5 Được thích 0 Giới tính Nam Nhờ anh em cao thủ giúp sửa chữa đoạn code nhập liệu này cho gọn gàng, chạy nhẹ nhàng giúp mình với, gửi giùm về minhtue.dang@gmail.com nhé. Thank nhiều

File đính kèm

  • code.txt code.txt 6.3 KB · Đọc: 8
Upvote 0 be_09

be_09

Biên Hòa, Đồng Nai
Tham gia 9/4/11 Bài viết 9,972 Được thích 9,871 Nghề nghiệp Công chức
Dang MInh Tue đã viết: Nhờ anh em cao thủ giúp sửa chữa đoạn code nhập liệu này cho gọn gàng, chạy nhẹ nhàng giúp mình với, gửi giùm về minhtue.dang@gmail.com nhé. Thank nhiều Nhấp chuột vào đây để mở rộng...
Chủ đề bạn yêu cầu không liên qua đến lỗi Run-time error '1004. Tốt nhất là bạn tạo chủ đề mới và đính kèm File Excel, nêu rõ vấn đề cần ở cột nào (vì tôi thấy File txt của bạn có 1 đống hàm trong đó), thà viết code mới còn lẹ hơn ngồi đọc code của bạn. Upvote 0 Hoang2013

Hoang2013

Thành viên gắn bó
Tham gia 15/8/13 Bài viết 1,622 Được thích 1,597 Giới tính Nam Nghề nghiệp Hưu trí
Hoangtrang211 đã viết: Các bác ơi giúp em sửa lỗi run time error 1004 này với ạ, em có mấy file toàn bị như thế này View attachment 162007 View attachment 162008 Nhấp chuột vào đây để mở rộng...
Mắt kém, nhồm hoài mà chả thấy gì sất! Hay bạn trích nguyên macro đó lên & dòng nào bị tô vàng, thì còn họa may! Upvote 0
  • 1
  • 2
Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây. Web KT

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

HeSanbi
  • Đã giải quyết
ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa
    • Thích
    • Yêu thích
    • Cảm ơn
  • HeSanbi
  • 20/9/19
  • Lập Trình với Excel
2 3 4 Trả lời 78 Đọc 16K 6 phút trước HeSanbi HeSanbi ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
13 14 15 Trả lời 297 Đọc 20K 16 phút trước BlueSphere B B Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
  • bipbo2008
  • 15/12/24
  • Hàm và công thức Excel
Trả lời 8 Đọc 235 45 phút trước Phan Thế Hiệp Phan Thế Hiệp S Tính trung bình của tháng đầu tiên.
  • SteveNguyen1991
  • Hôm qua, lúc 21:36
  • Hàm và công thức Excel
Trả lời 1 Đọc 100 Hôm nay lúc 09:27 Phan Thế Hiệp Phan Thế Hiệp Nguyễn Duy Tuân Hàm BS_FORMATTEXT Tạo công thức định dạng văn bản trong Excel với Add-in A-Tools v10
  • Nguyễn Duy Tuân
  • Hôm nay lúc 09:05
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 0 Đọc 23 Hôm nay lúc 09:05 Nguyễn Duy Tuân Nguyễn Duy Tuân Nguyễn Duy Tuân Hàm BS_TEXT trộn văn bản trong Excel với Add-in A-Tools v10
  • Nguyễn Duy Tuân
  • Hôm nay lúc 08:36
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 0 Đọc 21 Hôm nay lúc 08:36 Nguyễn Duy Tuân Nguyễn Duy Tuân aduc Nhật ký thi công bằng excel
    • Thích
  • aduc
  • 27/10/13
  • Excel và Kỹ Thuật
2 Trả lời 36 Đọc 53K Hôm nay lúc 08:35 PhanTuHuong PhanTuHuong T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
  • Thanh Binh111
  • Thứ sáu lúc 16:40
  • Lập Trình với Excel
Trả lời 8 Đọc 134 Hôm qua, lúc 21:02 ptm0412 ptm0412 likosin xin cách lọc này với ạ.
  • likosin
  • Thứ sáu lúc 09:53
  • Lọc và sắp xếp dữ liệu
Trả lời 4 Đọc 119 Hôm qua, lúc 20:58 ptm0412 ptm0412 OverAC [Thông báo] Diễn đàn tạm ngừng hoạt động để bảo trì từ 21g thứ Sáu ngày 20/12
    • Thích
    • Cảm ơn
  • OverAC
  • Thứ năm lúc 22:13
  • Thông tin về diễn đàn
Trả lời 1 Đọc 916 Hôm qua, lúc 14:18 OverAC OverAC A Nhờ xử lý tính toán Số nằm trong chuỗi kí tự
  • acrox84
  • 15/12/24
  • Xử lý chuỗi ký tự
2 Trả lời 20 Đọc 547 Thứ sáu lúc 20:35 SteveNguyen1991 S V
  • Question Question
FILE EXCEL LOI : WE FOUND A PROBLEM ... RECOVER
  • vuasutu08
  • Thứ sáu lúc 16:03
  • Lập Trình với Excel
Trả lời 0 Đọc 63 Thứ sáu lúc 16:03 vuasutu08 V D
  • Question Question
Gửi Email chào giá hàng loạt cho đối tác có nhúng 1 bảng báo giá vào mail
  • ductoan.0703
  • Thứ tư lúc 14:49
  • Lập Trình với Excel
Trả lời 3 Đọc 181 Thứ sáu lúc 15:12 BuiQuangThuan B likosin Nhờ các bác hướng dẫn ạ.
  • likosin
  • Thứ sáu lúc 08:59
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 1 Đọc 80 Thứ sáu lúc 14:02 yaaasoo01 Y C Lỗi hàm days360
  • Cuong001
  • Thứ năm lúc 09:28
  • Hỏi đáp những vấn đề khác
Trả lời 9 Đọc 182 Thứ sáu lúc 12:20 HieuCD H HeSanbi
  • Đã giải quyết
HÀM FITROW - Co giãn dòng tự động tối ưu nhất cho Excel v2.43 (*14/10/2024)
    • Thích
    • Yêu thích
  • HeSanbi
  • 18/4/21
  • Lập Trình với Excel
2 3 Trả lời 50 Đọc 22K Thứ sáu lúc 11:03 HeSanbi HeSanbi Huy@@* Xử lý sổ NKC - Gộp nợ có thành 1 dòng
  • Huy@@*
  • Thứ tư lúc 09:05
  • Những vấn đề chung
Trả lời 5 Đọc 189 Thứ sáu lúc 06:23 DeTong D H Hướng dẫn in hàng loạt trong excel
  • hieuchi89
  • 28/8/24
  • Hàm và công thức Excel
Trả lời 16 Đọc 1K Thứ sáu lúc 00:58 dinhthang8709 D P Xin hỏi cách tăng tốc khi nhập liệu cho sheet NHAPXUAT
  • pqdowntailieu3
  • Thứ năm lúc 16:59
  • Google Spreadsheets
Trả lời 3 Đọc 156 Thứ năm lúc 22:38 ptm0412 ptm0412 L Xin được giúp đỡ DÒ TÌM lấy danh sách tổng giá các đơn hàng
    • Thích
  • LINHCM
  • 15/12/24
  • Tìm kiếm, dò tìm và tham chiếu
2 Trả lời 26 Đọc 695 Thứ năm lúc 21:53 LINHCM L Xem thêm… Chia sẻ: Facebook X (Twitter) 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

  • Hoàng Tuấn 868 29
  • HeSanbi 27
  • LINHCM 25
  • ptm0412 24
  • hoangtuaotrang_hp_vn 21
  • HieuCD 18
  • qtm1987 17
  • SA_DQ 17
  • ongke0711 17
  • huuthang_bd 16
  • DeTong 15
  • hoangminhtien 13
  • hvnhpro 13
  • HUONGHCKT 12
  • BuiQuangThuan 12
  • SteveNguyen1991 11
  • Duy Tùng 9x 10
  • GPE-Trợ Lý 9
  • Nguyễn Duy Tuân 9
  • befaint 8

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

  • HieuCD 70
  • huuthang_bd 34
  • Hoàng Tuấn 868 31
  • hoangtuaotrang_hp_vn 28
  • hoangminhtien 24
  • SA_DQ 24
  • HeSanbi 23
  • HUONGHCKT 22
  • DeTong 22
  • GPE-Trợ Lý 21
  • befaint 21
  • ptm0412 21
  • ongke0711 15
  • longtay1111 13
  • Phuocam 12
  • NT Ngoc Yen 12
  • Nguyễn Duy Tuân 11
  • Hai Lúa Miền Tây 11
  • OverAC 10
  • qtm1987 9
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
  • Lập Trình với Excel
  • 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

Từ khóa » Excel Bị Lỗi Run Time Error 1004