VBA nhập cho định dạng số - giúp em sửa cái file excel này với (1 người xem)

[inzalinh]

em có file excel khi nhập stt và số tiền nhưng toàn cho ra định dạng text giờ em muốn sửa để cho định dạng số còn tính sum được ah chị giúp em với, giúp em bỏ luôn hai cột code và lead không cần nhập để em vlookup từ tên nhân viên đó ra

 

[SA_DQ]

Bạn làm vầy là được nè, mình thử rồi:

' *     *    *      **      *      *      *    '
    With Sheets("DDHM")
        iRow = .Range("A65536").End(xlUp).Row + 1
        .Cells(iRow, "A").Value = Me!txtSoTT.Value:        .Cells(iRow, "K").Value = Me!txtstv.Value
        MyCtrls = Array(txtNgay, txtHopDong, txtapp, txtTenKH, txtCMT, cbxspv, cbxtennv, txtcode, cbxled, txtnn, cbxstt, cbxnote)
        .Cells(iRow, "B").Resize(, 9).Value = MyCtrls
        MyCtrls = Array(txtnn, cbxstt, cbxnote)
        .Cells(iRow, "L").Resize(, 3).Value = MyCtrls
                
        iRow = .Range("A65536").End(xlUp).Row
        .Range("A8:N" & iRow).Name = "ListBoxNhapLieu"
        ListBox1.RowSource = "ListBoxNhapLieu"
    End With
' *     *    *      **      *      *      *    '

 

[inzalinh]

Bạn ơi mình làm như bạn bảo rồi sửa code như bạn bảo sao khi mình thêm hoặc sửa cột stt và số tiền nó lại ko ở định dạng số mà vẫn định dạng chữ nhỉ bạn có thể sửa giúp mình ko mình cảm ơn nhiều

 

[khoinp1012]

Cách tốt nhất khi bạn gặp những tình huống như thế này là Copy cột đó vào Word, Paste as Text only. Sau đó từ Word copy ngược về Excel.