Chạy Kế hoạch dòng thu tiền theo tiến độ Hợp đồng nhưng chưa chốt chính xác thời điểm ký Hợp đồng (2 người xem)

Đoàn Trung Thành · 23/10/24

Chào các anh/chị,
Mình được giao Lập kế hoạch dòng thu tiền theo tiến độ hợp đồng nhưng thời điểm ký HĐ chưa xác định chính xác. Mình muốn nhờ anh chị giải quyết giúp bằng công thức để khi nhập ngày ký hợp đồng, thì tiến độ thu tiền các tháng tự động được tính ra theo quy định. Trân trọng cảm ơn./.
P/S: Mình gửi kèm Bảng nháp với các dữ liệu yêu cầu đầu vào, cần dùng công thức nào để khi nhập một ngày bất kỳ vào ô bôi vàng thì dòng tiền bôi màu xanh tự chạy ra theo đúng tiến độ.

viethung78 · 23/10/24

Dưới đây là cách bạn có thể thiết lập công thức để tự động tính toán dòng tiền dựa trên ngày ký hợp đồng:

Các bước thực hiện:

Giả sử ngày ký hợp đồng được nhập vào ô A1 (ô bôi vàng).
Với mỗi đợt thanh toán, bạn tính toán ngày thanh toán dựa trên ngày ký hợp đồng và số ngày được quy định.

Ví dụ công thức:

Đợt 1 (đặt cọc): =A1 (ngày ký hợp đồng)
Đợt 2: =A1 + 3 (sau 3 ngày kể từ ngày ký hợp đồng)
Đợt 3: =A1 + 15 (sau 15 ngày kể từ ngày ký hợp đồng)
Đợt 4: =A1 + 270 (sau 270 ngày kể từ ngày ký hợp đồng)
Đợt 5: =A1 + 300 (sau 300 ngày kể từ ngày ký hợp đồng)

Bạn có thể liên kết các ngày này với số tiền thanh toán để tạo một bảng dự báo dòng tiền theo tháng.

Nếu bạn muốn, mình có thể áp dụng trực tiếp các công thức này vào file Excel của bạn!

Đoàn Trung Thành · 23/10/24

viethung78 đã viết:
Dưới đây là cách bạn có thể thiết lập công thức để tự động tính toán dòng tiền dựa trên ngày ký hợp đồng:

Các bước thực hiện:

Giả sử ngày ký hợp đồng được nhập vào ô A1 (ô bôi vàng).

Với mỗi đợt thanh toán, bạn tính toán ngày thanh toán dựa trên ngày ký hợp đồng và số ngày được quy định.

Ví dụ công thức:

Đợt 1 (đặt cọc): =A1 (ngày ký hợp đồng)

Đợt 2: =A1 + 3 (sau 3 ngày kể từ ngày ký hợp đồng)

Đợt 3: =A1 + 15 (sau 15 ngày kể từ ngày ký hợp đồng)

Đợt 4: =A1 + 270 (sau 270 ngày kể từ ngày ký hợp đồng)

Đợt 5: =A1 + 300 (sau 300 ngày kể từ ngày ký hợp đồng)

Bạn có thể liên kết các ngày này với số tiền thanh toán để tạo một bảng dự báo dòng tiền theo tháng.

Nếu bạn muốn, mình có thể áp dụng trực tiếp các công thức này vào file Excel của bạn!

Bạn giúp mình được không chứ mình thấy vẫn mông lung lắm. Tks

SA_DQ · 23/10/24

@Chủ bài đăng:
Mình cho rằng thiết kế trang tính như vầy sẻ tiện hơn:

STT	Tháng	Năm	HĐ 01	HĐ 02	HĐ 03	HĐ 04
1	10	2024					HĐ 01	Tiến độ, ngày	% thanh toán	10/20/2024
2	11	2024					Tổng giá trị Hợp đồng			50,000,000,000
3	12	2024					Các đợt thanh toán
4	1	2025					Đợt 1 (đặt cọc)	10/20/2024		500,000,000
5	2	2025					Đợt 2	3	30%	14,500,000,000
6	3	2025					Đợt 3	15	40%	20,000,000,000
7	4	2025					Đợt 4	270	25%	12,500,000,000
8	5	2025					Đợt 5	300	5%	2,500,000,000
9	6	2025
10	7	2025					HĐ 02	Tiến độ	% thanh toán	10/30/2024
11	8	2025					Tổng giá trị Hợp đồng			40,000,000,000
12	9	2025					Các đợt thanh toán
13	10	2025					Đợt 1 (đặt cọc)	10/30/2024		500,000,000
14	11	2025					Đợt 2	3	30%	11,500,000,000
15	12	2025					Đợt 3	15	40%	16,000,000,000
16	1	2026					Đợt 4	270	25%	10,000,000,000
17	2	2026					Đợt 5	300	5%	2,000,000,000
18	3	2026

