Tạo giờ tại cột B (1 người xem)

[a.nguoidensau]

Chào các anh chị
Tôi có 1 vướng mắc muốn nhờ mọi người giúp đỡ. Đó là viết giùm tôi Code tạo được chuỗi số như cột B, căn cứ vào cột A . Tôi xin cảm ơn.

 

[leonguyenz]

Chào các anh chị
Tôi có 1 vướng mắc muốn nhờ mọi người giúp đỡ. Đó là viết giùm tôi Code tạo được chuỗi số như cột B, căn cứ vào cột A . Tôi xin cảm ơn.

Dùng công thức được không bạn?

B3=MOD(ROW(A24),24)

 

[a.nguoidensau]

Dùng công thức được không bạn?

B3=MOD(ROW(A24),24)

Mình xin cảm ơn Mr.Bum, công thức của bạn dùng tốt quá đi chứ. Và bạn cho mình hỏi thêm là trên đây số liệu của mình mới có 1 tháng thì dùng công thức của bạn kéo xuống, nhưng nếu là 6-12 tháng mình có thể làm cách nào nhanh không, chẳng hạn bấm 1 nút?

 

[leonguyenz]

Mình xin cảm ơn Mr.Bum, công thức của bạn dùng tốt quá đi chứ. Và bạn cho mình hỏi thêm là trên đây số liệu của mình mới có 1 tháng thì dùng công thức của bạn kéo xuống, nhưng nếu là 6-12 tháng mình có thể làm cách nào nhanh không, chẳng hạn bấm 1 nút?

Thử code sau xem:

Sub Button1_Click()
Dim TuT, DenT, n As Long
TuT = Application.InputBox("Thang Bat Dau:", "NHAP LIEU")
DenT = Application.InputBox("Thang Ket Thuc:", "NHAP LIEU")
If IsEmpty(TuT) Or IsEmpty(DenT) Then
    MsgBox "Chua Nhap Tu Thang Den Thang"
ElseIf IsNumeric(TuT) And IsNumeric(DenT) And Val(TuT) <= Val(DenT) Then
    ActiveCell.Resize(, 2).End(3).NumberFormat = "General"
    Do
        n = n + 1
        ActiveCell.Offset(, 1).Formula = "=MOD(ROW(A24),24)"
        ActiveCell.Offset(n * 24 - 24).Resize(24) = DateSerial(2014, TuT, 1) + n - 1
        ActiveCell.Offset(n * 24 - 24, 1).Resize(24).Formula = "=MOD(ROW(A24),24)"
    Loop Until ActiveCell.Offset(n * 24 - 24) = DateSerial(2014, DenT + 1, 1) - 1
Else
    MsgBox "Nhap Sai Thang"
End If
End Sub

 

[a.nguoidensau]

Thử code sau xem:

Sub Button1_Click()
Dim TuT, DenT, n As Long
TuT = Application.InputBox("Thang Bat Dau:", "NHAP LIEU")
DenT = Application.InputBox("Thang Ket Thuc:", "NHAP LIEU")
If IsEmpty(TuT) Or IsEmpty(DenT) Then
    MsgBox "Chua Nhap Tu Thang Den Thang"
ElseIf IsNumeric(TuT) And IsNumeric(DenT) And Val(TuT) <= Val(DenT) Then
    ActiveCell.Resize(, 2).End(3).NumberFormat = "General"
    Do
        n = n + 1
        ActiveCell.Offset(, 1).Formula = "=MOD(ROW(A24),24)"
        ActiveCell.Offset(n * 24 - 24).Resize(24) = DateSerial(2014, TuT, 1) + n - 1
        ActiveCell.Offset(n * 24 - 24, 1).Resize(24).Formula = "=MOD(ROW(A24),24)"
    Loop Until ActiveCell.Offset(n * 24 - 24) = DateSerial(2014, DenT + 1, 1) - 1
Else
    MsgBox "Nhap Sai Thang"
End If
End Sub

Mình xin chân thành cảm ơn bạn Mr.Bum đã nhiệt tình giúp đỡ. Đây chính là cái mình cần để áp dụng vào công việc của mình.
Cảm ơn Mr.Bum rất nhiều, rất nhiều.