Có phần mềm nào mà chuyển đổi font cho toàn bộ các file excel trong Folder

Liên hệ QC
Em Test đúng như file bài 37 (của bác Phanhanhdai) trên Excel 2010, còn 1 chút xíu lỗi nữa như sau:

ví dụ:
Nguồn (.VnTime) --> đích Times New Roman
-----------tính --> tÝnh
-----------kiến --> kiÕn
-----------Quyền--> QuyÒn

Không biết mọi người có gặp lỗi này không, nếu không cho em biết với nhé.

Nam xem lại máy có bị nhiễm virut không chưa anh Test hoàn toàn rất ngon lành mà.
 
Sáng nay, em có thử chuyển font cho file (đính kèm ở dưới) nhưng rất lâu mà không ra kết quả, kính mong sư phụ Ndu cùng các bác Test chuyển dùm em file này.
 

File đính kèm

  • Test.rar
    88.6 KB · Đọc: 19
Rất mong mọi người chỉ dùm em file trong bài 42 ở trên có gì đặc biệt mà em chuyển mã font mãi mà không được (mấy file thẩm định tương tự của em cũng như vậy).
 
Đã test xong!
Code sửa lại:
Mã:
Sub TCVN3_To_Unicode(ByVal Range As Range)
  On Error Resume Next
  Dim rCel As Range
  Dim sFontName As String, sFormula As String
  For Each rCel In Range
    sFontName = rCel.Font.Name
    sFormula = rCel.Formula
    If Len(sFormula) Then
      If Left(sFontName, 3) = ".Vn" Then
        If sFontName Like ".Vn*H" Then
          rCel = UCase(Vn3Uni(sFormula))
        Else
          rCel = Vn3Uni(sFormula)
        End If
      End If
    End If
  Next
  Range.Font.Name = "Times New Roman"
End Sub
Mã:
Sub CharSetConvert()
  Dim fle As Object
  Dim vFolder, wks As Worksheet
  On Error Resume Next
  vFolder = CreateObject("Shell.Application").BrowseForFolder(0, "", 1).Self.Path
  On Error GoTo 0
  If TypeName(vFolder) = "String" Then
    vFolder = CStr(vFolder)
    With CreateObject("Scripting.FileSystemObject")
      Application.ScreenUpdating = False
      For Each fle In .GetFolder(vFolder).Files
        If UCase(fle.Path) <> UCase(ThisWorkbook.FullName) Then
          If fle.Type Like "Microsoft Excel*" Then
            With Workbooks.Open(fle.Path)
              For Each wks In .Worksheets
                TCVN3_To_Unicode wks.UsedRange
              Next
              .Close True
            End With
          End If
        End If
      Next
    End With
  End If
  MsgBox "Thành công"
  Application.ScreenUpdating = True
End Sub
Bỏ hết code cũ, chỉ chừa lại Function Vn3Uni
Xem file và test thử nhé
-------------------
Tôi nghĩ code trong Function Vn3Uni còn có thể cải tiến để tăng tốc được nữa đấy (có thể dùng Replace chẳng hạn)
Thưa thày, em thấy thày làm bài đổi tên Folder (file) ở http://www.giaiphapexcel.com/forum/showthread.php?86721-Đổi-tên-Folder/page2 rất hay, xin thày hãy giúp em biến Code trên thành Add-ins như bài trên thì tốt biết mấy.

Em xin cảm ơn thày rất nhiều.
 
Thưa thày, em thấy thày làm bài đổi tên Folder (file) ở http://www.giaiphapexcel.com/forum/showthread.php?86721-Đổi-tên-Folder/page2 rất hay, xin thày hãy giúp em biến Code trên thành Add-ins như bài trên thì tốt biết mấy.

Em xin cảm ơn thày rất nhiều.

Vấn đề là code ở topic này không phải do tôi viết (nói đúng là là code convert không phải tôi viết)
Thêm nữa, khi thí nghiệm code chạy với file ở bài 42 thì quả thật là không thành công mà tôi cũng không tìm ra được nguyên nhân
Vậy nên tôi chưa tiếp tục khi chưa bảo đảm rằng code chạy ổn định
 
Vấn đề là code ở topic này không phải do tôi viết (nói đúng là là code convert không phải tôi viết)
Thêm nữa, khi thí nghiệm code chạy với file ở bài 42 thì quả thật là không thành công mà tôi cũng không tìm ra được nguyên nhân
Vậy nên tôi chưa tiếp tục khi chưa bảo đảm rằng code chạy ổn định

