cách format #.## trên textbox

[ST-Lu!]

Anh ơi
Ví dụ: một ô text box (kết quả của một phép chia) của em đang hiển thị là 72, bây giờ em muốn hiện thị là 71,793 thì em làm thế nào.
Em dùng code sau báo lỗi

me.Textbox1 = format(me.textbox1,_(* #.##0,00_);_(* (#.##0,00);_(* "-"??_);_(@_)

Cám ơn các anh chỉ giúp

 

[Hai Lúa Miền Tây]

Anh ơi
Ví dụ: một ô text box (kết quả của một phép chia) của em đang hiển thị là 72, bây giờ em muốn hiện thị là 71,793 thì em làm thế nào.
Em dùng code sau báo lỗi

me.Textbox1 = format(me.textbox1,_(* #.##0,00_);_(* (#.##0,00);_(* "-"??_);_(@_)

Cám ơn các anh chỉ giúp

Trước giờ mình thường làm là:

Private Sub cmdTinh_Click()
TextBox3 = TextBox1 / TextBox2
Me.TextBox3 = Format(Me.TextBox3, "#,###.##")'Lay 2 so le
End Sub

Hỏng biết có đúng ý bạn không

 

[tedaynui]

Trước giờ mình thường làm là:

Private Sub [B]cmdTinh_Click[/B]()
TextBox3 = TextBox1 / TextBox2
Me.TextBox3 = Format(Me.TextBox3, "#,###.##")'Lay 2 so le
End Sub

Hỏng biết có đúng ý bạn không

Mình nghĩ dùng sự kiện Textbox3_Change chứ !!!

============
Xin lỗi đọc không kỹ, cứ nghĩ là nhập số vào Textbox3 !!!
TDN

 

[ST-Lu!]

Không format được về #.##

Em đã làm theo nhưng không đươc
- Trước khi phát hành hoá đơn nhấn refresh
- Nếu chọn loại tiền là USD
- ở phần cont 20 ví dụ: gõ số lượng = 1, giá = 70$
em muốn
- After tax sẽ là 71,79 (70/0.975) ---> nhưng hiện tại nó vẫn là 72 (mặc dù đã round()
- range("M17") em muốn nó cũng là 71,79$ nhưng chưa được

     If Me.TG = "USD" Then
            amt20 = Me.txtCont20 * Me.txtP20
            amt40 = Me.txtCont40 * Me.TxtP40
            amt45 = Me.TxtCont45 * Me.TxtP45
            Me.TextAmountbeforetax = (amt20 + amt40 + amt45)
            Me.TextAmountAftertax = Round(Me.TextAmountbeforetax / 0.975, 2)
      
            Me.TextVATAmt = Round(Me.TextAmountbeforetax / 0.975 * Me.CombVAT, 2)
            Range("L23").Value = Round(Me.TextVATAmt, 2)
         
            Else
            
            amt20 = Me.txtCont20 * Me.txtP20
            amt40 = Me.txtCont40 * Me.TxtP40
            amt45 = Me.TxtCont45 * Me.TxtP45
            Me.TextAmountbeforetax = (amt20 + amt40 + amt45) * Me.txtRate
            Me.TextAmountAftertax = Me.TextAmountbeforetax / 0.975
            Me.TextAmountAftertax = Round(Me.TextAmountAftertax, 2)
             Me.TextVATAmt = Round(Me.TextAmountbeforetax / 0.975 * Me.CombVAT, 0)
            Range("L23").Value = Round(Me.TextVATAmt, 0)
            Range("L23").Style = "comma"
            Range("L23").NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
             Me.TextVATAmt = Format(Me.TextVATAmt, "#,###")
            End If

 

[Hai Lúa Miền Tây]

Mình nghĩ máy bạn định dạng kiểu #.###,## như vậy bạn thử chỉnh lại như định dạng là #.###,## xem sao
Hoặc bạn sửa lại code của CombVAT_afterupdate, CombTaxcode_afterupdate như sau:

Private Sub CombTaxcode_afterupdate()
...
    Me.TextAmountAftertax = Format(Me.TextAmountAftertax, "#,###,###.##")
    Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#,###,###.##")
End Sub
 
 
 
Private Sub CombVAT_afterupdate()
....
   Me.TextAmountAftertax = Format(Me.TextAmountAftertax, "#,###,###.##")
    Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#,###,###.##")
End Sub

 

[ST-Lu!]

Cám ơn các anh nha

Hoá ra code nhiều quá, ở phía dưới em lại có một đoạn code format lại

HIc