Tự động chèn dòng theo điều kiện

[bigbabol89]

Em chào các anh chị,
Em muốn nhờ các anh chị giúp em bài toán sau :
- Tự động chèn dòng sao cho mỗi mã đều có đủ số ngày cho trước.
- Sau đó copy công thức vào các ô vừa chèn.
Em có ví dụ ở file đính kèm
Em cám ơn ạ.

 

[bigbabol89]

Nếu ý 2 copy công thức khó làm thì các anh/chị giúp em ý 1 thôi cũng được ạ.
Em cám ơn.

 

[ducdoom]

Bạn thử xem code này nhé. code mình viết ẩu lắm

Option Explicit

Sub insertRowAndFillDownFomular()

Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim startDate As Date: startDate = ws.Range("C1").Value
Dim endDate As Date: endDate = ws.Range("D1").Value

Dim dateCounter As Date: dateCounter = startDate
Dim i As Long
Dim LR As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Dim dicMa As Object
Set dicMa = CreateObject("Scripting.Dictionary")
Dim xKey As Variant

For i = 4 To LR
    xKey = ws.Range("A" & i).Value2
    If Not dicMa.exists(xKey) Then
        dicMa.Add xKey, ""
    End If
Next i

i = 4
Dim k As Variant
For Each k In dicMa.Keys
    Do
        ws.Range("A" & i).Value2 = k
        ws.Range("B" & i).Value = dateCounter
        dateCounter = dateCounter + 1
        i = i + 1
    Loop Until dateCounter > endDate
    dateCounter = startDate
Next k

LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("C4", "D" & LR).FillDown

End Sub

 

[bigbabol89]

Bạn thử xem code này nhé. code mình viết ẩu lắm

Option Explicit

Sub insertRowAndFillDownFomular()

Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim startDate As Date: startDate = ws.Range("C1").Value
Dim endDate As Date: endDate = ws.Range("D1").Value

Dim dateCounter As Date: dateCounter = startDate
Dim i As Long
Dim LR As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Dim dicMa As Object
Set dicMa = CreateObject("Scripting.Dictionary")
Dim xKey As Variant

For i = 4 To LR
    xKey = ws.Range("A" & i).Value2
    If Not dicMa.exists(xKey) Then
        dicMa.Add xKey, ""
    End If
Next i

i = 4
Dim k As Variant
For Each k In dicMa.Keys
    Do
        ws.Range("A" & i).Value2 = k
        ws.Range("B" & i).Value = dateCounter
        dateCounter = dateCounter + 1
        i = i + 1
    Loop Until dateCounter > endDate
    dateCounter = startDate
Next k

LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("C4", "D" & LR).FillDown

End Sub

Hì hì, lại là bạn giúp rồi.
Code chạy rất tốt bạn ah.
Cám ơn bạn nhiều nhé.

 

[ducdoom]

Không có chi. Bạn cứ đăng nhiều bài toán lên là mình vui rồi :v

 

[bigbabol89]

Không có chi. Bạn cứ đăng nhiều bài toán lên là mình vui rồi :v

Bạn ơi, xin lỗi bạn mình mới thử thì thấy :
- Nếu cột Mã là định dạng TEXT thì code chạy không đúng.
- Nếu chỉ filldown các các ô chứa công thức thôi có được không nhỉ ?
Bạn xem giúp với nhé.
Cám ơn bạn

 

[ducdoom]

Bạn ơi, xin lỗi bạn mình mới thử thì thấy :
- Nếu cột Mã là định dạng TEXT thì code chạy không đúng.
- Nếu chỉ filldown các các ô chứa công thức thôi có được không nhỉ ?
Bạn xem giúp với nhé.
Cám ơn bạn

Không đúng chỗ nào đó bạn? bạn gửi file chi tiết mô tả lỗi và kết quả mong muốn để mình xem thử

 

[bigbabol89]

Không đúng chỗ nào đó bạn? bạn gửi file chi tiết mô tả lỗi và kết quả mong muốn để mình xem thử

Không hiểu sao mình copy ra file mới thì lại chạy được rồi.
Cám ơn bạn nhé