Xin giúp đỡ mình viết hàm tự động thêm dòng trong bảng!

[me_tu]

gửi các ACE trong GPE,mình có 1 file khi mình nhập vào ô màu vàng một giá trị n thì bảng bên dưới sẽ xuất hiện n dòng giống nhau...Mình chỉ mới tập tành viết code nên chưa có nhiều kinh nghiệm,các ACE có thể glúp mình file ễcl này,mình chân thành cảm ơn!

 

[keentwo]

Gửi Me_tu

-Bạn xem ở đây nhé.Nửa đêm rùi nên không làm nữa (lười quá)
- Bạn dựa vào code của bác Hyen ý

 

[me_tu]

-Bạn xem ở đây nhé.Nửa đêm rùi nên không làm nữa (lười quá)
- Bạn dựa vào code của bác Hyen ý

Bạn cho mình hỏi,code của bạn Hyen ở đâu vậy, có thể post lên cho mình tham khảo hay chỉ link dùm mình ko?Xin cám ơn!

 

[SA_DQ]

GPE, mình có 1 file khi mình nhập vào ô màu vàng một giá trị n thì bảng bên dưới sẽ xuất hiện n dòng giống nhau...Mình chỉ mới tập tành viết code nên chưa có nhiều kinh nghiệm,các ACE có thể glúp mình file ễcl này,mình chân thành cảm ơn!

Bạn dùng macro sự kiện sau:

Option Explicit
[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
     If Not Intersect(Target, [A3]) Is Nothing Then InsertRow
[B]End Sub[/B]

Public Sub InsertRow()
 On Error Resume Next
 Dim Jj As Long, Cls As Range, Dat As Date
 
 [A9].Resize(130).EntireRow.Hidden = False
 [A9].Resize(130 - 9).ClearContents
 For Jj = 2 To [A3].Value
   Set Cls = Cells(7 + Jj, "A"):             Dat = Cls.Offset(-1).Value
   If Month(Dat) < 12 Then
      Dat = DateSerial(Year(Dat), Month(Dat) + 1, Day(Dat))
   Else
      Dat = DateSerial(Year(Dat) + 1, 1, Day(Dat))
   End If
   Cls.Value = Dat
 Next Jj
 Jj = 1 + Cls.Row
 Range(Cells(Jj, "A"), Cells(128, "A")).EntireRow.Hidden = True
GPE:                                         End Sub

Bạn xem thêm trong file nha

 

[keentwo]

Bạn cho mình hỏi,code của bạn Hyen ở đâu vậy, có thể post lên cho mình tham khảo hay chỉ link dùm mình ko?Xin cám ơn!

-Xin lỗi nhé.Lúc đó nửa đêm nên quên up link.
-Nhưng may quá Bác SA_DQ đây rùi.File bác làm quá ổn

 

[hienhoanghuy]

xin cho mình hỏi, nếu đã tao ra dc add-ín roi thì buớc kế tiếp mình phải làm sao đề xác định vùng nào đc thêm dòng, dựa vào o nào để thêm dòng

 

[tieucongchuack]

Mình có bảng ghi nhận thời gian (Bảng A) ra vào của công nhân extract từ máy châm công. Mình cần đổ dữ liệu vào 1 spreadsheet (Bảng B) mà mỗi tên nhân viên trong Bảng B có 31 dòng (mặc định) tương ứng với 31 ngày làm việc trong tháng. Khi extract dữ liệu từ máy chấm công ra Bảng A thì có tháng 30 ngày hoặc 29 ngày nên mỗi tên nhân viên trong bảng A sẽ có 30 dòng hoặc 29 dòng. Và khi dữ liệu đổ bảng B (31 dòng mặc định cho mỗi tên) theo 1 số công thức được lập sẵn thi kết quả sẽ bị lộn xộn.

Cho nên mình muốn viết code thêm dòng cho Bảng A so cho mỗi nhân viên sẽ có 31 dòng để khi dữ liệu đổ vào bảng B sẽ không lộn xộn.

Xin mong sự trợ giúp của các ACE và những cao thủ về phần mềm văn phòng

 

[ChanhTQ@]

Bạn xem cách mình chuyển số liệu sang BCC tháng trong file

 

[tieucongchuack]

Thanks ChanhTQ@. Nhưng mà ý mình là thêm dòng trong bảng A. Ví dụ, từ row 2 - 31 thì thêm 1 dòng vì tháng 12 có 31 ngày. Mình không biết viết code Macro thế nào. Mong các ACE giúp đỡ