Re: [belajar-excel] Sum lompat

2010-03-19 Terurut Topik anton suryadi 
FBD SumLoncat-nya bu Siti sangat simpel n praktis, two thumbs up! 

(dengan begitu, kita gak perlu ribet mikirin kolom ganjil atau genap)







From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Fri, March 19, 2010 12:52:49 PM
Subject: Re: [belajar-excel] Sum lompat

  
 
kalau begini
 
Function SumLoncat(Vek As 
Range, Mulai As Integer, Loncat As Integer)
   Dim n As 
Long
   For n = Mulai To Vek.Count Step 
Loncat
  SumLoncat = SumLoncat + 
Vek(n)
   Next
End Function
 
kita bisa loncat 
bebas :
** dimulai dari kolom ke 
MULAI  loncatannya = LONCAT
syaratnya rang yg dirujuk 
harus berupa vektor (range sebaris atau range sekolom)
 
Range nya boleh melintang (sekelompok cell sebaris / One-Row-Range) 
atau 
pun  membujur (sekelompok cell sekolom/ 
One-Column-Range)
 
misal ada sebaris data 
bilangan di range B5:L5
dengan   =SumLocat(B5: L5,4,3)
artinya akan dijumlah mulai kolom ke 4 yaitu F5 ke kanan tapi loncatnya 
3-an
berarti  hasilnya sama 
dengan penjumlahan  F5 + I5 + L5
 
Jika rangenya membujur 
misal  D2:D16
dengan =SumLoncat(D2: D16,2,3)
Penjumlahan pada range, dimulai dari baris ke 2 loncat 3-an
hasilnya sama dengan 
penjumlahan  D3 + D6 + D9 + D12 + D15
 
 
 


 
- Original Message - 
From: anton 
  suryadi 
To: belajar-excel@ yahoogroups. com 
Sent: Friday, March 19, 2010 11:36 
  AM
Subject: Re: [belajar-excel] Sum 
  lompat
UDF 
  berikut ini menjumlahkan value yang ada pada kolom ganjil:

Function SumKolomGanjil( r As Range) As 
  Double
'anton suryadi 
  19/Mar/2010
Dim c As Range
Dim x As 
  Double
For Each c In r
If c.column Mod 2 
  Then
x = c + 
  x
End If
Next c
sumKolomGanjil = 
  x
End 
  Function

Penggunaan: =SumKolomGanjil( A1:E1)


semoga bermanfaat

[belajar-excel] Sum lompat

2010-03-18 Terurut Topik Gultom 
Dear All,
 
Dulu pernah ada VBA yang membuat sum per 2 column or 2 baris
Kalau tidak keberatan minta yah?
 
Regards,
 
Gultom
 


sum_lompat.xls
Description: MS-Excel spreadsheet

Re: [belajar-excel] Sum lompat

2010-03-18 Terurut Topik siti Vi 
saya kira tidak perlu pakai VBA-VBA-an
karena sudah ada SUMIF

=SUMIF($C$6:$N$6,O$6,$C7:$N7)
perhatikan cara meng-absolut-kan dan me-relatifkan references nya

vba itu tidak lebih keren daripada formula, jika ada formulanya..
karena dengan diberi makro file (workbook) kita menjadi terbatas (tidak 
sharable.. dsb)


  - Original Message - 
  From: Gultom 
  To: belajar-excel@yahoogroups.com 
  Sent: Thursday, March 18, 2010 1:20 PM
  Subject: [belajar-excel] Sum lompat


  Dear All,
  Dulu pernah ada VBA yang membuat sum per 2 column or 2 baris
  Kalau tidak keberatan minta yah?
  Regards,
  Gultom


ctv_Sum_Bersyarat (seperti sum_lompat).xls
Description: MS-Excel spreadsheet

Re: [belajar-excel] Sum lompat

2010-03-18 Terurut Topik ..::Semoet Ithenk::.. 

Coba Pake =SUMPRODUCT(($C$6:$N$6=O$6)*$C7:$N7), copy ke cell yang lain.

Semoet Ithenk

On 18-Mar-10 1:20 PM, Gultom :



Dear All,
Dulu pernah ada VBA yang membuat sum per 2 column or 2 baris
Kalau tidak keberatan minta yah?
Regards,
Gultom

Re: [belajar-excel] Sum lompat

