mumpung sempat on line, coba bantu dengan UDF BAYAR
scriptnya seperti ini:
Public Function BAYAR(rgDeadLine As Range) As String
Dim rgCell As Range
Dim msg As String
For Each rgCell In rgDeadLine
With rgCell
If .Offset(, 1).Value > .Value Then
If Len(msg) > 0 Then
msg = msg & ", " & Format(.Value, "mmm yyyy")
Else
msg = Format(.Value, "mmm yyyy")
End If
End If
End With
Next rgCell
If Len(msg) > 8 Then
msg = Left(msg, Len(msg) - 8) & " dan " & Right(msg, 8)
End If
If Len(msg) > 0 Then
msg = " terlambat bayar bulan " & msg
Else
msg = " tidak terlambat bayar"
End If
BAYAR = msg
End Function
contoh penggunaan *=B1 & Bayar(B4:B15)*
yang merah adalah nama relasi
yang hijau adalah tanda penghubung antara nama relasi dengan UDF
yang biru adalah nama UDF-nya
yang cokelat adalah tanggal jatuh temponya
syarat dan ketentuan:
tanggal bayar harus berada tepat di kolom sebelah kanan tanggal jatuh
tempo, jika letaknya berbeda maka sesuaikan script If .Offset(, 1).Value >
.Value Then dengan kondisi yang ada
solusi file terlampir, jika perlu save as file menjadi Excel Add-Ins
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
[email protected] bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَّ الْعَالَمِيْن
Pada 10 Juli 2013 20.29, iskandar just <[email protected]> menulis:
> **
>
>
> Mohon bantuan para teman-teman bagaimana cara membuat uraian dengan
> formula excel untuk menguraikan yang terkena denda keterlambatan bayar,
> dengan kondisi:
> 1. Bila semua bulan pada suatu tahun adalah terlambat bayar
> 2. Bila bulan-bulan tertentu saja yang terlambat
>
> Untuk lebih jelasnya, mohon dilihat dan dijawab dalam lampiran ya.
>
> Atas bantuan teman-teman, sebelumnya saya ucapkan terima kasih.
>
>
>
MJR-Pertanyaan tentang uraian telat.xlsb
Description: Binary data
