• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Điều hành viên: tungblt

kieuphong1988
Bài viết: 2
Ngày tham gia: T.Tư 22/07/2015 10:40 am

Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Gửi bàigửi bởi kieuphong1988 » T.Tư 22/07/2015 10:57 am

  1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  2. If Date > #7/8/2015# Then
  3. Cells.Clear
  4. ActiveWorkbook.Save
  5. Application.Quit
  6. End If
  7. End Sub
  8.  

Mọi người kiểm tra giúp mình đoạn mã VBA này nhé, mình chạy nó toàn báo lỗi "run-time error 28, out of stack space"
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Date > #7/8/2015# Then
Cells.Clear
ActiveWorkbook.Save
Application.Quit
End If
End Sub



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4758
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 513 time

Re: Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Gửi bàigửi bởi truongphu » T.Sáu 24/07/2015 11:44 am

Code của bạn có 7 dòng
- dòng 1 và 7 = sub = ok
- dòng 2 và 6 = điều kiện = ok
- dòng 4 và 5 = ok
=> lỗi dòng 3: Cells.Clear

Đối tượng Cells phải ghi cụ thể: ví dụ ô C2 = Cells(2, 3).Clear
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

kieuphong1988
Bài viết: 2
Ngày tham gia: T.Tư 22/07/2015 10:40 am

Re: Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Gửi bàigửi bởi kieuphong1988 » T.Sáu 24/07/2015 1:02 pm

Thanks you!
nhưng ở đây mình muốn clear toàn bộ cells trong sheet, khi xóa dòng activeworkbook.save thì chạy ok
còn nếu để dòng activeworkbook.save thì nó báo lỗi !

Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1323
Ngày tham gia: T.Bảy 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 time
Been thanked: 71 time
Liên hệ:

Re: Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Gửi bàigửi bởi vietteiv » T.Sáu 24/07/2015 1:44 pm

Cells.Select
Selection.ClearContents

sachbong
Bài viết: 4
Ngày tham gia: T.Tư 23/11/2016 2:30 pm

Re: Các Pro kiểm tra lỗi không thể lưu workbook trong VBA

Gửi bàigửi bởi sachbong » T.Sáu 02/12/2016 9:53 pm

Tôi chép code của bài 1 vô modul của excel. Chạy bình thường.

Kg biết code của kieuphong có viết cho excel kg


Quay về “Visual Basic for Application (VBA)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.3 khách