Lỗi khi đổi số ra chữ bi sai.

Liên hệ QC
0

0944956879

Thành viên mới
Tham gia
22/12/11
Bài viết
8
Được thích
1
Khi đổi từ chữ sang số đọc không đúng giá trị của số tiền, bác nào rành chỉ dùm e phat. thanks
 

File đính kèm

File đính kèm

Lần chỉnh sửa cuối:
0944956879 đã viết:
day ca file nhu vay ban xem dum xem sai o cho nao ma doi ra chu bi sai hoai
Nhấp chuột vào đây để mở rộng...

Tôi đã nói:

LƯU Ý: Phải gõ chữ có dấu Tiếng Việt!
Nhấp chuột vào đây để mở rộng...

Tôi nghĩ bạn sửa lại các bài viết thiếu dấu tiếng Việt, sau đó tôi hoặc mọi người sẽ chỉ cho bạn chỗ mà bạn bị sai. Hoặc là bài của bạn chờ bị xóa đi.


Lưu ý khi gửi bài:
- Bài viết không dấu Tiếng Việt sẽ bị xóa
- Đặt tựa đề theo sát nội dung câu hỏi/ trả lời. Các bài viết có tựa đề chung chung như
Help me, cứu cứu, cứu em, gấp gấp,... sẽ bị xoá
- Giải thích/ mô tả câu hỏi càng chi tiết càng tốt
- Nên gửi thêm tập tin Excel kèm chú thích về câu hỏi nếu có
Xem thêm Nội Quy Diễn Đàn
​
 
Lần chỉnh sửa cuối:
Bác nào giỏi Excel giúp e với mấy bác

Hoàng Trọng Nghĩa đã viết:
Tôi đã nói:



Tôi nghĩ bạn sửa lại các bài viết thiếu dấu tiếng Việt, sau đó tôi hoặc mọi người sẽ chỉ cho bạn chỗ mà bạn bị sai. Hoặc là bài của bạn chờ bị xóa đi.


Lưu ý khi gửi bài:
- Bài viết không dấu Tiếng Việt sẽ bị xóa
- Đặt tựa đề theo sát nội dung câu hỏi/ trả lời. Các bài viết có tựa đề chung chung như
Help me, cứu cứu, cứu em, gấp gấp,... sẽ bị xoá
- Giải thích/ mô tả câu hỏi càng chi tiết càng tốt
- Nên gửi thêm tập tin Excel kèm chú thích về câu hỏi nếu có
Xem thêm Nội Quy Diễn Đàn
​
Nhấp chuột vào đây để mở rộng...
Vội quá quên mất không viết có dấu, muốn sửa lại ko có được. Bác sửa lại giúp e phát nhé :D
 
Tôi thấy không sai chổ nào cả. Hình như đơn giá bạn bị sai thì phải???
 

File đính kèm

Lỗi

Hoàng Trọng Nghĩa đã viết:
Trước khi nói điểm sai của bạn, cho tôi hỏi, bạn có số tổng trong bài này là 1,877.600 là 1 ngàn 8 trăm 77 chấm 600 phải không? Hay bạn cho số đó là 1 triệu 8 trăm 77 ngàn ...?
Nhấp chuột vào đây để mở rộng...
số đó phải là một triệu tám trĂM bảy mươi bảy nghìn.... e muốn sửa thế đấy bác ạ
 
Hoàng Trọng Nghĩa đã viết:
Vâng, đó bài sau, bạn thử tải về tại bài này xem có lỗi không?

http://www.giaiphapexcel.com/forum/...-khi-đổi-số-ra-chữ-bi-sai&p=442492#post442492


Cái sai cơ bản của bài này là định dạng font! Lúc thì font UNICODE, lúc thì font VNI nên cứ rối tung lên! Đã thế code bị sai.
Nhấp chuột vào đây để mở rộng...
Minh không nói Nghĩa, mình nói chủ topic kìa, giá sai mà bắt hàm đúng làm sao được (đơn vị tính đấy)
 
0944956879 đã viết:
số đó phải là một triệu tám trĂM bảy mươi bảy nghìn.... e muốn sửa thế đấy bác ạ
Nhấp chuột vào đây để mở rộng...

Nếu như vậy thì một là bạn phải sửa lại bảng đơn giá, hai là công thức trong bảng Phiếu giao hàng, cột đơn giá phải như vầy:

=VLOOKUP($C8,'MA HANG'!$B$6:$G$81,4,0)*1000

Hàm DocSo của bạn bị sai do bạn chép bị sai nên tôi sửa lại tí. Với hàm này chỉ sử dụng cho Unicode nên bạn phải định dạng ở font Unicode mới thực hiện đúng.

