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

Liên hệ QC
ca_dafi đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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)
 
thuannhpecc2 đã viết:
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)
Nhấp chuột vào đây để mở rộng...
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é!
 

File đính kèm

  • ChuHoaThuong.rar
    7.8 KB · Đọc: 252
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.
 
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.
 
sixas đã viết:
............ 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.
Nhấp chuột vào đây để mở rộng...

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.
 
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
user_online.gif
 
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à.
 
thuanduc08 đã viết:
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à.
Nhấp chuột vào đây để mở rộng...

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é!
 
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!
 

File đính kèm

  • test.xls
    13.5 KB · Đọc: 49
duongthithoi đã viết:
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ả.
Nhấp chuột vào đây để mở rộng...
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é!
 

File đính kèm

  • ChuHoaThuong.rar
    13.6 KB · Đọc: 171
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:

Mã: 
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!
 
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ứ.
 
Lần chỉnh sửa cuối:
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.
 
Lần chỉnh sửa cuối:
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.
 
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
 
chienxd5 đã viết:
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
Nhấp chuột vào đây để mở rộng...

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.
 
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
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

LuuAnh980
Vấn đề viết tắt trong Diễn Đàn.
    • Thích
Trả lời
4
Đọc
42
cantl
C
ann266
Kế toán kho F&B
    • Cười
2
Trả lời
21
Đọc
206
ann266
ann266
P
Hướng dẫn giải bài tập excel
Trả lời
2
Đọc
62
VetMini
V
T
Cần bạn viết phần mềm quản lý quán karaoke bằng excel
Trả lời
7
Đọc
160
VetMini
V
senna
  • Question
Xin giúp đỡ tổng hợp dữ liệu từ nhiều file vào 1 file mà không cần mở file
Trả lời
1
Đọc
66
tle2003
T
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom