Làm sao chuyển font từ VntimH sang Times New Roma vấn giữ được chữ IN

Liên hệ QC

Dauthivan

Thành viên tiêu biểu
Tham gia
15/8/08
Bài viết
565
Được thích
327
Em có mấy Add _ Ins tuy nhiên khi chuyển font chữ từ (Vntime hoặc VntimeH) sang Times New Roman thì chữ IN bị biến mất sang chữ thưởng. Có bác nào chuyển font mà khắc phục được nhược điểm này không cho em xin, em đang rất cần. Xin chân thành cảm ơn
 
Em có mấy Add _ Ins tuy nhiên khi chuyển font chữ từ (Vntime hoặc VntimeH) sang Times New Roman thì chữ IN bị biến mất sang chữ thưởng. Có bác nào chuyển font mà khắc phục được nhược điểm này không cho em xin, em đang rất cần. Xin chân thành cảm ơn
Giải pháp tạm thời: bạn dùng chức năng chuyển mã của Unikey đi (nhớ copy 1 bản dự phòng trước khi làm theo các bước sau nhé)
- Copy dữ liệu nguồn.
- Nhấn Ctrl+Shift+F6
- Chọn bảng mã nguồn (TCVN-3) và đích (Unicode)
- Chọn Sang chữ hoa tại mục Lựa chọn
- Chọn Chuyển mã Clipboard
- Nhấn nút Chuyển mã.
- Dán đè lên dữ liệu nguồn và chọn lại font.
 
Bạn thử xem phần mềm chuyển đổi của bác handung107 tại địa chỉ http://www.giaiphapexcel.com/forum/showthread.php?117-Convert-Font-Add-in-của-OverAC , tôi thấy nó rất tiện lợi và hay
Em đã tải xuống rồi nhưng nó vẫn bị lỗi font khi em thực hiện chuyển đổi (chọn vùng chuyển sau đó nhấn Ctrl+Q), mục đích của em là chữ thường sau khi chuyển đổi vẫn là chữ thường, chữ hoa (VntimH) sau khi chuyển đổi sang Times New Roman nó vẫn là chữ hoa, tuy nhiên em thấy VnTimeH khi chuyển đổi vẫn có nhược điểm lại biến thành chữ thường.
 
Em thấy có phần mềm UConvert.exe của Công ty An Nam chuyển rất chuẩn, em rất thích phần mềm này không cần mở file gì cả khi chuyển đổi giữ nguyên chữ IN, chữ thường. Đáng tiếc nó chỉ thực hiện trong Word mà không thực hiện được trong Excel
 
Bạn hỏi cho word hay excel? Có 1 topic hỏi cho word mà không nói rõ, tôi đã trả lời bằng hàm cho excel, và bị quê 1 cục:
http://www.giaiphapexcel.com/forum/showthread.php?37988-Chuy%E1%BB%83n-font-cho-v%C4%83n-b%E1%BA%A3n-l%E1%BA%ABn-l%E1%BB%99n-c%E1%BA%A3-Vntime-v%C3%A0-Times-New-Roman-v%E1%BB%81-1-lo%E1%BA%A1i

Nếu dùng cho excel thì lấy hàm AlltoUni() trong topic này:
http://www.giaiphapexcel.com/forum/...p-nhật-Unicode-sheet-kia.&p=212481#post212481
AlltoUni() chỉ có 1 tham số, dùng chung cho mọi font .vn, .vnH, Vni-, và chuyể sang Unicode, chữ in còn nguyên chữ in.
 
Lần chỉnh sửa cuối:
Em tìm được thấy Functions.xla có thể giữ nguyên định dạng

Cảm ơn các bác em đã tìm ra được trên diễn đàn Functions đúng ý em đang cần rồi, em thấy nó rất hay em chưa kịp lưu lại trang đó. Em xin phép được đưa lên đây để mọi người cần dùng
 
Bạn hỏi cho word hay excel? Có 1 topic hỏi cho word mà không nói rõ, tôi đã trả lời bằng hàm cho excel, và bị quê 1 cục:
http://www.giaiphapexcel.com/forum/...ẫn-lộn-cả-Vntime-và-Times-New-Roman-về-1-loại

Nếu dùng cho excel thì lấy hàm AlltoUni() trong topic này:
http://www.giaiphapexcel.com/forum/...p-nhật-Unicode-sheet-kia.&p=212481#post212481
AlltoUni() chỉ có 1 tham số, dùng chung cho mọi font .vn, .vnH, Vni-, và chuyể sang Unicode, chữ in còn nguyên chữ in.