Đoàn Trung Thành · 23/10/24

SA_DQ đã viết:
@Chủ bài đăng:
Mình cho rằng thiết kế trang tính như vầy sẻ tiện hơn:

STT Tháng Năm HĐ 01 HĐ 02 HĐ 03 HĐ 04
1 10 2024 HĐ 01 Tiến độ, ngày % thanh toán
10/20/2024
2 11 2024 Tổng giá trị Hợp đồng 50,000,000,000
3 12 2024 Các đợt thanh toán
4 1 2025 Đợt 1 (đặt cọc)
10/20/2024
500,000,000
5 2 2025 Đợt 2 3
30%
14,500,000,000
6 3 2025 Đợt 3 15
40%
20,000,000,000
7 4 2025 Đợt 4 270
25%
12,500,000,000
8 5 2025 Đợt 5 300
5%
2,500,000,000
9 6 2025
10 7 2025 HĐ 02 Tiến độ % thanh toán
10/30/2024
11 8 2025 Tổng giá trị Hợp đồng 40,000,000,000
12 9 2025 Các đợt thanh toán
13 10 2025 Đợt 1 (đặt cọc)
10/30/2024
500,000,000
14 11 2025 Đợt 2 3
30%
11,500,000,000
15 12 2025 Đợt 3 15
40%
16,000,000,000
16 1 2026 Đợt 4 270
25%
10,000,000,000
17 2 2026 Đợt 5 300
5%
2,000,000,000
18 3 2026

Cảm ơn bạn, tuy nhiên mình có hàng trăm hợp đồng giá trị lớn nên thiết kế như vậy quá dàn trải và khối lượng công việc quá nhiều.

SA_DQ · 23/10/24

