chuyển số sang chữ bằng hàm excel

-

 sử dụng hàm sau

=IF(OR(LEN(FLOOR(A1,1))>=13,FLOOR(A1,1)<=0)+N(T("HocExcel.Online")),"Không thể đọc số",TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),1,1)+1,"","một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),2,1)+1,"",

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),2,1))>1,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,""," mốt"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),2,1))=0,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(A1>=10^9," tỷ%%% ",""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),4,1)+1,IF(AND(INT(A1)>1000000000,VALUE(MID(TEXT(INT(A1),REPT(0,12)),4,3))<>0),"không trăm ",""),"một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),5,1)+1,IF(AND(INT(A1)>100000000,VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,2))<>0),"@@@ ",""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))>1,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,""," mốt"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))=0,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),4,3))>0," triệu%%% ",""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),7,1)+1,IF(AND(INT(A1)>1000000,VALUE(MID(TEXT(INT(A1),REPT(0,12)),7,3))<>0),"không trăm ",""),"một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),8,1)+1,IF(AND(INT(A1)>100000,VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,2))<>0),"@@@ ",""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))>1,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,""," mốt"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))=0,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),7,3))," ###"&IF(--RIGHT(A1,3)=0," ","%%% "),""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),10,1)+1,IF(AND(INT(A1)>1000,VALUE(MID(TEXT(INT(A1),REPT(0,12)),10,3))<>0)+N(T("HocExcel.Online")),"không trăm ",""),"một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),11,1)+1,IF(AND(INT(A1)>10,VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,2))<>0),"@@@ ",""),

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"mười","mười một","mười hai","mười ba","mười bốn","mười lăm","mười sáu","mười bảy","mười tám","mười chín"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))>1,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,""," mốt"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))=0,

CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),""))),"@@@","linh"),"###","nghìn"),"%%%",", "),"  "," ")&" đồng"&T(N("HocExcel.Online: Có thể sửa tùy chọn @@@ linh, ### nghìn, %%% dấu phẩy, và bỏ đồng"))))



hiện tại mặc định ô hàm trên là ô A1 để chọn ô khác chỉ cần dán code trên vào ô excel sau đó nhấn ctrl + H ô trên để A1 ô dưới để ô cần chuyển



bài gốc

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

sửa lỗi máy in chia sẻ qua mạng

-
Hình ảnh
tải file này về  ( lỗi 1,2) 1 / Sửa lỗi 11b -           Chạy file xx11b trên máy chủ và khởi động lại máy là xong 2 / Sửa lỗi 0079 trên máy khách Chạy file Fix printer bằng quyền administrator Copy 3 file trong Spooler64 vào C\windows\system32 Vào services start spooler Đợi chút là xong, in bình thương. 3 / lỗi 0x0000006 xóa rồi cài lại máy in từ máy chủ sau đó chia sẻ lại máy in rồi kết nối 4/ lỗi  0x00000bc4  và  0x00000709 trên máy khách mở cmd bằng quyền administrantor và dán đoạn code này vào và enter reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\Printers\RPC” /v RpcUseNamedPipeProtocol /t REG_DWORD /d 1 /f nếu không được thì làm theo một số cách sau: bật hoặc tắt pass protected trong network; đặt pass máy tính hoặc pass network Sửa lỗi Máy in communication error Xóa Driver máy in: vào Run gỏ regedit —HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\USB Monitor và tìm t...
Đọc thêm

Lỗi chia sẻ mạng nội bộ máy nhìn được file, máy không nhìn được 0x800704f8

-
Hình ảnh
  "Windows cannot access \10.9.210.81" Mã lỗi: 0x800704f8 Lý do: Chính sách bảo mật của tổ chức chặn truy cập thư mục dùng chung qua tài khoản khách không xác thực. Cách khắc phục: Cách 1: Bật quyền truy cập khách trên máy chủ chia sẻ Truy cập máy chủ chia sẻ (máy có IP 10.9.210.81). Mở Group Policy Editor Nhấn Windows + R , nhập gpedit.msc , nhấn Enter . Đi đến: Computer Configuration → Administrative Templates → Network → Lanman Workstation . Tìm và bật tùy chọn: "Enable insecure guest logons" → Đặt thành Enabled . Khởi động lại máy và thử lại. Cách 2: Bật quyền truy cập khách trên máy khách (máy của bạn) Nếu bạn không có quyền thay đổi trên máy chủ, bạn có thể thử thay đổi trên máy của mình: Mở Registry Editor: Nhấn Windows + R , nhập regedit , nhấn Enter . Đi đến đường dẫn: HKEY_LOCAL_MACHINE\ SYSTEM \CurrentControlSet\Services\LanmanWorkstation\Parameters Tạo hoặc chỉnh sửa giá trị DWORD : Tên: AllowInsecureGuestAuth Giá trị: ...
Đọc thêm