file viết bằng VBA không xài được trên máy tính bàn ?

[vanhesing]

Dear All!
Mình có một thắc mắc nhờ cả nhà giúp đỡ.
Mình làm 1 file excel ( viết bằng công thức và VBA) trên laptop .Khi hoàn thành xong mình copy file này qua máy để bàn của công ty để sử dụng thì báo lỗi trong phần VBA ( giống như là nó không thấy source , project )
Không biết có cách nào khắc phục không , nhờ cả nhà giúp đỡ
Thanks

 

[viehoai]

Dear All!
Mình có một thắc mắc nhờ cả nhà giúp đỡ.
Mình làm 1 file excel ( viết bằng công thức và VBA) trên laptop .Khi hoàn thành xong mình copy file này qua máy để bàn của công ty để sử dụng thì báo lỗi trong phần VBA ( giống như là nó không thấy source , project )
Không biết có cách nào khắc phục không , nhờ cả nhà giúp đỡ
Thanks

Bạn nói rõ báo lỗi gì mọi người mới giúp đỡ chứ
Hay là ở máy bàn bạn chưa chuyển đổi sang chế độ bảo vệ Macro ở chế độ Low?

 

[vanhesing]

Bạn nói rõ báo lỗi gì mọi người mới giúp đỡ chứ
Hay là ở máy bàn bạn chưa chuyển đổi sang chế độ bảo vệ Macro ở chế độ Low?

Mình dã chỉnh macro ở chế độ Low rồi . nhưng nó báo lỗi này : "Can't file project or library " khi mình thực hiện 1 thao tác trên nút button .
Thanks Bạn

 

[ndu96081631]

Mình dã chỉnh macro ở chế độ Low rồi . nhưng nó báo lỗi này : "Can't file project or library " khi mình thực hiện 1 thao tác trên nút button .
Thanks Bạn

Bấm Alt + F11, vào menu Tools\References và xem trong cửa sổ ấy có mục nào báo MISSING... hay không? Nếu có, hãy cho biết mục ấy là gì? Hoặc tốt nhất là gữi file lên đây!
Mấy cái lỗi chung chung, mô tả cũng chung chung sẽ chẳng ai giúp được cho bạn đâu

 

[vanhesing]

Bấm Alt + F11, vào menu Tools\References và xem trong cửa sổ ấy có mục nào báo MISSING... hay không? Nếu có, hãy cho biết mục ấy là gì? Hoặc tốt nhất là gữi file lên đây!
Mấy cái lỗi chung chung, mô tả cũng chung chung sẽ chẳng ai giúp được cho bạn đâu

Dear Bác ndu! Lâu rồi mới gặp Bác
Đầu tiên em xin chúc sức khỏe Bác
Tình hình là như vầy .
Em tạo 1 file excel có chứa công thức lẫn code trên laptop . khi em copy qua máy bàn thì vận hành 1 nút button thì nó báo lỗi này : "Can't file project or library ".
Em mày mò tìm hiểu vẫn không ra, khi em coppy folder OFFICE11 trong C:\Program Files\Microsoft Office của laptop qua đè lên máy bàn thì chạy bình thường ko báo lỗi .
Em muốn được giải thích vì sao lại như vậy ? có cách nào khắc phục được ko ? vì khi sử dụng nhiều máy ta phải copy từng máy như vậy thì thủ công quá !!
Thanks

 

[ndu96081631]

Dear Bác ndu! Lâu rồi mới gặp Bác
Đầu tiên em xin chúc sức khỏe Bác
Tình hình là như vầy .
Em tạo 1 file excel có chứa công thức lẫn code trên laptop . khi em copy qua máy bàn thì vận hành 1 nút button thì nó báo lỗi này : "Can't file project or library ".
Em mày mò tìm hiểu vẫn không ra, khi em coppy folder OFFICE11 trong C:\Program Files\Microsoft Office của laptop qua đè lên máy bàn thì chạy bình thường ko báo lỗi .
Em muốn được giải thích vì sao lại như vậy ? có cách nào khắc phục được ko ? vì khi sử dụng nhiều máy ta phải copy từng máy như vậy thì thủ công quá !!
Thanks

Vậy bạn đã kiểm tra như tôi đã nói ở trên chưa? Lỗi thì vô vàn, sao mà biết hết được nếu không có file của bạn (để test)
Tôi tin chắc 99% lỗi không phải do MÁY BÀN hay MÁY XÁCH TAY gì cả mà chỉ vì 1 vài Control có trên máy của bạn nhưng lại không có trên máy người khác... Thế thôi

 

[vanhesing]

Vậy bạn đã kiểm tra như tôi đã nói ở trên chưa? Lỗi thì vô vàn, sao mà biết hết được nếu không có file của bạn (để test)
Tôi tin chắc 99% lỗi không phải do MÁY BÀN hay MÁY XÁCH TAY gì cả mà chỉ vì 1 vài Control có trên máy của bạn nhưng lại không có trên máy người khác... Thế thôi

Dear Bác ndu , em gửi file nhờ Bác kiểm tra giùm .
Thanks Bác

 

[viehoai]

Dear Bác ndu , em gửi file nhờ Bác kiểm tra giùm .
Thanks Bác

Trong code của CommandButton5_Click bạn sửa đoạn code

If Not Intersect([C9:Y3000], ActiveCell) Is Nothing Then

Thành

If Not Intersect(Range("C9:Y3000"), ActiveCell) Is Nothing Then

Xem sao nhé. Mình thấy báo lỗi như bạn, nhưng khi sửa xong là OK
Chúc bạn thành công

 

[vanhesing]

Trong code của CommandButton5_Click bạn sửa đoạn code

If Not Intersect([C9:Y3000], ActiveCell) Is Nothing Then

Thành

If Not Intersect(Range("C9:Y3000"), ActiveCell) Is Nothing Then

Xem sao nhé. Mình thấy báo lỗi như bạn, nhưng khi sửa xong là OK
Chúc bạn thành công

thanks Viethoai mình đã sữa và nó không báo lỗi nữa . nhưng nó chỉ ok ở button 5 còn những button khác, textbox khác thì nó vẫn 1 lỗi đó .
nhưng khi mình copy cả folder OFFICE 11 thì mấy cái đó ko báo lỗi .
Mong Viet hoai giúp mình và tiện thì giải thích mình hiểu luôn nhé
Thanks Bạn