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


 


  

Bls: [belajar-excel] merapihkan data berdasarkan kota

2010-03-19 Terurut Topik maman hermansyah
wah terima kasih banyak mr.kid, solusi yang bapak berikan banyak2 membantu 
saya..
maaf baru saya buka emailnya karena baru masuk kantor setelah cuti kemarin...
sekali lagi terima kasih banyak


salam

maman h



Dari: Mr. Kid mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com
Terkirim: Sab, 13 Maret, 2010 09:37:56
Judul: Re: [belajar-excel] merapihkan data berdasarkan kota

  
Wa Alaikumsalam Wr. Wb.

Kira-kira, ini ide siapa ya, menyusun data kekanan sampai ribuan kolom (363 
hari * lebih dari 10 kota dalam 1 baris) ?

Masih mendingan yang menyusun 363 baris x lebih dari 10 kolom kota.
Bagus lagi jika (363 hari * lebih dari 10 kota) baris dengan kolom-kolom : No, 
Kode, Nama, Kota, Tanggal, Nilai

Ingin dibuat tabel :
Kota, tgl 1-1-2009,... .,31-12-2009

Formula bawaan untuk daftar nama kota :
=OFFSET($D$1, 0,(ROWS($ C$9:$C9)- 1)*363)

Ditanyakan :
Formula nilai per tanggal :
(1 tahun 363 hari loh di datanya cek saja sendiri alau gak percaya, gak tahu 
tanggal berapa yang dihilangkan, revot carinya kalau gak di pivot)

Salah satu alternatif adalah array formula sebagai 1 array block sebaris 363 
kolom.
(jiplak formula kota bawaan pak Maman)
=OFFSET($D$5: $NB$5,0,( ROWS($C$9: $C9)-1)*363)

ingat Pak :
Formula tersebut adalah 1 array block  1 baris x 363 kolom, artinya, 
blok dulu range 1 baris x 363 kolom, baru tulis formulanya, tapi jangan tekan 
enter

Selesai nulis formula, (tanpa menekan enter)
ingat lagi Pak :
Formula adalah sebuah array formula, maka tekan tombol CTRL SHIFT ENTER 
berbarengan, seperti kalau menekan CTRL ALT DEL itu tuh.

Bapak sudah bisa membuat formula untuk kota, maka formula ini sama dengan 
formula kota yang dibuat Bapak, hanya saja D1 diganti dengan D5:NB5, yaitu 
range nilai milik kota pertama.

Oke Pak Maman ?
Cukup jelas ya kiranya...

Lain kali, buat sejak awal akan disusunnya data sebagai sebuah tabel normal 
yang wajar (gak ilok kalo gak normal apalagi gak wajar, bikin yang ngelihat 
jadi ikutan gak normal tapi masih wajar -- gak normal karena menggerutu, wajar 
karena normalnya menggerutu -- )

Tabel normal yang wajar itu selalu disusun berorientasi baris, sehingga kolom 
berisi bidang-bidang sejenis. Contohnya, Bidang kolom bernama Kota, dan bidang 
kolom bernama Tanggal, dan bidang kolom bernama Nilai Transaksi.


Semoga kedepannya menjadi lebih baik, lebih normal, dan lebih wajar ya Pak.

Wassalam.
Kid.



2010/3/11 maman hermansyah hermansyah_maman@ yahoo.com














  


 
  
 
assalamu'alaikum wr wb
mohon pencerahannya atas masalah yang sedang saya hadapi..
dalam lampiran itu saya ingin merapihkan susunan data berdasarkan kota...jadi 
nanti di dalam lampiran itu kotanya sudah terpecahkan tinggal memasukan data 
berdasarkan tanggal yang ada per kota itu...

jadi misalkan untuk kota:
JAKARTA 488 488  dst (periodenya dari tanggal 
1 januari 2009 sampai dengan 31 desember 2009)

 keterangan: angka 488 pertama itu nilai pada 1 januari 2009; 488 kedua 
 adalah nilai pada 2 januari 2009 ; dst...

atas tanggapan dari rekan2 milis saya ucapkan terima kasih...

wassalam

maman
 h





 Yahoo! sekarang memiliki alamat Email baru  
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. 
br
Cepat sebelum diambil orang lain!

 

 


  Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang! 
http://id.mail.yahoo.com

Fwd: [belajar-excel] pengisian tanggal pada range perkolom

2010-03-19 Terurut Topik syam ero
Dear All Master

Alhamdulillah apa yang diajarkan by All my Master, dan saya coba membuat
data tabel baru bisa aktif kalender shownya disetiap rangenya.
Terimaksih All my Master atas ilmunya.

Salam,
Syam




-- Pesan terusan --
Dari: siti Vi setiyowati.d...@gmail.com
Tanggal: 19 Maret 2010 05:24
Subjek: Re: [belajar-excel] pengisian tanggal pada range perkolom
Ke: belajar-excel@yahoogroups.com




Kalau kita mundur ke belakang; problem ini masih merupakan kelanjutan
dari posting tgl 16 maret, dgn subject yg sama. Dng pertanyaan:
 *Saya membuat tabel Donatur dalam hal ini saya pada kolom Mingguan dan pada
