Code tính thành tiền theo chu vi diện tích (1 người xem)

[minhtuan55]

Chào cả nhà ! em cần cả nhà giúp em 1 đoạn code để tính thành tiền ( cửa hàng nhà em bán Kính chịu lực , bán theo diện tích và chu vi )
Thành tiền = Diện tích * giá diện tích + Chu vi * giá chu vi

Do em sài 1 phần mềm bán hàng của công ty, nên khi dữ liệu xuất ra là chuỗi, nên không biết làm sao lấy được chiều dài và chiều ngang, rất mong cả nhà giúp đở. Xin chân thành cảm ơn

 

[HieuCD]

Chào cả nhà ! em cần cả nhà giúp em 1 đoạn code để tính thành tiền ( cửa hàng nhà em bán Kính chịu lực , bán theo diện tích và chu vi )
Thành tiền = Diện tích * giá diện tích + Chu vi * giá chu vi

Do em sài 1 phần mềm bán hàng của công ty, nên khi dữ liệu xuất ra là chuỗi, nên không biết làm sao lấy được chiều dài và chiều ngang, rất mong cả nhà giúp đở. Xin chân thành cảm ơn

 E6 =LEFT(B6,FIND("(",B6)-1)*(MID(B6,FIND("(",B6)+1,FIND("x",B6)-FIND("(",B6)-1)*MID(B6,FIND("x",B6)+1,FIND(")",B6)-FIND("x",B6)-1)*C6/10^6+2*(MID(B6,FIND("(",B6)+1,FIND("x",B6)-FIND("(",B6)-1)+MID(B6,FIND("x",B6)+1,FIND(")",B6)-FIND("x",B6)-1))*D6/1000)

 

[Hoang2013]

Bạn thử với UDF này:

Function TTien(ChuThich As String) As Double
 Dim VTr1 As Byte, VTr2 As Byte, VTr3 As Byte
 Dim DTich As Double, ChuVi As Double
 Const Tr As Double = 10 ^ 6

 VTr1 = InStr(ChuThich, "(")
 VTr2 = InStr(UCase$(ChuThich), "X")
 VTr3 = InStr(ChuThich, ")")
 DTich = CDbl(Mid(ChuThich, VTr1 + 1, VTr2 - VTr1 - 1)) * 12 * 10 ^ (-3)    'Loai I'
 ChuVi = CDbl(Mid(ChuThich, VTr2 + 1, (VTr3 - VTr2) - 1)) * 16 * 10 ^ (-3)  'Loai I'
 TTien = CDbl(Left(ChuThich, VTr1 - 1)) * DTich * ChuVi
End Function

 

[minhtuan55]

Bạn thử với UDF này:

Function TTien(ChuThich As String) As Double
 Dim VTr1 As Byte, VTr2 As Byte, VTr3 As Byte
 Dim DTich As Double, ChuVi As Double
 Const Tr As Double = 10 ^ 6

 VTr1 = InStr(ChuThich, "(")
 VTr2 = InStr(UCase$(ChuThich), "X")
 VTr3 = InStr(ChuThich, ")")
 DTich = CDbl(Mid(ChuThich, VTr1 + 1, VTr2 - VTr1 - 1)) * 12 * 10 ^ (-3)    'Loai I'
 ChuVi = CDbl(Mid(ChuThich, VTr2 + 1, (VTr3 - VTr2) - 1)) * 16 * 10 ^ (-3)  'Loai I'
 TTien = CDbl(Left(ChuThich, VTr1 - 1)) * DTich * ChuVi
End Function

cái này em chẳng biết áp dụng sao luôn

 

[Hoang2013]

Cái này em chẳng biết áp dụng sao luôn

B1: Chép hàm người dùng này vô Module1;

B2: Tại 1 ô trống trãi nào đó ta nhập cú pháp như sau:

=TTien(H3) để có kết quả;

Tuy nhiên trong bảng tra của bạn có loại 2; Nhưng trong ô chú thích của bạn không thấy loại 2 đâu cả; Nên hàm chỉ thuần tính cho loại 1

 

[minhtuan55]

 E6 =LEFT(B6,FIND("(",B6)-1)*(MID(B6,FIND("(",B6)+1,FIND("x",B6)-FIND("(",B6)-1)*MID(B6,FIND("x",B6)+1,FIND(")",B6)-FIND("x",B6)-1)*C6/10^6+2*(MID(B6,FIND("(",B6)+1,FIND("x",B6)-FIND("(",B6)-1)+MID(B6,FIND("x",B6)+1,FIND(")",B6)-FIND("x",B6)-1))*D6/1000)

thank a. dài quá mà cũng đúng