Code VBA copy từ máy tính xách tay từ Nhật không chạy được.

[tuleanhbd]

Chào các anh chị và các bạn..
Công ty mình có một Bác chuyên gia Nhật sang hỗ trợ để lấy dữ liệu từ 1 máy chuyên dụng sang file excel, sau khi lấy dữ liệu thì dùng vba để lọc bỏ những phần thừa và làm đồ thị luôn, nhưng sao code của Bác ấy mình copy sang máy mình thì lại không dung được, mặc dù có hỗ trợ font đầy đủ, và mình cũng có thử sửa lại bằng tiếng Anh nhưng vẫn không chạy được.
Với thêm 1 phần nữa là code chạy rất lâu, có cách nào lọc bớt được không.
Mong nhận được sự giúp đỡ của các bạn, (mình có hỏi Bác ấy rồi mà Bác bảo đang bận, khi nào rảnh mới trả lời mà lúc nào hỏi cũng trả lời có câu này.)
Có file đính kèm theo, sheet1 là sheet dữ liệu, sau khi chạy xong copy ra sheet khác và xóa dữ liệu cũ.
Trong file kèm theo có sheet(2) là sheet đã chạy ok từ máy cũ trước khi copy
Dữ liệu này đã qua lọc 1 phần rồi không còn nguyên bản như lúc mới lấy từ máy chuyên dụng ra.
Cám ơn các bạn nhiều.
(Đã sửa lại tên file)

 

[Maika8008]

Chào các anh chị và các bạn..
Công ty mình có một Bác chuyên gia Nhật sang hỗ trợ để lấy dữ liệu từ 1 máy chuyên dụng sang file excel, sau khi lấy dữ liệu thì dùng vba để lọc bỏ những phần thừa và làm đồ thị luôn, nhưng sao code của Bác ấy mình copy sang máy mình thì lại không dung được, mặc dù có hỗ trợ font đầy đủ, và mình cũng có thử sửa lại bằng tiếng Anh nhưng vẫn không chạy được.
Với thêm 1 phần nữa là code chạy rất lâu, có cách nào lọc bớt được không.
Mong nhận được sự giúp đỡ của các bạn, (mình có hỏi Bác ấy rồi mà Bác bảo đang bận, khi nào rảnh mới trả lời mà lúc nào hỏi cũng trả lời có câu này.)
Có file đính kèm theo, sheet1 là sheet dữ liệu, sau khi chạy xong xong copy ra sheet khác và xóa dữ liệu cũ.
Dữ liệu này đã qua lọc 1 phần rồi không còn nguyên bản như lúc mới lấy từ máy chuyên dụng ra.
Cám ơn các bạn nhiều.

1/ Tôi thấy lạ là tại sao không sửa tên file theo ký tự abc?
2/ Mấy file dùng VBA mà có nguồn không rõ ràng (đối với GPE, chứ không phải đối với bạn) thế này liệu có kèm khuyến mại gì không, ai mà biết được?

Ai dám tải về thử chứ tôi thì... thua.

 

[tuleanhbd]

1/ Tôi thấy lạ là tại sao không sửa tên file theo ký tự abc?
2/ Mấy file dùng VBA mà có nguồn không rõ ràng (đối với GPE, chứ không phải đối với bạn) thế này liệu có kèm khuyến mại gì không, ai mà biết được?

Ai dám tải về thử chứ tôi thì... thua.

tên file tiếng nhật đó bạn, tại mình muốn để file gốc thôi, chứ cần mình sửa lại rồi up cũng được

 

[ptm0412]

Chào các anh chị và các bạn..
Công ty mình có một Bác chuyên gia Nhật sang hỗ trợ để lấy dữ liệu từ 1 máy chuyên dụng sang file excel, sau khi lấy dữ liệu thì dùng vba để lọc bỏ những phần thừa và làm đồ thị luôn, nhưng sao code của Bác ấy mình copy sang máy mình thì lại không dung được, mặc dù có hỗ trợ font đầy đủ, và mình cũng có thử sửa lại bằng tiếng Anh nhưng vẫn không chạy được.