*
*setiap rangenya untuk tanggal namun masih manual, bagaimanakah agar *
*masing-masing rangenya bisa menampilkan kalender/date yang praktisnya?*

Kasus tsb mendapat 2 tanggapan
I.
(siti) *menduga* :yg diinginkan ialah *munculnya Kalender untuk memudahkan
*
*pengisian tanggal. *
*Kalendar hanya muncul kalau salah satu cell di kolom MINGGU X di select.*
(hanya bisa menduga karena menurutku: kalimat tsb sulit ditangkap maksudnya)

II
(mas Kid) menduga: yg diinginkan adalah *cell di kolom tanggal* *secara
otomatis *
*terisi TANGGAL HARI INI **jika kolom RUPIAH di kanannya diisi data bilangan
*.

Atas kedua dugaan (dan solusi peng-otomatisan) tsb; pak syamero tidak
memberi
penegasan: dugaan manakah yg lebih mendekati keinginannya.
Jadi sementara kita mengira : kedua cara akan diaplikasikan.
Tetapi dengan tidak adanya penegasan: berarti *dugaan *masih tetap *dugaan;*
kita tidak tahu arah yg sebenarnya dikehendaki oleh pak syamero

Sekarang ada pertanyaan baru dari pak syamero dengan kalimat yg tidak kalah
sulitnya untuk ditangkap maksudnya:
 *Bagaimanakah cara langkah-langkahnya jika saya *
*(1) membuat data yang (2) belum terprogram kalendernya sepertihalnya *
*(3) data master yang telah dikirmkan ke saya.*

 tiga hal dlm kalimat tsb tidak dapat saya tangkap maksudnya

*membuat data:*
benarkah ybs bertanya cara membuat data ?
data tentunya dibuat dengan cara menuliskan data ke cells dalam tabel yg
sebelumnya telah dirancang untuk keperluan pencatatan data tsb.
Dalam beberapa hal, pengisian data dapat *dimudahkan*, misalnya
** data yg berulang ulang* : bukan diketikkan tetapi diPILIH dari dropdown
list
** data tanggal* : bukan diketikkan tetapi bisa diPILIH dari kalender
** data yg tergantung dari data lain*, bukan diketikkan konstanta nya tetapi

ditulis FORMULA nya
dsb..

*belum terprogram kalendernya*
apa yg dimaksud dengan kalender ?  apa yg dingin diprogram
sebuah tanggal ?  atau sebuah system penanggalan ?
ataukah : dengan kalimat ini sebenarnya pak syamero menanyakan
bgmana cara membuat kalender seperti di workbook yg dilampirkan ??
Memang sulit menduga maksud; kalau bahasanya tidak terus terang.

*data master yg telah dikirimkan ke saya*
apa ygdimaksu data master ? siapa yg mengirim ? seperti apa datanya ?
apakah seperti yg ada di sheet1 itu?

Biasanya yg dimaksud dengan *data master *adalah data utama, data yg
akan dirujuk oleh tabel-tabel lain. Sebagai lawannya ada istilah *data
transaksi.*
**
Misalnya dlm sistem adm bank tabungan: *data master *adalah daftar nasabah
yg mungkin berisi kolom No Rekening, Nama, Tgl Menjadi Nasabah, dst

Sedangkan *data transaksi* adalah pencatatan setiap kali nasabah datang
menyetor uang tabungan atau menarik uang tabungan.
Pada data transaksi juga ada kolom Tgl Transaksi, No.Rekening,
Jumlah yg disetor/ditarik.
Kedua jenis data (tabel) ini tentunya tidak dicampur adukkan.

Karena sama sekali tidak ada clues untuk menebak maksudnya, maka saya tetap
tidak tahu babar blas

Walaupun serba tidak tahu, saya tetap ingin *sekali lagi *MENDUGA maksud
pak syamero.  Mudah-mudahan jika kasus ini masih ada kelanjutannya, pak syam
mau menuliskan penjelasannya.
Jika ada kelanjutan tetapi hanya berisi pertanyaan baru tanpa penjelasan;
maka
saya kira saya harus menghentikan dugaan-dugaan, yg berarti tidak lagi punya

bahan untuk ditulis sbg tanggapan.


*Mungkin *dengan kalimat dlm email tsb pak syam ero *menginginkan penjelasan
*
*cara membuat  userform berisi kalender yg dapat muncul ketika cell dlm *
*Kolom **Tanggal (Minggu X) diselect.*

Sebenarnya apa yg tertulis di bawah ini tidak terlalu perlu, karena semuanya

masih biasa / standar saja, dan dapat dijumpai penjelasannya yg lebih detil
di textbook pelajaran panduan makro excel..

1.
Buka /aktifkan file Donatur_Aktif_Alikhsan.xls (dengan excel 2003)

2.
buka vbe (visual basic editor) dengan menekan ALT+F11
(atau : menu: Tools  Macro  Visual Basic Editor..)

Buat sebuah *userform *: menu : Insert  Userform
 akan tercipta sebuah Userform dgn nama UserForm1
Munculkan toolbox : menu View  ToolBox

