Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Trang 2/8 đầuđầu 1 2 3 4 5 6 ... cuốicuối
Hiển thị kết quả tìm kiếm từ 11 đến 20 trên tổng số: 80
  1. #11
    Tham gia ngày
    07 2010
    Bài gởi
    430
    Cảm ơn
    1,516
    Được cảm ơn 233 lần trong 80 bài viết
    Trích Nguyên văn bởi ongtrungducmx25 View Post

    Phần mềm dùng để chuyển đổi bảng mã của font chữ dùng chuẩn hóa font sử dụng trong công ty trên Word, Excel,... Chuyển đổi báo cáo cho phần mềm Kế toán Effect.
    Cài đặt phầm mềm đối với máy tính cài bộ Office XP hoặc Office 2003
    Tải xuống và Copy bộ cài Uconvert 1.3 tại đây vào ổ đĩa D của máy tính.
    Hướng dẫn
    hoặc:
    http://www.mediafire.com/?hkyznkogzvz
    Phần mềm này nó chỉ chuyển được file Word thôi bác ah, em đã thử rồi file excel không chuyển được bác ah.

  2. #12
    Tham gia ngày
    08 2009
    Nơi Cư Ngụ
    Miền Tây quê hương tui
    Bài gởi
    1,009
    Cảm ơn
    1,655
    Được cảm ơn 1,147 lần trong 661 bài viết
    Trích Nguyên văn bởi nguyenmanhnam View Post
    Sao em chạy nó cứ đứng im không chạy được ah.
    Em gửi fie lên bác thử giúp hộ em nhé.
    Mình mới test thử thì thấy file của bạn có 2 font chữ .VnTime, .VnTimeH. Nếu bạn tạo file mới copy qua rồi chọn lại font .VnTime hết lưu lại thì không có vấn đề gì. Mà bạn dùng Add-in trến TVExcel01 của thấy PhamDuyLong đi chuyển với tốc độ khá nhanh đó. File này mình dùng add in chuyển
    Tập tin đính kèm Tập tin đính kèm
    Sông nước Miền Tây

  3. Thành viên sau cảm ơn nmhung49 về bài viết này:


  4. #13
    Tham gia ngày
    07 2010
    Bài gởi
    430
    Cảm ơn
    1,516
    Được cảm ơn 233 lần trong 80 bài viết
    Trích Nguyên văn bởi nmhung49 View Post
    Mình mới test thử thì thấy file của bạn có 2 font chữ .VnTime, .VnTimeH. Nếu bạn tạo file mới copy qua rồi chọn lại font .VnTime hết lưu lại thì không có vấn đề gì. Mà bạn dùng Add-in trến TVExcel01 của thấy PhamDuyLong đi chuyển với tốc độ khá nhanh đó. File này mình dùng add in chuyển
    File của thày em đã dùng rồi, em vẫn để trong máy. Nhưng cái em cần là chuyển tất cả các file (nhiều file một lúc) trong 1 Folder chỉ bằng một động tác thôi.

  5. #14
    Tham gia ngày
    02 2008
    Nơi Cư Ngụ
    Mường La, Sơn La
    Bài gởi
    1,387
    Cảm ơn
    2,920
    Được cảm ơn 2,240 lần trong 916 bài viết
    Trích Nguyên văn bởi nguyenmanhnam View Post
    Sao em chạy nó cứ đứng im không chạy được ah.
    Em gửi fie lên bác thử giúp hộ em nhé.
    Tôi dùng XP2003 khi Conver file của bạn sang file xls thì OK mà.
    File của tôi (file mở) thì đương nhiên nó đứng im nhưng tất cả các file khác (file "không mở") của bạn có trong cùng thư mục thì đã chuyển sang Unicode... theo đúng yêu cầu của bạn. Bạn thử kiểm tra lại xem có đúng như vậy không nha, chờ hồi âm của bạn ?

    Lưu ý: phải làm đúng như tôi hướng dẫn ở bài trên (File của tôi và file của bạn phải trong cùng thư mục con)
    thay đổi nội dung bởi: TrungChinhs, 01-10-11 lúc 06:33 AM
    Hỏi thì ngại mọi người chê mình dốt mà không hỏi thì sẽ dốt cả đời ???. Học hỏi là để vượt qua chính mình.

  6. Thành viên sau cảm ơn TrungChinhs về bài viết này:


  7. #15
    Tham gia ngày
    08 2008
    Bài gởi
    565
    Cảm ơn
    1,785
    Được cảm ơn 305 lần trong 75 bài viết
    Trích Nguyên văn bởi TrungChinhs View Post
    Hôm nay mới đọc bài này. Nếu bạn chưa tìm được phần mềm nào ưng ý thì dùng thử File này xem (mới làm chưa test vì trong máy tôi không có file TCVN3).
    Cách sử dụng: Bạn tạo một thư mục mới để thử. Copy file này và những file bạn muốn chuyển Font TCVN3 -> Unicode thả vào. Mở file này và nhấn nút. Nếu có nhiều file dung lượng lớn thì pha cốc Cafe đợi... có gì trục trặc báo lại cho tôi biết.
    Chúc thành công !
    Cái của bác rất tiện. Tuy nhiên, em khi ứng dụng em thấy:

    1. Trường hợp nếu Font nguồn là Vn.TimeH thì khi chuyển chữ nó lại tự động chuyển sang chữ thường, nhưng mục đích của em là muốn nó chuyển sang CHỮ HOA, cái này em thấy tiện ích của chị Phan Ngọc Lan tại địa chỉ: http://www.giaiphapexcel.com/forum/s...93n-m%E1%BB%9F! làm rât tốt,

    2. Font chữ sau khi chuyển đổi chuyển sang tahoma (em muốn chuyển sang Times New Roman).

    Nếu có thể sửa được xin bác giúp cho, vì em đang tập tọe chưa biết nhiều về những vấn đề này. Cảm ơn bác rất nhiều.

  8. #16
    Tham gia ngày
    08 2008
    Bài gởi
    565
    Cảm ơn
    1,785
    Được cảm ơn 305 lần trong 75 bài viết

    Giúp em cách chuyển từ Vn.TimeH sang Times New Roman vẫn giữ được CHỮ HOA

    Từ Code của bác TrungChinh để sửa chuyển từ Vn.Time sang Times New Roman
    PHP Code:
    Const CodUni "225  224  7843 227  7841 259  7855 7857 7859 7861 7863 226  7845 7847 7849 7851 7853 233  232  7867 7869 7865 234  7871 7873 7875 7877 7879 237  236  7881 297  7883 243  242  7887 245  7885 244  7889 7891 7893 7895 7897 417  7899 7901 7903 7905 7907 250  249  7911 361  7909 432  7913 7915 7917 7919 7921 253  7923 7927 7929 7925 273  193  193  192  192  7842 7842 195  195  7840 7840 258  258  7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194  194  7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201  201  200  200  7866 7866 7868 7868 7864 7864 202  202  7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205  204  7880 296  7882 211  211  210  210  7886 7886 213  213  7884 7884 212  212  7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416  7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218  218  217  217  7910 7910 360  360  7908 7908 431  7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221  221  7922 7922 7926 7926 7928 7928 7924 272  "
    Const StrVn3 "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝ×ØÜÞãßáâä«èåæçé¬íêëìîóïñòô­øõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝ×ØÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§"
    Function Vn3Uni(chuoi As String) As String
        On Error Resume Next
        
    For 1 To Len(chuoi)
            
    kytu Mid(chuoii1)
            
    vitri InStr(1StrVn3kytu0)
            If 
    vitri 0 Then
                chuoimoi 
    chuoimoi ChrW(Mid(CodUnivitri 45))
            Else
                
    chuoimoi chuoimoi kytu
            End 
    If
        
    Next
        Vn3Uni 
    chuoimoi
    End 
    Function
    Sub Unicode()
        
    On Error Resume Next
        Application
    .ScreenUpdating False
        Dim myCell 
    As RangemyFont As String
        ActiveSheet
    .[a1].SpecialCells(22).Select
        
    For Each myCell In Selection
            
    If myCell.Value <> "" Then
                myFont 
    myCell.Font.Name
                
    If Left(myFont3) = ".Vn" Then
                    myCell 
    Vn3Uni(myCell.Value)
                
    End If
            
    End If
        
    Next
        Cells
    .Font.Name "tahoma"
    End Sub 
    em đã mày mò và sửa đoạn Cells.Font.Name = "tahoma" thành Cells.Font.Name =Times New Roman và đã được.

    Nhưng em thắc mắc là để chuyển từ Font Vn.TimeH sang Times New Roman mà vẫn giữ được chữ HOA mà không phải chữ thường thì phải làm sao ah?

  9. #17
    Tham gia ngày
    06 2008
    Bài gởi
    23,745
    Cảm ơn
    13,608
    Được cảm ơn 42,254 lần trong 19,141 bài viết
    Trích Nguyên văn bởi Dauthivan View Post
    em đã mày mò và sửa đoạn Cells.Font.Name = "tahoma" thành Cells.Font.Name =Times New Roman và đã được.

    Nhưng em thắc mắc là để chuyển từ Font Vn.TimeH sang Times New Roman mà vẫn giữ được chữ HOA mà không phải chữ thường thì phải làm sao ah?
    Nếu là font .Vn....H thì sẽ có dạng ".Vn*H", đúng không? (có chữ H ở cuối)
    Vậy thì giải thuật sẽ là: Nếu font name có dạng ".Vn*H" thì UCase(Cell)
    PHP Code:
    If myCell.Value <> "" Then
      myFont 
    myCell.Font.Name
      
    If Left(myFont3) = ".Vn" Then
        
    If myFont Like ".Vn*H" Then
          myCell 
    UCase(Vn3Uni(myCell.Value))
        Else
          
    myCell Vn3Uni(myCell.Value)
        
    End If
      
    End If
    End If 
    Tôi chưa thử nhưng nghĩ như vậy đấy ---> Bạn test xem thế nào nhé

  10. Có 2 thành viên cảm ơn ndu96081631 về bài viết này:


  11. #18
    Tham gia ngày
    08 2008
    Bài gởi
    565
    Cảm ơn
    1,785
    Được cảm ơn 305 lần trong 75 bài viết

    File gần như hoàn thiện rồi, chỉ còn Font chữ nằm ở trong công thức là không chuyển

    Trích Nguyên văn bởi ndu96081631 View Post
    Nếu là font .Vn....H thì sẽ có dạng ".Vn*H", đúng không? (có chữ H ở cuối)
    Vậy thì giải thuật sẽ là: Nếu font name có dạng ".Vn*H" thì UCase(Cell)
    PHP Code:
    If myCell.Value <> "" Then
      myFont 
    myCell.Font.Name
      
    If Left(myFont3) = ".Vn" Then
        
    If myFont Like ".Vn*H" Then
          myCell 
    UCase(Vn3Uni(myCell.Value))
        Else
          
    myCell Vn3Uni(myCell.Value)
        
    End If
      
    End If
    End If 
    Tôi chưa thử nhưng nghĩ như vậy đấy ---> Bạn test xem thế nào nhé
    Em chạy về cơ bản là chuẩn thày ah, cụ thể Code sau khi em sửa như sau:

    1. Module_Open_Close

    PHP Code:
    Sub Open_Close_File()
    Application.ScreenUpdating False
    Application
    .DisplayAlerts False
    On Error Resume Next
        MyPath 
    ThisWorkbook.Path
        Set MyFoldres 
    CreateObject("Scripting.FileSystemObject").GetFolder(MyPath).Files
        
    For Each MyFile In MyFoldres
            Workbooks
    .Open MyFile
            Call Unicode
            With ActiveWorkbook
                
    .Save
                
    .Close
            End With
        Next
    End Sub 
    2. Module_Unicode: sau khi cập nhật phần sửa của thày:

    PHP Code:
    Const CodUni "225  224  7843 227  7841 259  7855 7857 7859 7861 7863 226  7845 7847 7849 7851 7853 233  232  7867 7869 7865 234  7871 7873 7875 7877 7879 237  236  7881 297  7883 243  242  7887 245  7885 244  7889 7891 7893 7895 7897 417  7899 7901 7903 7905 7907 250  249  7911 361  7909 432  7913 7915 7917 7919 7921 253  7923 7927 7929 7925 273  193  193  192  192  7842 7842 195  195  7840 7840 258  258  7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194  194  7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201  201  200  200  7866 7866 7868 7868 7864 7864 202  202  7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205  204  7880 296  7882 211  211  210  210  7886 7886 213  213  7884 7884 212  212  7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416  7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218  218  217  217  7910 7910 360  360  7908 7908 431  7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221  221  7922 7922 7926 7926 7928 7928 7924 272  "
    Const StrVn3 "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝ×ØÜÞãßáâä«èåæçé¬íêëìîóïñòô­øõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝ×ØÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§"
    Function Vn3Uni(chuoi As String) As String
        On Error Resume Next
        
    For 1 To Len(chuoi)
            
    kytu Mid(chuoii1)
            
    vitri InStr(1StrVn3kytu0)
            If 
    vitri 0 Then
                chuoimoi 
    chuoimoi ChrW(Mid(CodUnivitri 45))
            Else
                
    chuoimoi chuoimoi kytu
            End 
    If
        
    Next
        Vn3Uni 
    chuoimoi
    End 
    Function
    Sub Unicode()
        
    On Error Resume Next
        Application
    .ScreenUpdating False
        Dim myCell 
    As RangemyFont As String
        ActiveSheet
    .[a1].SpecialCells(22).Select
        
    For Each myCell In Selection
            
    If myCell.Value <> "" Then
      myFont 
    myCell.Font.Name
      
    If Left(myFont3) = ".Vn" Then
        
    If myFont Like ".Vn*H" Then
          myCell 
    UCase(Vn3Uni(myCell.Value))
        Else
          
    myCell Vn3Uni(myCell.Value)
        
    End If
      
    End If
    End If
        
    Next
        Cells
    .Font.Name "Times New Roman"
    End Sub 
    Tuy nhiên, nó còn chưa hoàn thiện khi font chữ nằm trong công thức là chưa được:
    Ví dụ: Công thức tại ô C277 của em viết dưới font TCVN là:

    IF(C272=C276;"Qu¸ chuÈn"; "H·y xem l¹i nghiÖp vô b¹n ®· nhËp")
    Sau khi chạy nó không chuyển Font phần em bôi đậm màu đỏ ở trên. Vậy mình sẽ phải hoàn thiện thế nào ah.
    thay đổi nội dung bởi: Dauthivan, 28-12-11 lúc 02:36 PM

  12. #19
    Tham gia ngày
    06 2008
    Bài gởi
    23,745
    Cảm ơn
    13,608
    Được cảm ơn 42,254 lần trong 19,141 bài viết
    Trích Nguyên văn bởi Dauthivan View Post
    Em chạy về cơ bản là chuẩn thày ah,
    Tuy nhiên, nó còn chưa hoàn thiện khi font chữ nằm trong công thức là chưa được:
    Ví dụ: Công thức tại ô C277 của em viết dưới font TCVN là:

    IF(C272=C276;"Qu¸ chuÈn"; "H·y xem l¹i nghiÖp vô b¹n ®· nhËp")
    Sau khi chạy nó không chuyển Font phần em bôi đậm màu đỏ ở trên. Vậy mình sẽ phải hoàn thiện thế nào ah.
    Chổ nào là myCell.Value hãy sửa thành myCell.Formula xem thế nào nhé
    Ngoài ra, đoạn ActiveSheet.[a1].SpecialCells(2, 2).Select là chỉ chọn cell không chứa công thức, bạn nên sửa thành ActiveSheet.UsedRange.Select
    thay đổi nội dung bởi: ndu96081631, 28-12-11 lúc 03:17 PM

  13. Có 2 thành viên cảm ơn ndu96081631 về bài viết này:


  14. #20
    Tham gia ngày
    08 2008
    Bài gởi
    565
    Cảm ơn
    1,785
    Được cảm ơn 305 lần trong 75 bài viết
    Trích Nguyên văn bởi ndu96081631 View Post
    Chổ nào là myCell.Value hãy sửa thành myCell.Formula xem thế nào nhé
    Ngoài ra, đoạn ActiveSheet.[a1].SpecialCells(2, 2).Select là chỉ chọn cell không chứa công thức, bạn nên sửa thành ActiveSheet.UsedRange.Select
    Rất chuẩn rồi thày ah, tối em sẽ Test thêm một số ví dụ nữa để kiểm tra độ an toàn của nó 1 lần nữa. Code sau khi em sửa là:
    PHP Code:
    Const CodUni "225  224  7843 227  7841 259  7855 7857 7859 7861 7863 226  7845 7847 7849 7851 7853 233  232  7867 7869 7865 234  7871 7873 7875 7877 7879 237  236  7881 297  7883 243  242  7887 245  7885 244  7889 7891 7893 7895 7897 417  7899 7901 7903 7905 7907 250  249  7911 361  7909 432  7913 7915 7917 7919 7921 253  7923 7927 7929 7925 273  193  193  192  192  7842 7842 195  195  7840 7840 258  258  7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194  194  7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201  201  200  200  7866 7866 7868 7868 7864 7864 202  202  7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205  204  7880 296  7882 211  211  210  210  7886 7886 213  213  7884 7884 212  212  7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416  7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218  218  217  217  7910 7910 360  360  7908 7908 431  7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221  221  7922 7922 7926 7926 7928 7928 7924 272  "
    Const StrVn3 "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝ×ØÜÞãßáâä«èåæçé¬íêëìîóïñòô­øõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝ×ØÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§"
    Function Vn3Uni(chuoi As String) As String
        On Error Resume Next
        
    For 1 To Len(chuoi)
            
    kytu Mid(chuoii1)
            
    vitri InStr(1StrVn3kytu0)
            If 
    vitri 0 Then
                chuoimoi 
    chuoimoi ChrW(Mid(CodUnivitri 45))
            Else
                
    chuoimoi chuoimoi kytu
            End 
    If
        
    Next
        Vn3Uni 
    chuoimoi
    End 
    Function
    Sub Unicode()
        
    On Error Resume Next
        Application
    .ScreenUpdating False
        Dim myCell 
    As RangemyFont As String
        ActiveSheet
    .UsedRange.Select
        
    For Each myCell In Selection
            
    If myCell.Formula <> "" Then
      myFont 
    myCell.Font.Name
      
    If Left(myFont3) = ".Vn" Then
        
    If myFont Like ".Vn*H" Then
          myCell 
    UCase(Vn3Uni(myCell.Formula))
        Else
          
    myCell Vn3Uni(myCell.Formula)
        
    End If
      
    End If
    End If
        
    Next
        Cells
    .Font.Name "Times New Roman"
    End Sub 
    Em xin được hỏi ra khỏi chủ đề một chút, sao file em thử nghiệm em đặt tên nó là "Test thu" thì nó không chuyển là sao hả thày?
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: Dauthivan, 28-12-11 lúc 05:50 PM Lý do: thay file đính kèm đã lỗi

Trang 2/8 đầuđầu 1 2 3 4 5 6 ... cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]