Code làm hiện số thứ tự tăng dần

NH_DK · 2/8/11

Em có 1 ví dụ này nhờ mọi người giúp cho đoạn code làm tắng số thứ tự?

dhn46 · 2/8/11

không biết như thế này có được không bạn

Mã:

Private Sub UserForm_Initialize()
Cells([a65536].End(xlUp).Row + 1, 1) = "H" & Right([a65536].End(xlUp), 4) + 1
End Sub

nghiaphuc · 2/8/11

NH_DK đã viết:
Em có 1 ví dụ này nhờ mọi người giúp cho đoạn code làm tắng số thứ tự?

Thử câu lệnh này xem:

PHP:

TextBox2 = WorksheetFunction.Max(S1.[B:B]) + 1

Thay đổi cấu trúc form một xíu (đổi Tab order, đặt thuộc tính Enabled của Textbox2 thành False), thêm 1 sub để khởi tạo STT khi load form:

PHP:

Private Sub UserForm_Activate()
    TextBox2 = WorksheetFunction.Max(S1.[B:B]) + 1
End Sub