Hằng ngày, việc chuyển font rất cần thiết, thực sự trên mạng những phần mềm đổi font cho Word rất nhiều nhưng chuyển cho Excel quả thực rất khó kiếm được cái nào chạy ổn định, em tìm kiếm cả năm trời trên mạng nhưng chưa được cái nào ưng ý.

Thời gian trước, em có hay sử dụng phần mềm TVEXCEL01 trên diễn đàn (em rất thích cái này duy chỉ có điểm chuyển vn.timeH sang Unicode thì bị biến thành chữ thường, tiện ích này chuyển được cả bài 42 nhưng thời gian lâu hơn bình thường, vì file này có lỗi gì đó).

Mấy hôm vừa rồi em dùng Code thày cải tiến thấy chạy rất ổn định, rất hay, em tha thiết kính mong thày quan tâm giúp em cải thiện sao cho nó có chức năng Include sub Folder thì thật hữu ích.

---
Em chỉ cần chức năng vậy (code chỉ cần như vậy) là quá tốt rồi, file bài 42 do nói bị lỗi thao tác thày ah.
 
Lần chỉnh sửa cuối:
Thời gian trước, em có hay sử dụng phần mềm TVEXCEL01 trên diễn đàn (em rất thích cái này duy chỉ có điểm chuyển vn.timeH sang Unicode thì bị biến thành chữ thường.
Nếu bạn quan tâm đến TỐC ĐỘ thì nên chấp nhận việc này. Ngay cả tôi, nếu muốn viết code chạy nhanh cũng sẽ làm vậy. Muốn vn.*H chuyển thành chữ HOA luôn, bạn phải trả giá đắt đấy!

------------------------------------------
Mấy hôm vừa rồi em dùng Code thày cải tiến thấy chạy rất ổn định, rất hay, em tha thiết kính mong thày quan tâm giúp em cải thiện sao cho nó có chức năng Include sub Folder thì thật hữu ích.
.

Xây dựng 1 ứng dụng đàng hoàng không phải chuyện dễ, nhất là khi ta muốn ứng dựng ấy thân thiện với người dùng
Như bài đổi tên thư mục cũng không phải là khó khăn gì (đồ nghề có sẵn cả) nhưng tôi vẫn phải mất 2 ngày test đi test lại (xem code bạn cũng thấy nó dài đến chóng mặt, cả tôi còn không dám nhìn... Ẹc... Ẹc...)
Còn 1 vấn đề khác nữa: Muốn viết code cho "ngon" thì thường phải có... hứng (cảm hứng thật sự của người đam mê lập trình)
Dù sao thì tôi cũng sẽ suy nghĩ về vấn đề này! Chờ nhé!
 
Nếu bạn quan tâm đến TỐC ĐỘ thì nên chấp nhận việc này. Ngay cả tôi, nếu muốn viết code chạy nhanh cũng sẽ làm vậy. Muốn vn.*H chuyển thành chữ HOA luôn, bạn phải trả giá đắt đấy!

.....

Em quan trọng nhất là giữ được định dạng như cũ (dưới góc độ quan sát bằng mắt thường), TỐC ĐỘ chậm 1 chút cũng không sao thày ah.
 
Nhờ trợ giúp phần giao diện

Tôi đã làm gần xong chương trình này nhưng còn chút rắc rối với phần giao diện. Xem hình:

Cap_1.png



















Cap_2.png


















Các bạn download file đính kèm dưới đây về và nghiên cứu giúp tôi chọn lựa 5 FaceId phù hợp nhất để gắn vào 5 ControlButton trên Toolbar nhé
(Tìm mấy cái FaceId này khá vất vả đây)
 

File đính kèm

  • ABC_To_Uni_TestMenu.xls
    62.5 KB · Đọc: 29

File đính kèm

  • Tinh theo ham table.rar
    95.8 KB · Đọc: 18
Tôi đã làm gần xong chương trình này nhưng còn chút rắc rối với phần giao diện. Xem hình:

View attachment 111697



















View attachment 111698


















Các bạn download file đính kèm dưới đây về và nghiên cứu giúp tôi chọn lựa 5 FaceId phù hợp nhất để gắn vào 5 ControlButton trên Toolbar nhé
(Tìm mấy cái FaceId này khá vất vả đây)

Khi em sử dụng chọn Folder nó hiện ra thông báo: The Macro 'ABC_To_Uni_TestMenu.xls!modeMain.ConvertOneFolder' cannot be found thì làm thế nào?

Em đã cho nó về chế độ Low (not Recommended) rồi mà.
 
Khi em sử dụng chọn Folder nó hiện ra thông báo: The Macro 'ABC_To_Uni_TestMenu.xls!modeMain.ConvertOneFolder' cannot be found thì làm thế nào?

Trời ơi!
Tôi chỉ gửi lên cái code tạo Toolbar thôi mà (đã có gì trong đó đâu mà chạy)
Mục đích tôi gửi file này là nhờ các bạn chọn giúp tôi 5 biểu tượng phù hợp (là FaceId) để gán vào các ControlButton cho nó đẹp thôi
Công việc viết code tôi không ngại, còn phần giao diện thì đúng là hơi.. oải (làm biếng)
 
Trời ơi!
Tôi chỉ gửi lên cái code tạo Toolbar thôi mà (đã có gì trong đó đâu mà chạy)
Mục đích tôi gửi file này là nhờ các bạn chọn giúp tôi 5 biểu tượng phù hợp (là FaceId) để gán vào các ControlButton cho nó đẹp thôi
Công việc viết code tôi không ngại, còn phần giao diện thì đúng là hơi.. oải (làm biếng)

Hihi thế mà em không biết, được thầy giúp cho Code thì quá tuyệt rồi.

Em thấy biểu tượng đó cũng đẹp mà thày
 
Hihi thế mà em không biết, được thầy giúp cho Code thì quá tuyệt rồi.

Em thấy biểu tượng đó cũng đẹp mà thày

Nếu bạn đồng ý thì mời test thử (file đính kèm dưới đây đã có đầy đủ code)
Nói sơ về cách dùng:
- Nhìn lên Toolbar mới vừa tạo, sẽ thấy có 1 mũi tên xổ xuống tên là Convert Option và 1 nút tên là Help
- Nếu chọn Convert Options\From Active Workbook\Selected Sheets: nghĩa là bạn muốn chuyển mã cho các sheet đang được chọn tại workbook hiện hành
- Nếu họn Convert Options\From Active Workbook\All Sheets: nghĩa là bạn muốn chuyển mã cho tất cả các sheet trên Workbook hiện hành
- Nếu chọn Convert Options\From Files or Folders\From files: thì một cửa sổ Open File sẽ hiện ra, bạn có thể chọn 1 hoặc nhiều file và chương trình sẽ chuyển mã cho tất cả các file Excel đã chọn
- Nếu chọn Convert Options\From Files or Folders\Files in one folder: thì một cửa sổ chọn Folder sẽ hiện ra, bạn chọn folder nào thì chương trình sẽ chuyển mã cho tất cả các file Excel có trong folder đã chọn nhưng không bao gồm các file trong các thư mục con
- Nếu chọn Convert Options\From Files or Folders\Files in all folders: thì một cửa sổ chọn Folder sẽ hiện ra giống như mục trước nhưng lần này sau khi bạn chọn một Folder thì chương trình sẽ chuyển mã cho tất cả các file trong folder đã chọn, bao gồm các file trong các thư mục con
-----------
Test thử nhé. Có thể lưu thành AddIn sẽ dùng cho khỏe
File đính kèm
 
Lần chỉnh sửa cuối:
Tôi đã làm gần xong chương trình này nhưng còn chút rắc rối với phần giao diện. Xem hình:

View attachment 111697



















View attachment 111698


















Các bạn download file đính kèm dưới đây về và nghiên cứu giúp tôi chọn lựa 5 FaceId phù hợp nhất để gắn vào 5 ControlButton trên Toolbar nhé
(Tìm mấy cái FaceId này khá vất vả đây)

Theo ý của em thì giao diện mà thày đưa ra rất trực quan, dễ nhớ, nhìn biểu tượng cũng hiểu được ý nghĩa cách dùng rồi.
 
Theo ý của em thì giao diện mà thày đưa ra rất trực quan, dễ nhớ, nhìn biểu tượng cũng hiểu được ý nghĩa cách dùng rồi.

Vấn đề là tôi vẫn chưa tìm ra các biểu tượng (Icon) phù hợp nên vẫn thấy nó.. kỳ kỳ thế nào ấy
(mà mấy vụ thẩm mỹ này tôi hơi kém)
 
Vấn đề là tôi vẫn chưa tìm ra các biểu tượng (Icon) phù hợp nên vẫn thấy nó.. kỳ kỳ thế nào ấy
(mà mấy vụ thẩm mỹ này tôi hơi kém)

Không biết dùng từ nào diễn tả nữa! Tuyệt vời có thể thao tác với nhiều file, quan trọng nhất là trong Sheet có cả Times New Roman và .VnTime nó không hề bị một lỗi chút nào

-----
Nhưng nếu file đó nằm sâu ở thư mục con thì nó chưa chuyển được (em xin hỏi, nếu thêm chức năng đó vào có phức tạp lắm không?).
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom