Bạn dùng hàm thử xemTình hình em đang có cái bảng như thế này, anh chị có cách nào giúp em add tự động bằng code vb từ ngày đầu tháng đến ngày cuối tháng trong cột A1 được không ạ? Chứ cứ mỗi lần làm em phải đánh từng ngày tháng vào rất mất thời gian, mỗi ngày ở trong đó có số hàng không giống nhau, giúp e với nhé, em chân thành cảm ơn ạ!
Của bác đấy. Mong là đúng ý.
=IF(B3<>"","ngay",IF(B2<>"msnv",A2,MAX($A$2:A2)+1))
Đoạn này không hiểu lắm.
- Bạn nhập ở ô A2 1/4/15
(2) Bác @Hyen17 thì đúng ý em rồi ạ, có điều có thêm ngày CN nữa ạ,
(1)bác có thể hướng dẫn cho em làm như thế nào k? em cop đoạn mã vào cái file của em thì nó lại chạy không được ạ
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b1]) Is Nothing Then
Dim Arr()
Dim Dat As Date, J As Long
Dat = DateSerial([A1].Value, Target.Value, 0)
Arr() = Range([A3], [A3].End(xlDown)).Value
For J = 1 To UBound(Arr())
If Arr(J, 1) = "Ngày" Then
Dat = Dat + 1
Else
Arr(J, 1) = Dat
End If
Next J
[A3].Resize([B3].CurrentRegion.Rows.Count).Value = Arr()
End If
End SubOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b1]) Is Nothing Then
Dim Arr(), BSX As String '*'
Dim Dat As Date, J As Long
BSX = InputBox("Nhap Chuoi Ban Càn: ", "GPE.COM", "NT001") '<=|'
Dat = DateSerial([A1].Value, Target.Value, 0)
Arr() = Range([A3], [B3].End(xlDown)).Value '*'
For J = 1 To UBound(Arr())
If Arr(J, 1) = "Ngày" Then
Dat = Dat + 1
Else
Arr(J, 1) = Dat
End If
If Arr(J, 2) <> "baixe" Then Arr(J, 2) = BSX
Next J
[A3].Resize([B3].CurrentRegion.Rows.Count, 2).Value = Arr()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$2" Then
Dim i&, n&
n = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For i = 3 To n
If ActiveSheet.Range("A" & i).Value <> "" And _
ActiveSheet.Range("A" & i).Value <> "ngay" Then
ActiveSheet.Range("A" & i) = ""
End If
If ActiveSheet.Range("A" & i).Value = "ngay" Then
ActiveSheet.Range("A" & i) = "ngay"
End If
If ActiveSheet.Range("A" & i).Value = "" And _
IsDate(ActiveSheet.Range("A" & i - 1).Value) = True Then
ActiveSheet.Range("A" & i) = ActiveSheet.Range("A" & i - 1)
End IfBác tải file đính kèm về kiểm tra nhé.
Bác chỉ cần định dạng cột A là kiểu "Date" sẽ chạy ầm ầm.
If Target.Address = "$A$2" Then
ActiveSheet.Range("A1", "A" & n).NumberFormat = "dd/mm/yyyy" 'Them dong nay
For i = 3 To n
