Giúp minh giải quyết vấn đề ROWS và COLUMNS

[marcopocolo]

vấn đề của em ở đây là khi em muốn vừa insert xong 1 dòng thì ô đầu tiên của dòng đó sẽ có ngay 1 công thức của mình đặt ra trong lúc lập trình !
ví dụ : vùng dữ liệu của mính sẽ là A2:C10 . khi vừa chèn thêm 1 dòng bất kì nằm trong vùng dl trên . thi ngay ô đầu tiên của dòng đó sẽ có ngay 1 công thức (công thức stt tự tăng lên chẳng hạn)
Mong mọi người giúp đỡ .

 

[chibi]

Bạn chèn thêm dòng bằng VBA hay bằng chức năng Insert Row của Excel?

 

[quochuy86]

Bạn nên cho 1 file ví dụ cụ thể để mọi người giúp đỡ dễ dàng hơn. Nhân tiện đây mình cũng xin hỏi 1 vấn đề sau:
- Khi mình thêm 1 dòng thì mình viết code cho nó như sau: "Selection.EntireRow.Insert"
- Bây giờ mình muốn thêm vào i dòng (cột) thì phải viết code như thế nào.
Mong mọi người giúp đỡ.
Thân

 

[chibi]

Nhân tiện đây mình cũng xin hỏi 1 vấn đề sau:
- Khi mình thêm 1 dòng thì mình viết code cho nó như sau: "Selection.EntireRow.Insert"
- Bây giờ mình muốn thêm vào i dòng (cột) thì phải viết code như thế nào.
Mong mọi người giúp đỡ.
Thân

Số dòng nó phụ thuộc vào cái "Selection" của bạn.

Range("A3:A5").EntireRow.Insert

sẽ thêm 3 dòng bắt đầu từ dòng 3.

 

[quochuy86]

to: chibi
oke mình đã hiểu rồi. thanks bạn

 

[marcopocolo]

và đây là file mình xin gởi các bạn giúp đỡ .

 

[ndu96081631]

và đây là file mình xin gởi các bạn giúp đỡ .

Với ví dụ của bạn thì tôi làm thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Range([A5], [A65536].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
      .Value = "=R[-1]C+1"
    End If
  End With
End Sub

 

[marcopocolo]

Với ví dụ của bạn thì tôi làm thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Range([A5], [A65536].End(xlUp))
    If Not Intersect(.Cells, Target) Is Nothing Then
      .Value = "=R[-1]C+1"
    End If
  End With
End Sub

Sao với file đính kèm của bạn. Mình thực hiện insert nhưng vẫn kô tự động có công thức ở dòng mình vừa chen vậy .

 

[sealand]

Mình đang dùng máy wind Trung quốc nên không Test được, thử thay đoạn mã sau:

.Value = "=R[-1]C+1"

bằng:

.Formula = "=R[-1]C+1"

 

[ndu96081631]

Sao với file đính kèm của bạn. Mình thực hiện insert nhưng vẫn kô tự động có công thức ở dòng mình vừa chen vậy .

Có khi nào chưa Enable macro khi mở file không vậy? Vụ này "nhỏ" quá nên có khi chẳng ai hướng dẩn (vì nghĩ rằng khi hỏi đến VBA đương nhiên đã biết điều này)