Lỗi VBA trong MS Office với ActiveCell trong tệp Excel

Mã nguồn gặp vấn đề, lần chạy đầu tiên thì hoạt động bình thường, lần chạy thứ hai thì báo lỗi, các lần chạy sau thì lại hoạt động bình thường. Tôi nghĩ vấn đề nằm ở thuộc tính "ActiveCell" khi sử dụng nó. Cần giúp đỡ để khắc phục lỗi này.

Set oXL = CreateObject("Excel.Application")
Set xlWsh = oXL.Worksheets("Sheet1")
Với xlWsh.Range("H:H")

Nếu ActiveCell.Value = "text" thì
Đặt c = ActiveCell
Ngược lại: Đặt c = .Cells(1)
Kết thúc nếu

Nếu không phải xlWsh.Cells.Find(What:=text2, _
Sau:=Tế bào hoạt động, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False) Is Nothing Then

xlWsh.Cells.Find(What:=text2, _
Sau:=Tế bào hoạt động, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate

actrow = ActiveCell.Row
Với ActiveCell.Interior
'Đặt màu chữ thành giá trị RGB. Xem hàng Bên trong ở trên để biết thêm các tùy chọn màu sắc khác.
Nếu .ColorIndex = xlNone thì
.Color = RGB(6, 255, 0)
'Đặt phông chữ thành chữ nghiêng'


Kết thúc nếu

Kết thúc bằng




j = 0
Đối với j = 1 đến tmpQtyCount

Chèn mã của bạn vào đây

xlWsh.Cells.FindNext(After:=ActiveCell).Activate

Nếu ActiveCell.Row khác với actrow thì
Với ActiveCell.Interior
'Đặt màu chữ thành giá trị RGB. Xem hàng Bên trong ở trên để biết thêm các tùy chọn màu sắc khác.
Nếu .ColorIndex = xlNone thì
.Color = RGB(6, 255, 0)
'Đặt phông chữ thành chữ nghiêng'

Với ActiveCell
.AddComment
.Comment.Text Text:="Đây là một bình luận"
Kết thúc bằng
Kết thúc nếu

Kết thúc bằng

Khác
Đi đến Dòng 1

Kết thúc nếu


Tiếp theo là j
Dòng 1:
Kết thúc nếu

Kết thúc bằng


xlWsh.Cells.Find(What:=text2, _
Sau:=Tế bào hoạt động, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate

actrow = ActiveCell.Row
Với ActiveCell.Interior
'Đặt màu chữ thành giá trị RGB. Xem hàng Bên trong ở trên để biết thêm các tùy chọn màu sắc khác.
Nếu .ColorIndex = xlNone thì
.Color = RGB(6, 255, 0)
'Đặt phông chữ thành chữ nghiêng'


Kết thúc nếu

Kết thúc bằng




j = 0
Đối với j = 1 đến tmpQtyCount

Chèn mã của bạn vào đây

xlWsh.Cells.FindNext(After:=ActiveCell).Activate

Nếu ActiveCell.Row khác với actrow thì
Với ActiveCell.Interior
'Đặt màu chữ thành giá trị RGB. Xem hàng Bên trong ở trên để biết thêm các tùy chọn màu sắc khác.
Nếu .ColorIndex = xlNone thì
.Color = RGB(6, 255, 0)
'Đặt phông chữ thành chữ nghiêng'

Với ActiveCell
.AddComment
.Comment.Text Text:="Đây là một bình luận"
Kết thúc bằng
Kết thúc nếu

Kết thúc bằng

Khác
Đi đến Dòng 1

Kết thúc nếu


Tiếp theo là j
Dòng 1:
Kết thúc nếu

Kết thúc bằng




Trả lời:
Bạn nên đăng lại bài này lên diễn đàn lập trình Excel; diễn đàn này dành cho Microsoft Access.

Trả lời:

Tôi biết là nó hoạt động với Excel, nhưng tôi đã viết mã bằng Access. Mã đó có thể vẫn hoạt động nếu tôi viết bằng Excel, nhưng nó lại đến từ Access.

Cảm ơn



Trả lời:

Nó gặp sự cố với lệnh ActiveCell mỗi khi chạy mã.

Lỗi thời gian chạy '91': Biến đối tượng lỗi hoặc biến khối With chưa được thiết lập



Trả lời:

Tôi đã thử bằng cách bỏ qua lỗi và đóng Excel, nhưng trừ khi nó thực sự báo lỗi thì chương trình sẽ không chạy đúng cách.

Có ai biết lý do tại sao lại như vậy không?

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Image
Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ Chào mọi người, Tôi biết có nhiều bài viết liên quan đến vấn đề này nhưng câu trả lời không thỏa đáng với môi trường của tôi. Chúng tôi xử lý số lượng tài liệu mỗi ngày và lưu vào máy tính để bàn -> việc bỏ chặn không cắt được tài liệu đó cũng như vô hiệu hóa chế độ xem được bảo vệ bằng phần mềm ransomware gần đây mà NHS nhận được (bảo mật cần được giữ nguyên). Thông báo có nội dung: 'Không thể mở hoặc lưu thêm bất kỳ tài liệu nào vì không có đủ bộ nhớ hoặc dung lượng ổ đĩa' -> mặc dù việc thực hiện 2 giải pháp trên sẽ khắc phục được điều này (đó không phải là bộ nhớ, chỉ là một tin nhắn ngu ngốc nếu tôi thành thật) . Tuy nhiên, tôi chỉ cần có thể mở tệp ở chế độ xem được bảo vệ, không gặp lỗi. Có ai có thể sửa lỗi này 'đúng cách' chưa? Nếu vậy xin vui lòng cho tôi biết để tôi có thể triển khai rộng rãi hoạt động kinh doanh này. Tôi đã tìm thấy cài đặt gpe trong cấu hình người dùng -> thành phần windo...
Read more