terima kasih temen - temen, tapi tampaknya tidak sesuai dengan yang saya
maksud..
dan barusan saya googling, dan menemukan kode yang sesuai dengan keinginan
saya,
Function Sum_Visible_Cells(Cells_To_Sum As Object)
Application.Volatile
For Each cell In Cells_To_Sum
If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then
total = total + cell.Value
End If
End If
Next
Sum_Visible_Cells = total
End Function
sumber : http://support.microsoft.com/kb/150363
btw, makasih atas saran - sarannya
Pada 9 September 2008 09:15, Ayang <[EMAIL PROTECTED]> menulis:
> Mudah2an ini solusinya:
>
> 1. Gunakan auto filter dan filter-lah data yang diinginkan saja.
> 2. Gunakan fungsi =SUBTOTAL(9,A1:A200) --> misal range yg mau dijumlah
> range "A1:A200"
>
> Thanks.
>
> Rgds,
>
> -Ayang-
>
> On 9/8/08, Muntahar <[EMAIL PROTECTED]> wrote:
>>
>>
>> Maaf temen - temen semua, ada/bisa nggak ya membuat rumus fungsi sum
>> tapi hanya untuk cell/column/row yang tidak terhidden
>> jadi bila didalam range tsb terhidden, maka value yang ada tidak ikut
>> ditotal,
>> makasih... sebelumnya
>>
>> --
>> ---------------------------------------------
>>
>> ---------------------------------------------
>>
>>
>
>
>
> --
> Best Regards,
>
>
> - Ayang -
>
> Please consider the environment before printing this email.
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
---------------------------------------------