Em cứ tưởng là Ok rồi, nhưng phần mềm Functions.xla nó vẫn bị lỗi chữ a khi chuyển đổi, những ô có công thức sử dụng như dùng hàm Concatenate thì không chuyển đổi được, các chức năng khác khá thuận lợi, bác nào là tác giả phần mềm này giúp em với.
 

File đính kèm

Lần chỉnh sửa cuối:
Em cứ tưởng là Ok rồi, nhưng phần mềm Functions.xla nó vẫn bị lỗi chữ a khi chuyển đổi, những ô có công thức sử dụng như dùng hàm Concatenate thì không chuyển đổi được, các chức năng khác khá thuận lợi, bác nào là tác giả phần mềm này giúp em với.
Tác giả của Addin Functions.xla có lên tiếng trong link thứ 2 của thầy ptm0412 đó bạn. Đây nè:
http://www.giaiphapexcel.com/forum/...p-nhật-Unicode-sheet-kia.&p=212522#post212522
 
Tác giả của Addin Functions.xla có lên tiếng trong link thứ 2 của thầy ptm0412 đó bạn. Đây nè:
http://www.giaiphapexcel.com/forum/...p-nhật-Unicode-sheet-kia.&p=212522#post212522
Thày ơi, thày cho em hỏi em có dùng bản AlltoUni() của thày về thì rất là chuẩn không bị lỗi, tuy nhiên lại phải dùng hàm cho từng ô liền. Tuy vậy, em muốn nó chuyển tự động cho cả vùng như Fution mà thày đã viết? Thày giúp em với ah, đa tạ thày.
 
Theo tôi, bạn không nên cầu toàn quá, bạn có thể sử dụng của thày Nguyễn Thanh Hải tại địa chỉ http://www.giaiphapexcel.com/forum/...H-EXCEL-của-thầy-Nguyễn-Thanh-Hải-(Tiền-Giang), nếu ô nào biến thành chữ thường bạn chọn chức năng biến thành chữ hoa là xong bởi suy cho cùng những ô ấy không nhiều, có được như vậy là tốt lắm rồi, tôi chỉ băn khoăn ước gì trong Word có được tiện ích tương tự như vậy, mỗi khi chuyển từ chữ thường sang chữ hoa tôi đều phải xoá đị đánh lại (trong cùng một tiện ích).
 
Tác giả Function.xla là Paulstiegel, chuyên gia lập trình rất cao siêu.
dauthivan đã viết:
Thày ơi, thày cho em hỏi em có dùng bản AlltoUni() của thày về thì rất là chuẩn không bị lỗi, tuy nhiên lại phải dùng hàm cho từng ô liền. Tuy vậy, em muốn nó chuyển tự động cho cả vùng như Fution mà thày đã viết? Thày giúp em với ah, đa tạ thày.

Chép code sau vào module và gán phím tắt:

PHP:
Sub abc()
Dim Arr
Dim iRows, iCols
Dim i As Long, j As Long
iRows = Selection.Rows.Count
iCols = Selection.Columns.Count
ReDim Arr(iRows, iCols)
For i = 1 To iRows
    For j = 1 To iCols
        Arr(i, j) = AllToUni(Selection(i, j))
    Next
Next
Selection = Arr
Selection.Font.Name = "Arial"
End Sub
Chọn 1 vùng đơn (không dùng ctrol chọn nhiều vùng rời rạc), rồi nhấn phím tắt.
Ghi chú: Như tất cả các ứng dụng chuyển mã, các công thức bị mất, thay vào bằng giá trị. Cho nên chỉ nên dùng cho dữ liệu text.

Dữ liệu số thì chỉ cần đổi font, đúng không?

Cải tiến cho vùng chọn không liên tục (nhấn Ctrl chọn nhiều vùng không liên tục)
PHP:
Sub abc()
Dim Arr, Area1 As Range
Dim iRows, iCols
Dim i As Long, j As Long
For Each Area1 In Selection.Areas
   iRows = Area1.Rows.Count
   iCols = Area1.Columns.Count
   ReDim Arr(iRows, iCols)
   For i = 1 To iRows
       For j = 1 To iCols
           Arr(i, j) = AllToUni(Area1(i, j))
       Next
   Next
   Range(Area1.Address) = Arr
Next
Selection.Font.Name = "Arial"
End Sub
Phím tăt là Ctrl Shift W
 

File đính kèm

