Xin Code để chọn số dòng theo một biến!!

[huatrungkien2512]

Mình có ô B1 là ô nhập số hàng muốn chọn.

- Nếu ô B1=10 thì chọn từ ô A1 : A10 và điền số thứ tự từ 1:10
- Nếu ô B1 = 5 thì chọn từ ô A1: A5 và điền số thứ tự từ 1:5
Cám ơn nhiều !

 

[cadafi]

Mình có ô B1 là ô nhập số hàng muốn chọn.

- Nếu ô B1=10 thì chọn từ ô A1 : A10 và điền số thứ tự từ 1:10
- Nếu ô B1 = 5 thì chọn từ ô A1: A5 và điền số thứ tự từ 1:5
Cám ơn nhiều !

Có phải ý của bạn như thế này không? Xem file đính kèm nhé!

Code này để thực hiện yêu cầu của bạn, mình viết cho đơn giản dễ hiểu nhé!
[highlight=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
If [B1] >= 1 Then
Columns("A:A").ClearContents
For i = 1 To [B1]
Cells(i, 1) = i
Next i
Range("A1:A" & [B1]).Select
End If
End If
End Sub
[/highlight]

 

[hoangvuluan]

Copy code dưới đây vào mã của sheet muốn đánh số tự động:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B1].Address And [B1] > 0 Then
    [A:A].ClearContents
    With Me.Range("A1:A" & [B1])
        .FormulaArray = "=Row()"
        .Value = .Value
        .Select
    End With
End If
End Sub

 

[ndu96081631]

Có phải ý của bạn như thế này không? Xem file đính kèm nhé!

Code này để thực hiện yêu cầu của bạn, mình viết cho đơn giản dễ hiểu nhé!
[highlight=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
If [B1] >= 1 Then
Columns("A:A").ClearContents
For i = 1 To [B1]
Cells(i, 1) = i
Next i
Range("A1:A" & [B1]).Select
End If
End If
End Sub
[/highlight]

Không cần For đâu Kiệt ơi... Tôi làm vầy đây:

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Address = "$B$1" Then
    Range([A1], [A1].End(xlDown)).ClearContents
    [A1].Resize(Target).Value = Evaluate("=ROW($1:$65536)")
  End If
End Sub

Thử với vài chục ngàn dòng dử liệu để biết thế nào là "tốc độ"

 

[huatrungkien2512]

Đúng ý mình rồi, cám ơn Bạn Ca_dafi nhiều nha!!!

cám ơn bạn rất nhiều, mình đang viết một số chương trình, có gì không hiểu cho mình hỏi nữa nha.