Bị lỗi file excel khi mở trên máy khác (1 người xem)

[ngocrin1]

Chào các bạn,

File mình có viết một ít code, trên máy mình thì sử dụng bình thường nhưng khi mở trên máy khác thì báo lỗi và không sử dụng được nữa. Hình minh họa. Các bạn xem thử giúp mình với.

 

[giangleloi]

Chào các bạn,

File mình có viết một ít code, trên máy mình thì sử dụng bình thường nhưng khi mở trên máy khác thì báo lỗi và không sử dụng được nữa. Hình minh họa. Các bạn xem thử giúp mình với.

Ít ra phải biết cái code bạn viết nó như thế nào nữa chứ.

 

[befaint]

Bạn mở cái log file ở hộp thoại thông báo ra, sau đó bạn copy nội dung trong file đó gửi lên xem nó bị lỗi làm sao?

 

[ngocrin1]

Bạn mở cái log file ở hộp thoại thông báo ra, sau đó bạn copy nội dung trong file đó gửi lên xem nó bị lỗi làm sao?

Mình copy y nguyên nè. KO biết sao nữa.

 

[befaint]

Nếu không phiền thì bạn gửi file đó lên để mọi người xử lý giúp.

 

[meomeo192]

Em có câu hỏi nhỏ, không muốn mở topic, mong được mọi người giải đáp ở đây luôn.
Một số biến dùng nhiều, em muốn khai báo 1 lần thì tạo thủ tục và gọi thủ tục ở trong sheet hay workbook vậy ạ? Em cảm ơn nhiều.

 

[jack nt]

Em có câu hỏi nhỏ, không muốn mở topic, mong được mọi người giải đáp ở đây luôn.
Một số biến dùng nhiều, em muốn khai báo 1 lần thì tạo thủ tục và gọi thủ tục ở trong sheet hay workbook vậy ạ? Em cảm ơn nhiều.

khai báo Public trong Module.

 

[meomeo192]

khai báo Public trong Module.

Em cảm ơn, em khai báo Public trong phần đầu của module, còn gán giá trị cho biến để trong Sub, hoặc Function. Làm sao để chạy Sub hoặc Function ngay khi mở file? Dưới phần khai báo em dùng "Call"+"name sub" nhưng báo lỗi "Invalid ousite procedure".

 

[befaint]

Em cảm ơn, em khai báo Public trong phần đầu của module, còn gán giá trị cho biến để trong Sub, hoặc Function. Làm sao để chạy Sub hoặc Function ngay khi mở file? Dưới phần khai báo em dùng "Call"+"name sub" nhưng báo lỗi "Invalid ousite procedure".

Chép đoạn sau vào ThisWorkbook:

Private Sub Workbook_Open()
Call abc 'To run sub abc()
End Sub

HOẶC chép đoạn sau vào module:

Sub Auto_Open()
Call abc 'To run sub abc()
End Sub