Phiên bản mới – Đổi chữ hoa chữ thường (giống trong Word ấn Shift+F3)

Chia sẻ bởi:hands

★★★★★

‹ Tra từ bamboo với Word và Excel Chương trình tự động làm giấy mời... ›

Quảng cáo

Chào các anh chị và các bạn.
Em gửi lên Add-Ins đã bổ sung một số tính năng như sau:

– Đọc số ra chữ bằng tiếng Anh
– Đọc số ra chữ bằng tiếng Việt (Unicode)
Cú pháp:

=USD(SốTiền)
=VND(Sốtiền)

– Đổi chữ hoa thành chữ thường (đã bổ sung chức năng nhận diện ô có công thức thì không chuyển đổi), phím tắt như sau:

Ctrl+Shift+H – CHUYỂN TẤT CẢ THÀNH CHỮ HOA
Ctrl+Shift+T – chuyển tất cả thành chữ thường
Ctrl+Shift+K – Chuyển Tất Cả Thành Chữ Hoa Đầu Mỗi Từ
Ctrl+Shift+F – Chuyển tất cả thành chữ hoa đầu dòng thôi.

Các bạn giải nén file .xla này vào một thư mục (thư mục nào cũng được, nếu share chung trong mạng LAN thì nên lưu vào thư mục chung trên mạng).
– Mở file excel bất kỳ, chọn Tool/Add-Ins…
– Trong cửa sổ Add-Ins, bạn chọn Browse…, chọn đúng địa chỉ lưu file xla này.
– Vậy là ta đã đăng ký một Add-Ins tự tạo vào excel, bây giờ mỗi lần khởi động excel thì add-Ins này khởi động theo. Bạn có thể sử dụng các chức năng của add-ins này trên tất cả các workbook.

Nguyên văn bởi honghanhbt
Bạn ui, mình không đổi được sang chữ hoa đầu dòng… thế là sao vậy? Help…

Bạn thực hiện các bước đăng ký Add-Ins như trên rồi chọn (chiếu sáng) ô nào cần chuyển rồi ấn Ctrl+Shift+F để chuyển thành chữ hoa đầu câu/dòng nhé.

Nguyên văn bởi health
Đọc số ra chữ bằng tiếng Anh
– Đọc số ra chữ bằng tiếng Việt (Unicode) là sao mình không hiểu,lam theo như cách bạn hướng dẫn thì không được,bạn cho ví dụ cụ thể giùm mình được không.Cảm ơn bạn.

Đọc số ra chữ bằng tiếng Anh, ví dụ:

Bằng số: 1,500 USD
Bằng chữ: One thousand fifty USD only

Đọc số ra chữ bằng Tiếng Việt (chỉ hỗ trợ sử dụng font và bộ gõ UniCode), ví dụ:

Bằng số: 1,500,000 VND
Bằng chữ: Một triệu năm trăm ngàn đồng chẵn

Mời các anh chị và các bạn xem file đính kèm. Đây là sản phẩm tổng hợp từ các bài viết của các thành viên GPE. Xin cảm ơn diễn đàn.

Bổ sung

Chúc mừng Kiệt đã có một addin rất tiện dụng cho cộng đồng Excel! Vừa test thử mình thấy rất hay nhưng vẫn còn một số vấn đề cần bổ sung thêm để hoàn thiện hơn nữa.

+ Nếu không có workbook nào được mở thì bị lỗi.
+ Nếu các đối tượng được chọn là các hình vẽ, TextBox, các đối tượng Shape báo lỗi. Hơn nữa, các đối tượng này có chữ bên trong nên cũng cần được chuyển như với đối tượng Range.

Mình xin gợi ý một giải pháp và thêm vào thủ tục ChuThuong của Kiệt như sau:
Sub ChuThuong()
    Dim objSel As Object
    Dim objName As String

[COLOR="SeaGreen"] 'Kiểm tra đối tượng đượ chọn không[/COLOR]
    If Selection Is Nothing Then
        MsgBox "Khong co vung du lieu duoc chon.", vbCritical, "Khong co du lieu"
        Exit Sub
    End If

Set objSel = Selection
    objName = TypeName(objSel)

[COLOR="SeaGreen"]'Làm việc với các đối tượng Shape, TextBox, Rectangle,... được chọn[/COLOR]
    If objName = "TextBox" Or objName = "Rectangle" Then
        objSel.Text = LowerUni(objSel.Text)
        Exit Sub
    End If

If objName <> "Range" Then
        MsgBox "Vung lua chon khong phu hop.", vbCritical, "Sai kieu doi tuong"
        Exit Sub
    End If
    [COLOR="SeaGreen"]'Thực hiện với khối ô được chọn[/COLOR]
    For Each clls In objSel
        If clls.HasFormula = False Then
            clls.Value = LowerUni(clls.Text)
        End If
    Next clls

End Sub
Thủ tục trên sẽ làm việc được tất cả với các đối tượng được chọn là Range, TextBox, các đối tượng vẽ có chữ, và không gây lỗi.

Chúc addin của Kiệt ngày càng hoàn thiện!

www.giaiphapexcel.com/diendan/threads/phi%C3%AAn-b%E1%BA%A3n-m%E1%BB%9Bi-%C4%90%E1%BB%95i-ch%E1%BB%AF-hoa-ch%E1%BB%AF-th%C6%B0%E1%BB%9Dng-gi%E1%BB%91ng-trong-word-%E1%BA%A5n-shift-f3.11874/