thay xem giup sao em viet doan code nay ma ket qua ra theo dinh dang ngay thang
Private Sub cmb_luu_Click()
Dim dongcuoi_luu_dulieu As Long
dongcuoi_luu_dulieu = Sheets("nhap_nl").Range("B" & Rows.Count).End(xlUp).Row
With Sheets("nhap_nl")
.Range("B" & dongcuoi_luu_dulieu + 1).Value = CLng(Me.tb_so_chung_tu.Value)
End Sub
Chào bạn định dạng ngày tháng trên sheet là được nhé.
With Sheets("nhap_nl")
.Range("B" & dongcuoi_luu_dulieu + 1).Value =Me.tb_so_chung_tu.Value
end with
Chào bạn bạn định dạng trước bạn nhé vì bản chất thứ bạn nhìn thấy là trên sheets không phải là ở from bạn nhé.
da cam on thay,
va sao em danh trong dat cau hoi bai giang nay khong danh tieng viet duoc thay, em dung telex, vni deu khong duoc
va font anh huong nhu the nao khi viet code, vi em dung dinh dang dd/mm/yyyy voi font arial thi khong ra ket qua, con dung new romance thi duoc
Chào bạn trong phần đặt câu hỏi bạn xem đã chuyển sang mã việt nam chữ V chưa nhé.
bạn định dạng font chữ ở sheets hay là ở from vậy?
em định dạng font trong uform
Chào bạn font bạn vào phần sau
rồi bạn lưu lại là được nhé
Còn phần trong combobox bạn cần duyệt vòng lặp nếu trùng thì bạn mới cho lưu còn không trùng thì bạn không cho lưu nhé.