Cần giúp đỡ về Form VBA

[llanhlungll]

Cao thủ giúp mình code tự tạo STT và Mã cho ch. trình
- Khi XÓA 1 dòng dữ liệu có STT là 3 thì cột STT sẽ còn là 1,2,4,5... vậy làm cách nào để xóa hết cột STT và điền lại 1,2,3,4,5...
- Tự tạo MÃ khi Combobox KTX được chọn là A thì Mã KT sẽ là KTA + Số tiếp theo của cột Mã KT
Ví dụ cột Mã KT đã có KTA1 thì sẽ là KTA2 ở dòng tiếp

 

[thnghiachau]

Cao thủ giúp mình code tự tạo STT và Mã cho ch. trình
- Khi XÓA 1 dòng dữ liệu có STT là 3 thì cột STT sẽ còn là 1,2,4,5... vậy làm cách nào để xóa hết cột STT và điền lại 1,2,3,4,5...
- Tự tạo MÃ khi Combobox KTX được chọn là A thì Mã KT sẽ là KTA + Số tiếp theo của cột Mã KT
Ví dụ cột Mã KT đã có KTA1 thì sẽ là KTA2 ở dòng tiếp

Mình không là "Cao thủ" nên mình sẽ làm theo kiểu "ngây ngô" nhưng vô cùng dễ hiểu.... như sau:
1/ Đánh lại STT: Đơn giản là bạn chỉ việc dòng cuối cùng và viết lại STT từ 1 tời dòng cuối cùng.
2/ Tạo mã tiếp theo: tìm trong cột mã có 3 ký tự là "KTA" hay "KTB" ghi lại số thứ tự lớn nhất (là phần còn lại phía bên phải sau khi bỏ đi 3 ký tự đầu) => và sẽ được số thứ tự mã kế tiếp

 

[llanhlungll]

Mình không là "Cao thủ" nên mình sẽ làm theo kiểu "ngây ngô" nhưng vô cùng dễ hiểu.... như sau:
1/ Đánh lại STT: Đơn giản là bạn chỉ việc dòng cuối cùng và viết lại STT từ 1 tời dòng cuối cùng.
2/ Tạo mã tiếp theo: tìm trong cột mã có 3 ký tự là "KTA" hay "KTB" ghi lại số thứ tự lớn nhất (là phần còn lại phía bên phải sau khi bỏ đi 3 ký tự đầu) => và sẽ được số thứ tự mã kế tiếp

cảm ơn bạn mình cũng hiểu vấn đề như vậy nhưng không biết code viết như nào

 

[thnghiachau]

cảm ơn bạn mình cũng hiểu vấn đề như vậy nhưng không biết code viết như nào

tôi thấy file bạn viết ngon lành mà ?????

    Dim s As Long
    s = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

 

[llanhlungll]

Đã tìm được cách tự tăng mã copy của bác ĐT Nguyễn [Học Excel Online] Youtube

Function taoMaKT(MaKT)
Dim cMaKT As Range, fRng As Range, Endrow As Long
Endrow = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row Set cMaKT = Sheet1.Range("C2:C" & Endrow)
Set fRng = cMaKT.Find(MaPhieu, , xlValues, xlPart, , xlPrevious, True)
If Not fRng Is Nothing Then
txtMaKT.Value = MaPhieu & Format(Right(CStr(fRng.Value), 3) + 1, "000")
Set fRng = Nothing
Else
txtMaKT.Value = MaPhieu & "001"
End If
Application.Goto Sheet1.Range("C" & Endrow + 1)
Set cMaKT = Nothing
End Function

 

[batman1]

Mình không là "Cao thủ" nên mình sẽ làm theo kiểu "ngây ngô" nhưng vô cùng dễ hiểu.... như sau:
1/ Đánh lại STT: Đơn giản là bạn chỉ việc dòng cuối cùng và viết lại STT từ 1 tời dòng cuối cùng.
2/ Tạo mã tiếp theo: tìm trong cột mã có 3 ký tự là "KTA" hay "KTB" ghi lại số thứ tự lớn nhất (là phần còn lại phía bên phải sau khi bỏ đi 3 ký tự đầu) => và sẽ được số thứ tự mã kế tiếp

Có thể người ta lấy cớ để giới thiệu trang khác thôi. Xem bài #5.
Người ta có thể chỉ tung code và nói là sưu tầm ở đâu đó. Nhưng người ta ghi rõ nick và nơi tìm kiếm

 

[SA_DQ]

Danh sách nhân sự của chủ bài đăng chưa có mã (duy nhất) & như vậy sẽ giống như đại gia súc nhưng không có xương sống!

 

[batman1]

Danh sách nhân sự của chủ bài đăng chưa có mã (duy nhất) & như vậy sẽ giống như đại gia súc nhưng không có xương sống!

Nếu mục đích đăng bài của người ta là khác thì dữ liệu như nào chả được.

 

[SA_DQ]

Còn mục đích của mình là cho mọi người khác đọc chứ chủ bài đăng không quan trọng có cần hay không!

Chúc vui vẻ!

 

[llanhlungll]

Nếu mục đích đăng bài của người ta là khác thì dữ liệu như nào chả được.

Mục đích là cần code mới đăng bài nhờ giúp đỡ.. vì tự học nên mới phải mò.. tưởng mò đc chia sẻ AE ai cần thì tham khảo chứ chả phải quảng cáo ở đây làm gì