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

[thuannhpecc2]

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:


- Đổ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:


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ạn ơn sao minh sử dụng chuong trình đổi chữ hoa ra thường nó báo lỗi cho này vậy ban
Clls.Value = UpperUni(Clls.Text)

 

[ongtrungducmx25]

Bạn ơn sao minh sử dụng chuong trình đổi chữ hoa ra thường nó báo lỗi cho này vậy ban
Clls.Value = UpperUni(Clls.Text)

bạn mình dùng vẫn chạy ngon lành mà mượn lại file của ca_dafi nhé! mình chỉ bỏ phần đọc số thành chử thôi nhé!

 

[sixas]

Hi Ca_dafi,

Add-in này rất hay. Cám ơn em.

Nhưng, anh có 2 câu hỏi nhỏ nhờ em tư vấn:
1. Add-in này để ở thư mục nào đó, thì mình có thể xóa hay chuyển file đi chỗ khác ko, khi đó excel có "hiểu" ko?
2. Mình gởi file cho người khác, có sử dụng công thức =USD() hay =VND() thì người ta cần phải cài đặt Add-in này vô máy mới thấy được? Có cách nào gởi đi thì tự động cập nhật vào máy người nhận ko?

Cám ơn nhiều.

 

[sealand]

Nếu không dùng Add_In thì chép luôn đoạn code của Ca_dafi vào code của bạn thì mang file đi bất cứ đâu cũng ổn.

 

[cadafi]

............ anh có 2 câu hỏi nhỏ nhờ em tư vấn:
1. Add-in này để ở thư mục nào đó, thì mình có thể xóa hay chuyển file đi chỗ khác ko, khi đó excel có "hiểu" ko?
2. Mình gởi file cho người khác, có sử dụng công thức =USD() hay =VND() thì người ta cần phải cài đặt Add-in này vô máy mới thấy được? Có cách nào gởi đi thì tự động cập nhật vào máy người nhận ko?
Cám ơn nhiều.

1. Add-Ins này anh có thể để ở đâu tùy ý và khai báo trong Tool/Add-Ins/Browse.... Tuy nhiên sau khi khai báo rồi, nếu di chuyển add-Ins đi chỗ khác thì phải khai báo lại, excel không tự hiểu.

2. Anh có thể copy đoạn code chuyển số thành chữ vào Module của file anh cần gửi đi để ai đó nhận được file này đều có thể đọc và sử dụng được hai hàm này.

Một cách nữa, nếu sử dụng chung mạng LAN trong nội bộ công ty, anh có thể share Add-Ins này trên một thư mục Public mà user nào cũng có thể sử dụng được, và chỉ cần khai báo Add-ins, chỉ đường dẫn đến thư mục Public này là xong.

 

[ongtrungducmx25]

mình chỉ thất mất một điều tại sao không làm luôn phần sắp xếp họ tên bằng phím tất nhỉ anh ca_dafi

 

[thuanduc08]

Thank ca_... rất tuyệt vời, cái này phải viết ở đâu vậy có phải bằng Access không bạn, tớ muốn làm menu cho chương trình quản lý của tớ mà.

 

[cadafi]

Thank ca_... rất tuyệt vời, cái này phải viết ở đâu vậy có phải bằng Access không bạn, tớ muốn làm menu cho chương trình quản lý của tớ mà.

Cảm ơn bạn. Chương trình này viết bằng VBA excel (cũng tương tự trên Access), bãn mở file lên và ấn Alt+F11 để vào trình soạn thảo VBA và xem code trong đó nhé!

 

[cadafi]

Khổ thật, tải về rồi mà không biết xài làm sao ?
Có ai làm ơn không ?

Bạn đọc hướng dẫn tại bài số #7 nhé!
http://www.giaiphapexcel.com/forum/showpost.php?p=84530&postcount=7

 

[nguyentieu]

Tình hình là khi Alt + Enter một đoạn text trong 1 cell thì dùng cú pháp Ctrl + Shift + K thì nó chỉ hiện ra giống chỉ có 1 chữ in đầu.
E có tải file lên.
A kiểm dùm e nhé, add-in này thật là tiện lợi.
Thanks!

 

[cadafi]

Em đã tải FILE của chị Cadafi về dùng thử, nhưng có một chút vấn đề em muốn hỏi. Khi em dùng hàm =vnd() thì nó đọc số ra chữ nhưng sao lại bị sai lỗi chính tả chữ "bảy" mà phần mềm lại đọc là "bẩy" rất mong các anh chị hướng dẫn em làm thế nào để sửa lỗi chính tả.

Bạn ấn Alt+F11 để vào trình soạn thào VBA, tìm trong Module chuỗi ký tự này (Ấn Ctrl+F để tìm):
ChrW$(7849) và thay bằng ChrW$(7843) nhé.

Hoặc có thể tải lại file tại đây nhé!

 

[Nguyễn Duy Tuâ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!

 

[paulsteigel]

Cùng nhau bắt tay xây dựng bộ công cụ văn phòng tổng hợp

'==========================================================
Đây là địa chỉ bản cập nhật mới nhất của công cụ chuyển bảng mã
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=47025&d=1275811516
'==========================================================

Mình nhận thấy mọi người đang rất say mê và nỗ lực để đóng góp cho cộng đồng. Cũng đã lâu không có gì để đóng góp, hôm nay đọc bài này của Kiệt và xem qua Addin của bạn, mình chợt nghĩ, có lẽ chúng ta nên chọn lọc tất cả các công cụ tiện dụng và đưa vào 1 Addin.
Với ý tưởng đó, tôi ngồi suốt tối và tìm lại tất cả những gì mình đã làm, kết hợp với một số phần của người khác, xin tổng hợp thành 1 Add in chung có các công cụ sau:
1. Chuyển bảng mã, hỗ trợ tự động đoán mã (phần này chắc cần sửa nhiều)
Phím nóng Ctrl+Shift+C
2. Chuyển bảng mã của OverAC
3. Chuyển chữ hoa/ thường
4. In lịch âm dương
5. Tra từ điển ...vvv
và một vài công cụ chưa tổng hợp hết.
Mặc dù sản phẩm còn nhiều lỗi nhưng tôi cũng rất hy vọng là sẽ giúp gì cho các bạn.
Để thỏa mãn chủ đề tôi vừa đề nghị mọi người tham gia, rât mong các bạn cùng chia sẻ các đoạn mã hay của các bạn và lồng ghép thêm hoặc sửa lại những đoạn code chưa rõ ràng.
Nếu như thế, chúng ta có thể xây dựng được một bộ công cụ khá đầy đủ giúp cho dân văn phòng.
Nếu bài này của tôi không phù hợp với ý tưởng của các bạn thì cũng rất mong mọi người lượng thứ.

 

[cadafi]

em da dowload file chuhoathuong.rar cua chi ve roi nhung ko add-ins duoc chi cho em file chuhoathuong.xla duoc ko?

Bạn xem hướng dẫn tại bài số 7 nhé!
Bạn nhớ viết tiếng việt có dấu nhé!

 

[paulsteigel]

Tính năng các bạn yêu cầu đã được bổ sung vào công cụ chuyển mã
Các bạn có thể tải về tại đây
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=47025&d=1275811516
Hoặc giở lại bài đã đăng trước!
Xin lỗi các bạn vì mình thường thay đổi phiên bản mới bằng cách đè lên bản cũ, vì thế link đến File đính kèm cũng thay đổi và chưa kịp cập nhật.

 

[jul12st83]

Mình muốn thêm để chuỗi số đọc dài hơn 15 ký tự thì sửa như thế nào. Mình làm bên kho bạc nên số tiền bên mình cần đọc là rất lớn. Vậy xin mọi người chỉ giáo giúp để mình có thể làm cho chuỗi số đọc dài hơn. Hoặc bạn nào có tài liệu cụ thể về viết ad-ins cho excel thì gửi cho mình xin nhé, email của mình là jul12st83@gmail.com...
Xin cảm ơn mọi người nhiều.

 

[chienxd5]

cảm ơn bạn nhé. mình tải về rồi nhưng mình dùng thì vẫn bị lỗi fons bạn à. có cách nào để khắc phục lỗi này không vậy?
ví dụ: nguyễn thị quỳnh hoa -Nguỵun Thỵ Quỳnh Hoa

 

[ptlong04x1]

cảm ơn bạn nhé. mình tải về rồi nhưng mình dùng thì vẫn bị lỗi fons bạn à. có cách nào để khắc phục lỗi này không vậy?
ví dụ: nguyễn thị quỳnh hoa -Nguỵun Thỵ Quỳnh Hoa

Bạn sử dụng Add-in với Font Unicode nhé, có thể dùng Unikey để convert sang Unicode sau đó chạy Add-in.

 

[huynhbinh]

Sao mình chuyển font không được
Bạn có cách nào chỉ dẫn cụ thể không. Minh add add-in vào rồi nhưng chuyển font ko được

 

[paulsteigel]

Không biết bạn dùng Addin nào, nếu là Addin trong link
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=47025&d=1275811516
thì bạn cần theo hướng dẫn sử dụng trong link này
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=39493&d=1261914216
Còn addin của cadafi thì bạn xem trong bài trả lời số 7 nhé.