Vấn đề nhập số thứ tự có điều kiện

[Hoàng Trọng Nghĩa]

Nhờ các Thầy các Anh hướng dẫn giúp mình vần đề này:
Khi nhập vô Textbox1 1 số nào đó (n), sau khi bấm Nhập thì bắt đầu từ cell A2 (sheet1) được chọn là 1 và lần lượt đến n số, cũng như ta Fill số thứ tự vậy.
Cám ơn rất nhiều!

 

[concogia]

Nhờ các Thầy các Anh hướng dẫn giúp mình vần đề này:
Khi nhập vô Textbox1 1 số nào đó (n), sau khi bấm Nhập thì bắt đầu từ cell A2 (sheet1) được chọn là 1 và lần lượt đến n số, cũng như ta Fill số thứ tự vậy.
Cám ơn rất nhiều!

Làm tạm "zì" thử xem bạn nhé
Thân

 

[Excel Công Cụ Tuyệt Vời Của Bạn]

Làm tạm "zì" thử xem bạn nhé
Thân

Bạn nên sửa lại đoạn sau:

Range("a1:a500").Delete

Thành:

Range("a1:a500").ClearContents

Vì nếu xoá như bạn thì nó sẽ xoá luôn nguyên cột đó. Nó làm ảnh hưởng đến các cột bên phải của bảng.

 

[ndu96081631]

Nhờ các Thầy các Anh hướng dẫn giúp mình vần đề này:
Khi nhập vô Textbox1 1 số nào đó (n), sau khi bấm Nhập thì bắt đầu từ cell A2 (sheet1) được chọn là 1 và lần lượt đến n số, cũng như ta Fill số thứ tự vậy.
Cám ơn rất nhiều!

Vụ điền STT nói nhiều rồi mà ta... không cần vòng lập đâu nha

Private Sub CommandButton1_Click()
  Range("A2:A60000").ClearContents
  Range("A2").Resize(TextBox1).Value = Evaluate("ROW(R:R)")
End Sub

Code chính là thế, ngoài ra nên bẩy lổi trường hợp nhập số không hợp lệ (số thập phân, Text... vân vân...)

 

[mythuat4p]

Sao cứ dùng macro thế. Ko có công thức đơn giản sao. Hihih

 

[ndu96081631]

Sao cứ dùng macro thế. Ko có công thức đơn giản sao. Hihih

Vấn đề là ở đây người ta đang lập trình cho Form cơ mà ---> Chả lẽ vừa code lại vừa công thức sao?
Điền STT ở đây chỉ là 1 phần nhỏ trong chương trình mà thôi!