Ngày tháng năm tự động (3 người xem)

[lamho27]

Chào các bạn trong diển đàn
Em muốn hỏi các bạn , có cách nào khi ở 1 ô , em đánh ngày 31/12/2008 thì bắt đầu ô phía dưới sẽ cho 1 loạt ngày tháng năm từ 1/1/2009 đến 31/12/2009
cám ơn nhiều

 

[ChanhTQ@]

Trong khi chờ đợi công thức, bạn tham khảo đỡ cái ni

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B2:D2")) Is Nothing And IsDate(Target.Value) Then
    Dim Zw As Integer
    For Zw = 1 To 366
        With Target
            .Offset(Zw).Value = .Value + Zw
        End With
    Next Zw
 End If
End Sub

Hắn tác dụng khi bạn nhập vô 1 trong 3 ô 'B22' số liệu dạng ngày.

 

[ndu96081631]

Cái này cũng xài tạm được đây:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    With Range("A2:A367")
      .FormulaR1C1 = "=R[-1]C +1"
      .Value = .Value
    End With
  End If
End Sub

Công thức thì.. cứ lấy cái trên công thêm 1 để ra.. cái dưới

 

[huuthang_bd]

Cái này cũng xài tạm được đây:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    With Range("A2:A367")
      .FormulaR1C1 = "=R[-1]C +1"
      .Value = .Value
    End With
  End If
End Sub

Công thức thì.. cứ lấy cái trên công thêm 1 để ra.. cái dưới

Chỉ cộng như thế thì khi cái trên rỗng, những cái dưới là những số thứ tự àh. Chắc phải chèn thêm IF().

 

[ndu96081631]

Chỉ cộng như thế thì khi cái trên rỗng, những cái dưới là những số thứ tự àh. Chắc phải chèn thêm IF().

Vâng! Ai muốn làm thế nào thì tùy ---> Ý tôi muốn đưa lên thuật toán không dùng For mà thôi (chứ bài này cũng không có gì đáng để suy nghĩ cả)

 

[lamho27]

ChanhTQ@ ơi, cho em hỏi 1 chút về macro của bạn , trong trường hợp em muốn nhập vô các ô khác , ex như B2 , C3 và D4 thì phải đổi macro như thế nào ?

 

[heosua174]

hic, cái này là cái mà em đang cần tìm đây, nhưng em thì chả biết gì về lập trình trong Ex cả, chỉ biết nhấn Alt +F11 để dán cái đọan code của mấy bác vào nhưng khi em vào hộp thoại Macro để chạy thì chả thấy cái nào cả, em đã đánh vào ô B2 "01/01/09" theo hướng dẫn trên của mấy bác rồi. Có thể chỉ giúp em để chạy cái này không ạ.