Nhờ các bạn giúp dùng Code tự động chuyển phông chữ và thêm sô 0 trước dãy số (4 người xem)

[le_vis]

Tôi cần các bạn giúp thêm vào phần code hiện có trong File đính kèm :
1) Dùng Code chuyển phông chữ khi copi dữ liệu từ Sheet nguồn phông chữ .Vntime sang File đích thành phông chữ Times New Roman
2) Có dãy số định dang tex muốn tự đông thêm từ 1 đến 7 số 0 phía trước khi được copi sang File đích với nhiều điều kiện theo chữ số có nghĩa
Ví dụ : Cụ thể tôi đã ghi trong File đính kèm
Rất mong các bạn quan tâm giúp đỡ. Xin chân thành cảm ơn.

 

[vanle33]

Tôi cần các bạn giúp thêm vào phần code hiện có trong File đính kèm :
1) Dùng Code chuyển phông chữ khi copi dữ liệu từ Sheet nguồn phông chữ .Vntime sang File đích thành phông chữ Times New Roman
.

"Code chuyển phông" là như thế nào? Dùng Unikey là chuyển được font vừa đơn giản vừa dễ áp dụng.

 

[le_vis]

Cảm ơn Anh lê Văn đã quan tâm. Tôi biết dùng Unikey là chuyển được . Nhưng tôi muốn dùng code để khi copi bằng code từ Sheet nguồn sang Sheet đích thì nó tự động chuyển. Không mất công làm chuyển đổi nữa. Còn việc thêm số 0 vào trước những dãy số có nghĩa nữa
- Những số có nghĩa đó có thể là 1 chữ số có thể lên đến 8 chữ số; Nếu là 1 chữ số có nghĩa thì tự động thêm 7 chữ số 0 phía trước, 2 thì thêm 6 chữ số 0 phía trước .... và 7 thì thêm 1 chữ số 0 phía trước (Trong cùng 1 cột như File đính kèm)
Nhờ Anh dành thời gian giúp được không ?, nếu có thể được muốn xin anh số điện thoại để trình bày cho rõ được không ?

 

[Hau151978]

Mình nghĩ sử dụng Unikey có thể dùng hàm Sendkeys để gửi tổ hợp Ctrl-Shift-F9 sau đó paste vào vị trí đích. Chú ý phải insert thêm cột phụ vào đích để tránh ghi đè lên dữ liệu. Còn chèn số 0 vào chuỗi thì có thể dùng công thức (dùng các hàm LEN và REPT) hoặc vba.

 

[le_vis]

Cảm ơn bạn Hau 151978 đã cho ý kiến; Tôi biết dùng Unikey là chuyển được . Nhưng tôi muốn dùng code
Tôi gửi lại File đã viết đủ code copi để mọi người xem và giúp cho đỡ mất thời gian của mọi người phải viết code từ đầu
Xin cảm ơn các bạn

 

[vanle33]

Cảm ơn Anh lê Văn đã quan tâm. Tôi biết dùng Unikey là chuyển được . Nhưng tôi muốn dùng code để khi copi bằng code từ Sheet nguồn sang Sheet đích thì nó tự động chuyển. Không mất công làm chuyển đổi nữa.

Bạn tham khảo code ở bài #2, #3 topic này http://www.giaiphapexcel.com/forum/showthread.php?98739-Tham-chiếu-tương-đối
xem có giúp bạn được trong vấn đề chuyển font không!

 

[mhung12005]

Cảm ơn bạn Hau 151978 đã cho ý kiến; Tôi biết dùng Unikey là chuyển được . Nhưng tôi muốn dùng code
Tôi gửi lại File đã viết đủ code copi để mọi người xem và giúp cho đỡ mất thời gian của mọi người phải viết code từ đầu
Xin cảm ơn các bạn

Bạn muốn convert tự động cũng đc nhưng phải có hàm hỗ trợ. Mình sưu tầm hàm này trên mạng, bạn có thể áp dụng. Bạn xem file đính kèm nhé.

 

[mhung12005]