(/ấn đề giá trị (Hợp Đồng (HĐ)) lớn hay nhỏ không quan trọng;
Nếu hàng trăm HĐ thì bạn đem các bảng HĐ đó (các bảng phía phải) sang trang tính khác;
& Với lương HĐ nhiều như vậy nên xài VBA để tổng hợp
[Mình cho rằng với ngần ý HĐ mà xài công thức là không tưởng!]

Chúc bạn nhiều may mắn!

viethung78 · 23/10/24

Đoàn Trung Thành đã viết:
Bạn giúp mình được không chứ mình thấy vẫn mông lung lắm.

Đoàn Trung Thành đã viết:
Bạn giúp mình được không chứ mình thấy vẫn mông lung lắm. Tks

Mông lung là phải. Đến đây nhờ thì chỉ được giải quyết một điểm trong 1 bài toán. Muốn giải quyết cả bài thì cần đi học hoặc đi thuê mới fair.

SA_DQ · 23/10/24

Chủ bài đăng có thể tham khảo macro sự kiện theo thiết kế CSDL như bài trên của mình:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range, sRng As Range
 Dim J As Long, W As Integer, Rws As Long, fDat As Date, lDat As Date
 
 If Not Intersect(Target, [D1:F1]) Is Nothing Then
    Set Rng = Range([Ah1], [AH9999].End(xlUp))
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then Set sRng = sRng.Resize(8, 4)
    ReDim Arr(1 To 5, 1 To 2)
    Arr(1, 1) = sRng(4).Value
    Arr(1, 2) = sRng(16).Value
    Arr(2, 1) = Arr(1, 1) + sRng(18).Value
    Arr(2, 2) = sRng(20).Value
    Arr(3, 1) = Arr(1, 1) + sRng(22).Value
    Arr(3, 2) = sRng(24).Value
    Arr(4, 1) = Arr(1, 1) + sRng(26).Value
    Arr(4, 2) = sRng(28).Value
    Arr(5, 1) = Arr(1, 1) + sRng(30).Value
    Arr(5, 2) = sRng(32).Value
    [G3].Resize(5, 2).Value = Arr()
    Rws = [B2].End(xlDown).Row
    Cells(2, Target.Column).Resize(Rws).Value = ""
    For W = 1 To 5
        For J = 2 To Rws
            fDat = DateSerial(Cells(J, "C").Value, Cells(J, "B").Value, 1)
            lDat = DateSerial(Cells(J, "C").Value, 1 + Cells(J, "B").Value, 0)
            If Arr(W, 1) >= fDat And Arr(W, 1) <= lDat Then
                Cells(J, Target.Column).Value = _
                    Format((Arr(W, 2) + Cells(J, Target.Column).Value), "###")
            End If
        Next J
    Next W
 End If
End Sub

Đoàn Trung Thành · 24/10/24

SA_DQ đã viết:

Chủ bài đăng có thể tham khảo macro sự kiện theo thiết kế CSDL như bài trên của mình:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range, sRng As Range
 Dim J As Long, W As Integer, Rws As Long, fDat As Date, lDat As Date
 
 If Not Intersect(Target, [D1:F1]) Is Nothing Then
    Set Rng = Range([Ah1], [AH9999].End(xlUp))
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then Set sRng = sRng.Resize(8, 4)
    ReDim Arr(1 To 5, 1 To 2)
    Arr(1, 1) = sRng(4).Value
    Arr(1, 2) = sRng(16).Value
    Arr(2, 1) = Arr(1, 1) + sRng(18).Value
    Arr(2, 2) = sRng(20).Value
    Arr(3, 1) = Arr(1, 1) + sRng(22).Value
    Arr(3, 2) = sRng(24).Value
    Arr(4, 1) = Arr(1, 1) + sRng(26).Value
    Arr(4, 2) = sRng(28).Value
    Arr(5, 1) = Arr(1, 1) + sRng(30).Value
    Arr(5, 2) = sRng(32).Value
    [G3].Resize(5, 2).Value = Arr()
    Rws = [B2].End(xlDown).Row
    Cells(2, Target.Column).Resize(Rws).Value = ""
    For W = 1 To 5
        For J = 2 To Rws
            fDat = DateSerial(Cells(J, "C").Value, Cells(J, "B").Value, 1)
            lDat = DateSerial(Cells(J, "C").Value, 1 + Cells(J, "B").Value, 0)
            If Arr(W, 1) >= fDat And Arr(W, 1) <= lDat Then
                Cells(J, Target.Column).Value = _
                    Format((Arr(W, 2) + Cells(J, Target.Column).Value), "###")
            End If
        Next J
    Next W
 End If
End Sub

Cảm ơn bạn, mình mày mò cả chiều qua cũng lập được công thức rồi, hơi cồng kềnh nhưng đáp ứng đủ yêu cầu của mình. Macro mình chưa biết nhiều nên chắc phải học thêm mới hiểu được các đoạn mã lệnh của bạn. Một lần nữa cảm ơn sự nhiệt tình giúp đỡ!

SA_DQ · 24/10/24

Đoàn Trung Thành đã viết:
Cảm ơn bạn, mình mày mò cả chiều qua cũng lập được công thức rồi, hơi cồng kềnh nhưng đáp ứng đủ yêu cầu của mình. . . . .

Bạn đã thử xài các công thức với 100 hợp đồng chưa vậy?

Nếu kết quả là rùa bò thì chuyển sang VBA nha, mình đợi!

Chạy Kế hoạch dòng thu tiền theo tiến độ Hợp đồng nhưng chưa chốt chính xác thời điểm ký Hợp đồng (2 người xem)

Người dùng đang xem chủ đề này

Đoàn Trung Thành

Thành viên mới

File đính kèm

viethung78

Thành viên chính thức

Các bước thực hiện:

Ví dụ công thức:

Đoàn Trung Thành

Thành viên mới

Các bước thực hiện:

Ví dụ công thức:

SA_DQ

/(hông là gì!

Đoàn Trung Thành

Thành viên mới

SA_DQ

/(hông là gì!

viethung78

Thành viên chính thức

SA_DQ

/(hông là gì!

Đoàn Trung Thành

Thành viên mới

SA_DQ

/(hông là gì!

File đính kèm

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

Chạy Kế hoạch dòng thu tiền theo tiến độ Hợp đồng nhưng chưa chốt chính xác thời điểm ký Hợp đồng (2 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên chính thức

Các bước thực hiện:​

Ví dụ công thức:​

Thành viên mới

Các bước thực hiện:​

Ví dụ công thức:​

/(hông là gì!

Thành viên mới

/(hông là gì!

Thành viên chính thức

/(hông là gì!

Thành viên mới

/(hông là gì!

File đính kèm

Đếm ngược thời gian

Các bước thực hiện:

Ví dụ công thức:

Các bước thực hiện:

Ví dụ công thức: