Để nhập dữ liệu nhanh trong exel 2003

[vananh2009]

Các anh chị ơi cho em hỏi, em phải nhập dữ liệu của công ty, số lượng lên tới hơn 2000 tờ, mỗi lần chỉ nhập chỉ cộng thêm 1, có nghĩa là nếu ở đó là 1 thì cộng thêm 1 nữa là 2 và cứ dùng phép +1 để ra số tiếp theo. Tuy nhiên em giờ làm thủ công cứ ấn vào cột đó để cộng thêm 1 và nhập bằng tay, còn tổng số thì tính cộng lên. Vậy có cách nào giúp em để chỉ kích vào ô cần nhập là sẽ tự động cộng thêm 1 hay không ah, vì một bảng có khoảng 40 cột em sợ mình nhìn lộn rồi cộng nhầm thì toi. Em cảm ơn các anh chị trước ah!

 

[le tin]

Bạn gởi file lên , có người giúp ngay , đơn giản mà

 

[vananh2009]

Để nhập dữ liệu nhanh trong excel 2003

Em cảm ơn anh ah, em xin gửi file đính kèm theo đây ah. em xin loi may cua em dang bi virut nen khong tải nên được file excel ah.

 

[le tin]

Em cảm ơn anh ah, em xin gửi file đính kèm theo đây ah. em xin loi may cua em dang bi virut nen khong tải nên được file excel ah.

Cố gắng lại làm lại đi , ví dụ đưa không cụ thể , nên khó hình dung quá

 

[Hai Lúa Miền Tây]

Các anh chị ơi cho em hỏi, em phải nhập dữ liệu của công ty, số lượng lên tới hơn 2000 tờ, mỗi lần chỉ nhập chỉ cộng thêm 1, có nghĩa là nếu ở đó là 1 thì cộng thêm 1 nữa là 2 và cứ dùng phép +1 để ra số tiếp theo. Tuy nhiên em giờ làm thủ công cứ ấn vào cột đó để cộng thêm 1 và nhập bằng tay, còn tổng số thì tính cộng lên. Vậy có cách nào giúp em để chỉ kích vào ô cần nhập là sẽ tự động cộng thêm 1 hay không ah, vì một bảng có khoảng 40 cột em sợ mình nhìn lộn rồi cộng nhầm thì toi. Em cảm ơn các anh chị trước ah!

Dùng thử code sau nhé
Bạn nhập số cần cộng vào vùng từ A5:A200 (Thay đổi tùy bạn)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
  If Not Intersect(Range("a5:a200"), Target) Is Nothing And Target.Count = 1 Then
    With Target
     For i = 1 To 9
      .Offset(0, i) = .Offset(0, i).Value + .Value
     Next i
    End With
  End If
End Sub