2010-03-18 Terurut Topik siti Vi 
dengan UDF makro (fungsi buatan sendiri dengan makro)
kalau workbooknya dipakai sendiri (local computer) tidak masalah
tetapi kalau harus dikirim ke pihak lain (sharing data);  jadi terbatas;
misal makronya harus disertakan, atau kalau makronya sudah dijadikan add-in
formulanya dianggap salah (#NAME?) di komputer lain
dan
formula lebih banyak dikenal orang
sedangkan makro tidak semua orang suka pemrograman
jadi rumusnya selama problem masih dapat diselesaikan dengan formula yg
cukup sederhana, mengapa harus pakai makro (yg masih harus ditanyakan ke milis)

di sisi lain, 
jika formula biasa dengan fungsi-fungsi biasa tidak dapat menyelesaikan masalah
maka UDF menjadi solusi yg bagus dan malah 'HARUS'
Sudahkan dicoba  UDF kiriman dari mas Herry Wahyudi, ? Itu oke lho !!

Jika tetap mau pakai SUMIF...
Ketidak seragaman kriteria (dlm kasus pak gultom kriteria berupa = JUDUL KOLOM)
maka masih dapat di atasi dengan membuat baris lain yg berisi kriteria yg 
seragam
(dibuat dengan sengaja agar seragam demi kemudahan membuat formula)

lalu baris tsb kalau perlu disembunyikan...

Jika lompatnya pasti DUA,  
maka kriteria nya adalah : GANJIL / GENAP nya nomor kolom  
(pakailah fungsi ODD atau EVEN)


  - Original Message - 
  From: Gultom 
  To: belajar-excel@yahoogroups.com 
  Sent: Thursday, March 18, 2010 5:45 PM
  Subject: RE: [belajar-excel] Sum lompat


  Terima kasih Bu atas wejangannya
  Yang jadi masalah adalah bahwa kriterianya tidak seragam, sehingga kejebak 
dengan hasil yang salah
  Itu tujuan daripada VBA, tapi apakah memang kalo kita VBA jadi terbatas?
  Regards,
  Gultom


--

  From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On 
Behalf Of siti Vi
  Sent: Thursday, March 18, 2010 1:52 PM
  To: belajar-excel@yahoogroups.com
  Subject: Re: [belajar-excel] Sum lompat

  saya kira tidak perlu pakai VBA-VBA-an karena sudah ada SUMIF
  =SUMIF($C$6:$N$6,O$6,$C7:$N7)
  perhatikan cara meng-absolut-kan dan me-relatifkan references nya
  vba itu tidak lebih keren daripada formula, jika ada formulanya..
  karena dengan diberi makro file (workbook) kita menjadi terbatas (tidak 
sharable.. dsb)

Re: [belajar-excel] Sum lompat

2010-03-18 Terurut Topik anton suryadi 
coba juga CSE formula berikut ini:

=SUM(C7:N7*ISODD(COLUMN(C7:N7)))
=SUM(C7:N7*ISEVEN(COLUMN(C7:N7)))


semoga bermanfaat







From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Thu, March 18, 2010 6:51:25 PM
Subject: Re: [belajar-excel] Sum lompat

  
maaf lampiran 
ketinggalan
dengan kriteria GAJIL/GENAP nya nomor kolom (mengikuti logika 'lompat'), 
maka rumusnya menjadi spt ini

=SUMPRODUCT( (MOD(COLUMN( C7:N7),2) =1)*(C7:N7) )
=SUMPRODUCT( (MOD(COLUMN( C7:N7),2) =0)*(C7:N7) )
 
 


 - Original Message - 
From: siti Vi 
To: 
belajar-excel@ yahoogroups. com 
Sent: Thursday, March 18, 2010 6:26 
PM
Subject: Re: [belajar-excel] Sum lompat

Jika lompatnya pasti 
DUA,  
maka kriteria nya adalah : GANJIL / GENAP nya nomor kolom  
 kasus pak gultom-- --

Re: [belajar-excel] Sum lompat

2010-03-18 Terurut Topik anton suryadi 
UDF berikut ini menjumlahkan value yang ada pada kolom ganjil:

Function SumKolomGanjil(r As Range) As Double
'anton suryadi 19/Mar/2010
Dim c As Range
Dim x As Double
For Each c In r
If c.column Mod 2 Then
x = c + x
End If
Next c
sumKolomGanjil = x
End Function

Penggunaan: =SumKolomGanjil(A1:E1)



semoga bermanfaat







From: hery wahyudi h...@cresyn.com
To: belajar-excel@yahoogroups.com
Sent: Thu, March 18, 2010 2:03:12 PM
Subject: Re: [belajar-excel] Sum lompat

  
Private Function sumlompat(r As Range, l As Integer)
Dim t As Long
If l = 1 Then
For i = 1 To r.Cells.Count
t = t + r.Cells(i)
Next i
Else
For i = 1 To Round(((r.Cells. Count) / l), 0)
t = t + r.Cells((i * l) - (l - 1))
Next i
End If
sumlompat = t
End Function

Bener kata Bu Guru, gak lebih keren


Miturut Gultom kados ingkang kaserat ing ngandap meniko: 
   
Dear All,
 
Dulu pernah ada VBA yang membuat sum per 2
column or 2 baris
Kalau tidak keberatan minta yah?
 
Regards,
 
Gultom
 


-- 
Template 
 SalamHangat dan Jabat Erat,
 Hery Wahyudi