Thêm các hàng có quy luât

[whitelight]

Mình có các hàng ví dụ 1,7,13,19...
Muôn thêm vào đó các hàng 2,3,...7,8...
Các hàng được cho ban đầu có quy luật mọi người xem file nhé

 

[sealand]

Bạn dùng thử Code sau:

Private Sub CommandButton1_Click()
Dim Cl As Range, k
k = 1
With Sheet1
.Columns("H:L").Clear
Set Cl = .[A1]
Do While Cl.Offset <> ""
.Cells(k, "H") = Cl.Value
.Cells(k, "I") = 0
.Cells(k + 1, "I") = 1
.Cells(k, "I").Resize(2).AutoFill Destination:= _
.Cells(k, "I").Resize(24), Type:=xlFillDefault
 .Cells(k + 1, "J").Resize(, 3).Value = Cl.Offset(, 2).Resize(, 3).Value
.Cells(k + 7, "J").Resize(, 3).Value = Cl.Offset(1, 2).Resize(, 3).Value
.Cells(k + 13, "J").Resize(, 3).Value = Cl.Offset(2, 2).Resize(, 3).Value
.Cells(k + 19, "J").Resize(, 3).Value = Cl.Offset(3, 2).Resize(, 3).Value
k = k + 24
Set Cl = Cl.Offset(4)
Loop
End With
End Sub

 

[whitelight]

Mình có down file của bạn về nhg mà bật lên thì ns báo thế này

Nếu mình copy đoạn code của bạn vào 1 sheet khác thì nó chỉ chạy được ngày 24 bắt đầu từ 0h đến 23h
Bạn xem lại hộ mình nhé

 

[sealand]

Có 2 vấn đề:
1/Bạn phải điều chỉnh Cecurity xuống mức Low mới chạy được Code.
2/Mình viết Code mới giải quyết giải pháp, chưa sử lý các trường hợp tuỳ biến. Vậy nên cái ngày 24 què cụt nên loại bỏ, mỗi ngày phải có đủ 4 dòng khoảng thời gian.

 

[whitelight]

Có 2 vấn đề:
1/Bạn phải điều chỉnh Cecurity xuống mức Low mới chạy được Code.
2/Mình viết Code mới giải quyết giải pháp, chưa sử lý các trường hợp tuỳ biến. Vậy nên cái ngày 24 què cụt nên loại bỏ, mỗi ngày phải có đủ 4 dòng khoảng thời gian.

Cám ơn bạn cái đoạn ngày 24 bỏ đi ko sao.Nhg mà mình phải vào đâu để chỉnh cái Cecurity vậy bạn

 

[nghiaphuc]

Cám ơn bạn cái đoạn ngày 24 bỏ đi ko sao.Nhg mà mình phải vào đâu để chỉnh cái Cecurity vậy bạn

Security chứ không phải là Cecurity đâu. Bạn chọn Tools\Macro\Security và chọn mức Low hoặc Medium.