Chuyển dấu phân cách hàng ngàn! (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên đã mất
Tham gia
16/8/06
Bài viết
3,808
Được thích
4,449
Tôi có làm thử file in hoá đơn trên access (cũng nhờ các sư phụ làm giúp), nhưng vướng ở chỗ là không thể nào đổi dấu phân cách hàng ngàn từ "," thành ".".
Tôi không muốn set trên control panel.
Nhờ các anh chị chỉ giúp viết code làm thế nào khi out report thì chuyển dấu phân cách thành "."
Report có 2 phần Main và Sub để in hoá đơn GTGT.
Xin cám ơn.
 
ThuNghi đã viết:
Tôi có làm thử file in hoá đơn trên access (cũng nhờ các sư phụ làm giúp), nhưng vướng ở chỗ là không thể nào đổi dấu phân cách hàng ngàn từ "," thành ".".
Tôi không muốn set trên control panel.
Nhờ các anh chị chỉ giúp viết code làm thế nào khi out report thì chuyển dấu phân cách thành "."
Report có 2 phần Main và Sub để in hoá đơn GTGT.
Xin cám ơn.
Nhấp chuột vào đây để mở rộng...
Anh thử tạo 1 Query tham chiếu đến số đó rồi format trường đó lại thử xem coi được không nhé.
 
ThuNghi đã viết:
Tôi có làm thử file in hoá đơn trên access (cũng nhờ các sư phụ làm giúp), nhưng vướng ở chỗ là không thể nào đổi dấu phân cách hàng ngàn từ "," thành ".".
Tôi không muốn set trên control panel.
Nhờ các anh chị chỉ giúp viết code làm thế nào khi out report thì chuyển dấu phân cách thành "."
Report có 2 phần Main và Sub để in hoá đơn GTGT.
Xin cám ơn.
Nhấp chuột vào đây để mở rộng...
Trước hết format nó về định dạng #,### sau đó chuyển dấu phẩy thành dấu chấm

Replace(Format([so],"#,###"),",",".")
Nhấp chuột vào đây để mở rộng...
 
Mình nghĩ chỉ có thể dùng 1 UDF chuyển số thành text theo ý muốn, rồi dùng nó để thể hiện các kết quả sau khi tính toán lên form và lên report. Đã thử format, dùng hàm format, ... đều không được. Làm Query như DomFootwear thì không tính toán được.

Cách sau của Dom hay. Nhưng cũng như cách của ptm0412, nếu tính toán nhiều thì gõ công thức mệt mỏi, vì không thay thế toán hạng trong công thức bằng control Name được.

Nếu Control2 tính từ control1, Control3 tính từ control2, Control4 tính từ control3, ... thì công thức của control4 chẳng hạn không thể ghi = control3*2 mà phải ghi hết công thức tính từ control1 đến control3 rồi mới nhân 2.
 
Lần chỉnh sửa cuối:
ptm0412 đã viết:
Mình nghĩ chỉ có thể dùng 1 UDF chuyển số thành text theo ý muốn, rồi dùng nó để thể hiện các kết quả sau khi tính toán lên form và lên report. Đã thử format, dùng hàm format, ... đều không được. Làm Query như DomFootwear thì không tính toán được.

Cách sau của Dom hay. Nhưng cũng như cách của ptm0412, nếu tính toán nhiều thì gõ công thức mệt mỏi, vì không thay thế toán hạng trong công thức bằng control Name được.

Nếu Control2 tính từ control1, Control3 tính từ control2, Control4 tính từ control3, ... thì công thức của control4 chẳng hạn không thể ghi = control3*2 mà phải ghi hết công thức tính từ control1 đến control3 rồi mới nhân 2.
Nhấp chuột vào đây để mở rộng...
Em thử làm 1 UDF để replace như sau
PHP: 
Function DinhDang(iSo As Double) As String
Dim sStr As String
sStr = Format$(iSo, "#,###")
sStr = Replace(sStr, ",", ".")
DinhDang = sStr
End Function
Nhưng gán vào dòng tổng của Main Report thì OK, cụ thể như: =dinhdang(ChitietHD.Report!sumth)
Nhưng phần detail của report thì không biết làm thế nào.
Và không biết sửa thế nào mà giờ mở file nó không lên gì cả.
Các ơn các anh chị nhiều.
 
ThuNghi đã viết:
Em thử làm 1 UDF để replace như sau
PHP: 
Function DinhDang(iSo As Double) As String
Dim sStr As String
sStr = Format$(iSo, "#,###")
sStr = Replace(sStr, ",", ".")
DinhDang = sStr
End Function
Nhưng gán vào dòng tổng của Main Report thì OK, cụ thể như: =dinhdang(ChitietHD.Report!sumth)
Nhưng phần detail của report thì không biết làm thế nào.
Và không biết sửa thế nào mà giờ mở file nó không lên gì cả.
Các ơn các anh chị nhiều.
Nhấp chuột vào đây để mở rộng...

Em đã chỉnh lại cái file của anh rồi. Chạy tốt, nếu anh đồng ý em sẽ đưa lên đây.

Dùng 2 hàm chuyển đổi:

Chuyển sang chấm:

Mã: 
Public Function T2N(T As String)

Dim N As Double

N = Replace(T, ".", ",")

T2N = N

End Function

Chuyển sang dấu phẩy:

Mã: 
Public Function N2T(N As Double)

Dim T As String

T = Replace(Format(N, "#,###"), ",", ".")

N2T = T

End Function
 
Đây chỉ là vấn đề hiển thị thôi mà, vậy thì trên Report Thu Nghi cho ẩn cái Control ấy đi giả sử nó là [Tien]
Thêm 1 TextBox đi kèm và nhập =dinhdang([tien])

Thực tế mình thử chẳng phải viết UDF mà cứ viết như sau hoàn toàn OK (Bao nhiêu chữ số thập phân là do bạn gõ vào)

=Replace(Replace(Replace(Format([Tien],"#,##0.000"),".","@"),",","."),"@",",")
 
Lần chỉnh sửa cuối:
sealand đã viết:
Đây chỉ là vấn đề hiển thị thôi mà, vậy thì trên Report Thu Nghi cho ẩn cái Control ấy đi giả sử nó là [Tien]
Thêm 1 TextBox đi kèm và nhập =dinhdang([tien])
Nhấp chuột vào đây để mở rộng...
Phải thêm 1 hàm chuyển đổi từ dấu chấm sang dấu phẩy nữa mới được. Vì nó còn tính toán nữa anh à.
 
Dùng hàm T2Nhoặc N2T như Dom, hoặc dùng replace như Sealand và ThuNghi tôi thấy không hay. Đây là biện pháp chữa cháy cho 1 máy cụ thể đang set control panel dấu phẩy hàng ngàn. Cũng file đó mang sang máy khác có dấu chấm hàng ngàn thì không chạy. CHính tôi đang làm file đó cho Thu Nghi mà không tìm ra cách và cũng không test được 2 hàm của Dom hoặc công thức replace của Sealand.
Từ đó tôi nghĩ ra cách khác để có thể sử dụng trên bất cứ máy nào. Đó là dùng cách chia số thành từng nhóm 3 ký số, nối lại bằng dấu chấm.
Trên report thì không định dạng.
Khi thể hiện thì dùng hàm nối chuỗi.
Khi tính toán thì dùng hàm khác xóa bỏ dấu chấm rồi tính toán.

PHP: 
Public Function Num2Text(Num As Double)
Dim GroupCount, i, StrTmp, Tmp
GroupCount = Int(Len(Trim(Num)) / 3)
    If GroupCount = 0 Then Num2Text = Str(Trim(Num)): Exit Function
    StrTmp = Trim(Str(Num))
    For i = 1 To GroupCount
        Tmp = "." & Right(StrTmp, 3) & Tmp
        StrTmp = Left(StrTmp, Len(StrTmp) - 3)
    Next
    If Len(StrTmp) > 0 Then Tmp = StrTmp & Tmp
    If Left(Tmp, 1) = "." Then Tmp = Right(Tmp, Len(Tmp) - 1)
Num2Text = Tmp
End Function
PHP: 
Public Function Text2Num(Txt As String)
    Text2Num = Val(Replace(Txt, ".", ""))
End Function
Và đã test thành công trên 2 máy có control panel đã set khác nhau dấu hàng ngàn.

Kết quả in là như sau:

report01.jpg

Để in lên tờ hóa đơn in sẵn có cấu trúc sau:

report02.jpg
 
Lần chỉnh sửa cuối:
Hi bác!
Em thấy bài viết này của bác rất hay. Nhưng em test thì thấy nó chỉ đúng với số chẵn, còn số mà có chữ số thập phân trong tiếng việt thì sao được bác? ex: 70,625,162.44 thì phải đổi thành 70.625.162,44 hình như thế này mới đúng việt nam chứ bác. Bác trả lời giúp em nhé! tks bác.
 
bebe08 đã viết:
Hi bác!
Em thấy bài viết này của bác rất hay. Nhưng em test thì thấy nó chỉ đúng với số chẵn, còn số mà có chữ số thập phân trong tiếng việt thì sao được bác? ex: 70,625,162.44 thì phải đổi thành 70.625.162,44 hình như thế này mới đúng việt nam chứ bác. Bác trả lời giúp em nhé! tks bác.
Nhấp chuột vào đây để mở rộng...
Nói chung UDF trên chỉ là giải pháp cho việc định dấu phân cách trên report. Còn bạn muốn chuyển trường hợp có 2 số lẻ thì thêm 1 if nữa là OK.
PHP: 
Public Function Num2Text(Num As Double)
Dim GroupCount, i, StrTmp, Tmp, sSole As String
If Num - Int(Num) > 0 Then
  sSole = Format((Num - Int(Num)) * 100, "##")
Else
  sSole = ""
End If
Num = Int(Num)
GroupCount = Int(Len(Trim(Num)) / 3)
If GroupCount = 0 Then
  Num2Text = Str(Trim(Num))
  Exit Function
End If
StrTmp = Trim(Str(Num))
For i = 1 To GroupCount
  Tmp = "." & Right(StrTmp, 3) & Tmp
  StrTmp = Left(StrTmp, Len(StrTmp) - 3)
Next
If Len(StrTmp) > 0 Then Tmp = StrTmp & Tmp
If Left(Tmp, 1) = "." Then Tmp = Right(Tmp, Len(Tmp) - 1)
If Len(sSole) > 0 Then
  Num2Text = Tmp & "," & sSole
Else
  Num2Text = Tmp
End If
End Function
 
sSole = Format((Num - Int(Num)) * 100, "##")

Nên định dạng "00" thay vì "##", khi lên báo cáo mới ngay ngắn. Như vậy code sẽ gọn hơn, khỏi dùng 2 cái If:
PHP: 
Public Function Num2Text(Num As Double) 
Dim GroupCount, i, StrTmp, Tmp, sSole As String 
  sSole = Format((Num - Int(Num)) * 100, "00") 
Num = Int(Num) 
GroupCount = Int(Len(Trim(Num)) / 3) 
If GroupCount = 0 Then   Num2Text = Str(Trim(Num)) & "," & sSole :  Exit Function 
StrTmp = Trim(Str(Num)) 
For i = 1 To GroupCount 
  Tmp = "." & Right(StrTmp, 3) & Tmp 
  StrTmp = Left(StrTmp, Len(StrTmp) - 3) 
Next 
If Len(StrTmp) > 0 Then Tmp = StrTmp & Tmp 
If Left(Tmp, 1) = "." Then Tmp = Right(Tmp, Len(Tmp) - 1) 
  Num2Text = Tmp & "," & sSole 
End Function
Hàm đổi ngược lại:

PHP: 
Public Function Text2Num(Txt As String)
    Text2Num = Val(Replace(Replace(Txt, ".", ""), ",", "."))
End Function
 
Lần chỉnh sửa cuối:
;;;;;;;;;;; Dear all, mình cũng gặp vấn đề này trong xuất báo cáo, Mình muốn ở mục VND đóng khung đỏ phân cách hàng ngàn = "." & mục USD vẫn giữ phân cách hàng ngàn = dấu ","
Mình mới học còn gà nên đọc hướng dẫn ở trên vẫn chưa biết cách khắc phục !$@!! mong mọi người hướng dẫn chi tiết hơn tí giúp mình ! Many thanks !

#### Cho mình hỏi muốn chép đoạn "PHP Code" được nhắc đến ở trên thì phải chép vào đâu & ntn ? -+*/ ####

Vì hình như bạn chủ Topic gỡ file ví dụ rùi nên mình up lên file ví dụ của mình để tiện trao đổi

;;;;;;;;;;;
10,000 VND & 5,000 USD -> muốn thành 10.000 VND & 5,000.00 USD ;;;;;;;;;;;
 

File đính kèm

Lần chỉnh sửa cuối:
tanvu228 đã viết:
View attachment 59434

Dear all, mình cũng gặp vấn đề này trong xuất báo cáo, Mình muốn ở mục VND đóng khung đỏ phân cách hàng ngàn = "." & mục USD vẫn giữ phân cách hàng ngàn = dấu ","
Mình mới học còn gà nên đọc hướng dẫn ở trên vẫn chưa biết cách khắc phục !$@!! mong mọi người hướng dẫn chi tiết hơn tí giúp mình ! Many thanks !

#### Cho mình hỏi muốn chép đoạn "PHP Code" được nhắc đến ở trên thì phải chép vào đâu & ntn ? -+*/ ####

Vì hình như bạn chủ Topic gỡ file ví dụ rùi nên mình up lên file ví dụ của mình để tiện trao đổi

Mở file -> (Shift + Enter)
Report cần chỉnh sửa -> Rpt_InvoicesBill

View attachment 59436 ;;;;;;;;;;;
Nhấp chuột vào đây để mở rộng...

!$@!! Hjx không bác nào hướng dẫn giúp mình sao ?? **~**
 
tanvu228 đã viết:
View attachment 59434

Dear all, mình cũng gặp vấn đề này trong xuất báo cáo, Mình muốn ở mục VND đóng khung đỏ phân cách hàng ngàn = "." & mục USD vẫn giữ phân cách hàng ngàn = dấu ","
Mình mới học còn gà nên đọc hướng dẫn ở trên vẫn chưa biết cách khắc phục !$@!! mong mọi người hướng dẫn chi tiết hơn tí giúp mình ! Many thanks !

#### Cho mình hỏi muốn chép đoạn "PHP Code" được nhắc đến ở trên thì phải chép vào đâu & ntn ? -+*/ ####

Vì hình như bạn chủ Topic gỡ file ví dụ rùi nên mình up lên file ví dụ của mình để tiện trao đổi

Mở file -> (Shift + Enter)
Report cần chỉnh sửa -> Rpt_InvoicesBill

View attachment 59436 ;;;;;;;;;;;
Nhấp chuột vào đây để mở rộng...
Bạn xoá hết các form và report khác chỉ để lại 1 repro bạn cần chỉnh dấu phân cách thôi và đưa file lên.
Nhìn vào file chả biết sửa cái report nào. Và nhớ là bỏ start up.
 
ThuNghi đã viết:
Bạn xoá hết các form và report khác chỉ để lại 1 repro bạn cần chỉnh dấu phân cách thôi và đưa file lên.
Nhìn vào file chả biết sửa cái report nào. Và nhớ là bỏ start up.
Nhấp chuột vào đây để mở rộng...

--=0 thanks bạn đã góp ý. Hj hèn chi hỏi bữa giờ k ai thèm trả lời hết !$@!!

P/S: file ví dụ cũ Mình không biết cách bỏ start up & khi xóa các form & report khác nó báo lỗi tham chiếu tùm lum !$@!! nên mình up lại file ví dụ khác dễ nhìn hơn. rất mong được hướng dẫn. Many thanks!
 

File đính kèm

tanvu228 đã viết:
--=0 thanks bạn đã góp ý. Hj hèn chi hỏi bữa giờ k ai thèm trả lời hết !$@!!

P/S: file ví dụ cũ Mình không biết cách bỏ start up & khi xóa các form & report khác nó báo lỗi tham chiếu tùm lum !$@!! nên mình up lại file ví dụ khác dễ nhìn hơn. rất mong được hướng dẫn. Many thanks!
Nhấp chuột vào đây để mở rộng...
Chép UDF của Bác PTM vào module thôi.
 

File đính kèm

ThuNghi đã viết:
Chép UDF của Bác PTM vào module thôi.
Nhấp chuột vào đây để mở rộng...

--=0 Many thanks. Hj tại bữa h mình không biết "module" !$@!! là cái gì nên không biết chép nó vào đâu cả ;;;;;;;;;;;

Mình không biết về code câu lệnh mong bạn chỉ giúp cách bỏ số lẻ thập phân ở VND ra & thêm 2 số lẻ ở USD thì use UDF nào ?
để chuyển 10.000,00 VND -> 10.000 VND

5,000 USD -> 5,000.00 USD .


Many thanks !

tanvu228 đã viết:
--=0 Many thanks. Hj tại bữa h mình không biết "module" là cái gì nên không biết chép nó vào đâu cả ;;;;;;;;;;;

Mình không biết về code câu lệnh mong bạn chỉ giúp cách bỏ số lẻ thập phân ở VND ra & thêm 2 số lẻ ở USD thì use UDF nào ?
để chuyển 10.000,00 VND -> 10.000 VND

5,000 USD -> 5,000.00 USD .


Many thanks !
Nhấp chuột vào đây để mở rộng...
Mình vọc vọc chỉnh được rùi . Hj thanks bạn nhiều hen.
 
Chỉnh sửa lần cuối bởi điều hành viên:
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

P
Tính Toán Trong Form (2 người xem)
Trả lời
8
Đọc
138
ptm0412
ptm0412
Yunnis Ngo
Chia sẻ hàm tách số, tách chữ khỏi chuỗi, tìm ô có chứa ký tự (chuỗi) (2 người xem)
Trả lời
2
Đọc
137
Yunnis Ngo
Yunnis Ngo
A
Mã hàng không giống nhau làm sao để lấy ạ ? (1 người xem)
Trả lời
0
Đọc
3
ANNENEK
A
L
Nhờ anh em tạo công thức tính chỉ tiêu với nhiều điều kiện phức tạp
Trả lời
2
Đọc
93
luckyluke_2828
L
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
47
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
V
UNIQUE CODE VBA (1 người xem)
Trả lời
4
Đọc
145
vucongvi
V
Q
Không gõ được chữ "Cafe" trong excel (1 người xem)
Trả lời
9
Đọc
1K
vietduc147258
V
J
Nhờ các anh chị giải bài tập này giúp em với. Em làm hoài mãi mà không được. help
    • Chấp nhận
Trả lời
7
Đọc
311
Phan Thế Hiệp
Phan Thế Hiệp
N
  • Question Question
Nhờ hướng dẫn tổng hợp dữ liệu bằng VBA dạng mảng
    • Cười
Trả lời
6
Đọc
181
SA_DQ
SA_DQ
M
Chuyển định dạng .prn sang excel
Trả lời
0
Đọc
57
Min5813
M
duongthanhphuoc2019
Xin chỉ giúp công thức excel trong trường hợp này.
Trả lời
2
Đọc
156
duongthanhphuoc2019
duongthanhphuoc2019
vc_đi chơi
Trang trống khi khởi động excel (1 người xem)
Trả lời
12
Đọc
184
vc_đi chơi
vc_đi chơi
T
  • Question Question
Nhờ các cao thủ sửa code ! (1 người xem)
Trả lời
1
Đọc
97
thuytrangbp28
T
D
Xin chỉ giáo về công thức excel trong trường hợp này!
Trả lời
0
Đọc
61
diemdiem
D
HeSanbi
  • Question Question
FlashSheet v1.3 - Di chuyển qua lại tức thời giữa các trang tính
    • Thích
    • Yêu thích
Trả lời
4
Đọc
854
vc_đi chơi
vc_đi chơi
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
345
Đọc
30K
kttrandieo
K
B
Nhờ hướng dẫn cách bật đường nối thể hiện các ô chứa thành phần của ô chứa hàm đích. (2 người xem)
Trả lời
2
Đọc
123
bcttymc
B
H
Xin giúp đỡ - Trong Excel không có lệnh Import (1 người xem)
Trả lời
2
Đọc
66
hoanglan_29030
H
S
Dò tìm dữ liệu & lấy kết quả theo điều kiện bằng VBA
Trả lời
6
Đọc
437
HieuCD
H
P
Trợ giúp tạo Drop-down list tìm kiếm theo ký tự bất kỳ trong Excel
Trả lời
6
Đọc
328
ptm0412
ptm0412
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
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom