Cách gộp nhiều Lệnh VBA thành một (7 người xem)

[tailuu_3047]

Chào các anh chị diễn đàn.
Mình có một file tổng hợp số liệu từ các workbook khác nhau ( hàng ngàn workbook như vậy ) nên đã có một anh hỗ trợ viết code VBA cho dễ tổng hợp. Vấn đề của mình là mỗi sheet trong file tổng hợp có mỗi code VBA, mà mình có rất nhiều sheet như vậy trong file tổng hợp ( khoảng 40 sheet). Mỗi lần nhấn code là chạy rất lâu. Giờ mình muốn gom thành một lệnh thì làm thế nào ?
Có lẻ hơi khó miêu tả vấn đề của mình ! Các anh chị có thể load file về là hiểu ngay thôi. Mong các anh chị giúp đỡ.

 

[doveandrose]

Em không rành 3 cái vụ này lắm anh à. @@. Em thử cái code đầu tiên của anh nó cũng thiếu luôn @@. Nhưng cái code vba em nhờ người viết giúp nó lại đủ. Nhưng mà mí chục sheet mà update dữ liệu từng lần nản quá

bạn không trả lời thì tôi không tiếp tục làm được . bạn từng vào Run gõ regedit => ENTER chưa ???

 

[tailuu_3047]

bạn không trả lời thì tôi không tiếp tục làm được . bạn từng vào Run gõ regedit => ENTER chưa ???

Rồ anh. Anh hướng dân chắc em làm theo được

 

[doveandrose]

bạn vào registry theo đường dẫn này
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Access Connectivity Engine\Engines\Excel\TypeGuessRows
số phiên bản excel tùy vào máy bạn cài office 2007 , 2010 hay 2013 ? . có thể là 12,14,15 tùy máy tôi dùng excel 2013 nên có số 15

double-click vào Excel -> nhìn qua bên tay phải có 1 dòng tên là TypeGuessRows . double-click vào dòng này
hiện ra 1 bảng nữa

sửa lại giá trị của nó thành 40 -> OK

bây giờ lấy file này về chạy lại xem kết quả

 

[tailuu_3047]

bạn vào registry theo đường dẫn này
HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access Connectivity Engine\Engines\Excel\TypeGuessRows
số phiên bản excel tùy vào máy bạn cài office 2007 , 2010 hay 2013 ? . có thể là 12,14,15 tùy máy tôi dùng excel 2013 nên có số 15

double-click vào Excel -> nhìn qua bên tay phải có 1 dòng tên là TypeGuessRows . double-click vào dòng này
hiện ra 1 bảng nữa

sửa lại giá trị của nó thành 40 -> OK

bây giờ lấy file này về chạy lại xem kết quả

Em xài office 2010. Em làm như anh hướng dẫn nhưng không tim ra được mục Access Connectivity Engine\Engines\Excel\TypeGuessRows

 

[ndu96081631]

Em xài office 2010. Em làm như anh hướng dẫn nhưng không tim ra được mục Access Connectivity Engine\Engines\Excel\TypeGuessRows

Nếu không tìm thấy thứ cần tìm trong nhánh "HKEY_CURRENT_USER", hãy thử tìm sang nhánh "HKEY_LOCAL_MACHINE" xem

 

[doveandrose]

ôi thôi chết . bị nhầm hàng . phải là nhánh HKEY_LOCAL_MACHINE mới đúng

 

[tailuu_3047]

Oh được rồi. Cám ơn anh doveandrose và ndu96081631 nhiều nhé. Chúc mọi người sức khoẻ và an lành.http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631

 

[doveandrose]

Oh được rồi. Cám ơn anh doveandrose và ndu96081631 nhiều nhé. Chúc mọi người sức khoẻ và an lành.

sắp có người vào đây hỏi tại sao sheet Tai san ngan han không có dữ liệu

 

[tailuu_3047]

sắp có người vào đây hỏi tại sao sheet Tai san ngan han không có dữ liệu

Hehe. Em check là có mà anh

 

[doveandrose]

Hehe. Em check là có mà anh

nếu đời lúc nào cũng đẹp thế thì còn gì bằng . chúc bạn may mắn

 

[tailuu_3047]

nếu đời lúc nào cũng đẹp thế thì còn gì bằng . chúc bạn may mắn

À. Em hiểu vì sao anh nói sheet Tài sản ngắn hạn rồi. Vì trong sheet info lúc em rà xét thì thấy có tới 2 mục tài sản ngắn hạn. Và cả 2 cái để là other current assets nên em đã sữa lại rồi . Sữa 1 cái thành current assets, cái kia để nguyên nên không mắc lỗi anh nói. Hi. Cám ơn anh nhiều nhé. Luôn gặp may mắn nhé anh.