PHP: 
Function DocSo(Number) As String
    Dim MyArray, Str
    Str = Format(Abs(Number), "000000000000000000")
    MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", _
                    "n" & ChrW(259) & "m ", "sáu ", "b" & ChrW(7843) & "y ", "tám ", "chín ", _
                    "tri" & ChrW(7879) & "u, ", "ngàn, ", "t" & ChrW(7927) & ", ", _
                    "tri" & ChrW(7879) & "u, ", "ngàn, ", "", "tr" & ChrW(259) & "m ", _
                    "m" & ChrW(432) & ChrW(417) & "i ", "không " & "m" & ChrW(432) & ChrW(417) & "i" & " không ", _
                    "không " & "m" & ChrW(432) & ChrW(417) & "i", "l" & ChrW(7867), _
                    "m" & ChrW(432) & ChrW(417) & "i" & " không", "m" & ChrW(432) & ChrW(7901) & "i", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", _
                    "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", _
                    "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "Âm ")
    
    If Number = 0 Then
        DocSo = MyArray(0)
    Else
        DocSo = ""
    End If
    For i = 1 To Len(Str)
        If Left(Str, i) <> 0 And Mid(Str, (Int((i + 2) / 3) - 1) * 3 + 1, 3) <> 0 Then
            DocSo = DocSo & MyArray(Mid(Str, i, 1)) & MyArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0))
        ElseIf i = 9 And Mid(Str, 7, 3) = 0 And Left(Str, 6) <> 0 Then
            DocSo = DocSo & MyArray(12)
        End If
    Next
    DocSo = Trim(Replace(Replace(Replace(Replace(Replace(Replace(DocSo, MyArray(18), _
                 MyArray(15)), MyArray(19), MyArray(20)), MyArray(21), MyArray(22)), _
                 MyArray(23), MyArray(24)), MyArray(25), MyArray(26)), MyArray(27), MyArray(28)))
    
    If Number < 0 Then
        DocSo = MyArray(29) & DocSo
    End If
    
    DocSo = UCase(Left(DocSo, 1)) & Mid(DocSo, 2) & "."
End Function
 

File đính kèm

Hoàng Trọng Nghĩa đã viết:
Nếu như vậy thì một là bạn phải sửa lại bảng đơn giá, hai là công thức trong bảng Phiếu giao hàng, cột đơn giá phải như vầy:

=VLOOKUP($C8,'MA HANG'!$B$6:$G$81,4,0)*1000

Hàm DocSo của bạn bị sai do bạn chép bị sai nên tôi sửa lại tí. Với hàm này chỉ sử dụng cho Unicode nên bạn phải định dạng ở font Unicode mới thực hiện đúng.

PHP: 
Function DocSo(Number) As String
    Dim MyArray, Str
    Str = Format(Abs(Number), "000000000000000000")
    MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", _
                    "n" & ChrW(259) & "m ", "sáu ", "b" & ChrW(7843) & "y ", "tám ", "chín ", _
                    "tri" & ChrW(7879) & "u, ", "ngàn, ", "t" & ChrW(7927) & ", ", _
                    "tri" & ChrW(7879) & "u, ", "ngàn, ", "", "tr" & ChrW(259) & "m ", _
                    "m" & ChrW(432) & ChrW(417) & "i ", "không " & "m" & ChrW(432) & ChrW(417) & "i" & " không ", _
                    "không " & "m" & ChrW(432) & ChrW(417) & "i", "l" & ChrW(7867), _
                    "m" & ChrW(432) & ChrW(417) & "i" & " không", "m" & ChrW(432) & ChrW(7901) & "i", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", _
                    "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", _
                    "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", _
                    "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "Âm ")
    
    If Number = 0 Then
        DocSo = MyArray(0)
    Else
        DocSo = ""
    End If
    For i = 1 To Len(Str)
        If Left(Str, i) <> 0 And Mid(Str, (Int((i + 2) / 3) - 1) * 3 + 1, 3) <> 0 Then
            DocSo = DocSo & MyArray(Mid(Str, i, 1)) & MyArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0))
        ElseIf i = 9 And Mid(Str, 7, 3) = 0 And Left(Str, 6) <> 0 Then
            DocSo = DocSo & MyArray(12)
        End If
    Next
    DocSo = Trim(Replace(Replace(Replace(Replace(Replace(Replace(DocSo, MyArray(18), _
                 MyArray(15)), MyArray(19), MyArray(20)), MyArray(21), MyArray(22)), _
                 MyArray(23), MyArray(24)), MyArray(25), MyArray(26)), MyArray(27), MyArray(28)))
    
    If Number < 0 Then
        DocSo = MyArray(29) & DocSo
    End If
    
    DocSo = UCase(Left(DocSo, 1)) & Mid(DocSo, 2) & "."
End Function
Nhấp chuột vào đây để mở rộng...
được rùi bác ơi thanks bác nhiều nhé.
 
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

Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
0
Đọc
10
Việt Nguyễn 86
Việt Nguyễn 86
K
Mong giúp dữ liệu từ trang web sang excel
Trả lời
0
Đọc
38
khanhvinhdai1
K
GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
    • Thích
Trả lời
0
Đọc
294
GPE-Trợ Lý
GPE-Trợ Lý
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
3
Đọc
1K
trung_bhxh
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
Trả lời
0
Đọc
40
trung_bhxh
T
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
52
Đọc
103K
khanhvinhdai1
K
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
93
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
69
vanle33
vanle33
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
35
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
121
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
80
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
137
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
126
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
131
VetMini
V
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
416
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
562
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
63
Nhattanktnn
Nhattanktnn
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom