Tự nhảy qua ngày mới khi đến mốc 24 giờ

[Thư Sinh Áo Trắng]

- Chia thời gian trong ngày thành 46 mốc, tức 30 phút = 1 mốc thời gian. Vậy 1 ngày có 46 mốc. Làm sao để nhảy qua ngày mới khi qua thời điểm 23h30 ngày hôm đó.
- Xin giúp đỡ công thức (hàm excel) hoặc Sub/Function (chương trình VBA) để lịch tự nhảy qua ngày mới khi kéo ô ngày vượt qua mộc 23h30
(file đính kèm)

 

[Phuocam]

- Chia thời gian trong ngày thành 46 mốc, tức 30 phút = 1 mốc thời gian. Vậy 1 ngày có 46 mốc. Làm sao để nhảy qua ngày mới khi qua thời điểm 23h30 ngày hôm đó.
- Xin giúp đỡ công thức (hàm excel) hoặc Sub/Function (chương trình VBA) để lịch tự nhảy qua ngày mới khi kéo ô ngày vượt qua mộc 23h30
(file đính kèm)View attachment 257354

Một ngày có 24 giờ / 0.5 = 48 mốc, không phải 46 mốc.

 

[le_vis]

- Chia thời gian trong ngày thành 46 mốc, tức 30 phút = 1 mốc thời gian. Vậy 1 ngày có 46 mốc. Làm sao để nhảy qua ngày mới khi qua thời điểm 23h30 ngày hôm đó.
- Xin giúp đỡ công thức (hàm excel) hoặc Sub/Function (chương trình VBA) để lịch tự nhảy qua ngày mới khi kéo ô ngày vượt qua mộc 23h30
(file đính kèm)View attachment 257354

Thử B2=IF(A2=0;"";IF(A2=A1;SUM(B1;"0:30");0))
rồi copi xuống

 

[bebo021999]

Cột giờ bị thiếu mốc "11:00" và "19:00"?
Ô A3
=A2+B2+"00:30:01"
Kéo A3 xuống.

 

[tijikama]

Một phương án đơn giản cho bạn tham khảo: gõ ngày đầu tiên ở ô A2, xong làm công thức ở ô A3
=IF(B3="00:00",A2+1,A2)
Kéo xuống là ok

 

[Thư Sinh Áo Trắng]

Cột giờ bị thiếu mốc "11:00" và "19:00"?
Ô A3
=A2+B2+"00:30:01"
Kéo A3 xuống.

Một phương án đơn giản cho bạn tham khảo: gõ ngày đầu tiên ở ô A2, xong làm công thức ở ô A3
=IF(B3="00:00",A2+1,A2)
Kéo xuống là ok

Em cảm ơn ạ!
Các phần chia thời gian và công thức của anh @tijikama đúng cái em cần ạ!

 

[VetMini]

Làm chỉnh luôn hai đầu:
- Đầu tiên hết, chỉnh định dạng cột B là Time (hiện tại dạng General sẽ gây khó khăn về sau).
- Vào Name Manager add 1 cái name sau. Name này xác định trị của nửa giờ:

- Gõ 20/07/2020 vào ô A2, "00:00" vào ô B2
- Gõ công thức này vào A3

- Gõ công thức này vào B3


- Kéo A3:B3 xuống đến chừng nào chán thì nghỉ

 

[Thư Sinh Áo Trắng]

Làm chỉnh luôn hai đầu:
- Đầu tiên hết, chỉnh định dạng cột B là Time (hiện tại dạng General sẽ gây khó khăn về sau).
- Vào Name Manager add 1 cái name sau. Name này xác định trị của nửa giờ:
View attachment 257381
- Gõ 20/07/2020 vào ô A2, "00:00" vào ô B2
- Gõ công thức này vào A3
View attachment 257378
- Gõ công thức này vào B3
View attachment 257380

- Kéo A3:B3 xuống đến chừng nào chán thì nghỉ

Cảm ơn anh ạ! Vậy là có đủ cách làm vừa hàm vừa code

 

[VetMini]

Cảm ơn anh ạ! Vậy là có đủ cách làm vừa hàm vừa code

Tôi cũng chả biết mấy cách.
Cách tôi đưa ra là phương pháp một người sử dụng bảng tính theo truyền thống sẽ dùng (hoặc tương tự vậy).
Các bài khác đưa ra cách truyền thống của GPE (công thức gọn đẹp), những người chuyên sử dụng công thức sẽ dùng.

 

[Thư Sinh Áo Trắng]

Làm chỉnh luôn hai đầu:
- Đầu tiên hết, chỉnh định dạng cột B là Time (hiện tại dạng General sẽ gây khó khăn về sau).
- Vào Name Manager add 1 cái name sau. Name này xác định trị của nửa giờ:
View attachment 257381
- Gõ 20/07/2020 vào ô A2, "00:00" vào ô B2
- Gõ công thức này vào A3
View attachment 257378
- Gõ công thức này vào B3
View attachment 257380

- Kéo A3:B3 xuống đến chừng nào chán thì nghỉ

Cách này đổi thành code VBA được không ạ!
Xin anh giúp cho vì dư liệu em nhiều quá gần 100.000 dòng dùng công thức thì nặng file về sau. Ban đầu em không lường đến vấn đề nặng file ạ!
Cụ thể ở đây em muốn kéo từ 20/07/2020 đến đến 20/04/2021 bằng VBA ạ!
Em cảm ơn anh!

 

[HieuCD]

Cách này đổi thành code VBA được không ạ!
Xin anh giúp cho vì dư liệu em nhiều quá gần 100.000 dòng dùng công thức thì nặng file về sau. Ban đầu em không lường đến vấn đề nặng file ạ!
Cụ thể ở đây em muốn kéo từ 20/07/2020 đến đến 20/04/2021 bằng VBA ạ!
Em cảm ơn anh!

từ 20/07/2020 đến đến 20/04/2021 tính cách nào ra 100.000 dòng ?

 

[Thư Sinh Áo Trắng]

từ 20/07/2020 đến đến 20/04/2021 tính cách nào ra 100.000 dòng ?

Dạ. Em kéo từ năm trc nhiều năm trc nữa ạ. Nhờ các anh giúp em VBA phần này với!

 

[HieuCD]

Dạ. Em kéo từ năm trc nhiều năm trc nữa ạ. Nhờ các anh giúp em VBA phần này với!

Kéo tới đâu thì ngưng?
ô B2 lấy từ đâu? tại sao là dạng chuổi?

 

[Phuocam]

Thử code này:

Public Sub NgayGio()
Dim sDate As Long, sTime As Double, i As Long
Dim lrow As Long, a As Variant
sDate = Range("A2").Value
sTime = Range("B2").Value
lrow = (VBA.Date - sDate + 1) * 48
If lrow > 1000000 Then
    MsgBox "So dong: " & lrow & " la qua lon"
    Exit Sub
End If
ReDim a(1 To lrow, 1 To 2)

For i = 1 To lrow
    sTime = sTime + 1 / 48
    If VBA.Round(sTime, 8) >= 1 Then
        sTime = sTime Mod 1
        sDate = sDate + 1
    End If
    If sDate > Date Then Exit For
    a(i, 1) = sDate
    a(i, 2) = sTime
    
Next i
Range("A3").Resize(lrow, 2) = a
Range("A3").Resize(lrow, 1).NumberFormat = "dd/mm/yyyy"
Range("B3").Resize(lrow, 1).NumberFormat = "hh:mm"
End Sub

 

[Maika8008]

If lrow > 1000000 Then

Cho dùng 500.000 dòng thôi bạn, 1 triệu lớn quá mà cũng chỉ có >48 ngàn dòng nữa là hết vốn rồi, kekekekeke

 

[Thư Sinh Áo Trắng]

Kéo tới đâu thì ngưng?
ô B2 lấy từ đâu? tại sao là dạng chuổi?