3.
Jika dlm *toolbox* anda belum tersedia *ikon Calendar Control*
tambahkan dulu ikon tsb dengan cara
menu : Tools  Additional Control
cari dan pilih : Calendar Control (11.0)

4.
dengan *ikon Calendar Control* kita dapat menanamkan Calendar Control
ke UserForm. Warna, Font size dsb dapat diatur melalui *kotak 

Re: [belajar-excel] pengisian tanggal pada range perkolom

2010-03-19 Terurut Topik siti Vi
jadi ? 
dengan kabar seperti itu bapak tetap tega membiarkan 
dugaan tetap sebagai dugaan... ya.. 
he he ..

ya udah, terima kasih kembali..
jika ternyata bermanfaat kami tentu ikut senang..




  - Original Message - 
  From: syam ero 
  To: belajar-excel@yahoogroups.com 
  Sent: Friday, March 19, 2010 4:18 PM
  Subject: Fwd: [belajar-excel] pengisian tanggal pada range perkolom

  Dear All Master
  Alhamdulillah apa yang diajarkan by All my Master, dan saya coba membuat 
  data tabel baru bisa aktif kalender shownya disetiap rangenya.
  Terimaksih All my Master atas ilmunya.
  Salam,
  Syam


--

  -- Pesan terusan --
  Dari: siti Vi setiyowati.d...@gmail.com
  Tanggal: 19 Maret 2010 05:24
  Subjek: Re: [belajar-excel] pengisian tanggal pada range perkolom
  Ke: belajar-excel@yahoogroups.com


  Kalau kita mundur ke belakang; problem ini masih merupakan kelanjutan 
  dari posting tgl 16 maret, dgn subject yg sama. Dng pertanyaan:
  Saya membuat tabel Donatur dalam hal ini saya pada kolom Mingguan dan pada 
  setiap rangenya untuk tanggal namun masih manual, bagaimanakah agar 
  masing-masing rangenya bisa menampilkan kalender/date yang praktisnya?
  -cut---

[belajar-excel] Copy sheet ke Workbook baru dengan nama spt sheet tsb (SOLVED)

2010-03-19 Terurut Topik him mah
Pertanyaan:
saya punya  satu file excel ada 6 sheet
DATA, DATA2, A,B,C
dalam sheet DEPAN,A,B,C terdapat rumus yang datanya diambil dari Sheet
DATA dan DATA2

hasil yang diinginkan
sheet DEPAN,A,B,C akan di move dan copy ke workbook baru
ketika di move semua rumus yang ada di sheet tersebut akan menjadi value
semua
kemudian workbook baru itu akan di save as dengan nama file sama
seperti di sheet depan cell A2

kira-kira VBA nya seperti apa ya, file terlampir

Jawaban dari Bu Siti

Sub bla_bla_bla()
   ' siti Vi / mengopy beberapa sheet ke book baru
   ' data dikonversi ke values
   Dim NewB As Workbook, sht As Worksheet
   ThisWorkbook.Sheets(Array(DEPAN, A, B, C)).Copy
   Set NewB = ActiveWorkbook
   For Each sht In NewB.Worksheets
  sht.UsedRange.Copy
  sht.UsedRange.PasteSpecial Paste:=xlPasteValues
   Next sht
   Application.CutCopyMode = False
   NewB.SaveAs Filename:=ThisWorkbook.Path  \New_  NewB.Name
End Sub


Re: [belajar-excel] Emank enak dicuekin.........

2010-03-19 Terurut Topik siti Vi
pak z  Hot definisikan dulu lah.. mengenai dicuekin itu sejauh mana?
misal di situ ada textbox
** textbox di klik atau diberi fokus tetapi tidak diisi apapun 
   apakah masih termasuk dicuekin atau tidak
** sebuah commandbutton kena hover (tidak di klik tetapi hanya 
   dilewati mouse pointer) apakah termasuk masih dicuekin atau tidak 
** dan events lain...

trus... di sheet itu ada berapa object ? apa saja ?
semuanya berpotensi untuk menimbulkan status bahwa form tidak dicuekin / 
dicuekin

itu semua akan menjadi salah satu kriteria dijalankannya /
atau tidak dijalankannya sebuah perintah penyembunyian form

menyembunyikan form sekian detik dari sebuah titik waktu
kan cuma sekedar mengaplikasikan :
Application.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
dimana Procedure adalah sebuah prosedur yg berisi instruksi meng-Unload 
FORM-nya





- Original Message - 
From: Khozhot 
To: belajar-excel@yahoogroups.com 
Sent: Saturday, March 20, 2010 8:42 AM
Subject: [belajar-excel] Emank enak dicuekin.

Hi Masters,
Q pengen belajar lagee nech...
Bisakah sebuah useform, show time-nya ditentukan? How?
Misalkan q pengen menampilkan sebuah useform which is dicuekin 
dalam waktu 10detik, so useform tersebut langsung ngilang dach 
alias harus dipanggil ulang.

Give me the codes plzzz

Thank B4,
.Zhot thea


ctv_when a userform dicuekin.xls
Description: MS-Excel spreadsheet