Bác ấy viết code giống như mới học qua khỏi mức record macro 1 chút, chạy chậm. Tôi chỉ sửa lỗi cho chạy chứ không cải tiến gì hết.

Bạn tìm đoạn code:



Và thay bằng:

With ActiveSheet
        .ChartObjects(5).Activate
        .Shapes(5).IncrementLeft 300
        .Shapes(5).IncrementTop -34
        .ChartObjects(4).Activate
        .Shapes(4).IncrementLeft 670
        .Shapes(4).IncrementTop -34
        .ChartObjects(3).Activate
        .Shapes(3).IncrementLeft 300
        .Shapes(3).IncrementTop 185
        .ChartObjects(2).Activate
        .Shapes(2).IncrementLeft 670
        .Shapes(2).IncrementTop 185
        .ChartObjects(1).Activate
        .Shapes(1).IncrementLeft 300
        .Shapes(1).IncrementTop 415
    End With

 

[tuleanhbd]

Bác ấy viết code giống như mới học qua khỏi mức record macro 1 chút, chạy chậm. Tôi chỉ sửa lỗi cho chạy chứ không cải tiến gì hết.

Bạn tìm đoạn code:

View attachment 244109

Và thay bằng:

With ActiveSheet
        .ChartObjects(5).Activate
        .Shapes(5).IncrementLeft 300
        .Shapes(5).IncrementTop -34
        .ChartObjects(4).Activate
        .Shapes(4).IncrementLeft 670
        .Shapes(4).IncrementTop -34
        .ChartObjects(3).Activate
        .Shapes(3).IncrementLeft 300
        .Shapes(3).IncrementTop 185
        .ChartObjects(2).Activate
        .Shapes(2).IncrementLeft 670
        .Shapes(2).IncrementTop 185
        .ChartObjects(1).Activate
        .Shapes(1).IncrementLeft 300
        .Shapes(1).IncrementTop 415
    End With

bị lỗi chỗ này bạn ơi

 

[befaint]

copy sang máy mình thì lại không dung được

Cái này rất đơn giản là bạn cài đặt hệ điều hành Windows và Office bản tiếng Nhật nhé.
Tha hồ gõ ký tự unicode ở mọi nơi trong VBA.
------
Đây là ví dụ cụ thể cho việc 'không dùng/ gõ được Unicode trong môi trường VB' đó.

 

[tuleanhbd]

Cái này rất đơn giản là bạn cài đặt hệ điều hành Windows và Office bản tiếng Nhật nhé.
Tha hồ gõ ký tự unicode ở mọi nơi trong VBA.
------
Đây là ví dụ cụ thể cho việc 'không dùng/ gõ được Unicode trong môi trường VB' đó.

Ý của bạn là mình phải cài lại win và Office tiếng Nhật ạ.
Còn cách nào khác không bạn

 

[befaint]

Ý của bạn là mình phải cài lại win và Office tiếng Nhật ạ.
Còn cách nào khác không bạn

Bạn đọc kỹ nhé, mình nêu đó là cách đơn giản mà bạn có thể làm. Cách khác ở bài #4 đó bạn.

 

[tuleanhbd]

Bạn đọc kỹ nhé, mình nêu đó là cách đơn giản mà bạn có thể làm. Cách khác ở bài #4 đó bạn.

Cách ở bài 4 mình làm thử rồi bị báo lỗi, mình có chụp hình lại.
Còn code thì mình copy ở máy Bác ấy, máy mình không dùng win hay office Nhật, nhưng có hỗ trợ font đầy đủ

 

[befaint]

Cách ở bài 4 mình làm thử rồi bị báo lỗi, mình có chụp hình lại.

Cách bài #4 được viết thành văn xuôi đó là: Viết lại code.

Nội dung bài #4 được diễn giải nôm na là một trong những cách viết lại code.

Còn code thì mình copy ở máy Bác ấy, máy mình không dùng win hay office Nhật, nhưng có hỗ trợ font đầy đủ

Chỉ Fonts không có tác dụng gì. Điều kiện là Windows và Office phiên bản tiếng Nhật.

 

[tuleanhbd]

Cách bài #4 được viết thành văn xuôi đó là: Viết lại code.

Nội dung bài #4 được diễn giải nôm na là một trong những cách viết lại code.


Chỉ Fonts không có tác dụng gì. Điều kiện là Windows và Office phiên bản tiếng Nhật.

Ha Ha, mấy bác chơi chữ kinh thật, thôi để em mò...

 

[ptm0412]

bị lỗi chỗ này bạn ơi

bạn đứng tại sheet nào chạy code vậy? Tôi chạy trót lọt từ đầu đến cuối nên mới trà lời, chứ không làm nửa vời. Còn nếu bạn không tin thì chờ người khác

 

[tuleanhbd]

bạn đứng tại sheet nào chạy code vậy? Tôi chạy trót lọt từ đầu đến cuối nên mới trà lời, chứ không làm nửa vời. Còn nếu bạn không tin thì chờ người khác

Mình đứng tại sheet(1) chạy, mình làm thử vài lần rồi mà không được chứ không phải không tin, cám ơn bạn.
Hay là do mình dùng Office 2007

 

[tigertiger]

Cách ở bài 4 mình làm thử rồi bị báo lỗi, mình có chụp hình lại.
Còn code thì mình copy ở máy Bác ấy, máy mình không dùng win hay office Nhật, nhưng có hỗ trợ font đầy đủ

Nên tự ghi lại macro và thực hiện lại thao tác như mong muốn, thì sẽ có code ở máy của bạn, so sánh với code cũ kia có thể hiểu phần nào,
Còn không tốt nhất là Viết mới từ đầu

 

[ptm0412]

Mình đứng tại sheet(1) chạy, mình làm thử vài lần rồi mà không được chứ không phải không tin, cám ơn bạn.
Hay là do mình dùng Office 2007

làm gì có sheet(1)?

Cái code của anh Nhật có 1 cái dở là mỗi lần chạy:
- dùng dữ liệu của sheet đang đứng, làm đủ thứ trên sheet đó
- Copy sheet vừa xào nấu đó thành sheet mới, thành những sheet có đuôi (1), (2), (3), mỗi lần tạo 1 sheet
- Xoá sheet gốc
- Tạo sheet mới toanh và trống trơn, đổi tên thành Sheet1

 

[tuleanhbd]

làm gì có sheet(1)?

Cái code của anh Nhật có 1 cái dở là mỗi lần chạy:
- dùng dữ liệu của sheet đang đứng, làm đủ thứ trên sheet đó
- Copy sheet vừa xào nấu đó thành sheet mới, thành những sheet có đuôi (1), (2), (3), mỗi lần tạo 1 sheet
- Xoá sheet gốc
- Tạo sheet mới toanh và trống trơn, đổi tên thành Sheet1


View attachment 244135

Cám ơn bạn, mình đang viết lại code, chỗ nào ko biết mình sẽ hỏi thêm.

 

[tuleanhbd]

làm gì có sheet(1)?

Cái code của anh Nhật có 1 cái dở là mỗi lần chạy:
- dùng dữ liệu của sheet đang đứng, làm đủ thứ trên sheet đó
- Copy sheet vừa xào nấu đó thành sheet mới, thành những sheet có đuôi (1), (2), (3), mỗi lần tạo 1 sheet
- Xoá sheet gốc
- Tạo sheet mới toanh và trống trơn, đổi tên thành Sheet1


View attachment 244135

Mình làm tới chỗ này thì sửa hoài không được ban có thể giúp mình được không,
-Phần đặt tên biểu đồ
-Vòng lặp for chạy không đúng
Mình có mô tả trong file đính kèm