Help lập công thức tự động phân bổ công cụ dụng cụ (4 người xem)

[phap van luu]

Nhờ diễn đàn giúp lập công thức tại tháng 01, các tháng sau chỉ cần kéo công thức là tự nhảy. Hiện tại mình chỉ nhập bằng tay. Mỗi lần thay đổi thời gian phân bổ lại phải nhập lại.
File đính kèm.


Thanks

 

[comet_1701]

Nhờ diễn đàn giúp lập công thức tại tháng 01, các tháng sau chỉ cần kéo công thức là tự nhảy. Hiện tại mình chỉ nhập bằng tay. Mỗi lần thay đổi thời gian phân bổ lại phải nhập lại.
File đính kèm.


Thanks

Cái này theo mình hàng tháng, bạn nên phân bổ thành từng bảng dạng table ý, hiện tại của bạn làm rồi quá
=DATEDIF(E5,DATE(2015,3,0),"m"). Có thể dùng hàm này để tính số tháng phân bổ đến thời điểm hiện tại.
E5 là ngày bắt đầu, DATE(2015,3,0): cái này ví dụ là ngày cuối cùng của tháng bạn phân bổ ( ở đây là tháng 2), m: là số tháng bạn cần lấy.
Câu hỏi này có lẽ sang webketoan.vn có khi bạn có nhiều câu trả lời hơn. Hồi xưa mình có file của dn nước ngoài nhưng mất tiêu rồi nên ko gửi cho bạn tham khảo được
Phân bổ thì dễ nhưng ko cẩn thận dễ nhầm như chơi.

 

[comet_1701]

Tôi tìm lại được mail rồi, bạn để lại mail của bạn , tôi gửi lại vào mail cho nhé

 

[quoctan132]

Tôi tìm lại được mail rồi, bạn để lại mail của bạn , tôi gửi lại vào mail cho nhé

Bác gửi cho em với nhé.em cũng đang cần. Mail: quoctan1392@gmail.com

 

[comet_1701]

Bác gửi cho em với nhé.em cũng đang cần. Mail: quoctan1392@gmail.com

Bạn check mail nhé. Mình vừa gửi

 

[anhlanhvtc]

Bác gửi cho em với nhé.em cũng đang cần. Mail: quoctan1392@gmail.com

có thể gửi giúp em được không ạ,mail em:anhlanhvtc@gmail.com.Em cảm ơn ạ

 

[sealand]

Tôi tham gia nên viết 1 hàm để tính khấu hao:

-Trước và sau thời điểm tính KH sẽ không tính.
-Trong thời điểm tính KH làm tròn số nguyên, kỳ cuối cùng sẽ tính số còn lại.

Option Explicit
Function KHao(NgGia, TuNgay, nThang, ThangKH, NamKH) As Long
Dim FrDate, ToDate, KhDate
KhDate = DateSerial(NamKH, ThangKH, 1)
FrDate = DateSerial(Year(TuNgay), Month(TuNgay), 1)
ToDate = DateSerial(Year(FrDate), Month(FrDate) + nThang - 1, 1)
If KhDate < FrDate Or KhDate > ToDate Then
Exit Function
ElseIf KhDate < ToDate Then
KHao = Int(NgGia / nThang)
ElseIf KhDate = ToDate Then
KHao = NgGia - Int(NgGia / nThang) * (nThang - 1)
End If
End Function

Cú pháp hàm:=Khao(Nguyên giá , Từ ngày , Số tháng KH, Tháng tính KH , Năm tính KH)

(Lưu ý: Nếu ngày bắt đầu khấu hao từ các năm trước thì hàm sẽ tự trừ số tháng đã KH năm trước rồi, )
Các bạn tham khảo trong file

 

[trinhmt]

Tôi tham gia nên viết 1 hàm để tính khấu hao:

-Trước và sau thời điểm tính KH sẽ không tính.
-Trong thời điểm tính KH làm tròn số nguyên, kỳ cuối cùng sẽ tính số còn lại.

Option Explicit
Function KHao(NgGia, TuNgay, nThang, ThangKH, NamKH) As Long
Dim FrDate, ToDate, KhDate
KhDate = DateSerial(NamKH, ThangKH, 1)
FrDate = DateSerial(Year(TuNgay), Month(TuNgay), 1)
ToDate = DateSerial(Year(FrDate), Month(FrDate) + nThang - 1, 1)
If KhDate < FrDate Or KhDate > ToDate Then
Exit Function
ElseIf KhDate < ToDate Then
KHao = Int(NgGia / nThang)
ElseIf KhDate = ToDate Then
KHao = NgGia - Int(NgGia / nThang) * (nThang - 1)
End If
End Function

Cú pháp hàm:=Khao(Nguyên giá , Từ ngày , Số tháng KH, Tháng tính KH , Năm tính KH)

(Lưu ý: Nếu ngày bắt đầu khấu hao từ các năm trước thì hàm sẽ tự trừ số tháng đã KH năm trước rồi, )
Các bạn tham khảo trong file

Hi anh,
anh có thể sửa lại code giúp em file anh đã tạo được kg ah, vì em sửa tên nên công thức bị sai hết rồi ah,
CÁm ơn anh nhiều ah.