Bạn tham khảo code ở bài #2, #3 topic này http://www.giaiphapexcel.com/forum/showthread.php?98739-Tham-chiếu-tương-đối
xem có giúp bạn được trong vấn đề chuyển font không!

Không phải đâu bạn vanle33 ơi, vẫn đề của bạn ấy là chuyển mã từ TCVN3 sang Unicode cơ chứ không phải chuyển phông chữ.

 

[vanle33]

Không phải đâu bạn vanle33 ơi, vẫn đề của bạn ấy là chuyển mã từ TCVN3 sang Unicode cơ chứ không phải chuyển phông chữ.

Vậy ah. Thế không phải là bạn le_vis muốn chuyển từ font chữ .Vntime sang font Times New Roman của sheet "Kxuat" ah bạn.?

 

[Lê Duy Thương]

Cảm ơn Anh lê Văn đã quan tâm. Tôi biết dùng Unikey là chuyển được . Nhưng tôi muốn dùng code để khi copi bằng code từ Sheet nguồn sang Sheet đích thì nó tự động chuyển. Không mất công làm chuyển đổi nữa. Còn việc thêm số 0 vào trước những dãy số có nghĩa nữa
- Những số có nghĩa đó có thể là 1 chữ số có thể lên đến 8 chữ số; Nếu là 1 chữ số có nghĩa thì tự động thêm 7 chữ số 0 phía trước, 2 thì thêm 6 chữ số 0 phía trước .... và 7 thì thêm 1 chữ số 0 phía trước (Trong cùng 1 cột như File đính kèm)
Nhờ Anh dành thời gian giúp được không ?, nếu có thể được muốn xin anh số điện thoại để trình bày cho rõ được không ?

không thích unikey thì đây
http://www.giaiphapexcel.com/forum/...ễn-Thanh-Hải-(Tiền-Giang)&p=235168#post235168

 

[mhung12005]

Vậy ah. Thế không phải là bạn le_vis muốn chuyển từ font chữ .Vntime sang font Times New Roman của sheet "Kxuat" ah bạn.?

Bạn mở file đính kèm của bạn le_vis ra xem là thấy ngay. Bạn ấy lọc dữ liệu từ sheet Tổng hợp sang sheet Kxuat nhưng vì dữ liệu nguồn là mã TCVN3 nên khi sang sheet Kxuat (sheet này đang sử dụng font Times New Roman rồi) nhưng toàn ra đầu trâu mặt ngựa thôi ko đọc đc. Muốn đọc đc phải chuyển mã từ TCVN3 sang Unicode.

 

[le_vis]

Chân thành cảm ơn mhung 12005 nhiều nhiều. chuyển phông đúng ý mình rồi. Giúp như bạn thật là nghĩa tình vì khi đã phải đưa lên hỏi có nghĩa là đã tìm và làm không được hoặc có thể là có người áp dụng code bổ xung vào code cũ không đúng thuật nên cách giúp như bạn người được giúp như mình thấy mắt sáng ra, thấy đời thêm nhiều bạn tốt. Cảm ơn bạn.
- À Bạn mhung 12005 có thể giúp mình việc thêm các chữ số 0 phía trước số hóa đơn khi copi sang Sheet "Kxuat" được không. rất vui khi được bạn quan tâm giúp

 

[mhung12005]

Chân thành cảm ơn mhung 12005 nhiều nhiều. chuyển phông đúng ý mình rồi. Giúp như bạn thật là nghĩa tình vì khi đã phải đưa lên hỏi có nghĩa là đã tìm và làm không được hoặc có thể là có người áp dụng code bổ xung vào code cũ không đúng thuật nên cách giúp như bạn người được giúp như mình thấy mắt sáng ra, thấy đời thêm nhiều bạn tốt. Cảm ơn bạn.
- À Bạn mhung 12005 có thể giúp mình việc thêm các chữ số 0 phía trước số hóa đơn khi copi sang Sheet "Kxuat" được không. rất vui khi được bạn quan tâm giúp

Nói thật mình có ít thời gian, với cả lười sửa code lắm. Mình thì mình sẽ làm thế này bạn xem đc thì dùng.