Nhân 2 số

[NH_DK]

Em có ví dụ này nhờ mọi người thiết lập công thức nhân cho em nhé!!

 

[hoangminhtien]

anh thử xem công thức sau có đúng với ý anh không?

=SUBSTITUTE(E11,".","")*SUBSTITUTE(E12,".","")

 

[NH_DK]

anh thử xem công thức sau có đúng với ý anh không?

Anh cung nghi đến giải pháp này rùi. Nhưng nếu giả thiết phải nhân hoặc tính tổng nhiều số (nhiều ô) nữa thì sao?

 

[hoangminhtien]

vậy anh dùng công thức mảng sau xem nhé

=PRODUCT(SUBSTITUTE(E11:E12,".","")+0)

Ctrl+Shift+Enter

 

[ptm0412]

Nếu vì lý do gì đó đã dùng VBA chuyển thành số có dấu chấm hàng ngàn, thì dùng VBA chuyển ngược lại. Chuyển như vậy thì dùng cho mọi máy với mọi regional language setting: Luôn luôn hiện dấu chấm hàng ngàn. Khi cần tính toán thì chuyển ngược lại.
Như Thu Nghi dùng code trong Access trong topic này: http://www.giaiphapexcel.com/forum/showthread.php?43992-Chuy%E1%BB%83n-d%E1%BA%A5u-ph%C3%A2n-c%C3%A1ch-h%C3%A0ng-ng%C3%A0n!&

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

Public Function Text2Num(Txt As String)
    Text2Num = Val(Replace(Txt, ".", ""))
End Function

 

[nmhung49]

Em có ví dụ này nhờ mọi người thiết lập công thức nhân cho em nhé!!

ủa mà thấy anh chuyển số dùng VBA qua như vậy rồi mà không chuyển lại được thấy cũng lạ, vậy em nghĩ mình đừng chuyển làm gì cho nó mệt vào excel options chỗ mục advance bỏ dấu check mục Use system seperators sao đó chọn phân cách số hàng ngàn, thập phân thế nào là được chứ gì, em cũng thường làm cách đó

 

[ptm0412]

vậy em nghĩ mình đừng chuyển làm gì cho nó mệt vào excel options chỗ mục advance bỏ dấu check mục Use system seperators sao đó chọn phân cách số hàng ngàn, thập phân thế nào là được chứ gì, em cũng thường làm cách đó

Đấy chỉ là biện pháp chữa cháy trên 1 máy của mình, nếu mang sang máy khác có thiết lập thousand separator không giống máy này sẽ bị sai.

 

[nghiaphuc]

ủa mà thấy anh chuyển số dùng VBA qua như vậy rồi mà không chuyển lại được thấy cũng lạ, vậy em nghĩ mình đừng chuyển làm gì cho nó mệt vào excel options chỗ mục advance bỏ dấu check mục Use system seperators sao đó chọn phân cách số hàng ngàn, thập phân thế nào là được chứ gì, em cũng thường làm cách đó

Đấy chỉ là biện pháp chữa cháy trên 1 máy của mình, nếu mang sang máy khác có thiết lập thousand separator không giống máy này sẽ bị sai.

Thêm nữa, ý của tác giả là chỉ muốn hiển thị dạng này trong file chỉ định thôi, còn các file khác thì hiển thị bình thường (theo thiết lập hệ thống).

 

[nmhung49]

Đấy chỉ là biện pháp chữa cháy trên 1 máy của mình, nếu mang sang máy khác có thiết lập thousand separator không giống máy này sẽ bị sai.

Sao ở chỗ em thì mấy máy trong phòng em làm như thế tại có 2 chương trình phần mềm 1 thằng thì định dạng hàng là dấu phẩy "," 1 thằng thì định dạng hàng hàng là dấu chấm "." nên em mới làm thế nên cũng không biết sao nữa mà máy em định dạng vậy nè Thầy

 

[ptm0412]

Hình minh hoạ trên là thiết lập trong control panel, dấu thousand separator là dấu phẩy.
Nếu vào option mà bỏ chọn "Use System separator" thì như nghiaphuc nói, nó tác động đến tất cả các file. Trong khi đó tác giả chỉ muốn đổi 1 vài file nào đó theo quy định mẫu chứng từ của nhà nước (thí dụ in hoá đơn).

Nếu đem sang máy khác để in, cùng là dấu phẩy hàng ngàn trong control panel, nhưng người chủ máy đó không bỏ chọn "Use System separator" trong Option, thì có phải là in ra sai quy định không?

Tương tự, đem qua 1 máy khác, thousand separator là dấu chấm, mình đâu có biết Option của máy đó đã bị đổi hay chưa, thì làm sao?