Có vài lý do:
- Do em dùng hàm Rand() để chế ra dữ liệu làm ví dụ ạ.
- Vợ em có bà sếp hay chơi tiền ảo đe nó đừng có chơi chăm mà làm ăn. Nhưng vẫn lo nó dấu chơi tiền ảo thì ngu người quá
- Trc đây vài năm thì có đứa bạn em học cùng lớp nó rủ chơi tiền ảo, từ chối theo kiểu không chơi đa cấp. Giờ thấy bạn hay đăng ảnh ở các khu Rì Sọt và "văn" = chuyên gia tài chính
Lên em đanh chút thời gian ngâm cứu về tiền ảo xem nó là cái gì. Mục đích xây dựng 1 số đường hồi quy bằng các dữ liệu theo quan điểm ạ của mình.
Mục đích của em muốn hiểu và tự ngâm cứu được về chứng khoán và tiền ảo nếu có cao nhân nào mách và chỉ cho để có cái nhập môm. Vì em chưa biết gì cả?

Bài đã được tự động gộp: 23/4/21

If lrow > 1000000 Then

Cho dùng 500.000 dòng thôi bạn, 1 triệu lớn quá mà cũng chỉ có >48 ngàn dòng nữa là hết vốn rồi, kekekekeke

Vậy là 1.048.000 ngàn dòng à anh. Khả năng dữ liệu em dùng tới 10 triệu dòng. Vậy vậy phải chia thành 10 bảng 1 triệu dòng rồi. Ko biết vba có đáp ứng đc ko anh nhỉ?

 

[Maika8008]

Vậy là 1.048.000 ngàn dòng à anh. Khả năng dữ liệu em dùng tới 10 triệu dòng. Vậy vậy phải chia thành 10 bảng 1 triệu dòng rồi. Ko biết vba có đáp ứng đc ko anh nhỉ?

Vụ công ty có dữ liệu cả triệu dòng mà dùng Excel, nếu gặp cụ Vetmini thì cụ trề cái môi dài cả thước và buông 1 từ: keo kiệt

 

[VetMini]

Khiếp. 10 triệu cái 1/2 giờ là 10000000/48/365 = 570 năm.
Một đế quốc trung bình chỉ 200 năm. Công ty này làm ăn với ai mà lâu dài thế nhỉ.

 

[Thư Sinh Áo Trắng]

Khiếp. 10 triệu cái 1/2 giờ là 10000000/48/365 = 570 năm.
Một đế quốc trung bình chỉ 200 năm. Công ty này làm ăn với ai mà lâu dài thế nhỉ.

Ý bác là nếu chạy trên 1 máy tính ạ.
Vậy em mới rào trc là đang ngâm cứu. Và chưa định hình được hướng khả quan.

 

[HieuCD]

Có vài lý do:
- Do em dùng hàm Rand() để chế ra dữ liệu làm ví dụ ạ.
- Vợ em có bà sếp hay chơi tiền ảo đe nó đừng có chơi chăm mà làm ăn. Nhưng vẫn lo nó dấu chơi tiền ảo thì ngu người quá
- Trc đây vài năm thì có đứa bạn em học cùng lớp nó rủ chơi tiền ảo, từ chối theo kiểu không chơi đa cấp. Giờ thấy bạn hay đăng ảnh ở các khu Rì Sọt và "văn" = chuyên gia tài chính
Lên em đanh chút thời gian ngâm cứu về tiền ảo xem nó là cái gì. Mục đích xây dựng 1 số đường hồi quy bằng các dữ liệu theo quan điểm ạ của mình.
Mục đích của em muốn hiểu và tự ngâm cứu được về chứng khoán và tiền ảo nếu có cao nhân nào mách và chỉ cho để có cái nhập môm. Vì em chưa biết gì cả?

Bài đã được tự động gộp: 23/4/21

Vậy là 1.048.000 ngàn dòng à anh. Khả năng dữ liệu em dùng tới 10 triệu dòng. Vậy vậy phải chia thành 10 bảng 1 triệu dòng rồi. Ko biết vba có đáp ứng đc ko anh nhỉ?

Vài tỷ dòng cũng được