Lổi khi chèn dòng tự động điền công thức

[lamho27]

Chào các bạn

Em muốn thêm 1 dòng tự động điền công thức , nhưng nó không tự động từ dòng 3 đến 7 , mà nó bắt đầu từ dòng 8 đến cuối

Không hiểu tại sao ? nhờ các anh chị giúp đỡ chỉ giáo giùm

Cám ơn các anh chị

 

[tedaynui]

Phải thế này không.
Nếu đúng thế này thì bạn tìm hiểu chức năng phím nóng Ctrl-D

 

[lamho27]

cám ơn tedaynui , nhưng không phải như vậy , thí dụ em muốn chèn 1 dòng trong khoảng từ dòng 3 đến dòng 7 , dòng mới phải có công thức giống như dòng ở dưới ( từ dòng 8 thì ok không có vấn đề gì , nhưng từ dòng 3 đến 7 thì không được )

không hiểu tại sao ?

 

[nhapmon]

mình nghỉ cái này là do tính năng auto fill tự động của excell, bạn thử kiểm tra cách này nha
cách dòng cuối chừng 2, 3 dòng. bạn insert vào 2,3 dòng trống, rôi bạn gõ vào dòng cuối xem, nó sẻ mất tính năng auto fill.mình nghỉ chắc là nó thống kê một loạt 5-7 dòng gì đó ở trên sau đó nó thực hiên tương tự. chính vì vậy nó không có khả năng auto fill ở 7 dòng đâu của bạn.
còn nữa nếu ở cột B, nếu bạn cho data vào dòng cuối, rồi xuống hàng kế tiếp gõ số vào các cột H,K,N,O (trong công thức có chứa giá trị của cột B), mất tính năng auto fill
tương tự như vây khi cột C có giá trị ở dòng cuối, khi gõ tiếp dòng dưới thì những cell nào chứa cthuc liên quan đến C thì nó cũng auto fill.
nói chung tôi nghĩ nó liên quan đến việc thống kê các dòng phía trên, nếu các dòng phía trên giống nhau y chang thì nó sẻ tự autofill, khác nhau thì mất tính năng này.
một vài suy nghỉ chia sẻ cùng bạn

 

[dhn46]

Đó là cái thông minh của Excel. Bạn làm 1 công việc lặp đi lặp lại 4 lần thì lần thứ 5 nó tự động làm hành động giống 4 lần trước.
Nếu bạn muốn Fill công thức thì bạn có thể tạo List.

 

[lamho27]

Em đã làm thử mà không được , có cần phải sử dụng VBA không ?

 

[Quang_Hải]

Em đã làm thử mà không được , có cần phải sử dụng VBA không ?

Không cần thắc mắc nữa. Bác Bill đã tính như vậy rồi. Cứ 4 dòng liên tiếp có gì gì đó giống nhau như đúc thì Bác Bill giúp mình điền công thức của dòng trên xuống. Dùng List đi cho khoẻ. Nếu không thì khi chèn dòng rồi bấm Ctrl +D thử xem

 

[lamho27]

Em có 1 cái code VBA này, các anh chị xem thử có thể aá dụng được không ?

Sub NouvelleLigneAuDessus()
' Insère une ligne au-dessus de la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.EntireRow.Insert
ActiveCell.Range("A2").Select
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig - 1, 1), Cells(ZtNumLig - 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig - 1, i).HasFormula Then
Cells(ZtNumLig - 1, i).Clear Contents
End If
Next i
End Sub

 

[nhapmon]

Em có 1 cái code VBA này, các anh chị xem thử có thể aá dụng được không ?

nếu bạn thích dùng vba thì thử cái này xem có được ko?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo ErrHandler
Application.EnableEvents = False
EndRow = Range("a" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A4:A" & EndRow)) Is Nothing Then
Target.Offset(-1, 5).Resize(2, 10).Select
Selection.FillDown
Target.Offset(1, 0).Select 'neu ban enter khi nhap lieu xong
End If


ErrHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub