Nhập và đếm ngày tháng năm theo đúng định dạng (1 người xem)

[doibuonhokem]

Ngày của mình nhập bằng tay, không lấy bằng hàm Now().
Các bạn sửa code ở file đính kèm giúp mình để khi nhấn button nó nhập đúng theo định dang ngày.
Cụ thể: Ô A1 mình là Tháng 03, ô A2 là 30/03/2017 và ô A2 được định dạng là dd/mm/yy nên nó hiện 30/03/17.
Vấn đề mình viết code để nhập ngày tiếp theo là 31/03/2017 xuống ô B2 và phải hiển thị ra là 31/03/17. Nhưng sau khi nhấn button nó lại hiển thị là 31/03/2017, không đồng bộ với ô phía trên.
Và cứ nhấn 1 lần thì ngày tự động nhập xuống ô dưới và tăng lên 1 ngày, tháng cũng vậy tăng theo từng tháng, qua 31 tháng 3 tự động nhập vào Tháng 04.
Code mình cần sửa đoạn nào hay có cách viết nào khác mong các bạn chỉ giúp.
Cám ơn.

 

[Hoang2013]

Theo mình bạn nên nhập dữ liệu ngày-tháng-năm có dạng "Mẽo": "MM/DD'yyyy"
Còn chuyện của bạn định dạng nó thành cái giống gì cũng được

 

[ndu96081631]

Ngày của mình nhập bằng tay, không lấy bằng hàm Now().
Các bạn sửa code ở file đính kèm giúp mình để khi nhấn button nó nhập đúng theo định dang ngày.
Cụ thể: Ô A1 mình là Tháng 03, ô A2 là 30/03/2017 và ô A2 được định dạng là dd/mm/yy nên nó hiện 30/03/17.
Vấn đề mình viết code để nhập ngày tiếp theo là 31/03/2017 xuống ô B2 và phải hiển thị ra là 31/03/17. Nhưng sau khi nhấn button nó lại hiển thị là 31/03/2017, không đồng bộ với ô phía trên.
Và cứ nhấn 1 lần thì ngày tự động nhập xuống ô dưới và tăng lên 1 ngày, tháng cũng vậy tăng theo từng tháng, qua 31 tháng 3 tự động nhập vào Tháng 04.
Code mình cần sửa đoạn nào hay có cách viết nào khác mong các bạn chỉ giúp.
Cám ơn.

Thử vầy xem:

Sub a()
  Dim dRet As Double
  With Range("B6000").End(xlUp)
    dRet = .Value + 1
    .Offset(1).Value = dRet: .Offset(1).NumberFormat = "dd/mm/yy"
    .Offset(1, -1).Value = Month(dRet): .Offset(1, -1).NumberFormat = """Tháng ""00"
  End With
End Sub

 

[doibuonhokem]

Nó báo lỗi hàm dRet = .Value + 1 bạn ơi Lỗi 13

 

[ndu96081631]

Nó báo lỗi hàm dRet = .Value + 1 bạn ơi Lỗi 13

Vậy chứng tỏ cell A1 đã nhập liệu không đúng chuẩn

 

[doibuonhokem]

Mình nhập đúng mà, vẫn lỗi ấy
Hỏi bạn thêm có cách nào bấm cái nó thêm 10 dòng cùng ngày, cùng tháng luôn 1 lúc không? Như kiểu mình còn nhiều dữ liệu cùng 1 ngày trên nhiều dòng á.
Cám ơn bạn.

 

[ndu96081631]

Mình nhập đúng mà, vẫn lỗi ấy
Hỏi bạn thêm có cách nào bấm cái nó thêm 10 dòng cùng ngày, cùng tháng luôn 1 lúc không? Như kiểu mình còn nhiều dữ liệu cùng 1 ngày trên nhiều dòng á.
Cám ơn bạn.

Rõ ràng sai rồi còn gì. Làm gì có ngày 31/02/2017 hả bạn

 

[doibuonhokem]

Ơ mình sai rồi,hix. Vậy có cách nào nhấn Button nó nhập luôn 1 lúc 10-20 dòng cùng 1 ngày không bạn?

 

[ndu96081631]

Ơ mình sai rồi,hix. Vậy có cách nào nhấn Button nó nhập luôn 1 lúc 10-20 dòng cùng 1 ngày không bạn?

Ví dụ thế này:

Sub a()
  Dim dRet As Double
  With Range("B6000").End(xlUp).Offset(1).Resize([COLOR=#ff0000]20[/COLOR])
    .Value = "=R[-1]C+1"
    .Offset(, -1).Value = "=Month(RC[1])"
    .NumberFormat = "dd/mm/yy"
    .Offset(, -1).NumberFormat = """Tháng ""00"
    .Offset(, -1).Resize(, 2).Value = .Offset(, -1).Resize(, 2).Value
  End With
End Sub

Con số 20 màu đỏ chính là số dòng tùy chỉnh

 

[doibuonhokem]

Hi, trong lúc chờ bạn mình cũng làm thử Do While cũng ra. Cám ơn bạn nhé.

 

[doibuonhokem]

Ơ sai rồi bạn gì đó ơi, nhập cùng 1 ngày 20 lần á, ví dụ ngày 01/04/2017 là nhập 20 lần cùng 1 ngày. Chứ ko phải 20 ngày tăng dần.

 

[ndu96081631]

Ơ sai rồi bạn gì đó ơi, nhập cùng 1 ngày 20 lần á, ví dụ ngày 01/04/2017 là nhập 20 lần cùng 1 ngày. Chứ ko phải 20 ngày tăng dần.

Vậy càng dễ chứ sao! Tự nghiên cứu nhé
Dù sao thì bạn đã Do While gì gì đó và ra kết quả rồi, cứ thế xài luôn cũng được

 

[doibuonhokem]

Hix, không được bạn ơi nó vẫn cứ tăng. không làm được. bạn giúp mình với.

 

[Ba Tê]

Ơ sai rồi bạn gì đó ơi, nhập cùng 1 ngày 20 lần á, ví dụ ngày 01/04/2017 là nhập 20 lần cùng 1 ngày. Chứ ko phải 20 ngày tăng dần.

Lấy cái gì để biết là "nhập cùng 1 ngày 20 lần á"? Vi vu....

Sub a()
Dim I As Long, Lubu As Long
I = Range("B60000").End(xlUp).Row
Lubu = Range("B" & I) + 1
With Range("B" & I + 1).Resize(20)  '<------------20 ne'
    .Value = Lubu
    .NumberFormat = "dd/mm/yy"
End With
End Sub

 

[doibuonhokem]

Như file đính kèm nè bạn. Mình muốn nhập ngày 29 từ Bia xuống đến Tivi ấy. Nhưng định dạng ngày nhập vào là dd/mm/yy nhé.

 

[doibuonhokem]

Ơ cám ơn bạn Ba Tê, mình làm được rồi.

 

[doibuonhokem]

Ủa bạn Ba Tê ơi mình muốn chạy 2 cột, thêm cột tháng nữa ở cột A thì làm như thế nào ạ?

 

[Ba Tê]

Ủa bạn Ba Tê ơi mình muốn chạy 2 cột, thêm cột tháng nữa ở cột A thì làm như thế nào ạ?

Sao bạn không gởi file và nói rõ 1 lần?

Public Sub GPE()
Dim fRow As Long, eRow As Long
fRow = Range("A65536").End(xlUp).Row
eRow = Range("C65536").End(xlUp).Row
If eRow > fRow Then
    Range("A" & fRow + 1 & ":A" & eRow).Value = Range("A" & fRow).Value
    Range("B" & fRow + 1 & ":B" & eRow).Value = Range("B" & fRow).Value
    Range("B" & fRow + 1 & ":B" & eRow).NumberFormat = "dd/mm/yy"
End If
End Sub

 

[doibuonhokem]

Bạn Ba Tê với bạn ndu ơi sửa giúp mình với, mình nạp code của bạn Ba Tê nhưng nó không chạy. Các bạn sửa giúp mình nhấn Button là nó nhảy 1 lần 20 dòng cùng 1 ngày nhé.
Cám ơn.

 

[doibuonhokem]

Các bạn giúp mình giải quyết vấn đề này với. File đính kèm ngay bài phía trên.