versi diper-RINGKAS-nya, mungkin seperti ini, dengan pertimbangan2:
- argument RngInput yg sudah mewakili object range tidak perlu di SET lagi menjadi range dengan nama lain
- jumlah cell dlm range yg akan dipakai sebagai Max-loop-counter tidak perlu di variablekan (karena hanya akan dipakai sekali)
- tanpa pernyataan VOLATILE, hasil UDF akan berubah ketika isi RangeInput berubah
- jika tidak ada data pada InputRangae, keluarannya lebih enak #N/A daripada 0 (eNol)
Function LastData(InRng As Range)
Dim i As Long
LastData = CVErr(xlErrNA)
For i = InRng.Cells.Count To 1 Step -1
If Len(InRng(i)) > 0 Then
LastData = InRng(i).Value
Exit Function
End If
Next i
End Function
2010/9/30 ZASLI AFANDI B <zasli_e04@yahoo.co.id>
>
> Semoga sesuai harapan
> gunakan udf..hasil googling dan modifikasi
>
> Function LASTNOTBLANK(rngInput As Range) As Variant
> Dim WorkRange As Range
> Dim i As Integer, CellCount As Integer
> Application.Volatile
> Set WorkRange = rngInput
> CellCount = WorkRange.Count
> For i = CellCount To 1 Step -1
> If Not IsEmpty(WorkRange(i)) Then
> LASTNOTBLANK = WorkRange(i).Value
> Exit Function
> End If
> Next i
> End Function
>
> CMIIW
> Zasli
> lilik marhaendra wrote:
> > Dear all,
> > Saya pemula, saya mohon bantuannya, saya punya kasus :
> > saya ingin menampilkan pada cell AG2 sd. AG4 data terakhir makanan apa
> > yg dimakan oleh masing2 keempat hewan tersebut saya menggunakan Excel
> > 2007, terima kasih sebelumnya.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| eat pray love, eat eat love, eat eat eat... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| eat pray love, eat eat love, eat eat eat... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário