Khắc phục lỗi nhập và xử lý số trong VBA (1 người xem)

[thanhlanh]

Với chỉ dẫn của Bạn , mình hiểu vấn đề và chỉnh lại chút xíu (thêm dòng : Range("C6").NumberFormat = "#,###" ) nhưng có 1 chỗ chưa "thông" . Trên Textbox có cách nào cho nó hiển thị giá bán : 50.000 thay vì đang hiển thị 50.000,0 (có ,0) . Mong Bạn chỉ dẫn (mình minh họa trong file đính kèm)

Mình đã làm cho bạn, rồi bạn sửa lại cho sai đi để hỏi tiếp, code của mình từ bài trên:

Private Sub UserForm_Activate()
    With Me.ComboBox1
        If .ListCount > 0 Then .Clear
        For i = 1 To 4   
            .AddItem Sheet1.Cells(2, 2 + (i * 2))    
            .List(i - 1, 1) = Format(Sheet1.Cells(2, 3 + (i * 2)), "#,##0.00")
        Next i
        .ListIndex = 0
        .SetFocus
    End With
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0")
  ' Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0.00")
    [B6] = Me.ComboBox1.Column(0)
    [C6] = Me.TextBox1.Value * 1
End Sub

Bạn sửa Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0")
thành Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,###.0")
???

 

[USB1394]

Mình đã làm cho bạn, rồi bạn sửa lại cho sai đi để hỏi tiếp, code của mình từ bài trên:

Private Sub UserForm_Activate()
    With Me.ComboBox1
        If .ListCount > 0 Then .Clear
        For i = 1 To 4   
            .AddItem Sheet1.Cells(2, 2 + (i * 2))    
            .List(i - 1, 1) = Format(Sheet1.Cells(2, 3 + (i * 2)), "#,##0.00")
        Next i
        .ListIndex = 0
        .SetFocus
    End With
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0")
  ' Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0.00")
    [B6] = Me.ComboBox1.Column(0)
    [C6] = Me.TextBox1.Value * 1
End Sub

Bạn sửa Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,##0")
thành Me.TextBox1.Value = Format(Me.ComboBox1.Column(1) * Sheet1.[C2], "#,###.0")
???

Xin cám ơn bạn rất nhiều , vấn đề của mình đã đc giải quyết