Lần chỉnh sửa cuối:
Về cơ bản code chuyển đổi rât tốt, nhưng hình như còn lỗi chữ Đ hoa là chưa được thày ah
 
Phần mềm UConvert.exe của Công ty An Nam viết cho ngành thuế tôi thấy dùng rất tốt. Nhiều file excel, word có nhiều fomat nhưng tôi chưa gặp lỗi nào khi chuyển.
 
Em vừa tách tìm được được một Add_Ins hoàn hảo 100% luôn thày ah? Không những chuyển không bị lỗi mà còn giữ được nguyên công thức.
 

File đính kèm

Lần chỉnh sửa cuối:
Cảm ơn thày, công việc của em là quản lý dự toán XD, nhiều đơn vị nhà thầu gửi đến gồm rất nhiều font, việc giữ lại các công thức là quan trọng, các phần mềm em sưu tầm được đều giải quyết giữ được công thức, tuy nhiên mỗi cái nó lại có lỗi nhỏ riêng thế mới bực chứ. Tất nhiên, có vậy là tốt lắm rồi, (trừ khi công việc quá nhiều, khối lượng lớn thì kể ra cũng hơi mệt).

Việc giữ lại công thức đối với AlltoUni rất dễ dàng: chọn toàn bảng tính, rồi chọn tiếp special cells- Constant, nhấn tiếp phím tắt để chạy code. Những ô chứa công thức đâu có chọn đâu mà lo bị mất công thức? AlltoUni cũng không đụng chạm đến định dạng màu, canh trái phải, border, merge cell, số, ngày, ... kể cả wrap text
Còn lỗi chữ Đ hoa, là do khi đánh font .vntimeH mà vẫn nhấn giữ shift hoặc capslock, mà character code của Đ trong bảng mã này, 1 shift, 1 không, thì khác nhau: § và ® dù cho cùng hiển thị Đ.
Tôi ghét font của bảng mã ABC ở chỗ đó: viết hoa nguyên từ phải đổi font mà không được nhấn shift hoặc capslock.
 
Lần chỉnh sửa cuối:
Cảm ơn thày nhiều, thày thử dùng cái em vừa tải lên xem thế nào thày nhé.

Tiếp theo em xin gửi mọi người Add_Ins trong Word, mọi người dùng nó với Word2003 độ tương thích rất tốt.
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Cảm ơn thày nhiều, thày thử dùng cái em vừa tải lên xem thế nào thày nhé.

Ghét nhất cái này:
- Protect code VBA (có pass), không cho xem thì không biết lỗi do đâu, muốn xem cũng không được. Cho pass cũng vậy, muốn xem phải gỡ pass. Mà nếu lỗi ngay khi load menu thì có cho debug đâu mà xem? Muốn gỡ pass thì phải disable macro, mà disable macro thì đâu có lỗi mà xuất hiện?
- Thoát ra không gỡ bỏ menu, kể cả khi đã gỡ add-ins
- Vẫn còn cái tool bar đáng ghét

Về sử dụng:
Đối với lệnh chuyển chữ hoa thành chữ thường: thực chất là đổi font từ .vnxxH thành .vnxxx
- chữ I hoa, chuyển xong vẫn còn I hoa
- Nếu khi đánh, người ta đã nhấn capslock hoặc shift, thì những chữ đó không được đổi.

Tôi đang sửa AlltoUni để bẫy những chữ nhấn capslock khi đánh .vntimeH

Đã bẫy lỗi nhấn capslock khi gõ đối với font .vnxxH:
Đối với font hoa của mã ABC, có những chữ sau đây hiển thị như nhau dù cho nhấn shift hoặc capslock hay không:

Có capslock|Không capslock|Hiển thị|
§|®|Đ|
¢|©|Â|
£|ª|Ê|
¤|«|Ô|
¦|­-|Ư|
¥|¬|Ơ|

bắt thêm mấy chữ này là xong.

Để bảo toàn công thức, cứ chọn toàn bảng tính, sau đó chọn special cells constant, rồi chạy code.
 

File đính kèm

Lần chỉnh sửa cuối:
Em đã sử dụng cái thày sửa rồi, tuy nhiên nó còn một lỗi tiêu đề sau khi chuyển đổi nó không thể nào hiện ra theo chế độ Center Cross Section (không căn nó ra giữa bảng được), thày thử xem lại giúp em thày nhé.
 
AlltoUni bảo đảm không can thiệp vào format:

Trước khi chuyển đổi:

before.jpg

Sau khi chuyển đổi:

after.jpg
 
Web KT

Bài viết mới nhất

Back
Top Bottom