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é)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 đã 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.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
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.
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è: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.
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.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ả Function.xla là Paulstiegel, chuyên gia lập trình rất cao siêu.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/showthread.php?31789-Code-ứng-dụng-Gõ-TCVN3-sheet-này-tự-động-cập-nhật-Unicode-sheet-kia.&p=212522#post212522
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.
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
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
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).
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é.