Re: [belajar-excel] conditional formating untuk chart

2012-06-08 Terurut Topik anton suryadi
Coba pelajari file terlampir, jika cocok selanjutnya dapat disesuaikan dengan 
kebutuhan anda.


semoga bermanfaat



 From: tuti andrayani andrayani_...@yahoo.co.id
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Sent: Friday, June 8, 2012 2:57 PM
Subject: [belajar-excel] conditional formating untuk chart
 

  
Dear All,
 
Please share, bagaimana cara conditional formating untuk chart
Misal kita punya data penjualan 30 area, untuk itu kita membuat chart 
nya, bagaimana caranya jika ingin memberi warna berbeda untuk 5 area dengan 
penjualan tertinggi secara otomatis
Terimakasih
 
Tuti
 
 

__Chart_ConditionalFormatting__.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


Re: [belajar-excel] Akumulasi penjualan dengan data ke bawah

2012-02-17 Terurut Topik anton suryadi
Coba juga,
dengan kombinasi fungsi SUM dan INDEX.

=SUM(INDEX((Aktual!$B$5:$B$184=$B10)*(Aktual!$E$5:$E$184=$C$5)*(Aktual!$D$5:$D$184),))
Tidak perlu menekan tombol Ctrl+Shift+Enter untuk menjalankannya, cukup Enter


File terlampir


semoga bermanfaat




 From: A. Hendri Bp. Algar mni.ag...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Saturday, February 18, 2012 6:43 AM
Subject: [belajar-excel] Akumulasi penjualan dengan data ke bawah
 

  
Dear Exceller,
Melanjutkan pertanyaan saya sebelumnya, saya punya problem untuk membuat rumus 
data akumulasi penjualan dari Bulan januari s/d Bulan yang kita inginkan. 
Filenya seperti di attachment. File tersebut memiliki 3 sheet. yaitu 
1. Sheet Budget yang merupakan data budget penjualan beberapa produk dari Jan - 
Des 2011 yang disusun menyamping ke kanan. Serta datanya tidak urut

2. Sheet aktual, yang merupakan data aktual penjualan dari Jan-Des 2011. Yang 
disusun terus menerus ke bawah. Serta urutannya juga tidak urut
3. Sementara sheet satunya lagi adalah sheet Summary, dimana sheet ini ingin 
menampilkan data aktual penjualan dan budgetnya berdasarkan bulan yang 
kita yang kita minta (ditulis di sel C5). serta data akumulasi aktual penjualan 
dan budgetnya dari Bulan januari 2011 s/d bulan yang kita input. Jadi kalau C5 
= 9 Maka kolom G dan H terisi data jumlah penjulan masing-masing barang dari 
Januari hingga September. 

Pertanyaan saya sebelumnya dengan data menyamping ke kanan sudah dijawab Oleh 
Bu Hapsari dan Bp. Ferdi dengan sangat memuaskan. Namun jika datanya ke bawah, 
saya sudah coba-coba mencari rumus sendiri, namun sekali lagi gagal juga. Mohon 
bantuannya. dan Jika Sel C5 kita ganti menjadi 10, maka   kolom G dapat terisi 
data jumlah penjulan masing-masing barang dari Januari hingga Oktober dengan 
mengambil data dari sheet aktual yang disusun ke bawah



Terima kasih sebelumnya

Salam,
Agus H
 

__TES-PENJUALAN-2011-data kebawah__.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


Re: [belajar-excel] Formula Penjumlahan Akumulasi by Date Range

2012-02-13 Terurut Topik anton suryadi
Berbicara mengenai layout tabel database, saya pribadi lebih prefer untuk 
sebisa mungkin menyusun tabel database yang memanjang ke bawah daripada 
memanjang ke samping serta menggunakan pivot table untuk menghasilkan 
pre-reportingnya.

Untuk kasus ini, coba formula berikut:

=SUM(IF((Planning!$C$3:$T$3=$D$1)*(Planning!$C$3:$T$3=H$5),Planning!$C$4:$T$11,0)*(Planning!$A$4:$A$11=$A6))


File terlampir


semoga bermanfaat




 From: Arie Bowo Witjaksono arie_...@yahoo.com
To: belajar-excel@yahoogroups.com 
Sent: Monday, February 13, 2012 5:02 PM
Subject: [belajar-excel] Formula Penjumlahan Akumulasi by Date Range
 

  
 Dear Pakar Excel,
 
Mohon pencerahannya untuk kasus saya terlampir, saya mencoba untuk menjumlahkan 
angka berdasarkan range tanggal dengan menggunakan sumifs hasilnya error, jika 
saya jumlahkan menggunakan vlookup maka rumusnya panjang sekali. Mohon 
solusinya, apakah saya harus merubah layout data Asalnya yha
 
Untuk lebih jelasnya bisa melihat lampiran. terima kasih.
 
Regards,
 
Arie 
 

__Formula Penjumlahan Akumulasi by Date Range__.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


Re: [belajar-excel] Bagaimana menjumlah berdasarkan sebagian karakter

2012-02-11 Terurut Topik anton suryadi
Dear pak guru,


Dimana ada jalan maka ada banyak jalan, begitu gosipnya,


anda telah mendapatkan berbagai saran dan solusi formula dari teman yang lain,
sekarang mari mengembangkannya dengan sedikit berbeda, 

sederhananya, misal kita ambil contoh array formula untuk menghitung jumlah 
golongan IV adalah :
=SUM(--(LEFT($B$3:$B$10,FIND(/,$B$3:$B$10)-1)=IV))

Array formula di atas dijalankan dengan menekan tombol Ctl+Shift+Enter


nah, agar kita dapat menjalankannya tanpa menekan tombol CSE
sematkanlah suatu argumen yang menjadikannya sebagai CSE formula ke dalam 
fungsi INDEX,

sehingga formulanya menjadi:
=SUM(INDEX(--(LEFT($B$3:$B$10,FIND(/,$B$3:$B$10)-1)=IV),0)) 


selamat berkreasi,


semoga bermanfaat




 From: guru muda mudag...@yahoo.com
To: belajar-excel@yahoogroups.com 
Sent: Saturday, February 11, 2012 11:13 AM
Subject: [belajar-excel] Bagaimana menjumlah berdasarkan sebagian karakter
 

  
Kepada segenap anggota milis excel. 

Mohon bantuannya.

Saya ingin melakukan penjumlahan berdasarkan nilai sebagian karakter dari suatu 
cell. Jika saja menjumlah berdasarkan isi seluruh cell, maka bagi saya sudah 
bisa dilakukan. Lha ini yg bikin bingung pake sebagian isi cell.

Penjelasan selengkapnya dapat dilihat pada lampiran.

Kepada Mbak I-Haps; terima kasih telah mengingatkan saya tempo hari. 

Salam

Terima kasih

 
 

Re: [belajar-excel] vlookup dengan dua kriteria

2012-02-01 Terurut Topik anton suryadi
Pada kasus ini (dan banyak kasus lainnya), jika diinginkan eksekusi suatu array 
formula aka CSE formula tanpa menekan Ctrl+Shift+Enter,
cobalah sematkan array formula tersebut pada sebuah fungsi INDEX,
misal pada kasus ini, CSE formula Index Match tersebut menjadi tertulis seperti 
ini:
=INDEX(E$5:E$13,INDEX(MATCH(J5K5,C$5:C$13D$5:D$13,0),0))
dengan begitu, sekarang cukuplah dengan hanya menekan Enter untuk mengeksekusi 
formulanya.
(menjalankan array formula tanpa upacara khusus?) 



semoga bermanfaat




 From: Kid Mr. mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Wednesday, February 1, 2012 5:08 PM
Subject: Re: [belajar-excel] vlookup dengan dua kriteria
 

  
Jika akan pakai array formula Index Match :
=Index( e$5:e$13 , Match( j5  k5 , c$5:c$13  d$5:d$13 , 0 )  )
lalu tekan Ctrl Shift Enter (bukan hanya Enter saja)
kemudian copy ke cell bawahnya

Data yang diambil, tergantung match type pada fungsi Match. Contoh di atas 
dengan match type bernilai 0 (percis sama)
Tipe data hasil bisa apa saja.

Kid.



2012/2/1 Kid Mr. mr.nm...@gmail.com

Kalau sudah coba, kok gak ada di attachment wujud coba-cobanya ?

=SumProduct( (c$5:c$13 = j5 ) *   (d$5:d$13 = k5 ) * e$5:e$13 ) 


Kid.


2012/2/1 dimas ricky dimasr1...@gmail.com

 
  
dear Pak Kid, Mohon maaf mungkin karena data yang saya kasih kurang lengkap, 
maklum di kejar2 sama bos, hehehe tabel revisi saya udah atach, rumus dari 
Pak Kid udah saya coba tapi ttp ga bisa, ato apa mungkin saya yang lagi ga 
konsen ya


2012/2/1 Kid Mr. mr.nm...@gmail.com


 
  
Dear Ricky,

Asumsi :
 yang akan diambil adalah data numerik di kolom E

=SumProduct( (semua_data_kolom_C = inputan_tentang_C) * (semua_data_kolom_D 
= inputan_tentang_D) * semua_data_kolom_E )

Syntax diatas bisa menghasilkan 
- agregat jika data berdasar kolom C dan D tidak unique
- nilai tunggal dari kolom E ketika data bersifat unique berdasar kolom C 
dan D, dan akan seperti lookup dengan n kriteria

Asumsi :
 yang akan diambil adalah data teks di kolom E
=Index( semua_data_kolom_E , Match(   inputan_tentang_C  inputan_tentang_D  
,   semua_data_kolom_C  semua_data_kolom_D   ,  0  )     )

Syntax diatas adalah lookup dengan n kriteria. Data yang diambil tergantung 
pada Match Type fungsi Match dan urutan data. 


Regards.
Kid.



2012/2/1 dimas ricky dimasr1...@gmail.com

 
  
Dear all,
mohon bantuannya untuk rumus excel di bawah ini,
 
Misal saya  ingin menghasilkan angka di E4, maka dua
kirteria yang harus saya isi adalah C4 dan D4. 
 
Mohon
bantuannya untuk rumus excelnya  soalnya
sudah saya coba2 tapi malah tambah bingung…
 
Terima
ksaih banyak untuk bantua semuanya. 





 

Re: [belajar-excel] vlookup dengan dua kriteria

2012-02-01 Terurut Topik anton suryadi
Fungsi COUNTIF/S dan SUMIF/S sungguh nyaman sekali digunakan, namun perlu 
diketahui oleh para pemirsa bahwa tidak semua Criteria dapat menghasilkan yang 
diharapkan meski jumlah dan susunan karakter-karakternya sama persis.

Hal tersebut dapat terjadi jika kriteria atau data yang dicari berawalan salah 
satu karakter berikut ini: 


=

Misal penjumlahan suatu kriteria string data dengan 
formula =SUMIF(A1:A5,data,B1:B5)


semoga bermanfaat




 From: i Haps hapsari.stlizb...@gmail.com
To: belajar-excel@yahoogroups.com 
Sent: Wednesday, February 1, 2012 4:59 PM
Subject: Re: [belajar-excel] vlookup dengan dua kriteria
 

  
Setelah pengejaran dari boss mereda, dan anda punya waktu yg agak santai
mari kita duduk manis mencoba lagi SUMPRUDUCT
=SUMPRODUCT( ($C$5:$C$13=J5) * ($D$5:$D$13=K5) * $E$5:$E$13 )

atau kalau di excel 2007/1010 bisa cobalah fungsi BARU: SUMIFS
=SUMIFS( $E$5:$E$13, $C$5:$C$13, J5,  $D$5:$D$13, K5 )

( kebetulan kolom E adalah data type Numbers (Bilangan) )

Lilhat Lampiran ...



2012/2/1 i Haps hapsari.stlizb...@gmail.com

selain pakai sumproduct;
sementara biar MUDAH, agar anda tidak semakin bingung dan stress
kita pakai kolom bantu dulu
Kolom bantu adalah gabungan kolom 1 dan 2 pada tabel sumber


rumus  di tabel hasil 
=VLOOKUP(J5K5,B5:E13,4,FALSE)
Lihat lampiran dengan seksama ( dan dalam tempoh yg sesingkat singkatnya )


2012/2/1 dimas ricky dimasr1...@gmail.com

 
dear Pak Kid, Mohon maaf mungkin karena data yang saya kasih kurang lengkap, 
maklum di kejar2 sama bos, hehehe tabel revisi saya udah atach, rumus dari 
Pak Kid udah saya coba tapi ttp ga bisa, ato apa mungkin saya yang lagi ga 
konsen ya


 

Re: [belajar-excel] lacak nomor

2012-01-24 Terurut Topik anton suryadi
Dear wixli,

Case pencarian angka yang hilang telah beberapa kali muncul di milis ini, 
cobalah search dengan kata kunci Angka Yang Hilang
atau anda dapat juga mencoba array formula berikut ini:
tuliskan mulai pada cell G9, 
=SMALL(IF(ISNA(MATCH($C$9:$C$58,$E$9:$E$58,0)),ROW($C$9:$C$58)-ROW($C$9)+1),ROWS(G$9:$I9))

ingat, ini array formula, Enter dengan menekan Ctrl+Shift+Enter... dan 
copy-paste ke bawah 'sepuasnya'

Untuk lebih jelasnya lihat file terlampir.


semoga bermanfaat




 From: YULIANTO PRIMA WIXLI ywi...@yahoo.com
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Sent: Tuesday, January 24, 2012 8:38 PM
Subject: [belajar-excel] lacak nomor
 

  
Dear Para Pakar Excel yang saya Hormati, 


Mohon bantuannya, bagai mana melacak nomor di kolom (A) yg belum muncul di 
kolom (B), data seperti terlampir, mohon bantuannya ya..

Terima kasih 

 

__Lacak angka__.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet


Re: [belajar-excel] grand total pivot table bermasalah

2011-10-01 Terurut Topik anton suryadi
Dear pak Chandra,

Grand Total dari calculated field formula bukan merupakan penjumlahan dari 
masing2 baris hasilnya, namun ditotalkan terlebih dahulu semua yang menjadi 
kategori dalam formula yang digunakan untuk kemudian oleh excel diperhitungkan 
sebagai hasil grand total melalui ekspresi calculated field formula.

Pertanyaan serupa mengenai grand total dari calculated field formula pernah 
diajukan di milis ini di #message/7486 
namun waktu itu tanggapannya ternyata lewat japri.

Lampiran berikut ini semoga dapat sebagai pencerahan.


semoga bermanfaat




From: Darto Chandra d...@gmx.com
To: belajar-excel@yahoogroups.com
Sent: Saturday, October 1, 2011 11:10 PM
Subject: [belajar-excel] grand total pivot table bermasalah


  
pada file terlampir, laporan yang di hasilkan oleh pivot table mengalami 
masalah di grand totalnya. Mohon bantuan temen temen untuk dapat memberikan 
pencerahannya. terima kasih.

Darto Chandra
085881648818 
 

PivotTable Calculated Field Grand Total.xls
Description: MS-Excel spreadsheet


Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu

2010-09-01 Terurut Topik anton suryadi
ganti:

Workbooks.Open  Filename:=C:\Data\W  r  \DExDashboard W  r   .xls

menjadi:
Workbooks.Open  Filename:=C:\Data\W  MyStr \DExDashboard W  MyStr  
.xls


semoga bermanfaat







From: ..:: priel ::.. xavr...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, September 1, 2010 1:12:05 PM
Subject: [belajar-excel] Mengubah number menjadi text dengan format tertentu

  
Rekans belajar Excel,

mohon ijin untuk ikut belajar, biar nambah ilmu dari para suhu disini.
ceritanya saya pengen meng-otomatisasi-kan pekerjaan rutin dan berulang 
menggunakan macro. Masalah pertama muncul, gara-gara nekat pakai macro, dimana 
saya pengen mengubah nomor yang sudah saya tentukan agar dibaca sebagai text


Sub RekapDEx()
'
' RekapData Macro
' Compile Data from week x to y
' 
'
Dim r As Long
Dim MyStr

r = 1

' merubah format number menjadi 00

MyStr = Format(r, 0#)

' membuka file data

Workbooks.Open Filename:=C:\Data\DEx 5\W  r  \DExDashboard W  r  
.xls
[A6].Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

' dan seterusnya...

End Sub



Sepertinya cara formatting saya dengan menggunakan statement berikut :

MyStr = Format(r, 0#)

masih salah, sehingga dari parameter yang sudah ditentukan berikut

Workbooks.Open Filename:=C:\Data\W  r  \DExDashboard W  r  .xls

outputnya adalah membuka file C:\Data\W1\DExDashboard W1.xls
padahal maunya saya, macro akan membuka file C:\Data\W01\DExDashboard W01.xls

cara formatting atau convertnya bagaimana ya..?
variable r hanya dibatasi 2 digit, jadi maksimal hanya sampai di 99

salam belajar excel
-priel-

 


  

Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu

2010-09-01 Terurut Topik anton suryadi
sprti ini maksudnya?

For r = 1 to 5
'Code
Next r


semoga bermanfaat







From: ..:: priel ::.. xavr...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, September 1, 2010 3:03:05 PM
Subject: Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu

  
Terima kasih Mas Anton atas ilmunya, ternyata di situ ya salahnya...
Kalau saya ingin meng-eksekusi dari periode tertentu, katakanlah dari 1-5, 
ecriptnya harus diubah seperti apa ya..?
jadi ndak bolak-balik me-rekap satu persatu dengan mengganti WeekID secara 
manual, cukup kita tentukan rentangnya, dan macro langsung dijalankan untuk 
periode tersebut

Mohon maaf belum  bisa meberikan file contoh. Paling tidak, script yang bisa 
digunakan agar bisa saya ketahui, sambil dicoba-coba sendiri biar paham

berikut adalah list detail scriptnya, buat bahan menghayal :-)

=
Sub RekapDEx()

Dim r As Long
Dim MyStr

r = [WeekID].Value   'Nilai Week ID mengambil dari sheet active cell 
tententu

MyStr = Format(r, 0#)

Workbooks.Open Filename:=C:\Data\W  MyStr  \DExDashboard W  MyStr  
.xls
[A6].Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Windows(RekapDEx_Module.xlsm).Activate
Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

[AA1].Select
Cells(Application.Rows.Count, 27).End(xlUp).Offset(1, 0).Select
Do While IsEmpty(ActiveCell.Offset(0, -2)) = False
ActiveCell.Value = W  MyStr
ActiveCell.Offset(1, 0).Select
Loop

End Sub

=

terima kasih sebelumnya

salam
-priel-

2010/9/1 anton suryadi summon...@yahoo.com

  
ganti:

Workbooks.Open  Filename:=C:\Data\W  r  \DExDashboard W  r   .xls

menjadi:
Workbooks.Open  Filename:=C:\Data\W  MyStr \DExDashboard W  MyStr  
.xls


semoga bermanfaat

-- 
http://www.facebook.com/maspriel

 


  

Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu

2010-09-01 Terurut Topik anton suryadi
Coba,

Sub  RekapDEx()

 Dim r As Long
 Dim MyStr

For r = 1 to 5   'Nilai Week ID mengambil dari  sheet active cell tententu

 MyStr = Format(r, 0#)

 Workbooks.Open Filename:=C:\Data\W  MyStr  \DExDashboard W   MyStr 
 
.xls
 [A6].Select
Range(Selection,  Selection.End(xlDown)).Select
 Range(Selection, Selection.End(xlToRight)).Select
 Selection.Copy

Windows(RekapDEx_Module.xlsm).Activate
 Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
 Selection.PasteSpecial Paste:=xlPasteValues

[AA1].Select
 Cells(Application.Rows.Count, 27).End(xlUp).Offset(1, 0).Select
 Do While IsEmpty(ActiveCell.Offset(0, -2)) = False
 ActiveCell.Value = W  MyStr
 ActiveCell.Offset(1, 0).Select
 Loop

Next r

End  Sub




From: ..:: priel ::.. xavr...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, September 1, 2010 3:14:18 PM
Subject: Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu

  
Betul oom Anton...

itu ditaruhnya di awal statement atau di akhir ya..?

salam

2010/9/1 anton suryadi summon...@yahoo.com

  
sprti ini maksudnya?

For r = 1 to 5
'Code
Next r


semoga bermanfaat

http://www.facebook.com/maspriel

 


  

Re: [belajar-excel] Jumlah Posting di milis ini Semester I / 2010

2010-08-27 Terurut Topik anton suryadi
o iya grafiknya dimulai dr angka 200 ya bu,, ^_^ jd terkesan curam penurunannyasaya rasa wajar jika semester I grafik trend menurun, malah tidak wajar jika semester II trend grafiknya menurunFaktor penentu jumlah postingan, paling tidak ada 2 faktor yang mempengaruhinya:1. Pertambahan jumlah anggota, semakin banyak pertambahan jumlah anggota maka semakin tinggi pula probabilitas naiknya jumlah posting.2. Faktor dari masing2 individu dari anggota, semakin banyak anggota yang berani bertanya maka semakin meningkatkan kemungkinan pertanyaan dilempar ke milis, atau mungkin faktor pekerjaan dari anggota, misal ketika load pekerjaan banyak faktor timbulnya pertanyaan tentang excel
 semakin tinggi.Nah, dari sini kemudian saran-saran dibagi menjadi 2 kategori, yaitu:1. saran agar jumlah anggota naik secara signifikan2. saran agar bagaimana member untuk tidak sungkan dan berani untuk bertanya dan berbagai faktor lainnya yang berasal dari individu yang bisa digunakan untuk mengkatrol jumlah posting.jika ada faktor lainnya monggo ditambahkan,, belum masuk ke saran ya.. ^_^ semoga bermanfaatFrom: STDEV(i) setiyowati.d...@gmail.comTo: belajar-excel belajar-excel@yahoogroups.comSent: Fri, August 27,
 2010 9:23:44 AMSubject: [belajar-excel] Jumlah Posting di milis ini Semester I / 2010
.. kok manurung ya kenafa ya... saran-saran please...(jumlah member saat ini = 901)
 
  jumlah posting di milis [belajar-excel]
  semester 1 / 2010
 
 
  Jan
  Feb
  Mar
  Apr
  May
  Jun
  Jul
 
 
  321
  370
  325
  302
  256
  246
  227ayok-ayok kita belajar excel ...  ..tetap semangat !!





  

Re: [belajar-excel] Total Angka dalam 1 Cell

2010-08-23 Terurut Topik anton suryadi






From: STDEV(i) setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Mon, August 23, 2010 2:54:36 PM
Subject: Re: [belajar-excel] Total Angka dalam 1 Cell

  
Herr, 
coba juga rumus ini
=SUMPRODUCT((LEN(B5)-LEN(SUBSTITUTE(B5,ROW($1:$9),)))*ROW($1:$9))

boleh juga ditulis dlm versi lain
=SUMPRODUCT((LEN(B5)-LEN(SUBSTITUTE(B5,{1,2,3,4,5,6,7,8,9},)))*{1,2,3,4,5,6,7,8,9})


keringanannya : 
sumproduct ini tanpa harus dienter sbg Array Formula (Strl_Shift+Enter)

-siti-
 


2010/8/23 zainul ulum [@ yahoo] zainul_u...@yahoo.com

  
Pakai rumus array (ctrl+shit+enter):
=SUM(--MID(TEXT(A1,REPT(0,99)),ROW($1:$99),1))
Asumsi jika di A1 adalah berupa angka.
 
kalo yang umum (bisa text atau angka)
=SUM(IF(ISNUMBER(--MID(A6REPT(_,99-LEN(A6)),ROW(1:99),1)),--MID(A6REPT(_,99-LEN(A6)),ROW(1:99),1),0))

 
 


 
From:belajar-ex...@yahoogroups.com[mailto:belajar-ex...@yahoogroups.com] On 
Behalf Of HerrSoe
 Sent:Monday, August 23, 2010 2:22 PM
 To:belajar-excel
 Subject:[belajar-excel] Total Angka dalam 1 Cell
 
mohon bantuan 
bagaimana rumus-nya (rumus biasa :tanpa bantuan makro) untuk 
menjumlah semua karakter angka yg ada dlm satu cell
 
misal
NOMOR 1234567890  
   hasil yg diinginkan : 45 (hasil dari 1+2+3+4+5+6+7+8+9+0)
Tanggal 31Des2009jam 16:30 
   hasil yg diinginkan : 25
2500,34  
   hasil = 14
dst
 
Sebelumnya diucapkan terima kasih.
 
Terima kasih juga kpd Bp Anton atas kiriman solusinya (pemanfaatan Advanced 
Filter)
dlm subject [belajar-excel] VLOOKUP Data Ke: Sekian bbrapa hari y.l.
 
HerrSoe


 


  

Re: [belajar-excel] Total Angka dalam 1 Cell

2010-08-23 Terurut Topik anton suryadi
saya kmrin baca pertanyaannya cm seklebat sj,, ^_^ muun maap
saya interpretasikan pertanyaannya, data semua numerik,
ini ada versi lain masih senada dengan formula bu ctv,
yang mungkin lebih mudah untuk dibaca
=SUM((LEN(A1)-LEN(SUBSTITUTE(A1,{1,2,3,4,5,6,7,8,9},)))*{1,2,3,4,5,6,7,8,9})



semoga bermanfaat






From: HerrSoe herr...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Tue, August 24, 2010 9:31:07 AM
Subject: Re: [belajar-excel] Total Angka dalam 1 Cell

  
Terima kasih kapada pak zain, pak anton dan mbak siti yg telah memberikan 
rumus-rumus solusinya yg mentakjubkan
Mohon maaf karena saat memposted pertanyaan  lampiran workbook contoh data 
ketinggalan / llupa meng-attach-nya.

2 (dua) rumus dari pak Zain memang untuk dua kondisi data (numerik semua -vs- 
alfanumerik)

Rumus pak anton sudah kami coba, dan berhasil baik jika data rujukannya
= data bilangan, atau data yg semua anggota karakternya = angka

Ada satu formula yg saya masih 'super-bingung' menangkap sistem kerjanya, yaitu 
formula dari mbak siti
=SUMPRODUCT((LEN(B5)-LEN(SUBSTITUTE(B5;ROW($1:$9);)))* ROW($1:$9))
kok bisa ya??
Mudah-mudahan mbeliau (dan atau temans lain) ada waktu lega untuk mendongengkan 
jalan ceritaknya biar aku bisa nyombong  mendadak jenius ke temans meja 
sebelah. he he..

terima kasih..
HerrSoe



2010/8/24 STDEV(i) setiyowati.d...@gmail.com

 sepertinya ada missing text dikit pada rumus pak anton

sebelum di SUM, bentuknya seperti ini
=(--MID(A1;ROW(INDIRECT(1:LEN(A1)));1))

jika rumus ini di tulis sekaligus di 27 cells sekolom sbg ArrayFormula
maka hasilnya (di pc-ku) seperti ini

(--cut--)
makanya ketika di-SUM menghasilkan [#VALUE]
karena di dalam range (array) tsb terdapat error values.
barangkali  harus ada test IsErr dulu



2010/8/23 anton suryadi summon...@yahoo.com
satu pilihan lagi:
=SUM(--MID(A1,ROW(INDIRECT(1:LEN(A1))),1))

(array formula)
semoga bermanfaat

 


  

Re: [belajar-excel] tanya= rumus untuk mengetahui cell/text yang paling sering muncul dalam suatu kolom atau tabel

2010-08-22 Terurut Topik anton suryadi
Misal range A1:C5
dengan formula =COUNTIF(A1:C5,A1:C5) untuk mencari text yg sering muncul,
misal hasil formula tersebut menghasilkan {7,3,3;1,7,7;7,3,3;3,7,7;3,1,7}
nah ketauan deh text max kemunculan adalah 7x, tinggal dilihat ke indeks baris 
pertama dan indeks kolom pertama dari range tersebut


semoga bermanfaat





From: neza ibaneza nezaiban...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Mon, August 23, 2010 10:44:20 AM
Subject: [belajar-excel] tanya= rumus untuk mengetahui cell/text yang paling 
sering muncul dalam suatu kolom atau tabel

  
Dear.
Para pakar Excel,
boleh tanya nih, apa rumus untuk mengetahui cell/text yang paling sering muncul 
dalam suatu kolom atau tabel, saya sudah coba countif, frequensi dsb semuanya 
tapi terlalu ribet, ada tidak yang lebih simpel.


trully

NEza 

 


  

Re: [belajar-excel] VLOOKUP Data Ke: Sekian

2010-08-20 Terurut Topik anton suryadi
Dengan Advanced Filter,, Mau?

masih menggunakan data yang ada pada lampiran sebelumnya:

Action: Copy to another location

List Range: $B$3:$D$28
Criteria Range: $G$28:$G$29
Copy to: $G$30:$I$30

G29 berisi formula: =COUNTIF($B$4:B4,B4)=2
(berarti mencari kemunculan ke-2)

File sengaja tidak dilampirkan :p
(Sudah diuji dengan Excel 2003 dan menghasilkan daftar semua Item yang muncul 
di 
urutan ke-2)


semoga bermanfaat






From: HerrSoe herr...@gmail.com
To: belajar-excel belajar-excel@yahoogroups.com
Sent: Fri, August 20, 2010 2:34:19 PM
Subject: [belajar-excel] VLOOKUP Data Ke: Sekian

  
Dear milis,

Bagaimana cara / formulanya, jika kita menghendaki seperti pada hasil VLOOKUP
tetapi ingin merujuk data yg sesuai KE 2, KE 3 dst.

misal (tabel dua kolom)
ITEMQTY
Item110
Item115
Item225
Item211
Item113
Item227

kriteria 1 (NamaItem) = Item2  
kriteria 2 (Data Ke: )  = 3
hasil QTY yang diinginkan = 27

Untuk lebih jelasnya mohon dilihat di sheet lampiran.

Terima kasih

HerrSoe

 


  

Re: [belajar-excel] Tanya_PIVOTTABLE gabungan

2010-08-11 Terurut Topik anton suryadi
Dengan susunan datasource dan dari PivotTable yang ada, sepertinya tidak bisa,, 
cmiiw
maka dari itu perlu redesign atas datasource agar menghasilkan report seperti 
yang diharapkan.


Excel 2007 secara tidak langsung tampak berusaha mengarahkan kita agar membuat 
data yang lebih database friendly, mungkin dari sinilah microsoft 
menyembunyikan jauh2 proses konsolidasian PivotTable.

Dengan menggabungkan data saldo awal dan mutasinya dalam satu table justru 
lebih 
mudah untuk mencapai hasil report PivotTable seperti itu. Hasil dapat, flexible 
report juga dapat,,

Atau tidak perlu pivot table malah, cukup gunakan formula SUMIF, 







From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, August 11, 2010 2:09:44 PM
Subject: [belajar-excel] Tanya_PIVOTTABLE gabungan

  
Teman2 pemerhati PIVOTTABLE,
 
Saya mencoba membuat PIVOTTABLE gabungan (Excel 2007) dari 2 sheet, yaitu :
- Sheet COA(Chart of Accounts) yang berisi 4 kolom :
-- No Rek.
-- Nama Rekening
-- Saldo Awal
-- Kode (untuk pengelompokan dalam Laporan Keuangan)
- Sheet Jurnal yang berisi terdiri dari 6 kolom :
-- Tanggal
-- No Bukti
-- Keterangan
-- No Rek.
-- Debit
-- Kredit
Macro yang saya buat adalah sbb :
 Sub Tes()
  ActiveWorkbook. PivotTableWizard xlConsolidation, _
  Array(Array( COA!R1C1: R51C4, Item1), _
  Array(Jurnal! R1C4:R660C6 , Item2))
 End Sub
dimana Sheet Jurnal hanya saya ambil kolom ke 4 s/d ke 6 (jumlah baris sengaja 
saya buat lebih).
 
Setelah saya modifikasi, susunan kolom dalam PIVOTTABLE menjadi seperti ini :
Sum of Value  Column
Row  Nama Rekening   Kode   Saldo AwalDebit KreditSaldo Akhir  
 
dimana Nama Rekening dan Kode masuk sebagai Column sehingga yang tampak adalah 
hasil penjumlahan.
Pertanyaan : 
 
 
 
 
Bagaimana cara membuat Nama Rekening dan Kode tertulis seperti aslinya (bukan 
penjumlahan) ? 

 
Terima kasih atas kesediaan teman2 untuk menganalisa dan menjawab pertanyaan 
ini.
 
Salam,
Hendrik Karnadi
 
Maaf Moderator, lampirannya melebihi ketentuan
 

 


  

Re: [belajar-excel] cara mengeluarkan angka tertentu dari sederet angka

2010-08-11 Terurut Topik anton suryadi
C15: =MID(A15,2,1)

K24: =SUM(--MID(K17:K18,3,1)) Enter dengan menekan Ctrl+Shift+Enter secara 
bersamaan


semoga bermanfaat







From: Muhammad Assegaf seg...@sbtcgroup.com
To: belajar-excel@yahoogroups.com
Sent: Wed, August 11, 2010 5:38:53 PM
Subject: [belajar-excel] cara mengeluarkan angka tertentu dari sederet angka

  
Salam alaikum,..
 
Selamat puasa untuk semua yang  menjalankan ibadah puasa di bulan suci 
ramadhan, 
mohom maaf atas segala  kesalahan atau kekhilafan yang sengaja atau gak sengaja 
yah ;)
 
ini posting untuk para ahli excel  di bulan puasa,.. ada sedikit kasus yang 
bikin saya bingung,...
 
tolong di cek yah di  attachementnya, ...
 
makasih untuk semua !
 
best regards,
 
Muhammad  Asseggaf
 


  

Re: [belajar-excel] Create Template Gabung fild

2010-08-05 Terurut Topik anton suryadi
Taruh di Sheet1:

Sub ApaCoba()
a = [COUNTA(B3:B20)]
b = [COUNTA(E4:E20)]
For i = 3 To (a + 3)
With Sheets(hasil)
For j = 4 To b + 3
Z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Z, 1).Resize(1, 2).Value _
= Cells(j, 5).Resize(1, 2).Value
.Cells(Z, 3).Value = Cells(i, 2).Value
.Cells(Z, 4).Value = _
.Cells(Z, 1).Value  .Cells(Z, 3).Value
Next
End With
Next
End Sub


semoga bermanfaat







From: sepriansyah encep citra_en...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, August 5, 2010 3:07:55 PM
Subject: [belajar-excel] Create Template Gabung fild

  
Dear All Master,

Mohon bantuannya,
Saya punya 2 master data yag akan digabungkan,
Setiap master memliki Code sebagai kunci nya,
saya ingin menggbungkan 2 kunci itu yg akan saya gunakan sebagai kunci untuk 
data yg lain,

Permasalahannya:
Dikarenan Master data tidak tetap jumlah nya maka saya kesulitan untuk 
menggabungkan data nya...

untuk lebih jelasnya lihat attch,

Mohon bantuannya para master,adakah solusi nya agar saya tdk manual membuatnya 
karena datanya cukup banyak dan ini merupakan pekerjaan rutinitas...

Tx,
Syepriansyah


 


  

Re: [belajar-excel] Ga bisa pindah window..

2010-08-05 Terurut Topik anton suryadi
baca di sini



semoga bermanfaat




From: firman sinaga ebenkc...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Fri, August 6, 2010 9:15:21 AM
Subject: Re: [belajar-excel] Ga bisa pindah window..

  
Gni mas mslahnya..
klo sya buka 1 file excel,oke fine gda mslh..Trus sya buka 1 file excel lg, 
bisa 
ke buka tapi klo tab yg sblumnya sya buka pgn diliat lg, itu g bs lsg 
muncul..solusinya harus sya minimize dlu file excel yg ke2, barulah yg pertama 
td bisa dibuka.begitu juga sbaliknya klo mo kembali yg ke2..Kan jadi tidak 
efektif, pindah2 window jd lama..





From: murdanigd dunn murdan...@gmail. com
To: belajar-excel@ yahoogroups. com
Sent: Wed, August 4, 2010 11:30:24 AM
Subject: Re: [belajar-excel] Ga bisa pindah window..

  
maaf pertanyaan kurang jelas sedikit,
apakah yang dimaksud adalah Arrange Windows?
Kalau itu yang dimaksud ..
 
- Coba buka semua file excelnya
- Pilih menu Window -- Arrange
- Pilih sesuai selera ( Vertical, Horizontal dll)
 
maaf kalau tidak nyambung ya.. .( saya kurang mengerti yang dimaksud)
 
trims


Pada 8 Juli 2010 11.51, wahyu abdi wahy...@yahoo. com menulis:

  


coba ke taskbar  menu properties



 From: firman sinaga ebenkc...@yahoo. com 

To: belajar-excel@ yahoogroups. com
Sent: Thu, July 8, 2010 9:48:28 AM 

Subject: Re: [belajar-excel] Ga bisa pindah window..
 

  


tetep ga bisa bos..dari awal emg udah dicentang...





 From: Iwan کuryawan i...@asco.co. id
To: belajar-excel@ yahoogroups. com
Sent: Thu, July 8, 2010 9:43:58 AM
Subject: Re: [belajar-excel] Ga bisa pindah window..

  
Eh maap, kebalik. Kasih centang di Windows in Taskbar

Salam
| suryawan arief | iwan |



On Thu, 8 Jul 2010 09:40:28 +0700 (SE Asia Standard Time) 
Iwan کuryawan i...@asco.co. id menulis begini: 
Coba:
Tools  Options  View  hilangkan centang di Windows in Taskbar

Salam
| suryawan arief | iwan |





 


  

Re: [belajar-excel] memecah Data perkota

2010-07-24 Terurut Topik anton suryadi
Sub CobaCobi()
Dim ws As Worksheet
Dim wsh As Worksheet
For Each ws In Worksheets
Application.DisplayAlerts = False
If ws.Name  Data Then ws.Delete
Application.DisplayAlerts = True
Next
For i = 5 To 100 'sesuaikan
If Cells(i, 5)  blank Then
On Error Resume Next
Set wsh = Worksheets(Cells(i, 5).Value)
If wsh Is Nothing Then
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Cells(i, 
5).Value
With Sheets(Cells(i, 5).Value)
.Range(A4:B4).Value = Split(Tanggal,Inv., ,)
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 2).Value = 
Cells(i, 1).Resize(1, 2).Value
End With
Else
With Sheets(Cells(i, 5).Value)
.Range(A4:B4).Value = Split(Tanggal,Inv., ,)
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 2).Value = 
Cells(i, 1).Resize(1, 2).Value
End With
End If
On Error GoTo 0
End If
Next
End Sub


semoga bermanfaat


===
catatan mods
mohon maaf posting ini terlambat karena
masuk ke folder spam
===


From: PP 03 ppc...@sami.co.id
To: belajar-excel@yahoogroups.com
Sent: Fri, July 23, 2010 4:30:02 PM
Subject: [belajar-excel] memecah Data perkota
 
mohon bantuannya bagaimana code untuk
permasalahan saya ini
 
file ini semula mempunyai 1 Sheet (Data)
ketika tombol Rekap koto di  Klik 
1.menDelet semua sheet kecuali sheet Data
2.membuat sheet sesuai  nama kota (koom E)
3.memasukkan tanggal (kolom A) dan Inv. (kolom  B)
   ke Sheet yang telah dibuat
   Contoh :disini ada  4 sheet (JKT,SMG,DMK,RMBG)
 
  Thanks  Best Regards 
||---||
   Sidoel


Re: [belajar-excel] Menghitung jumlah bulan

2010-07-22 Terurut Topik anton suryadi
jika terlambat 1 hari dianggap terlambat 1 bulan:

=IF(C1=C2,0,MAX(1,((YEAR(C2)-YEAR(C1))*12)+MONTH(C2)-MONTH(C1)))


semoga bermanfaat







From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thu, July 22, 2010 12:00:40 PM
Subject: Re: [belajar-excel] Menghitung jumlah bulan

  
Gunakan formula berikut ini:
=((YEAR(C2)- YEAR(C1)) *12)+MONTH( C2)-MONTH( C1)


semoga bermanfaat







From: gjhmd gjhmd_2...@yahoo. co.id
To: belajar-excel@ yahoogroups. com
Sent: Thu, July 22, 2010 11:47:25 AM
Subject: Re: [belajar-excel] Menghitung jumlah bulan

  





  
terima kasih pak hendrik dan pak sulistio, dapat menangkap maksud saya, 
jawaban 
bapak berdua juga memuaskan, tetapi sayangnya kalo keterlambatan dalam bulan 
yang sama formula bapak  tersebut tidak tepat. misal :
Tgl jatuh tempo :  25 nov 2009
tgl bayar  :  26 nov 2009
 
_ 


 


  

Re: [belajar-excel] Menghitung jumlah bulan

2010-07-22 Terurut Topik anton suryadi
JT 31-Dec-09 
Pembayaran 31-Jan-10 
Hasil 1 
 
 
JT 30-Dec-09 
Pembayaran 31-Jan-10 
Hasil 2 







From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Fri, July 23, 2010 8:24:29 AM
Subject: Re: [belajar-excel] Menghitung jumlah bulan

  
Ikutan ...

c1 adalah tanggal jatuh tempo
c2 adalah tanggal pembayaran
=IF(C1=C2,DATEDIF( C1,C2,m)+(DAY(C1)DAY(C2)),0)

Kid




2010/7/21 gjhmd gjhmd_2...@yahoo. co.id

  



para master excel yth.

mohon bantuan bagaiman menghitung jumlah bulan keterlambatan antara dua 
tanggal 
dengan mengabaikan hari.

trims
made
 


 


  

Re: [belajar-excel] Macro Password

2010-07-21 Terurut Topik anton suryadi
bagaimana jika si hacker tidak macro enable,,







From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, July 21, 2010 2:01:02 PM
Subject: [belajar-excel] Macro Password

  
Beberapa waktu lalu ada yang menanyakan kepada saya bagaimana memproteksi file 
dengan macro VBA karena file Excelnya sering dihack.
 
Saya coba membuatnya dan saya lampirkan dalam email ini.
 
Untuk membuka file dan mengupadate macro VBAnya diperlukan password yang benar. 
Jika Password salah anda tidak dapat membuka file tersebut atau mengupdate 
macro 
VBAnya. UserForm Masukkan Password tidak dapat ditutup secara manual.
Password untuk file ini adalah tes dan dapat dimodifikasi melalui macro 
VBAnya.
 
Selamat mencoba.
 
Salam,
Hendrik Karnadi
 

 


  

Re: [belajar-excel] Menghitung jumlah bulan

2010-07-21 Terurut Topik anton suryadi
Gunakan formula berikut ini:
=((YEAR(C2)-YEAR(C1))*12)+MONTH(C2)-MONTH(C1)


semoga bermanfaat







From: gjhmd gjhmd_2...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, July 22, 2010 11:47:25 AM
Subject: Re: [belajar-excel] Menghitung jumlah bulan

  





  
terima kasih pak hendrik dan pak sulistio, dapat menangkap maksud saya, 
jawaban 
bapak berdua juga memuaskan, tetapi sayangnya kalo keterlambatan dalam bulan 
yang sama formula bapak  tersebut tidak tepat. misal :
Tgl jatuh tempo :  25 nov 2009
tgl bayar  :  26 nov 2009
 
_ 

 


  

Re: [belajar-excel] Open tanpa input User dan Password

2010-07-20 Terurut Topik anton suryadi
sorry,, tp saya tidak yakin hal itu bisa dilakukan oleh vba, karena sepertinya 
itu di luar wilayah VBA,

terpaksa user harus memasukkan user id dan password dari komputer tujuan secara 
manual untuk kemudian menjalankan vba untuk membuka file tersebut seperti biasa.

mungkin rekan yang lain punya solusi.







From: PP 03 ppc...@sami.co.id
To: belajar-excel@yahoogroups.com
Sent: Tue, July 20, 2010 11:38:20 AM
Subject: Re: [belajar-excel] Open tanpa input User dan Password

  
 
maaf mas anton aku kurang bisa memahami, mohon  contoh kodenya
 
yang saya alami adalah
setiap kali aku mau buka komputer lain dengan cara  Share Run -- computerName 
atau IP computer  tujuan
setelah itu baru muncul suruh  masukin User dan password computer tujuan
 
jika aku menggunakan macros dan aku belum masukkan  user dan Password melalui 
Run
pasti yang terjadi adalah  Error
 
bagaimana caranya agar penulisan User  dan password Computer tujuan tersebut di 
kerjakan oleh Macros
sehingga saya tidak perlu buka  Run lagi 
 
 
 
  Thanks  Best Regards 
||-- - - - - -||
Sidoel
 
 
- Original Message - 
From: antonsuryadi 
To: belajar-excel@ yahoogroups. com 
Sent: Monday, July 19, 2010 3:52 PM
Subject: Re: [belajar-excel] Open tanpainput User dan Password

  
ref: http://en.wikipedia .org/wiki/ Path_%28computin g%29


\\ComputerName\ SharedFolder\ Resource

Setelah nama/IP komputer  nama folder  nama file plus extensionnya.
Coba dulu folder ataupun nama filenya tanpa spasi (diubah dulu), kalo udah 
bisa 
bisa dilanjutkan dengan folder/nama file yang mempunyai spasi, ada trik 
tersendiri untuk yang ini.

selamat mencoba


semoga bermanfaat






 From: PP 03ppc...@sami. co.id
To: belajar-excel@ yahoogroups. com
Sent: Fri, July 16, 2010 1:01:59PM
Subject: Re:[belajar-excel] Open tanpa input User danPassword

  
Ok bu siti 
 
contoh coding dari rekam macro sbb:
 
ChDir \\10.62.124. 166\e\C. MODEL YEAR 2009\4. GMT 561 MY2009\08. 
PC\Draft
Workbooks.Open Filename:=_
\\10.62.124. 166\e\C. MODEL YEAR 2009\4. GMT 561 MY2009\08. 
PC\Draft\08SA561- 09-001 (Left Front Door ).xls
jika dijalanan
errorPart NotFound
 
  Thanks  Best Regards 
||--- - - - -||
  Sidoel
 
 
- Original Message - 
From: STDEV(i) 
To: belajar-excel@ yahoogroups.  com 
Sent: Friday, July 16, 2010 12:44  PM
Subject: Re: [belajar-excel] Open tanpa  input User dan Password

  
ndak ada lampIran /contoh coding sepotong pun ya ??

mungkin apa yg  anda kerjakan secara manual itu dapat anda rekam
(record makro - action  anda - stop recording)
lalu tempelkan coding hasil rekaman itu di makro  anda
biasanya masih perlu sedikit editing

Lihat di vbaHELP perintah OPEN FILE seperti yg anda ceritakan (hanya  
ceritakan) itu 

apakah mempunyai parameter?; apa  saja?

contoh
sitaks Metoda Open (Workbooks.Open) punya  banyak parameter seperti ini 
(antara  lain : password)

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, 
WriteResPassword, IgnoreReadOnlyRecom mended, Origin, Delimiter, Editable, 
Notify, Converter, AddToMru, Local, CorruptLoad)

dengan  mengetahui sintaks lengkapnya akan banyak membantu kita bgmana 
harus 

mengedit code hasil rekaman




2010/7/16  PP 03 ppc...@sami.  co.id

 
Sobat Excel
saya ada kendala nich mohon bantuannya
di dalam penulisan macro saya mencantumkan perintah Open file dari komputer 
lain
kendala yang dihadapi adalah setiap akan menjalankan macro saya harus
buka Explorernya dulu
melalui Run (\\komputer yang dituju) untuk memasukan User danpassword
jika tidak membuka nya maka langsung Debug
bagaimana codenya agar tidak membuka Explorernya bisalangsung Open
atau
User dan password langsung di tuliskan dimacro


 


  

Re: [belajar-excel] Jumlah Secara Otomatis

2010-07-18 Terurut Topik anton suryadi
Mr. Kid telah mencontohkannya,,

untuk tulisan berjalan tanpa macro dpt dilihat di sini


semoga bermanfaat







From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Sun, July 18, 2010 10:38:33 PM
Subject: Re: [belajar-excel] Jumlah Secara Otomatis

  
Tekan F9 terus menerus.Bila perlu tindih tombol F9 dengan sesuatu yang berat.

Regards.
Kid.


2010/7/18 depi Hariyanto depi.hari_yanto@ yahoo.co. id

  
Dear All,
 
saya udah coba, tapi gak bisa juga bisa diberikan beserta conyohnya ...?
 
 
tks./Depi H





 Dari: Mr. Kid mr.nm...@gmail. com

Kepada: belajar-excel@ yahoogroups. com
Terkirim: Ming, 18 Juli, 2010 16:42:33
Judul: Re: [belajar-excel] Jumlah Secara Otomatis


  
coba formula blinking :
=if(isodd(now( )*10) ,,Tulisan kedap kedip)
kemudian tekan F9 terus menerus. Ubah jumlah nol pengali untuk memperlambat 
atau 
mempercepat blinking.

Regards.
Kid.


2010/7/18 hendrik karnadi hendrikkarnadi@ yahoo.com

  
Maaf Pak Anton, apakah pencet F9 nya harus bersamaan dengan tombol lain ?
Di key board saya, saya tekan F9 (sampai pegal) ga response.

Mohon pencerahannya. .

Salam,
Hendrik Karnadi






 From: anton suryadi summon...@yahoo. com 

To: belajar-excel@ yahoogroups. com
Sent: Saturday, July 17, 2010 21:15:26 

Subject: Re: [belajar-excel] Jumlah Secara Otomatis
 

  
mohon ijin komeng tentang kata2 Kedap kedip harus pakai macro ya..


sebenarnya bikin huruf kedap-kedip tanpa pakai macro-pun bisa,,


tapi ya itu,, memencet tombol F9 terus2an (tapi gak sampe thn 2012 mencetnya 
lho 
ya...)


masih ada hubungan dekat ma tipsnya Om Abimono tentang membuat teks berjalan 
tanpa macro,,




semoga bermanfaat








 From: hendrik karnadi hendrikkarnadi@ yahoo.com
To: belajar-excel@ yahoogroups. com
Sent: Sat, July 17, 2010 11:39:31 AM
Subject: Re: [belajar-excel] Jumlah Secara Otomatis

  
Hi Depi,
Mudah-mudahan solusi terlampir dapat membantu.
Kedap kedip harus pakai macro (sdh pernah ada di milis), jadi sebagai 
gantinya 
saya pakai conditional formating.
Jika anda mengetik No AWB tapi belum mengetik jumlah Colly dan Weight maka 
akan 
ada reminder; jika anda mengisi Colly dan Weight terakhir maka otomatis 
akan 
dijumlahkan dalam Summary.

 semoga bermanfaat (ngopy tips dari Pak ANTON).

Salam,
Hendrik Karnadi







 From: depi Hariyanto depi.hari_yanto@ yahoo.co. id
To: excel belajar-excel@ yahoogroups. com
Sent: Saturday, July 17, 2010 10:00:37
Subject: [belajar-excel] Jumlah Secara Otomatis

  
Ysh, Master n pencinta Excel.

Mohon bantuan rekan2 semua seperti file terlampir.

salam
Depi Hariyanto








 


  

Re: [belajar-excel] Jumlah Secara Otomatis

2010-07-17 Terurut Topik anton suryadi
mohon ijin komeng tentang kata2 Kedap kedip harus pakai macro ya..

sebenarnya bikin huruf kedap-kedip tanpa pakai macro-pun bisa,,

tapi ya itu,, memencet tombol F9 terus2an (tapi gak sampe thn 2012 mencetnya 
lho 
ya...)

masih ada hubungan dekat ma tipsnya Om Abimono tentang membuat teks berjalan 
tanpa macro,,


semoga bermanfaat






From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Sat, July 17, 2010 11:39:31 AM
Subject: Re: [belajar-excel] Jumlah Secara Otomatis

  
Hi Depi,
Mudah-mudahan solusi terlampir dapat membantu.
Kedap kedip harus pakai macro (sdh pernah ada di milis), jadi sebagai gantinya 
saya pakai conditional formating.
Jika anda mengetik No AWB tapi belum mengetik jumlah Colly dan Weight maka akan 
ada reminder; jika anda mengisi Colly dan Weight terakhir maka otomatis akan 
dijumlahkan dalam Summary.

 semoga bermanfaat (ngopy tips dari Pak ANTON).

Salam,
Hendrik Karnadi






From: depi Hariyanto depi.hari_yanto@ yahoo.co. id
To: excel belajar-excel@ yahoogroups. com
Sent: Saturday, July 17, 2010 10:00:37
Subject: [belajar-excel] Jumlah Secara Otomatis

  
Ysh, Master n pencinta Excel.

Mohon bantuan rekan2 semua seperti file terlampir.

salam
Depi Hariyanto



 


  

Re: [belajar-excel] data tampil berdasarkan list yang dipilih hasilnya dalam bentuk list juga

2010-07-14 Terurut Topik anton suryadi
Selamat pagi,

Data validation  List  =INDIRECT($I$9)

File terlampir


semoga bermanfaat






From: Contract Mining Assistant, Asam-Asam apassist...@arutmin.com
To: belajar-excel@yahoogroups.com
Sent: Thu, July 15, 2010 7:26:32 AM
Subject: [belajar-excel] data tampil berdasarkan list yang dipilih  hasilnya 
dalam bentuk list juga

  
Selamat Pagi pecinta Excel.
Mohon bantuannya ya seperti file  terlampir.
 
 
 
Salam, RasyidDisclaimer   -   This  message  including any attachments and 
information contained
herein  (Message ) may contain  privileged information  or otherwise is 
protected
from  disclosure. Any  unauthorized use of this  Message  by any person may 
lead 
to
legal consequences.  If  you  receive this   Message  in error, or if the 
recipient
of this  Message  is not the intended recipient or the employee or agent 
authorized
for delivering this  Message to the intended recipient you are hereby notified 
that
any  disclosure,  dissemination, distribution  or copying of this Message or 
let 
or
cause this Message to be disclosed,dissemina ted, distributed, or copied is 
strictly
prohibited, and please notify the sender by  return message  and immediately 
delete
this  Message  from your system.   Incoming and outgoing  communications using 
this
electronic mail may be monitored by PT Arutmin Indonesia,as permitted by 
applicable
law and regulations. Unless it is made by the authorized person,any views 
expressed
in this Message  are those of the individual sender and may not necessarily 
reflect
the views of PT Arutmin Indonesia.
You should check attachments for viruses and defects before opening or using 
them. 

We are not liable to recover any injuries caused by virused or defected 
attachments.
 
 


  

__List data__.xls
Description: MS-Excel spreadsheet


Re: [belajar-excel] Fenomena Aneh Di Excel

2010-07-04 Terurut Topik anton suryadi
karena Excel ingin dimengerti,,,





From: RidwanRahman ridwan7...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Mon, July 5, 2010 11:05:54 AM
Subject: RE: [belajar-excel] Fenomena Aneh Di Excel

  
Klo gitu, dalam kasus ini, kayaknya saya yang mesti ngikutin Excel alias 
memodifikasi rumus (bukan excel yg bantu saya mengkalkulasi sesuai logika yg 
saya hadirkan dalam perhitungan/ rumus). GPp lah, jadi tau, nothing 100% 
absolute in excel.
 
Thanks Mr. Kid atas penjelasan dan atensinya
 
Salam
r...@d-1
 
 
From:belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] 
On 
Behalf Of Mr. Kid
Sent: 05 Juli 2010 10:27
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Fenomena Aneh Di Excel
 
  
Untuk interval angka tertentu, bulat atau kepresisian desimal yang rendah, maka 
akan sama dengan manusia. Diluar itu, bisa sedikit berbeda karena keterbatasan 
Excel atau malah terlalu presisinya Excel, karena manusia juga memiliki 
interval 
bilangan tertentu dan kepresisian tertentu juga untuk bisa dikatakan sama 
logikanya, baik antar manusia ataupun antara manusia dengan mesin.

Excel hanya berusaha untuk mengikuti logika manusia, hanya saja ada 
keterbatasannya, yaitu tidak bisa mengingat bilangan lebih dari 15 digit. 
Bahkan, kecermatan (kepresisian) angka dibelakang koma pun (yang menurut Excel 
sangat cermat dibanding manusia) malah bisa membuat logikanya jadi tidak sama 
dengan manusia. 


Jadi, sebenanrnya tidak ada yang salah antara keduanya, hanyalah sikap 
toleransi 
dan kompromi saja yang menentukan. Semakin kaku maka semakin sulit.
So, untuk prinsip yang tidak fundamental, maka kompromi dalam toleransi akan 
membuat segalnya jadi mudah untuk kedua belah pihak.

Hehehe.. Excel ini manusia atau mesin sih.. kok perlakuan filosofinya disamakan 
dengan interaksi antar manusia... hahahaha.. 

maaf kalo salah folosofinya, terutama untuk member yang memang bidangnya pada 
sisi filosofi.

Regards
Kid. 


2010/7/5 RidwanRahman ridwan7...@gmail. com
  
Terima Kasih Mr.Kid atas penjelasannya.
Mohon maaf kalau saya salah mengartikannya. Berarti klau digitnya 15 kalkulasi 
di excel bisa sedikit tidak mengikuti logika perhitungan ya?
 
Salam
Ridwan
 
From:belajar-excel@ yahoogroups. com [mailto:belajar-excel@ yahoogroups. com] 
On 
Behalf Of Mr. Kid
Sent: 03 Juli 2010 10:18
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Fenomena Aneh Di Excel
 
  
Semoga file terlampir bisa memberi sedikit gambaran tentang logika.
Bukankah antar logika itu relatif. Kalau pas sama, itu karenalagi sehati. 
Logika 
yang absolut tepat punya siapa ? Yang jelas bukan punya mahluk ya.

Regards.
Kid.


2010/7/3 RidwanRahman ridwan7...@gmail. com
  
Pakar-pakar excel semuanya yg saya hormati.
 
Seingat saya (mohon koreksinya, mungkin dulu waktu sekolah saya pas gak masuk 
waktu pelajaran ini) , berapa banyak pun angka yang sama dijumlah dan di bagi 
dengan jumlah banyaknya angka tersebut, maka hasilnya adalah angka itu sendiri. 
Misal kita susun angka 2 sebanyak 100 baris dan kita bagi 100, kan hasilnya 
jadi 
2.
Pertanyaannya, di lampiran file berikut, excel tidak mengikuti logika ini.
Adakah yg bisa membantu untuk menjelaskannya,
 
Salam hormat
r...@d-1
 
 
 


  

Re: [belajar-excel] Modul Cabang

2010-06-24 Terurut Topik anton suryadi
misal aktifkan sheet tr, kemudian pencet Alt+F11
lihat, ada tulisan MsgBox(apus2in?, vbYesNo), silakan diganti aja sakarepe 
dewek, begitu juga  pesan simpan/tutup pada sheet mu


Selamat mencoba






From: ratim sugianto ratimsugia...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Fri, June 25, 2010 12:39:11 AM
Subject: Re: [belajar-excel] Modul Cabang

  
mas anton suryadi. trims juga yach atas bantuannya. btw, kalo mau edit pesan 
ketika mau hapus form atau simpan/tutup darimana yach hehehe. one more... thank 
u.
--- Pada Kam, 24/6/10, anton suryadi summon...@yahoo. com menulis:


Dari: anton suryadi summon...@yahoo. com
Judul: Re: [belajar-excel] Modul Cabang
Kepada: belajar-excel@ yahoogroups. com
Tanggal: Kamis, 24 Juni, 2010, 3:10 PM


  
Saya coba bantu ya..

File terlampir


semoga bermanfaat







 From: ratim sugianto ratimsugianto@ yahoo.co. id
To: belajar-excel@ yahoogroups. com
Sent: Thu, June 24, 2010 1:38:50 AM
Subject: [belajar-excel] Modul Cabang

  
RR Miliser Excel ysh
Terlampir saya attack file transaksi.xls ttg pertanggungan keuangan di 
kantor cabang.
Mohon bantuan RR dan para master excel untuk melengkapi dengan tombol 
navigasi dan tombol Hapus Form. 
saya yakin RR bisa menyempurnakan dengan tampilan satu sheet, sehingga sheet 
kerja yang terdiri dari 4 sheet, jika menggunakan makro dan tombol navigasi 
menjadi kelihatan satu sheet saja.
Atas bantuan RR semuanya saya haturkan terimakasih.
Pengen belajar makro tapi belum pernah sempat.. heheh  jadi minta bantuan 
rekan2 dan para ahlinya aja dech... semoga berkenan.
 
ttd
kang Ratim 

 

 


  

Re: [belajar-excel] A non simple (but useful) validation formula

2010-06-17 Terurut Topik anton suryadi
Unique n Sorted? saran saya gunakan bantuan PivotTable
Padukan dengan jurus Dynamic Name Range ke PivotTable area-nya,
Masukkan Defined Names yang dibuat ke List dari Data Validation


semoga bermanfaat







From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thu, June 17, 2010 1:00:28 PM
Subject: Re: [belajar-excel] A non simple (but useful) validation formula

  
Terima kasih Mr. Kid atas pencerahannya. 
Saat ini saya masih mencoba mengurutkan kolom E (hasil dari formula array 
tersebut).
 
Salam,
Hendrik Karnadi





 From: Mr. Kid mr.nm...@gmail. com
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, June 16, 2010 14:52:08
Subject: Re: [belajar-excel] A non simple (but useful) validation formula

  
Hai Hendrik,

Array formula :
=IFERROR(INDEX( $D$2:$D$18,MATCH(0,COUNTIF( $E$1:E1,$ D$2:$D$18) ,0)),)

cari yang belum ada di kolom E (running references) dari data suatu range pada 
kolom D

Jadi harus dibuat daftar (larik=array) jumlah cacah masing-masing data di kolom 
D terhadap kolom E. Maka kolom D jadi kriteria karena jumlah cacah 
masing-masing data di kolom D.
Kalau ketemu 0 pertama, pastilah itu belum ada di kolom E (oleh si Match), maka 
ambil data dari kolom D (oleh si Index) berdasar hasil si match yang menemukan 
data keberapa yang status isi kolom D berjumlah cacah 0. Match selalu mengambil 
yang pertama ditemukan jika memenuhi syarat. Karena Match dan Index bisa 
menghasilkan error value, dipakailah IFError(). 

Di Excel 2003 menggunakan IF(IsError(Match( )),,Index( Match( CountIF() )))

Ketika range pada kolom D yang digunakan pada Index tidak memiliki nilai 
(Blank) maka hasil Index akan 0. Jadi, misalkan data di kolom D hanya berisi 5 
cells (D2:D6) maka bagian Index cukup diisi D2:D6 supaya tidak ada hasil 
formula oleh Index bernilai 0 karena cell tersebut masih blank.

Regard.
Kid.



2010/6/16 hendrik karnadi hendrikkarnadi@ yahoo.com

  
Para Pakar Formula Excel 2007,
Mohon diberikan pencerahan untuk formula {=IFERROR(INDEX( 
$D$2:$D$18,MATCH(0,COUNTIF( $E$1:E1,$ D$2:$D$18) ,0)),)}, yang digunakan 
sebagai sumber validation list (array formula) dalam file terlampir.
 
Yang menjadi pertanyaan adalah :
- Mengapa fungsi Match diawali dengan  0 (nol)?
- Mengapa yang dijadikan criteria dalam fungsi Countif justru range $D$2:$D$18 
danbukan$E$1:E1, dstnya.
 
Terima kasih.
 
Salam,
Hendrik Karnadi



 


  

Re: [belajar-excel] formula jadi text

2010-06-16 Terurut Topik anton suryadi

gunakan Call Function: =GET.CELL(6,Sheet1!G2) melalui Define Name

atau VBA Code


semoga bermanfaat




From: PP 03 ppc...@sami.co.id
To: belajar-excel@yahoogroups.com
Sent: Wed, June 16, 2010 11:45:48 AM
Subject: [belajar-excel] formula jadi text

  
para pakar numpang tanya
 
contoh:
di cell (G2) berisi rumus =SUMPRODUCT( (A2:A5=F2) *(B2:B5)) hasil 
50
di harapkan :
di cell (H2) = ???( merujuk ke cell (G2)) hasil ber format text 
SUMPRODUCT(( A2:A5=F2) *(B2:B5)) 



tanpa tanda petik
 
terimakasih atas bantuannya
 
  Thanks  Best Regards 
||-- - - - - -||
  sidol 
 


  

Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun Kabisat-kah

2010-06-09 Terurut Topik anton suryadi
1 Januari 1900 harusnya bernilai serial 1, di pc siti = 2. payah !


di sini juga nilainya 2 ^_^'
(excel 2007 Ori, Win XP, SP2)





From: stdev i setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, June 9, 2010 4:29:16 PM
Subject: Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun  
Kabisat-kah

  
mbak Hapsari bySMS mengucapkan terima kasih kpda milis khususnya kpd 
pak anton atas kiriman rumusnya yg 'manstab!' dan memang bermanfaat..

ini sekalian ikut formula pak anton..
tahun kabisat adalah:

1
=AND(MOD(YEAR( A2),4)=0, OR(MOD(YEAR( A2),100)0,
 MOD(YEAR(A2) ,400)=0))
angka tahunnya  habis dibagi 4, tetapi bukan tahun Abad, kecuali habis dibagi 
400

2
=DAY(DATE(YEAR( A2),3,0)) =29
tahun yang  TANGGAL_0_(NOL) _Bulan_MARET_ nya = 29

3
=MONTH(DATE( YEAR(A2), 2,29))=2
tahun yang  Nilai_Bulan_ atas_Tanggal_ 29_Februari_ nya = 2 

Rumus kedua dan ketiga kelihatan sederhana karena memanfaatkan 
pengetahuan si excel mengenai tanggal. 


Penjelasan mengenai Mengapa Ada Tahun Kabisat dapat dibaca di situs2web 
astronomi, pernah juga secara sederhana diposted di milis sebelah
http://tech. groups.yahoo. com/group/ XL-mania/ message/6349

Jika sulit mencarinya, dibawah ini dikutipkan ringkasannya sbb:

Umur  TAHUN BUMI (yaitu waktu yg diperlukan bumi untuk sekali mengedari 
Matahari 
adalah 365.24219 hari, angka ini (oleh tarikh international = Gregorian 
calendar) dibulatkan
menjadi 365.2425

Jika 1 tahun dianggap 365 hari maka setiap 4 tahun akan ada selisih (minus) 
0.97 hari
dengan umur sebenarnya; artinya saat itu Bumi belum genap 4 (empat) kali 
mengedari 
Matahari. Masih kurang dikit.. Maka setiap 4 tahun (dipilih tahun yg habis 
dibagi 4) 
umur tahun ditambah 1 hari, yaitu dengan di ADAKAN nya tgl 29 Februari. 
Itulah Leap Year / tahun kabisat; tahun yg diberi umur 366 hari.

Karena setiap 4 tahun kita mengoreksi minus 0.97 dengan plus 1.00 (kelebihan 
0.03) 
maka setiap 133.33 tahun akan ada kelebihan 1 hari, artinya saat itu posisi 
Bumi 
sebenarnya sudah terlalu maju 1 hari dari kedudukan seharusnya.
Karena itu diperlukan koreksi pengurangan 1 hari; tetapi koreksinya diadakan 
setiap
100 tahun sekali; dipilih tahun Abad, yaitu tahun yg angkanya habis dibagi 100
(dua angka terakhir = 00). Jadi walaupun tahun 1900, 2100, 2200, 2300 habis 
dibagi 4 
tetapi tanggal 29 Februari-nya di TIADAKAN. 
Akibatnya Tahun Abad = bukan tahun kabisat.

Koreksi per abad tsb masih menyisakan selisih (minus), dan akan berakumulasi 
menjadi 
1 hari jika sudah melewati kurun sekitar 4 abad.
Maka dari itu setiap 4 abad sekali diadakan koreksipenambahan 1 hari, dipilih 
pada
tahun yg habis dibagi 400 (misal 1600, 2000, 2400 dst) yaitu walaupun tahun tsb 
= 
tahun Abad, tetapi di adakan tgl 29 Februari..

Geetooo katanya
-ctv-




2010/6/8 anton suryadi summon...@yahoo. com
















 
  
 
Dear mbak Haps,
Microsoft mempunyai penjelasan tentang Tahun Kabisat/Leap Year beserta excel 
formulanya, silakan menuju http://support. microsoft. com/kb/214019(Method to 
determine whether a year is a leap year)
Formula yang diajukan oleh microsoft adalah sebagai berikut:
=IF(OR(MOD(A1, 400)=0,AND( MOD(A1,4) =0,MOD(A1, 100)0)),Leap Year,
NOT a Leap Year)

tentu saja ada formula versi lainnya, seperti yang berikut ini:
=IF(DAY(DATE( YEAR(A2), 3,0))=28,FALSE,TRUE)
saya rasa dari pembacaan formula di atas sudah cukup jelas,


semoga bermanfaat






 From: stdev i setiyowati.devi@ gmail.com
 Sent: Tue, June 8, 2010 5:06:11 PM

 Hai Groups..
 Mbak Haps tanya lagi ke milis ini..
 Ttapi karena terkendala untuk memposting langsung, maka dia email via siti.

 Di kolom A mulai A2 ke bawah si embak punya berbagai data tanggal
 dengan rentang kemungkinan tahun yg cukup luas (1940 s/d 2116)
 Di Kolom B, di B1, si embak membuat judul kolomnya   TahunKabisatkah /  
 IsLeapYear

 Si embak minta bantuan anda semua:
 RUMUS seperti apa yg harus diisikan di kolom B tsb agar menghasilkan: TRUE 
 atau FALSE

 Dia juga bilang : akan senang sekali jika ada yg menjelaskan:
 mengapa harus adaTahun Kabisat (katanya: bikin revot ajah.!?..)
 juga : Terima kasih...
 ~ctv~



 


  

Re: [belajar-excel] Mencari jumlah untuk periode tertentu

2010-06-09 Terurut Topik anton suryadi
Mohon dilampirkan file excel nya ya... (plus informasi setting-an Date di 
komputernya)

Tks






From: azafaza aza_f...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thu, June 10, 2010 5:14:39 AM
Subject: [belajar-excel] Mencari jumlah untuk periode tertentu

  
Kawan-kawan pakar excel yang budiman mohon dibantu untuk solusi formula dari 
kasus excel saya ini 
contoh:
Bulan  Jumlah
Jan 1000
Feb 3000
Mar 4000
April1500
Mei 3000

Pertanyaan: Formula apa yang tepat untuk mencari jumlah total periode Jan-Mei, 
Feb-Mar dst. secara tepat
terima kasih.
Salam.


 


  

Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun Kabisat-kah

2010-06-09 Terurut Topik anton suryadi
Hasil di komputer sini (Excel 2007 SP 2 Ori, Win XP SP2 Ori) sama dengan tabel dari Mr Kid,saya menafsirkan "1 Januari 1900 hasilnya 2" dari bu ctv adalah hasil dari Calendar Control, From: Mr. Kid mr.nm...@gmail.comTo: belajar-excel@yahoogroups.comSent: Wed, June 9, 2010 5:51:40 PMSubject: Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun  Kabisat-kah











  
  
  Kalau dari VBA-nya berapa Pak ?Excel 2007 SP2 Ori, Win XP SP2 Ori :Kira-kira yang membuat beda antar komputer apa ya ?

Kid.2010/6/9 anton suryadi summon...@yahoo. com




















  



  
  
  "1 Januari 1900 harusnya bernilai serial 1, di pc siti = 2. payah !"

di sini juga nilainya 2 ^_^'(excel 2007 Ori, Win XP, SP2)

From: stdev i setiyowati.devi@ gmail.com

To: belajar-excel@ yahoogroups. comSent: Wed, June 9, 2010 4:29:16 PM

Subject: Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun  Kabisat-kah











  
  
  mbak Hapsari bySMS mengucapkan terima kasih kpda milis khususnya kpd pak anton atas kiriman rumusnya yg 'manstab!' dan memang bermanfaat..ini sekalian ikut formula pak anton..tahun kabisat adalah:


1=AND(MOD(YEAR( A2),4)=0, OR(MOD(YEAR( A2),100)0,MOD(YEAR(A2) ,400)=0))angka tahunnya habis dibagi 4, tetapi bukan tahun Abad, kecuali habis dibagi 400


2=DAY(DATE(YEAR( A2),3,0)) =29tahun yang TANGGAL_0_(NOL) _Bulan_MARET_ nya = 293

=MONTH(DATE( YEAR(A2), 2,29))=2
tahun yang Nilai_Bulan_ atas_Tanggal_ 29_Februari_ nya = 2 Rumus kedua dan ketiga kelihatan sederhana karena memanfaatkan pengetahuan si excel mengenai tanggal. 


Penjelasan mengenai Mengapa Ada Tahun Kabisat dapat dibaca di situs2web astronomi, pernah juga secara sederhana diposted di milis sebelahhttp://tech. groups.yahoo. com/group/ XL-mania/ message/6349


Jika sulit mencarinya, dibawah ini dikutipkan ringkasannya sbb:Umur TAHUN BUMI (yaitu waktu yg diperlukan bumi untuk sekali mengedari Matahari 


adalah 365.24219 hari, angka ini (oleh tarikh international = Gregorian calendar) dibulatkan


menjadi 365.2425


Jika 1 tahun dianggap 365 hari maka setiap 4 tahun akan ada selisih (minus) 0.97 hari


dengan umur sebenarnya; artinya saat itu Bumi belum genap 4 (empat) kali mengedari 


Matahari. Masih kurang dikit.. Maka setiap 4 tahun (dipilih tahun yg habis dibagi 4) umur tahun ditambah 1 hari, yaitu dengan di ADAKAN nya tgl 29 Februari. 


Itulah Leap Year / tahun kabisat; tahun yg diberi umur 366 hari.Karena setiap 4 tahun kita mengoreksi minus 0.97 dengan plus 1.00 (kelebihan 0.03) 


maka setiap 133.33 tahun akan ada kelebihan 1 hari, artinya saat itu posisi Bumi 


sebenarnya sudah terlalu maju 1 hari dari kedudukan seharusnya.Karena itu diperlukan koreksi pengurangan 1 hari; tetapi koreksinya diadakan setiap


100 tahun sekali; dipilih tahun Abad, yaitu tahun yg angkanya habis dibagi 100


(dua angka terakhir = 00). Jadi walaupun tahun 1900, 2100, 2200, 2300 habis dibagi 4 tetapi tanggal 29 Februari-nya di TIADAKAN. Akibatnya Tahun Abad = bukan tahun kabisat.


Koreksi per abad tsb masih menyisakan selisih (minus), dan akan berakumulasi menjadi 


1 hari jika sudah melewati kurun sekitar 4 abad.Maka dari itu setiap 4 abad sekali diadakan koreksi penambahan 1 hari, dipilih pada


tahun yg habis dibagi 400 (misal 1600, 2000, 2400 dst) yaitu walaupun tahun tsb = 


tahun Abad, tetapi di adakan tgl 29 Februari..Geetooo katanya....


-ctv-2010/6/8 anton suryadi summon...@yahoo. com

















  



  
  
  Dear mbak Haps,Microsoft mempunyai penjelasan tentang Tahun Kabisat/Leap Year beserta excel formulanya, silakan menuju http://support. microsoft. com/kb/214019 ("Method to determine whether a year is a leap year")


Formula yang diajukan oleh microsoft adalah sebagai berikut:=IF(OR(MOD(A1, 400)=0,AND( MOD(A1,4) =0,MOD(A1, 100)0)),"Leap Year",
"NOT a Leap Year")tentu saja ada formula versi lainnya, seperti yang berikut ini:=IF(DAY(DATE( YEAR(A2), 3,0))=28,"FALSE","TRUE")


saya rasa dari pembacaan formula di atas sudah cukup jelas,semoga bermanfaat


 From: stdev i setiyowati.devi@ gmail.com

 Sent: Tue, June 8, 2010 5:06:11 PM
 Hai Groups.. Mbak Haps tanya lagi ke milis ini.. Ttapi karena terkendala untuk memposting langsung, maka dia email via siti. Di kolom A mulai A2 ke bawah si embak punya berbagai data tanggal


 dengan rentang kemungkinan tahun yg cukup luas (1940 s/d 2116) Di Kolom B, di B1, si embak membuat judul kolomnya "TahunKabisatkah" / "IsLeapYear" Si embak minta bantuan anda semua:


 RUMUS seperti apa yg harus diisikan di kolom B tsb agar menghasilkan: TRUE atau FALSE Dia juga bilang : akan senang sekali jika ada yg menjelaskan: mengapa harus adaTahun Kabisat (katanya: "bikin revot ajah.!?"..)


 juga : "Terima kasih..." ~ctv~



 







  


 









  










 







  

Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun Kabisat-kah

2010-06-08 Terurut Topik anton suryadi
Oops.. maaf ada koreksi untuk formula ke-2, ternyata excel salah 
mengkategorikan tahun 1900sebagai Tahun Kabisat (ada 29 Feb 1900 di Excel)
http://support.microsoft.com/kb/214326,Excel incorrectly assumes that the year 
1900 is a leap year
jadi formulanya menjadi: 
=IF(YEAR(A2)=1900,FALSE,IF(DAY(DATE(YEAR(A2),3,0))=28,FALSE,TRUE))
FALSE berarti Bukan Tahun Kabisat
TRUE berarti Tahun Kabisat


semoga bermanfaat






From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Tue, June 8, 2010 5:46:29 PM
Subject: Re: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun 
Kabisat-kah


Dear mbak Haps,

Microsoft mempunyai penjelasan tentang Tahun Kabisat/Leap Year beserta excel 
formulanya, silakan menuju http://support.microsoft.com/kb/214019(Method to 
determine whether a year is a leap year)
Formula yang diajukan oleh microsoft adalah sebagai berikut:
=IF(OR(MOD(A1,400)=0,AND(MOD(A1,4)=0,MOD(A1,100)0)),Leap Year, NOT a Leap 
Year)

tentu saja ada formula versi lainnya, seperti yang berikut ini:
=IF(DAY(DATE(YEAR(A2),3,0))=28,FALSE,TRUE)
saya rasa dari pembacaan formula di atas sudah cukup jelas,


semoga bermanfaat







From: stdev i setiyowati.d...@gmail.com
To: belajar-excel belajar-excel@yahoogroups.com
Sent: Tue, June 8, 2010 5:06:11 PM
Subject: [belajar-excel] Diketahhui Tanggal tertentu , Ditanyakan Tahun 
Kabisat-kah

  
Hai Groups..

Mbak Haps tanya lagi ke milis ini..
Ttapi karena terkendala untuk memposting langsung, maka dia email via siti.

Di kolom A mulai A2 ke bawah si embak punya berbagai data tanggal 
dengan rentang kemungkinan tahun yg cukup luas (1940 s/d 2116)
Di Kolom B, di B1, si embak membuat judul kolomnya   TahunKabisatkah /  
IsLeapYear

Si embak minta bantuan anda semua: 
RUMUS seperti apa yg harus diisikan di kolom B tsb agar menghasilkan: TRUE atau 
FALSE

Dia juga bilang : akan senang sekali jika ada yg menjelaskan:
mengapa harus adaTahun Kabisat (katanya: bikin revot ajah.!?..)
juga : Terima kasih...


~ctv~



 



  

Re: [belajar-excel] Application.Filesearch di Excel 2007

2010-06-08 Terurut Topik anton suryadi
Dear Mr Lux,

sudah coba FileSystemObject atau Dir?








From: Rizky Luxianto exceluxia...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, June 9, 2010 6:34:06 AM
Subject: [belajar-excel] Application.Filesearch di Excel 2007

  
Master-master, mohon bantuannya. Saya buat program di excel yang ada script 
seperti di bawah ini

set fs = Application. Filesearch

Program ini bisa jalan di Excel 2003, tapi di Excel 2007 tidak bisa dengan 
keterangan Object doesn't support this action. Setelah saya coba cari pilihan 
di Application memang di Excel 2007 tidak tersedia fasilitas Filesearch. Apakah 
master tahu solusinya supaya saya bisa menggunakan Filesearch di Excel 2007 
sebagaimana di Excel 2003? Atau perintah penggantinya yang mempunyai fungsi 
serupa?

Terimakasih atas jawabannya

Rizky Luxianto
Department of Management
Faculty of Economics University of Indonesia
website:
excelux.wordpress. com 

 


  

Re: [belajar-excel] menghitung data tertentu

2010-06-06 Terurut Topik anton suryadi
=SUMPRODUCT((B2:B9=25)*(B2:B9=50))
=COUNTIF(B2:B9,=25)-COUNTIF(B2:B9,50)


semoga bermanfaat







From: Raddini Gusti Rahayu xiaoyu.hiro...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Mon, June 7, 2010 8:47:05 AM
Subject: [belajar-excel] menghitung data tertentu

  
Selamat pagi semua..
mau tanya nih, misalnya kalau kita mau hitung berapa banyak orang yang pinjam 
dari 250.000 sampai 500.000
pakai rumus apa ya?criteria nya kan tidak tunggal, saya sudah coba pakai 
Countif tapi nampaknya ada yang salah dengan rumus yang saya buat.
mohon bantuannya.
file terlampir 

 


  

[belajar-excel] Product Guide Office 2010

2010-06-06 Terurut Topik anton suryadi
overview berbagai fitur baru dari Office 2010, serta komparasi dengan versi 
yang sebelumnya,
dapat diunduh di sini



semoga bermanfaat



  

Re: [belajar-excel] perkenalan sekaligus tanya :D

2010-06-02 Terurut Topik anton suryadi
Senang bisa membantu, berikut ini tahapan membuatnya:Pada ActiveX Controls, klik More Controls, setelah itu pilih Calendar Control, kemudian tekan Enter atau klik OK,setelah itu akan tampak tanda "+", lakukan drag sesuai ukuran yang diinginkan.(jangan lupa vba code-nya ya...)setelah itu keluarlah dari "Design Mode"Selesaiapabila ada pertanyaan dengan topik yang berbeda, sebaiknya buat posting baru dengan judul baru yang sesuai, dan lebih baik dilampirkan data dummy-nya sehingga lebih memperjelas maksud dari pertanyaannya.semoga bermanfaatFrom: Raddini Gusti Rahayu xiaoyu.hiro...@gmail.comTo: belajar-excel@yahoogroups.comSent: Thu, June 3, 2010 8:29:45 AMSubject: Re: [belajar-excel] perkenalan sekaligus tanya :D











  
  
  Terimakasih Pa Anton...merasa tersambut nih... iya pa yang saya maksud itu seperti yang pa anton lampirkan.Nah untuk tampilan seperti itu bagaimana cara membuatnya?
sekalian mau tanya juga, saya buat grafik yang bisa update setiap kali input, tapi ketika data baru diiput grafik berubah menjadi kecil dan tidak bisa dikembalikan seperti semula...disini saya pakai formula OFFSET,
apa ada yang salah dengan rumusnya?mohon bantuannya.. ..



 







  

Re: [belajar-excel] Tampilkan data dengan 2 atau lebih kategori

2010-06-01 Terurut Topik anton suryadi
Kenapa Formula? untuk data yang sangat banyak hanya akan semakin memperlambat..

sudah coba PivotTable?
atau Advanced Filter?
dengan macro tentu saja bisa







From: toton rusmadi t_rusm...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, June 2, 2010 11:51:25 AM
Subject: [belajar-excel] Tampilkan data dengan 2 atau lebih kategori

  
Dear Pakar XLers,
Mohon bantuan bagaimana formula untuk keperluan saya seperti di file terlampir. 
Tujuan saya adalah menampilkan seluruh row di tabel di bawahnya dengan 2 atau 
lebih kategori yang ditentukan di validation list-nya. Apakah ada trik 
bagaimana supaya running file-nya tidak lambat andai jumlah data banyak (row 
-nya ribuan)?

Terima kasih atas bantuan para suhu XL sebelumnya.

Salam,
t_rusmadi
 

 


  

Re: [belajar-excel] trik membuat tombol dengan effect.xlsx

2010-05-26 Terurut Topik anton suryadi
pak syamsudin ni punya bakat seni :)
ditunggu trik berikutnya..

sekedar menambahkan: dengan men-delete formula =$C$7 pada formula bar akan 
menjadikannya permanen (efek tetap ada).






From: Syamsudin Syamsudin syamsudin.syamsu...@cpp.co.id
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com
Sent: Wed, May 26, 2010 10:11:20 AM
Subject: [belajar-excel] trik membuat tombol dengan effect.xlsx

  
Dear All,
 
Cuma sekedar info…kalo mao buat tombol dengan effect 
Silakan liat …..file attachment…(excel 2007)
 
Smoga bermanfaat
 
Salam,
Syam
 


  

Re: [belajar-excel] Coret Faktur Pajak, siapa takut ?

2010-05-18 Terurut Topik anton suryadi
coba juga,

Sub NoCoret()
Sheets(Array(LEMBAR1, LEMBAR2)).Select
With Range(C40)
.Value = Harga Jual / Penggantian / Uang Muka / Termijn *)
.Font.Strikethrough = True
.Characters(Start:=11, Length:=3).Font.Strikethrough = False
.Characters(Start:=25, Length:=3).Font.Strikethrough = False
.Characters(Start:=37, Length:=3).Font.Strikethrough = False
.Characters(Start:=47, Length:=3).Font.Strikethrough = False
End With
If Range(Q2).Value = Harga Jual Then
Range(C40).Characters(Start:=1, Length:=10).Font.Strikethrough = False
ElseIf Range(Q2).Value = Penggantian Then
Range(C40).Characters(Start:=14, Length:=11).Font.Strikethrough = 
False
ElseIf Range(Q2).Value = Uang Muka Then
Range(C40).Characters(Start:=28, Length:=9).Font.Strikethrough = False
ElseIf Range(Q2).Value = Termin Then
Range(C40).Characters(Start:=40, Length:=7).Font.Strikethrough = False
End If
End Sub



semoga bermanfaat






From: stdev i setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Tue, May 18, 2010 4:06:06 PM
Subject: Re: [belajar-excel] Coret Faktur Pajak, siapa takut ?

  
yup
jadi mempermudah para petugas adm pajak di kantor2 ya...

nah agar lebihmudah (menulis makronya); codingnya masih bisa diringkas

'---workbook V1
Private Sub HargaJual()
   With ActiveCell
  .Characters( 1, 10).Font.Strikethro ugh = False
  .Characters( 11, 3).Font.Strikethrou gh = False
  .Characters( 14, 11).Font.Strikethro ugh = True
  .Characters( 25, 3).Font.Strikethrou gh = False
  .Characters( 28, 9).Font.Strikethrou gh = True
  .Characters( 37, 3).Font.Strikethrou gh = False
  .Characters( 40, 7).Font.Strikethrou gh = True
  .Characters( 47, 3).Font.Strikethrou gh = False
   End With
End Sub

Private Sub Penggantian( )
   With ActiveCell
  .Characters( 1, 10).Font.Strikethro ugh = True
  .Characters( 11, 3).Font.Strikethrou gh = False
  .Characters( 14, 11).Font.Strikethro ugh = False
  .Characters( 25, 3).Font.Strikethrou gh = False
  .Characters( 28, 9).Font.Strikethrou gh = True
  .Characters( 37, 3).Font.Strikethrou gh = False
  .Characters( 40, 7).Font.Strikethrou gh = True
  .Characters( 47, 3).Font.Strikethrou gh = False
   End With
End Sub

Private Sub UangMuka()
   With ActiveCell
  .Characters( 1, 10).Font.Strikethro ugh = True
  .Characters( 11, 3).Font.Strikethrou gh = False
  .Characters( 14, 11).Font.Strikethro ugh = True
  .Characters( 25, 3).Font.Strikethrou gh = False
  .Characters( 28, 9).Font.Strikethrou gh = False
  .Characters( 37, 3).Font.Strikethrou gh = False
  .Characters( 40, 7).Font.Strikethrou gh = True
  .Characters( 47, 3).Font.Strikethrou gh = False
   End With
End Sub

Private Sub Termin()
   With ActiveCell
  .Characters( 1, 10).Font.Strikethro ugh = True
  .Characters( 11, 3).Font.Strikethrou gh = False
  .Characters( 14, 11).Font.Strikethro ugh = True
  .Characters( 25, 3).Font.Strikethrou gh = False
  .Characters( 28, 9).Font.Strikethrou gh = True
  .Characters( 37, 3).Font.Strikethrou gh = False
  .Characters( 40, 7).Font.Strikethrou gh = False
  .Characters( 47, 3).Font.Strikethrou gh = False
   End With
End Sub

Sub NoCoret()
   Sheets(Array(LEMBAR1, LEMBAR2)).Select
   Range(C40).Select
   ActiveCell = Harga Jual / Penggantian / Uang Muka / Termijn *)
   Select Case [Q2]
  Case Harga Jual:  Call HargaJual
  Case Penggantian: Call Penggantian
  Case Uang Muka:   Call UangMuka
  Case Termin:  Call Termin
   End Select
   Range(C39).Select
End Sub


atau 
bahkan lebih ringkas lagi karena dipakai cara mengcopy salah satu
kalimat dari 4 kalimat yg sudah disiapkan (lengkap dengan coretannya)
keempat kalimat itu (di S40:S43) tidak kelihatan karena kolom disembuyikann

'-workbook V2
Sub NoCoret()
   Sheets(Array(LEMBAR1, LEMBAR2)).Select
   Range(C40).Select
   Select Case [Q2]
  Case Harga Jual
 Range(S40).Copy
  Case Penggantian
 Range(S41).Copy
  Case Uang Muka
 Range(S42).Copy
  Case Termin
 Range(S43).Copy
   End Select
   Range(C40).PasteSpecial xlPasteAllExceptBor ders

   Application. CutCopyMode = False
End Sub





2010/5/18 hendrik karnadi hendrikkarnadi@ yahoo.com














  


 
  
 
Ini sekedar bagi - bagi pengalaman kecil mengenai Faktur Pajak.
 
Faktur Pajak merupakan barang antik yang tidak boleh sembarang dicorat - 
coret, tetapi repotnya ada bagian yang harus dicoret (jika tidak dicoret 
katanya ga sah).
Repotnya lagi kalau yang harus dicoret ada banyak dan ga boleh asal/salah 
coret kan bisa pegal tuh tangan kita.
 
Nach, ini ada program kecil-kecilan yang mungkin bisa membantu.
 
Salam,
Hendrik Karnadi


 


  

Re: [belajar-excel] Menginsert KOMA setiap 5 karakter

2010-05-17 Terurut Topik anton suryadi
koreksi ketikan:

Misal A1 = 1234567890
=Insret(A1,4,,) menghasilkan 12,3456,7890
=Insret(A1,3,/) menghasilkan 1/234/567/890


semoga bermanfaat







From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Mon, May 17, 2010 1:19:51 PM
Subject: Re: [belajar-excel] Menginsert KOMA setiap 5 karakter


Function Insret(t As Range, x As String, Optional y As String = ) As String
n = t
z = Len(n) - x
Do While z  0
n = Left(n, z)  y  Right(n, Len(n) - z)
z = z - x
Loop
Insret = n
End Function

Misal A1 = 1234567890
=Insret(A1,5,,) menghasilkan 12,3456,7890
=Insret(A1,3,/) menghasilkan 1/234/567/890


semoga bermanfaat







From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Sun, May 16, 2010 2:39:45 AM
Subject: Re: [belajar-excel] Menginsert KOMA setiap 5 karakter

  
Dulu pernah buat penyusun pattern id seperti begini :

Public Function SetPatternBase( sText As String, _
   lPanjang As Long, _
   Optional sSisip As String = |) As String
Dim sRes As String
sText = Trim$(sText)
If lPanjang  1 Then
GoTo TidakValid
ElseIf LenB(sText) = 0 Then
GoTo TidakValid
End If

Do While LenB(sText)  0
sRes = sRes  Left$(sText, lPanjang)  sSisip
sText = Mid$(sText, lPanjang + 1)
Loop
SetPatternBase = Trim$(Left$( sRes, Len(sRes) - Len(sSisip)) )

Exit Function
TidakValid:
SetPatternBase = sText
End Function

Hanya saja, bisanya selalu baca dari kiri ke kanan. Kemudian ada client yang 
butuh basisnya dari sisi kanan (seperti masalah Pak HerrSoe), maka diubah kala 
itu menjadi lebih panjang dikit tapi bisa untuk kiri dan kanan, seperti begini :

Public Function SetPattern(sText As String, _
   lPanjang As Long, _
   Optional sSisip As String = |, _
   Optional sAlign As String = left, _
   Optional bTrim As Boolean = True) As String
Dim lAdd As Long
Dim sRes As String

'trap error input
If bTrim Then
sText = Trim$(sText)
End If
sAlign = LCase$(sAlign)
If lPanjang  1 Then
GoTo TidakValid
ElseIf LenB(sText) = 0 Then
GoTo TidakValid
ElseIf sAlign  left And sAlign  right Then
GoTo TidakValid
End If

If sAlign = right Then
sText = StrReverse(sText)
sSisip = StrReverse(sSisip)
End If

Do While LenB(sText)  0
sRes = sRes  Left$(sText, lPanjang)  sSisip
sText = Mid$(sText, lPanjang + 1)
Loop

If bTrim Then
sRes = Trim$(Left$( sRes, Len(sRes) - Len(sSisip)) )
Else
sRes = Left$(sRes, Len(sRes) - Len(sSisip))
End If

If sAlign = right Then
SetPattern = StrReverse$( sRes)
Else
SetPattern = sRes
End If

Exit Function

TidakValid:
SetPattern = sText
End Function

Untuk kebutuhan standarisasi tampilan kode yang delimiternya menurut aturan 
tertentu (tidak konstan selalu berbilang n karakter), maka harus dirombak 
kearah penggunaan array, sehingga kode menjadi lebih panjang lagi, tetapi bisa 
untuk kiri kanan dan tetap bisa digunakan untuk aturan dengan n karakter 
konstan seperti client yang dulu.
Kode programnya seperti ini :
Public Function SetPatternDin( sText As String, _
   vPanjang As Variant, _
   Optional vSisip As Variant = |, _
   Optional sAlign As String = left, _
   Optional bTrim As Boolean = True) As Variant
Dim vTemp As Variant
Dim lTemp As Long
Dim vPjg As Variant
Dim lPjg As Long
Dim vDelimiter As Variant
Dim lDelimiter As Long
Dim sRes As String
Dim lSisip As Long
Dim bKanan As Boolean

bKanan = False
If bTrim Then
sText = Trim$(sText)
End If
sAlign = LCase$(sAlign)
If IsArray(vPanjang) Then
vPjg = vPanjang
Else
ReDim vPjg(1, 1)
vPjg(1, 1) = vPanjang
End If
lPjg = UBound(vPjg)

If IsArray(vSisip) Then
vDelimiter = vSisip
Else
ReDim vDelimiter(1)
vDelimiter(1) = vSisip
End If
lDelimiter = UBound(vDelimiter)

If lPjg * lDelimiter = 0 Then
GoTo TidakValid
ElseIf LenB(sText) = 0 Then
GoTo TidakValid
ElseIf sAlign  left And sAlign  right Then
GoTo TidakValid
End If

If sAlign = right Then
sText = StrReverse(sText)
bKanan = True
End If

lTemp = 0
lSisip = 0
For Each vTemp In vPjg
If LenB(sText)  0 Then
If CLng(vTemp)  0 Then
lTemp = lTemp + 1
If lTemp  lDelimiter Then
lTemp = 1
End If
lSisip = Len(vDelimiter( lTemp))
If bKanan

Re: [belajar-excel] Buat data transaksi

2010-05-13 Terurut Topik anton suryadi
bung Utham,
saran saja, sebaiknya pelajari pivot table dan makro untuk input data dari 
sheet input ke sheet database, serta mempelajari lebih lanjut bagaimana membuat 
desain database excel yang baik.

semoga bermanfaat





From: Utam Thea musafir_a...@yahoo.com
To: Millis xl belajar-excel@yahoogroups.com
Sent: Thu, May 13, 2010 8:54:35 AM
Subject: [belajar-excel] Buat data transaksi

  
Salam sehat selalu buat para excell...!!!
mu minta bantuan nih...gimana caranya buat data transaksi yang tampilannya satu 
Form aja,setiap selesai transaksi form kosong lagi tapi data masuk ke setiap 
tabel masing2,biar ga terlalu banyak rumus yang akhirnya loadingnya lambat!!! 
(attach terlampir)
mohon bantuannya para pakar excell...!!! 
 


  

Re: [belajar-excel] Ambil / copy data uniq...

2010-05-05 Terurut Topik anton suryadi
Jika ingin memfilter data ke sheet lain maka satu - satunya cara 
adalah dengan macro...

Apakah kalimat itu dilatar belakangi oleh warning dari excel:

You can only copy filtered data to the active sheet.

Jika ya, kita perlu pertimbangkan bahwa hal itu bukan berarti kita tidak bisa 
menempatkan hasil advanced filter ke sheet lain lho,, kita bisa menempatkan 
hasil advanced filter ke sheet yang lain,, dan tanpa memakai macro...

Jika tidak, abaikan pesan ini :)

caranya? mulailah menjalankan advanced filter dari sheet yang akan menjadi 
penempatan dari advanced filter (bukan dari sheet yang berisi data yang akan 
difilter). 
misal: data ada di sheet1 dan hasil advanced filter akan ditaruh di sheet2
jika kita mulai menjalankan advanced filter dari Sheet1, maka warning You can 
only copy filtered data to the active sheet. akan muncul, tetapi jika 
menjalankan advanced filternya dimulai dari Sheet2, warning tersebut tidak akan 
muncul, karena... kita mem-filter data to the active sheet... logis kan ;) 


semoga bermanfaat






From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, May 5, 2010 12:08:36 PM
Subject: Re: [belajar-excel] Ambil / copy data uniq...

  
Menambahkan apa yang telah dibuat para PAKAR,
Jika ingin memfilter data ke sheet lain maka satu - satunya cara adalah dengan 
macro, dengan langkah sbb :
- Karena sumber datanya selalu bertambah, maka sumber data tsb kita beri nama 
DATA (dalam file contoh SHEET1 RANGE B10:B152).
- Hasil filter dapat kita tempatkan pada sheet mana saja, dengan memberi nama 
Hasil pada sel paling atas (dalam file contoh SHEET2 RANGE C10).
'- Klik tanda panah (sdh ada macronya).
Untuk memberi nama Range :
- Pada Excel 2007 melalui Formula, Name Manager
- Padar Excel 2003 melalui Name, Define (tolong dicek, karena saya ga pakai 
Excel 2003 lagi).
Untuk mengaktifkan Macro, sudah sering dibahas dalam milis ini.
Untuk melihat Macro, tekan ALT dan F11 bersamaan.
 
Selamat menikmati.
 
Salam,
Hendrik Karnadi
 


 From: uharyanto uharya...@gmail. com
To: belajar-excel belajar-excel@ yahoogroups. com
Sent: Wed, May 5, 2010 9:47:19 AM
Subject: [belajar-excel] Ambil / copy data uniq...

  
Selamat pagi all

Langsung saja ke pokok permasalahan, ,,

saya mempunyai data yang cukup banyak dan setiap harinya akan terus
bertambah, saya ingin mengambil data uniq dari kolom B di Sheet1
dan kemudian hasilnya akan di Copy ke Sheet2 pada cell B10,
kemaren saya nemu di milis ini dari Bu CTV - delete rows sisakan
data uniq, nah masalahnya saya bukan mau delete tapi mau copy saya
udah coba otak atik codenya tapi karena saya masih sangat awam tentang
VBA makanya gak jadi2 yang ada malah error.

mohon kiranya rekan - rekan dapat membantu membuatkan code nya.
atas bantuannya saya ucapkan terima kasih.

-- 
Kind Regard
Ujank Haryanto



 


  

Re: [belajar-excel] expresi 06_(makro).xlsm

2010-05-05 Terurut Topik anton suryadi
artistik banggeet... ^_^






From: Syamsudin Syamsudin syamsudin.syamsu...@cpp.co.id
To: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com
Sent: Wed, May 5, 2010 3:05:31 PM
Subject: [belajar-excel] expresi 06_(makro).xlsm

  
Dear All,
 
Cuma mau sharing aja mengenai excel 2007,…
Kalo excel bisa juga untuk crop foto, buat logo, buat efek
glow, animasi , lookup fotodll
Smoga berguna…
 
Tuk moderator …ma’af banget kalo filenya
kegedean..tq
 
Salam,
Syam
 
 


  

Re: [belajar-excel] Ambil / copy data uniq...

2010-05-04 Terurut Topik anton suryadi
Mang Ujank, gunakan Advanced Filter

(Jalankan dari Sheet2)


semoga bermanfaat






From: uharyanto uharya...@gmail.com
To: belajar-excel belajar-excel@yahoogroups.com
Sent: Wed, May 5, 2010 9:47:19 AM
Subject: [belajar-excel] Ambil / copy data uniq...

  
Selamat pagi all

Langsung saja ke pokok permasalahan, ,,

saya mempunyai data yang cukup banyak dan setiap harinya akan terus
bertambah, saya ingin mengambil data uniq dari kolom B di Sheet1
dan kemudian hasilnya akan di Copy ke Sheet2 pada cell B10,
kemaren saya nemu di milis ini dari Bu CTV - delete rows sisakan
data uniq, nah masalahnya saya bukan mau delete tapi mau copy saya
udah coba otak atik codenya tapi karena saya masih sangat awam tentang
VBA makanya gak jadi2 yang ada malah error.

mohon kiranya rekan - rekan dapat membantu membuatkan code nya.
atas bantuannya saya ucapkan terima kasih.

-- 
Kind Regard
Ujank Haryanto

 


  

Re: [belajar-excel] Tanya : lookup banyak data II

2010-05-03 Terurut Topik anton suryadi
tetapi setelah saya masukkan ternyata tidak bisa malah keluar tulisan 
There is an error on your formula

Memasukkannya udah benul pa belum.. hehe

coba dilampirkan workbooknya ( pengen liat tulisan There is an error on your 
formula -nya ^_^ )


formula tersebut sudah saya uji, dan berjalan baik2 saja tuh...





From: isti_astro istias...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Tue, May 4, 2010 10:52:59 AM
Subject: Re: [belajar-excel] Tanya : lookup banyak data II

  
Halo Pak Anton,

Terima kasih atas formulanya, tetapi setelah saya masukkan ternyata tidak bisa 
malah keluar tulisan There is an error on your formula
ada saran yang lain untuk vlookup data dari berbagai worksheet sekaligus

regards,

Isti


2010/4/30 anton suryadi summon...@yahoo. com
















  


 
  
 
Maksudnya Vlookup data dari berbagai worksheet sekaligus?

jika ya, gunakan CSE Formula berikut ini:

=VLOOKUP(A2, INDIRECT('INDEX(Kota,MATCH( 1,--(COUNTIF( 
INDIRECT('Kota'!A2:A100),A2)0),0))'!A2:I100),9,0)

Enter dengan menekan Ctrl + Shift + Enter


semoga bermanfaat








From: isti_astro istias...@gmail. com

To: belajar-excel@ yahoogroups. com
Sent: Fri, April 30, 2010 8:38:50 AM
Subject: Re: [belajar-excel] Tanya : lookup banyak data II

  

 
  
 
Oh maaf sekali kalo pertanyaan saya kurang jelas, begini bu saya kan ingin 
me-lookup semua data per-sheet nama kota (Jakarta,denpasar, semarang) ke sheet 
data kolom i yang menyesuaikan nama kota yang ada di sheet data kolom G. 
Mudah2an lebih jelas dan maaf jika pertanyaan sedikit njlimet.


2010/4/29 siti Vi setiyowati.devi@ gmail.com


















  


 
  
 


ampun...
saya kok babar blasss tidak 
dapat menangkap apa yg sampeyan maksudkan
mbok dikasih contoh hasil 
data yg diinginkan..
biar orang lain mudah 
menangkap maksud
 
trus (mosok harus 
dibahas juga..)
kalau di workboook 
yg diajukan ada banyak sheets;  menyebut cell / kolom / baris 

mestinya lebih jelas kalau 
sheet nya juga disebut 
... 
misal : kolom A sheet 
Monyet,   Cell F16 Sheet Gajah dst...
he he...
 
- Original Message - 
From: isti_astro 
To: belajar-excel@ yahoogroups. com 
Sent: Thursday, April 29, 2010 8:37 
  PM
Subject: [belajar-excel] Tanya : lookup 
  banyak data II


Dear Bu Guru Siti,

Sekarang saya ada problem baru, 
  bagaimana cara me-lookup hasil data 
 di kolom I 
 
sesuai dengan nama kota tetapi 
  karena sheet isian terpisah per kota jika pakai vlookup 
 
masih belum mengerti saya syntax 
  nested-nya atau bisa pakai rumus lainnya? 
Contoh terlampir

terima kasih atas 
  bantuannya

regards,

Isti 






-- 
Reviews, Tips  Trick : http://istiastro. blogspot. com





-- 
Reviews, Tips  Trick : http://istiastro. blogspot. com


 


  

Re: [belajar-excel] Tanya : lookup banyak data II

2010-04-29 Terurut Topik anton suryadi
Maksudnya Vlookup data dari berbagai worksheet sekaligus?

jika ya, gunakan CSE Formula berikut ini:

=VLOOKUP(A2,INDIRECT('INDEX(Kota,MATCH(1,--(COUNTIF(INDIRECT('Kota'!A2:A100),A2)0),0))'!A2:I100),9,0)

Enter dengan menekan Ctrl + Shift + Enter


semoga bermanfaat







From: isti_astro istias...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Fri, April 30, 2010 8:38:50 AM
Subject: Re: [belajar-excel] Tanya : lookup banyak data II

  
Oh maaf sekali kalo pertanyaan saya kurang jelas, begini bu saya kan ingin 
me-lookup semua data per-sheet nama kota (Jakarta,denpasar, semarang) ke sheet 
data kolom i yang menyesuaikan nama kota yang ada di sheet data kolom G. 
Mudah2an lebih jelas dan maaf jika pertanyaan sedikit njlimet.


2010/4/29 siti Vi setiyowati.devi@ gmail.com
















  


 
  
 


ampun...
saya kok babar blasss tidak 
dapat menangkap apa yg sampeyan maksudkan
mbok dikasih contoh hasil 
data yg diinginkan..
biar orang lain mudah 
menangkap maksud
 
trus (mosok harus 
dibahas juga..)
kalau di workboook 
yg diajukan ada banyak sheets;  menyebut cell / kolom / baris 

mestinya lebih jelas kalau 
sheet nya juga disebut 
... 
misal : kolom A sheet 
Monyet,   Cell F16 Sheet Gajah dst...
he he...
 
- Original Message - 
From: isti_astro 
To: belajar-excel@ yahoogroups. com 
Sent: Thursday, April 29, 2010 8:37 
  PM
Subject: [belajar-excel] Tanya : lookup 
  banyak data II


Dear Bu Guru Siti,

Sekarang saya ada problem baru, 
  bagaimana cara me-lookup hasil data 
 di kolom I 
 
sesuai dengan nama kota tetapi 
  karena sheet isian terpisah per kota jika pakai vlookup 
 
masih belum mengerti saya syntax 
  nested-nya atau bisa pakai rumus lainnya? 
Contoh terlampir

terima kasih atas 
  bantuannya

regards,

Isti 





-- 
Reviews, Tips  Trick : http://istiastro. blogspot. com


 


  

Re: [belajar-excel] link file dengan command button

2010-04-26 Terurut Topik anton suryadi

Workbooks.Open Filename:=ThisWorkbook.Path  \  goci.xls



semoga bermanfaat







From: Darto Chandra d...@gmx.com
To: belajar-excel@yahoogroups.com
Sent: Tue, April 27, 2010 9:27:02 AM
Subject: Re: [belajar-excel] link file dengan command button

  
 
Private Sub 
CommandButton1_ Click()

Workbooks.Open 
Filename:=D: \Jaran\Kepang\ Mangan\Beling\ b.xls
End 
Sub
 
supaya path filename bisa 
otomatis bgm? kalo cara di atas path filename udh di tentukan so jika di copy 
di 
ganti nama lain perintah tersebut diatas tidak jalan. mohon 
petunjuk
 
dc
- Original Message - 
From: siti Vi 
To: belajar-excel@ yahoogroups. com 
Sent: Saturday, April 17, 2010 12:53 
  PM
Subject: Re: [belajar-excel] link file 
  dengan command button

  
barangkali perlu kita 
  samakan dulu BAHASA kita
 
FILE
= sebuah file workbook 
  type *.xls
 
FILE 
  b
= sebuah file workbook 
  type *.xls
   berada di 
  komputer anda dalam suatu folder tertentu dengan nama b.xls
   misalnya 
 D:\Jaran\Kepang\ Mangan\Beling\b.xls
 
MUNCUL
= semula : File belum 
  terbuka menjadi terbuka
 
COMMAND 
  BUTTON
= object ActiveX-Control 
  dari class CommandButton, misal 
   bernama 
  CommandButton1
 
Makronya
(tertulis di module milik 
  SHEET dimana CommnadButton tsb di-embeded)
 
Private Sub 
  CommandButton1_ Click()

  Workbooks.Open 
  Filename:=D: \Jaran\Kepang\ Mangan\Beling\ b.xls
End 
  Sub
 
 
 

 
- Original Message - 
From: Darto Chandra 
To: 
  excel 
Sent: Saturday, April 17, 2010 12:09 PM
Subject: [belajar-excel] 
  link file dengan command button

Mohon pencerahannya,
saya punyafilea 
  yang didalamnya terdapat sebuah command button. 
Jika command buttton ini di klik maka akan muncul file 
  b. 
So mohon petunjuk makronya. thank you
darto
 


  

Re: [belajar-excel] Vlookup pengambilan ke kiri

2010-04-25 Terurut Topik anton suryadi
atao coba minta bantuan sodaranya Vlookup yang bisa noleh ke kiri, si Lookup

=LOOKUP(a,E1:E5,D1:D5)



semoga bermanfaat







From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Sun, April 25, 2010 8:07:08 AM
Subject: Re: [belajar-excel] Vlookup pengambilan ke kiri

  
 
VLOOKUP hanya dapat 
mengambil data di sebelah kanan dari Look-Up-Value nya.
 
Untuk dapat mengambil data 
di sebelah kiri, dapat digunakan kombinasi fungsi
MATCH dan INDEX (atau 
Offset)
 
Match bertugas 
mencari AngkaPosisi data yg dicari (ada di Baris/Kolom ke 
berpa?)
dan Index menampilkan data 
tsb berdasarkan AngkaPosisi Baris atau Kolom hasil
temuan MATCH
 
karena pak alwi tidak 
menyertakan contoh, jawaban juga tidak (tega) untuk tidak
menyertkan contoh, walaupun 
mungkin JAUH dari yg pak alwi kehendaki
 
 
 
- Original Message - 
From: alwi.abdurrahman@ gmail.com 
To: Belajar-excel@ yahoogroups. com 
Sent: Sunday, April 25, 2010 7:50 
AM
Subject: [belajar-excel] Vlookup 
  pengambilan ke kiri

 
Dear all para pakar excel,
mohon bantuan reference beserta contohnya, 
  vlookup yang dapat mengambil data disebelah kiri dari key nya. Atas bantuan 
   informasinya diucapkan terimakasih. Salam 

 
 


  

Re: [belajar-excel] Muncul lagi nech .....

2010-04-22 Terurut Topik anton suryadi
coba,

Private Sub Workbook_Open()
ActiveSheet.Protect password
ActiveSheet.EnableSelection = xlNoSelection
End Sub


fyi:
ketika kita menyimpan atau menutup file excel, beberapa properties dari 
worksheet yang kita setting tidak ikut tersimpan,antara lain:
* EnableAutoFilter
* EnableCalculation
* EnableOutlining
* DisplayPageBreaks
* EnablePivotTable
* EnableSelection



semoga bermanfaat






From: diko6...@yahoo.co.id diko6...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, April 22, 2010 7:50:57 AM
Subject: RE: [belajar-excel] Muncul lagi nech .

  
Gak berhasil nech, malah ellol.
Bentuk rangkaian code-nya jadi g’mana yach!??

Dikx *he@

ヂヂンコマルヂン

_ 

From: belajar-excel@ yahoogroups. com 
[mailto:belajar-excel@ yahoogroups. com] 
On Behalf Of anton suryadi
Sent: Wednesday, April 21, 2010 12:59 PM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Muncul lagi nech .

coba ditambahin,
EnableSelection = xlNoSelection

semoga bermanfaat

 


  

Re: [belajar-excel] Open file X

2010-04-22 Terurut Topik anton suryadi
cara simpel running segala macam program ya dengan FollowHyperlink:


ActiveWorkbook.FollowHyperlink Range(xx).Value, NewWindow:=True

Range(xx) berisi filepath-nya


semoga bermanfaat






From: diko6...@yahoo.co.id diko6...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Fri, April 23, 2010 9:39:08 AM
Subject: [belajar-excel] Open file X

  
Met pagi cmua, dah2an pada sehat en hep enais dei yach..

Seperti biasa, ada lagi pertanyaan yang ora ngerti en dah2an bisa xi...xi...xi. 
...

Ketika menampilkan list folder di list box, misal kita akan melakukan titah 
open file pada salah satu file di list te-es-be dengan code:

Workbooks.Open Filename:=Range( I2).Value  \  Range(I4). Value

Itu berhasil dan tidak masalah untuk Excel Files.

Tetapi ketika open file others Excel misal ext. ppt seperti gambar dibawah ini:

File tersebut tidak bisa automatis open dengan power point (tidak bereaksi 
apa2).

Dan ketika coba open file pdf, malah nggrutu seperti gbr berikut ini:
Heu..heu...heu. .

Maaf karena gw lagee belajar, sebenarnya bisa gak yach hal ini dilakukan?
Gimana yach titahnya?

Dah2an arah pertanyaannya bisa dimengerti xi..xi..xi.. ..

Wassalam,
Dikx *he@

ヂヂンコマルヂン
 


  

Re: [belajar-excel] Muncul lagi nech .....

2010-04-21 Terurut Topik anton suryadi
coba ditambahin,EnableSelection = xlNoSelectionsemoga bermanfaatFrom: دِدِينْ قَمَرُالدِينْ diko6...@yahoo.co.idTo: belajar-excel@yahoogroups.comSent: Wed, April 21, 2010 12:37:13
 PMSubject: [belajar-excel] Muncul lagi nech .











  
  
  







Dear Suhu, 

  

Maaf, mungkin masalah nie dach dibahas
sebelumnya. Sehubungan dah q coba buka”an file yang
lalu, tapi gak ketemon juga nech. 

  

Masalhnya gennech...!! ! 

sebuah sheet q coba di protect manual dengan
kondisi “protect select locked cells” , agar CELL tidak aktif ketika masuk ke
sheet tersebut dan hasilnya pun sesuai dengan harapan. Akan
tetapi jika file tersebut di closed, ketika open lagi muncul tanda kotak CELL
seperti tertera pada gambar dibawah. Padahal kondisi CELL tersebut tidak bisa
dipindah”kan baik pake mouse atawa tombol panah karena di protect tadi. 

The question is….. 

Gimana
caranya agar tanda tersebut tidak muncul lagi? 

Atau salah peng kode’an
macronya: 

Activesheet. protect
”password” 

  

 

  

  



ôÁó¸øò¼ò§ ó Âò¼òm»AòË 

Dikx
he@ 

ヂヂンコマルヂン 

  

  

  

 



  









 













  

Re: [belajar-excel] macro untuk value formula

2010-04-18 Terurut Topik anton suryadi
Formula (salah satu saja, tidak usah semuanya) dapat disimpan disuatu cell, 
misal Cell A1 (jangan di kolom B karena menimbulkan circular), untuk kemudian 
dicopy-kan ke berbagai range bila stock formula di table sudah habis.


semoga bermanfaat







From: alwi abdurrahman alwi.abdurrah...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Sun, April 18, 2010 6:52:04 AM
Subject: Re: [belajar-excel] macro untuk value formula

  
Ok thanks, tapi bisa tidak P' Anton formula pada kolom terakhir (kolom L) tidak 
terValue. Hal tsb dimaksudkan bila kita akan copykan pada Week selanjutnya kita 
tidak perlu buatkan lagi formulanya, karena formula referencenya masih ada.
Demikian P' Anton, Thanks  Success.

Salam


Pada 17 April 2010 13:20, anton suryadi summon...@yahoo. com menulis:














  


 
  
 
coba diganti dengan yang ini,

Private Sub Worksheet_Calculate ()
X = WorksheetFunction. CountIf(Range(C8:L8), )
Y = Range(C8).End(xlDown) .Row
With Range(C8).Resize(Y - 8 + 1, 10 - X)
.Value = .Value
End With
End Sub


semoga
 bermanfaat








From: alwi abdurrahman alwi.abdurrahman@ gmail.com
To: belajar-excel@ yahoogroups. com
Sent: Fri, April 16, 2010 9:13:48 PM
Subject: Re: [belajar-excel] macro untuk value formula

  

 
  
 
Dear All,

Sebelumnya thanks untuk P' Anton suryadi, yang telah memberikan bantuannya.
Sedikit lagi kekurangan yang perlu ditambahkan dalam program tsb Pak Anton, 
yaitu bila penambahan ini bergulir sampai dengan Week 10, yang setiap 
minggunya data tsb akan bertambah dan mengisi kolom-kolom pada sheet 
summary,kolom-kolom yang sebelumnya belum dapat ikut terValue.

Jadi formula Bapak tsb baru dapat mengcover Kolom F8 dan kolom sebelumnya.
Bila kita kemudian bergeser ke kolom G8 (terisi), maka secara otomatis, kolom 
C2:F11 belum terValue ?
Mohon mendapatkan petunjuk tambahan untuk hal tsb , Thanks.

Salam


Pada 16 April 2010 14:45, anton suryadi summon...@yahoo. com menulis:

coba,

Private Sub Worksheet_Calculate ()
If [F8]   Then
With Range(C8:E11)
.Value = .Value
End With
End If
End Sub

file
 terlampir


semoga bermanfaat








From: alwi abdurrahman alwi.abdurrahman@ gmail.com
To: belajar-excel@ yahoogroups. com; alwi.abdurrahman@ indofood. co.id  
nebeng
Cc: --jan...@yahoo. com
Sent: Fri, April 16, 2010 1:18:06 PM
Subject: [belajar-excel] macro untuk value formula

  


 
  
 
--- blank email--- - - - --
mohon untuk y.a.d. tidak mengirim surat tuli spt ini
minimal: garis besar masalahnya ditulis di badan email
 - - - - ---

berikut ini dikutip dari pertanyaan dlm workbook lampiran
quote:
Objectivenya adalah sebagia berikut :
1. Setiap data Week 4 masuk ke kolom F8, maka kolom Range(E8:E11) , 
tervalue (Format Value).
2. Sebelum Data Week 4 dan seterusnya ada dalam Sheet Pivot , kolom Week 
4 dan seterusnya pada Sheets (Summary), kosong (blank)  tidak boleh 
muncul #REF!.
Mohon petunjuknya, Thanks.
unquote


 _ _ _ ___
This message is for the designated recipient only and may contain privileged, 
proprietary, or otherwise private information. If you have received it in 
error, please notify the sender and delete the message immediately. Any other 
use of the email is prohibited.
 
 _ _ _ _
This message is for the designated recipient only and may contain privileged, 
proprietary, or otherwise private information. If you have received it in 
error, please notify the sender and delete the message immediately. Any other 
use of the email is prohibited.
 



 


  

Re: Trs: [belajar-excel] belajar-excel] link dengan banyak wookbook

2010-04-15 Terurut Topik anton suryadi
ini Clue-nya:
Gunakan bantuan formula INDIRECT serta COLUMN (lihat Excel Help).


semoga bermanfaat






From: sepriansyah encep citra_en...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, April 15, 2010 1:11:36 PM
Subject: Trs: [belajar-excel] belajar-excel] link dengan banyak wookbook

  
 
Dear Master,
 
Terimakasih Pak Anton Pencerahan nya  Masukkannya tapi 
Mungkin saya kurang menjabarkan jadi salah persepsi Link yg saya maksud
 
=IF(ISERR(SUMIF( 'C:\Dasborad Lampung\CSU\[KSI per routing - CSU 
#2.xls]Report1' !$E$5:$E$ 232,=Wholesaler ,'C:\Documents and 
Settings\Syeprian\ Desktop\master\ Dasborad Lampung\CSU\ [KSI per routing - CSU 
#2.xls]Report1'!$J$ 5:$J$232) )=TRUE,0 ,SUMIF('C: \Dasborad Lampung\CSU\[KSI 
per routing - CSU #2.xls]Report1'!$E$ 5:$E$232, =Wholesaler ,'C:\Dasborad 
Lampung\CSU\[KSI per routing - CSU #2.xls]Report1'!$J$ 5:$J$232) )
 
ini adalah codding yg saya tulis di kolom dua yg merujuk ke Woorkbook KSI per 
routing - CSU #2.xls 
begitu pula dgn kolom 3 ( yg berbeda hanya nama file KSI per routing CSU 
#3, dst 
saya ingin dengan mudah untuk Copy rumus ke semua cell tapi sesuai dgn 
Woorkbook nya
 
 
Mohon di bantu ya...
 
Tx,
Syepriansyah



- Pesan Diteruskan 
Dari: anton suryadi summon...@yahoo. com
Kepada: belajar-excel@ yahoogroups. com
Terkirim: Kam, 15 April, 2010 12:06:06
Judul: Re: [belajar-excel] belajar-excel] link dengan banyak wookbook

  
silakan di oprex,

Sub ling()
For Each c In Range(B2:K5 )
If c   Then
ActiveSheet. Hyperlinks. Add Anchor:=c, _
Address:=D: \Folder\Workbook   c.Column - 1  .xls
End If
Next
End Sub



semoga bermanfaat







 From: sepriansyah encep citra_encep@ yahoo.co. id
To: belajar-excel@ yahoogroups. com
Sent: Thu, April 15, 2010 10:48:04 AM
Subject: [belajar-excel] belajar-excel] link dengan banyak wookbook

  
 
Dear para Master 
 
Saya punya permasalahan dgn link di wookbook lain
 
ex :
 
  1 2 3 4 5 6 
 CSU  0 0 0 0 0 0 
 Planned Visit   0   0   0   0   0   0  
 Actual Visit   0   0   0   0   0   0  
 In Route Visit   0   0   0   0   0   0  
 
 
di kolom 1 akan di link dengan doc wookbook1.xls
di kolom 2 akan di link dengan doc wookbook2.xls
dst...
 
Permasalahan nya adalah bagaimana cara yg simple agar saya tdk kesulitan copy 
rumus di cell itu tapi pada wookbook yg tepat..karena bisa ratusan wookbook yg 
akan saya link
 
Mohon bantuan  solusi para master semua
 
 
Tx,
Syepriansyah

 _ _ _ _ __
Apakah Anda Yahoo!?
Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik terhadap spam 
http://id.mail. yahoo.com 


 _ _ _ _ __
Apakah Anda Yahoo!?
Lelah menerima spam?  Surat Yahoo! memiliki perlindungan terbaik terhadap spam 
http://id.mail. yahoo.com 
 


  

Re: [belajar-excel] belajar-excel] link dengan banyak wookbook

2010-04-14 Terurut Topik anton suryadi
silakan di oprex,

Sub ling()
For Each c In Range(B2:K5)
If c   Then
ActiveSheet.Hyperlinks.Add Anchor:=c, _
Address:=D:\Folder\Workbook  c.Column - 1  .xls
End If
Next
End Sub



semoga bermanfaat







From: sepriansyah encep citra_en...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, April 15, 2010 10:48:04 AM
Subject: [belajar-excel] belajar-excel] link dengan banyak wookbook

  
 
Dear para Master 
 
Saya punya permasalahan dgn link di wookbook lain
 
ex :
 
  1 2 3 4 5 6 
 CSU  0 0 0 0 0 0 
 Planned Visit   0   0   0   0   0   0  
 Actual Visit   0   0   0   0   0   0  
 In Route Visit   0   0   0   0   0   0  
 
 
di kolom 1 akan di link dengan doc wookbook1.xls
di kolom 2 akan di link dengan doc wookbook2.xls
dst...
 
Permasalahan nya adalah bagaimana cara yg simple agar saya tdk kesulitan copy 
rumus di cell itu tapi pada wookbook yg tepat..karena bisa ratusan wookbook yg 
akan saya link
 
Mohon bantuan  solusi para master semua
 
 
Tx,
Syepriansyah

 _ _ _ _ __
Apakah Anda Yahoo!?
Lelah menerima spam?  Surat Yahoo! memiliki perlindungan terbaik terhadap spam 
http://id.mail. yahoo.com 

 


  

Re: [belajar-excel] Data Validation

2010-04-13 Terurut Topik anton suryadi
Coba juga tanpa Data Validation, Tanpa Combo Box, tanpa Macro
yaitu dengan Cell Autocomplete,Contiguous Cells, dan Alt+DownArrow






From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, April 14, 2010 10:04:30 AM
Subject: Re: [belajar-excel] Data Validation

  
 
betul kata pak 
Hendrik...

Pada saat dilepas memang  'ListFillRange' tsb sengaja 
tidak di sort dulu;
untuk membuktikan bahwa ketika di box ComboBox diKETIKKAN 
A atau 
abjad/karakter (X) lain, si combo akan mampu mengejar Item 
X.. pertama
di urutan manapun Item tsb 
berada..., begitu juga ketika diketikkan karakter ke
dua, ke tiga dst, selama 
masih ada item yg cocok...
 
Selain dengan mouse-pointer 
mengklik tombol dropdown nya, ataupun dengan
mengetikkan input nya, 
combobox 'beneran'  (setelah mendapat fous) juga dapat di
mainkan dengan tombol Panah 
Atas /Bawah /Kiri /Kanan.
Masih banyak perilaku 
lain yg dapat diatur melalui kotak properties nya tanpa 
pemrograman.
 
dan
dengan pemrograman, akan 
lebih banyak hal dapat diatur, yg kadang-kadang berupa
hal yg sebelumnya kita 
sangka tidak bisa
 
 
 
 

 
- Original Message - 
From: hendrik 
karnadi 
Sent: Wednesday, April 14, 2010 9:26 AM
Kalau boleh 
nambahin sedikit,
Agar tampilan Combonya bisa sesuai keinginan, sel B4:B33 
perlu disort dulu.

Salam, 
Hendrik Karnadi
 


 
From: siti Vi 
setiyowati.devi@ gmail.com
Sent: Tuesday, April 13, 2010 
17:56:24
mungkin yg dimaksud oleh pak Abd Hamid
seperti 
kemampuan ComboBox beneran...

.. kalau begitu.. pakai saja Combobox 
Beneran..

 


  

Re: [belajar-excel] Tips untuk Melacak dan Menghitung ERROR

2010-04-11 Terurut Topik anton suryadi
saya bukan pakar vba, sekedar urun coding, mohon dikomentari dan dikoreksi juga 
bila ada yang salah atau perlu diperbaiki ^_^ 
(nerusin algoritma pak hendrik)

kata simbah:
gunakan With jika memungkinkan
hindari Select jika memungkinkan

Sub LacakError2()
On Error GoTo 10
Set x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
With x
.Interior.Color = vbYellow
.Font.Bold = True
.Font.Color = vbRed
.Select
n = .Count
End With
Set x = Nothing
MsgBox Jumlah ERROR ada   n  , Silakan KOREKSI lalu TEKAN LACAK CLEAR, 
vbExclamation, MELACAK dan MENGHITUNG jumlah ERROR
10
End Sub


semoga bermanfaat


.::trouble is a friend::.





From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Sun, April 11, 2010 11:49:10 AM
Subject: [belajar-excel] Tips untuk Melacak dan Menghitung ERROR

  
Friends,
Dari hasil coba-coba, saya mencoba membuat program MELACAK dan MENGHITUNG 
jumlah ERROR dalam suatu sheet, secara OTOMATIS pada saat PINDAH KE SHEET yang 
mengandung ERROR atau dengan menekan tombol LACAK ERROR.

Mas Kid, Mbak Siti dan para PAKAR VBA lainnya mungkin dapat menyempurnakannya.

Seperti kata pepatah Dengan memberi anda akan menerima.

Salam,
Hendrik Karnadi


 New Email addresses available on Yahoo!  
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does! 
 


  

Re: [belajar-excel] Tips untuk Melacak dan Menghitung ERROR

2010-04-10 Terurut Topik anton suryadi
cara non macro:

asumsi, jika dipastikan # tidak ada pada cell non error:

1. Tekan Ctrl + F
2. Find what: #
3. Look in: Values
4. Alt+ i


(Thanks for sharing)






From: hendrik karnadi hendrikkarn...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Sun, April 11, 2010 11:49:10 AM
Subject: [belajar-excel] Tips untuk Melacak dan Menghitung ERROR

  
Friends,
Dari hasil coba-coba, saya mencoba membuat program MELACAK dan MENGHITUNG 
jumlah ERROR dalam suatu sheet, secara OTOMATIS pada saat PINDAH KE SHEET yang 
mengandung ERROR atau dengan menekan tombol LACAK ERROR.

Mas Kid, Mbak Siti dan para PAKAR VBA lainnya mungkin dapat menyempurnakannya.

Seperti kata pepatah Dengan memberi anda akan menerima.

Salam,
Hendrik Karnadi


 New Email addresses available on Yahoo!  
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does! 
 


  

Re: [belajar-excel] konversi nilai

2010-04-06 Terurut Topik anton suryadi
atau,

=--(B4=L4)

=(B4=L4)^1
=(B4=L4)+0


semoga bermanfaat
 






From: andri prod...@shokubai.co.id
To: belajar-excel@yahoogroups.com
Sent: Wed, April 7, 2010 11:34:21 AM
Subject: Re: [belajar-excel] konversi nilai

  
Kalo gini bagaimana
(B4=L4)*1

Regards,
Andri

Rey wrote: 
   
minta bantuan lagi nih... 
terlampir . 
 
Thx yah... 
Rey 
PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER:

This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager. This message contains confidential information
and is intended only for the individual named. If you are not the
named addressee you should not disseminate, distribute or copy this
e-mail. Please notify the sender immediately by e-mail if you have
received this e-mail by mistake and delete this e-mail from your
system. If you are not the intended recipient you are notified that
disclosing, copying, distributing or taking any action in reliance on
the contents of this information is strictly prohibited. 

__ Information from ESET NOD32 Antivirus, version of virus
signature database 5005 (20100406) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com


 


  

Re: [belajar-excel] mohon bantuan membuat macro perintah memilih semua sheet

2010-03-31 Terurut Topik anton suryadi
beginikah,

Sub az()
ActiveWorkbook.Sheets.Select
End Sub


semoga bermanfaat







From: t0f1q t0f1...@gmail.com
To: belajar excel belajar-excel@yahoogroups.com
Sent: Thu, April 1, 2010 1:28:50 PM
Subject: [belajar-excel] mohon bantuan membuat macro perintah memilih semua 
sheet

  
halo lagi nih maaster excel
saya lagi bingung cara menggunakan perintah macro untuk memilih semua 
worksheet yang ada dalam satu file, biasanya digunakan perintah :
Worksheets(Array( Sheet1, Sheet2, Sheet4)).Select
nah saya tidak mau menyebutkan nama sheet nya (Sheet1, Sheet2, 
Sheet4), saya ingin langsung semua sheet langsung kepilih. mohon 
bantuannya ya..
makasih

 


  

Re: Bls: [belajar-excel] fungsi if yang lebih dari 7 kriteria

2010-03-25 Terurut Topik anton suryadi
di excel 2003:

=IF(A1=1,1,)IF(A1=2,2,)IF(A1=3,3,)IF(A1=4,4,)IF(A1=5,5,)IF(A1=6,6,)IF(A1=7,7,)IF(A1=8,8,)IF(A1=9,9,)IF(A1=10,10,)IF(A1=11,11,)
 IF(A1=12,12,)IF(A1=13,13,)IF(A1=14,14,)IF(A1=15,15,)


semoga bermanfaat






From: ujang haryanto uharya...@ymail.com
To: belajar-excel@yahoogroups.com
Sent: Fri, March 26, 2010 10:45:36 AM
Subject: Bls: [belajar-excel] fungsi if yang lebih dari 7 kriteria

  
Silahkan pake Excel 2007 mas.

Salam,
-uhr-

--- Pada Jum, 26/3/10, murdanigd dunn murdan...@gmail. com menulis:


Dari: murdanigd dunn murdan...@gmail. com
Judul: [belajar-excel] fungsi if yang lebih dari 7 kriteria
Kepada: belajar-excel@ yahoogroups. com
Tanggal: Jumat, 26 Maret, 2010, 10:35 AM






  

 
  
 
slmt pg para pakar,,

saya minta tolong ni,
saya ada kasus tentang rumus if, saya butuh rumus if yang bisa lebih dari 7 
kriteria ada ga ya?? ?.
berikut saya lampirkan contoh kasusnya.
demikian  terima kasih



dani
 


 Berselancar lebih cepat. 
Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman 
favorit Anda setiap kali Anda membuka browser.Dapatkan IE8 di sini! (Gratis)
 


  

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


 


  

Re: [belajar-excel] Menghide semu sheet kecuali satu

2010-03-18 Terurut Topik anton suryadi
kalo gini gimana,

Sub mbelgedhezz()
Dim ws As Worksheet, b As Shape
For Each ws In Worksheets
With ws
For Each b In .Shapes
If b.Name = SEMBUNYI Then b.Visible = msoFalse
Next
End With
Next
End Sub


semoga bermanfaat







From: andri prod...@shokubai.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, March 18, 2010 2:27:58 PM
Subject: Re: [belajar-excel] Menghide semu sheet kecuali satu

  
Sekalian melanjutkan mbak...

Sekarang bagaimana kalo mau meng-hide command button yang ada di sheet?
saya sudah coba dengan :

Sub hidetombol()
Dim tombol As CommandButton
For Each tombol In ThisWorkbook. Worksheets
If UCase(tombol. Caption)  SEMBUNYI Then _
tombol.Visible = False
End If
Next tombol
End Sub

Tapi kayaknya belum menghasilkan seperti yang diinginkan.

Andri

siti Vi wrote: 
   
dari excel 
1 buka vbe (visual basic editor)  (alt+F11) 
setiap onject sheet / workbbok punya module sendiri 
selain itu kita dapat membuat module baru (menu insert 
module) 
dlm module itulah code vba dituliskan 
Terlampir contoh workbook yg sudah diberi makro 
 
 
mengenai password, sepertinya pak dicky masih mencampur-adukkan
 
dua hal 
- memprotect sheet 
- menyembunyikan sheet 
kedua hal itu berbeda 
dlm proteksi sheet memang disediakan password, tetapi ketika
anda 
menyembunyikan sheet tidak ada kesempatan memberi password 
 
paling dengan makro : kita dapat mencegah agar orang tidak
dapat 
dengan mudah membuka vbe  modules, sehingga mereka agak
kesulitan 
jika harus meng UNHIDE sheet yg telah di HIDE malelui makro 
 
 
 

- Original Message - 
From: dicky zulkifli 
To: belajar-excel@ yahoogroups. com 
Sent: Wednesday, March 17, 2010 2:31 PM
Subject: RE: [belajar-excel] Menghide semu sheet kecuali satu

Dear master,
Maaf ketinggalan, saya tidakmengerti menggunakan macro.
Bagaimana langkah2nya untuk membuat macro tersebut.
bagaimana cara untuk hide dan unhide sheet-sheet tersebut, kalau perlu
pakai paswoord?
Terima Kasih banyak atas bantuannya.



From: belajar-excel@ yahoogroups. com On Behalf Of siti Vi
Sent: Friday, March 12, 2010 10:42 AM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Menghide semu sheet kecuali satu

ada yang salah
seharusnya
dim lembar as worksheet
for each lembar in thisworkbook. worksheets
if lembar.name  aku then 
lembar.visible = xlSheetHidden
end if
next lembar 

- Original Message - 
From: siti Vi 
To: belajar-excel@ yahoogroups. com 
Sent: Friday, March 12, 2010 10:31 AM
Subject: Re: [belajar-excel] Menghide semu sheet kecuali satu

men-set visibility semua sheets (dlm 1 workbook) agar berstatus hidden,
 
kecuali sheet bernama aku
dim lembar as worksheet
for each lembar in thisworkbook. worksheets
if lembar.name = aku then exit for
lembar.visible = xlSheetHidden
next lembar
teknik menembak sekaligus semua object dlm sebuah koleksi object
seperti 
di atas sudah sangat sering dicontohkan. . mosok lupa lagi... 



__ Information from ESET NOD32 Antivirus, version of virus
signature database 4953 (20100317) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com


 


  

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
 


  

Re: [belajar-excel] Custom Stamp VBA

2010-03-16 Terurut Topik anton suryadi
Nerusin yang di Excel Help,

Sub AddShape()
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 
100, 200
End Sub



semoga bermanfaat






From: ..::Semoet Ithenk::.. ant_tr...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, March 17, 2010 11:11:33 AM
Subject: [belajar-excel] Custom Stamp VBA

  
Dear Exceltrainer,

Minta bantuan Lg ya. Aku mau buat stamp pake object autoshape.
Permasalahannya untuk penempatan object autoshape,
bisakah kita tentukan sesuai dengan cell yg kita select?

expression.AddShape(Type, Left, Top, Width, Height)

Thanks a lots,

Semoet Ithenk



 


  

Re: [belajar-excel] PAJAK2-minta tolong lagi

2010-03-10 Terurut Topik anton suryadi
Kalo gak salah, ada kemungkinan juga untuk status TK/1, atau TK/2, atau TK/3







From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, March 10, 2010 9:29:41 AM
Subject: Re: [belajar-excel] PAJAK2-minta tolong lagi

  
rumus di W43 (sheet 
DataA2_2008)
 
=IF(AD43=X ,1716+AH43* 132,1584)
 
tanpa ber-rumit-rumit, 
rumus ini tidak memerlukan bantuan tabel bantu 
PTKP AR32:AS36, tetapi dia hanya memerlukan 
keakuratan data di kolom 
AD dan AH 
saja.
 
Logikanya:
PTKP 
setahun adalah: 
Jika status di kolom AD = X ( kawin) 
 maka PTKP = 
17.160.000
ditambah (jumlah anak /kolom 
AH  dikalikan 1.320.000)
(Jika stasus di kolom AD BUKAN X (berarti belum 
kawin)
   maka PTKP = 15.840.000
 
sebaiknya dimintakan 
pendapat dari orang KPP dulu...
jangan-jangan asal rumusnya lain (tanpa dilihat hasilnya) langsung DILARANG 
!!
 
 


 
- Original Message - 
From: guru muda 
To: belajar-excel@ yahoogroups. com 
Sent: Wednesday, March 10, 2010 8:12 
  AM
Subject: [belajar-excel] PAJAK2-minta 
  tolong lagi


Selamat pagi. 

Saya ucapkan terima kasih yang 
sebanyak-banyaknya pada moderator dan member milis ini atas bantuan 
 yang 
sangat berguna terutama buat Mabk Siti yang luar biasa. 

Kali ini 
saya mohon dibantu lagi untuk otomatisasi PTKP 1 Tahun. Mohon dilihat 
sheet:
DataA2_2008. Selengkapnya lihat lampiran. Mohon dengan hormat 
dikirim file jadinya. 

Terima kasih
 

kalo 


  

Re: [belajar-excel] SUMIF

2010-03-04 Terurut Topik anton suryadi
Formula OFFSET strukturnya adalah sebagai berikut:
=offset(reference, rows, cols, [height], [width])

=SUM(OFFSET(D3:O3,MATCH(D23,A3:A17)-1, cols, [height], [width]))
bisa juga diganti menjadi:
=SUM(OFFSET(D3:O3,MATCH(D23,A3:A17)-1,0,,)) height  width dikosongkan 
(omitted)

posisi [height] [width] dikosongkan karena height  weight-nya sama dengan 
reference cell.

pada penjelasan Excel Help, diterangkan bahwa:

Height   is the height, in number of rows, that you want the returned reference 
to be, the same height as reference if omitted.

Width   is the width, in number of columns, that you want the returned 
reference to be, the same width as reference if omitted.



semoga bermanfaat






From: Ridwan Rahman ridwan7...@gmail.com
To: Excel Milist belajar-excel@yahoogroups.com
Sent: Thu, March 4, 2010 2:38:47 PM
Subject: FW: [belajar-excel] SUMIF

  
Sebelumnya terima kasih atas solusi dari P’Anton.
Karena saya masih belajar, mungkin p’Anton dapat berikan sedikit
penjelasan maksud dari rumus excel yang P’anton berikan :
 
=SUM(OFFSET( D3:O3,MATCH( D23,A3:A17) -1,,,))
 
Terutama yang belakang 
 
-1,,,
 
Terima kasih,
Ridwan
 
 
From:Ridwan Rahman
[mailto:ridwan7677@ gmail.com] 
Sent: 03 Maret 2010 16:26
To: 'belajar-excel@ yahoogroups. com'
Subject: RE: [belajar-excel] SUMIF
 
Wah, berhasil. Terima kasih p’ anton suryadi atas solusinya J
Salam
ridwan
 
From:belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] On
Behalf Of anton suryadi
Sent: 03 Maret 2010 16:07
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] SUMIF
 
  
Di
file lampiran sebelumnya kok ada yang sprti ini???
SUMIF(A:A,D23, M:M)*SUMIF( A:A,D23,N: N)  maksudnya + atau *
( di formula contoh yang bukan di file semuanya
bertanda + )

Jika seharusnya +
coba,
=SUM(OFFSET( D3:O3,MATCH( D23,A3:A17) -1,,,))+SUM( OFFSET(B3, MATCH(D23, A3:A17)
-1,,,))


semoga bermanfaat
 


 
From:Ridwan Rahman
ridwan7...@gmail. com
To: belajar-excel@ yahoogroups. com
Sent: Wed, March 3, 2010 3:26:50 PM
Subject: RE: [belajar-excel] SUMIF

  
Iya, sengaja tidak dihitung
 
From:belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] On
Behalf Of hendrik karnadi
Sent: 03 Maret 2010 15:12
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] SUMIF
 
  
Kolom
C nya sengaja tidak dihitung mas ? Jika kolom C tidak dihittung maka
formula pak Anton agak meleset.
 
Salam,
Hendrik
Karnadi
 


 
From:Ridwan
Rahman ridwan7...@gmail. com
To: Excel Milist belajar-excel@ yahoogroups. com
Sent: Wednesday, March 3, 2010 10:55:26
Subject: [belajar-excel] SUMIF

  
Maaf, contoh file ketinggalan,
Please, untuk dibantu
 
Salam
Ridwan
 
From:Ridwan
Rahman [mailto:ridwan7677@ gmail.com] 
Sent: 03 Maret 2010 8:38
To: Excel Milist
Subject: SUMIF
 
Suhu/master
excel sekalian
 
Mohon
bantuannya untuk penyederhanaan fungsi sumif yang saya buat ini. Kelihatannya
panjang dan gak praktis. Mungkin ada solusi lain ?
 
=SUMIF(TB!A: A;Current! A11757;TB! E:E)
+SUMIF(TB!A: A;Current! A11757;TB! G:G)
+SUMIF(TB!A: A;Current! A11757;TB! H:H)
+SUMIF(TB!A: A;Current! A11757;TB! I:I)
+SUMIF(TB!A: A;Current! A11757;TB! J:J)
+SUMIF(TB!A: A;Current! A11757;TB! K:K)
+SUMIF(TB!A: A;Current! A11757;TB! L:L)
+SUMIF(TB!A: A;Current! A11757;TB! M:M)
+SUMIF(TB!A: A;Current! A11757;TB! N:N)
+SUMIF(TB!A: A;Current! A11757;TB! O:O)
+SUMIF(TB!A: A;Current! A11757;TB! P:P)
+SUMIF(TB!A: A;Current! A11757;TB! Q:Q)
+SUMIF(TB!A: A;Current! A11757;TB! R:R)

salam
Ridwan
 


 
Get your new Email address! 
Grab the Email name you've always wanted before someone else does!
 
 


  

Re: [belajar-excel] SUMIF

2010-03-03 Terurut Topik anton suryadi
Di file lampiran sebelumnya kok ada yang sprti ini???
SUMIF(A:A,D23,M:M)*SUMIF(A:A,D23,N:N)  maksudnya + atau *

( di formula contoh yang bukan di file semuanya bertanda + )

Jika seharusnya +
coba,
=SUM(OFFSET(D3:O3,MATCH(D23,A3:A17)-1,,,))+SUM(OFFSET(B3,MATCH(D23,A3:A17) 
-1,,,))


semoga bermanfaat







From: Ridwan Rahman ridwan7...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, March 3, 2010 3:26:50 PM
Subject: RE: [belajar-excel] SUMIF

  
Iya, sengaja tidak dihitung
 
From:belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] On
Behalf Of hendrik karnadi
Sent: 03 Maret 2010 15:12
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] SUMIF
 
  
Kolom C nya sengaja tidak dihitung mas ? Jika kolom
C tidak dihittung maka formula pak Anton agak meleset.
 
Salam,
Hendrik Karnadi
 


 
From:Ridwan Rahman
ridwan7...@gmail. com
To: Excel Milist belajar-excel@ yahoogroups. com
Sent: Wednesday, March 3, 2010 10:55:26
Subject: [belajar-excel] SUMIF

  
Maaf, contoh file ketinggalan,
Please, untuk dibantu
 
Salam
Ridwan
 
From:Ridwan
Rahman [mailto:ridwan7677@ gmail.com] 
Sent: 03 Maret 2010 8:38
To: Excel Milist
Subject: SUMIF
 
Suhu/master
excel sekalian
 
Mohon
bantuannya untuk penyederhanaan fungsi sumif yang saya buat ini. Kelihatannya
panjang dan gak praktis. Mungkin ada solusi lain ?
 
=SUMIF(TB!A: A;Current! A11757;TB! E:E)
+SUMIF(TB!A: A;Current! A11757;TB! G:G)
+SUMIF(TB!A: A;Current! A11757;TB! H:H)
+SUMIF(TB!A: A;Current! A11757;TB! I:I)
+SUMIF(TB!A: A;Current! A11757;TB! J:J)
+SUMIF(TB!A: A;Current! A11757;TB! K:K)
+SUMIF(TB!A: A;Current! A11757;TB! L:L)
+SUMIF(TB!A: A;Current! A11757;TB! M:M)
+SUMIF(TB!A: A;Current! A11757;TB! N:N)
+SUMIF(TB!A: A;Current! A11757;TB! O:O)
+SUMIF(TB!A: A;Current! A11757;TB! P:P)
+SUMIF(TB!A: A;Current! A11757;TB! Q:Q)
+SUMIF(TB!A: A;Current! A11757;TB! R:R)

salam
Ridwan
 


 
Get
your new Email address! 
Grab the Email name you've always wanted before someone else does!
 


  

Re: [belajar-excel] mencari data yang sama

2010-03-03 Terurut Topik anton suryadi
Gunakan VLOOKUP






From: gjhmd gjhmd_2...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Wed, March 3, 2010 3:49:17 PM
Subject: Re: [belajar-excel] mencari data yang sama

  
Makasih pak hendrik atas bantuannya, tapi gak bisa sayat praktekan karen masih 
menggunakan excel 2003(. hi..hi.. jadi malu... ) 

Made

--- Pada Rab, 3/3/10, hendrik karnadi hendrikkarnadi@ yahoo.com menulis:


Dari: hendrik karnadi hendrikkarnadi@ yahoo.com
Judul: Re: [belajar-excel] mencari data yang sama
Kepada: belajar-excel@ yahoogroups. com
Tanggal: Rabu, 3 Maret, 2010, 3:26 PM






  

 
  
 
Kalau anda pakai Excel 2007, langkah2 nya (tanpa0program adalah seperti 
berikut ini :
   1. Blok data yang ingin dicek
   2. Klik Conditional Formatting, Highlights Cell Rules, Duplicate 
 Values,seperti contoh terlampir
   3. Klik OK.
Salam,
Hendrik Karnadi



 From: gjhmd gjhmd_2...@yahoo. co.id
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, March 3, 2010 14:57:50
Subject: [belajar-excel] mencari data yang sama

  


Bpk / ibu yth.

Mohon bantuan, bagaimana mencari data yang sama dengan menggunakan rumus excel 
untuk data dibawah ini:

JANFEB

100400
300150
400250
200500
150600

Dari data tersebut diatas angka yang sama adalah 400 dan 150.
pertanyaannya bagaimana mencari angka yang sama tersebut dengan menggunakan 
rumus excel?

atas bantuan saya ucapkan terima kasih  


 Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang! 
Reply to sender | Reply to group | Reply via web post | Start a New Topic 
Messages in this topic (6) 
Recent Activity: 
   * New Members 8 
Visit Your Group 
/--- - - - - - ---\
| bergabung ke milis (subscribe)|
| kirim mail kosong ke: belajar-excel- subscribe@ yahoogroups. com |
|   |
| posting ke
 milis  |
| kirim kan ke: belajar-excel@ yahoogroups. com   |
|   |
| melihat file archive / mendownload
 lampiran   |
| http://www.mail- archive.com/ belajar-excel@ yahoogroups. com/|
|   |
| menhubungi moderators  owners:   |
|
 belajar-excel- ow...@yahoogroup s.com   |
|   |
| ExcelWeb http://opi.110mb. com/  |
\--- - - - - - ---/ 
 
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.

 New Email names for you!  
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!

  


 Nikmati chatting lebih sering di blog dan situs web 
Gunakan Wizard Pembuat Pingbox Online
 


  

Re: [belajar-excel] mencari data yang sama

2010-03-03 Terurut Topik anton suryadi
Sama2 pak Made,,

senang bisa membantu.



salam,

anton suryadi





From: gjhmd gjhmd_2...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Thu, March 4, 2010 8:18:52 AM
Subject: Re: [belajar-excel] mencari data yang sama

  
wah.. pak anton terima kasih banyak atas bantuannya, saya sampe ga kepikir 
menggunakan Vlookup dengan cara seperti itu.

Trims

Made

--- Pada Rab, 3/3/10, anton suryadi summon...@yahoo. com menulis:


Dari: anton suryadi summon...@yahoo. com
Judul: Re: [belajar-excel] mencari data yang sama
Kepada: belajar-excel@ yahoogroups. com
Tanggal: Rabu, 3 Maret, 2010, 5:11 PM






  

 
  
 
langsung liat file terlampir saja untuk vlookupnya,
atau bisa juga dengan conditional formating (ada dilampiran juga)


semoga bermanfaat








From: gjhmd gjhmd_2...@yahoo. co.id
To: belajar-excel@ yahoogroups. com
Sent: Wed, March 3, 2010 4:51:52 PM
Subject:  Re: [belajar-excel] mencari data yang sama

  

 
  
 
makasih pak anton atas jawabannya, tapi pengetahuan saya tentang vlookup gak 
banyak, setahu saya vlookup digunakan apabila kita telah punya daftar yang 
tetap, misal daftar gaji berdasarkan golongan.  
Manfaatnya begitu ada karyawan baru kita cukup ketik golongannya saja, 
sedangkan nilai gaji terisi otomatis dengan menggunakan fungsi  vlookup.

Salam
made

--- Pada Rab, 3/3/10, anton suryadi summon...@yahoo. com menulis:


Dari: anton suryadi summon...@yahoo. com
Judul: Re: [belajar-excel] mencari data yang sama
Kepada: belajar-excel@ yahoogroups.
 com
Tanggal: Rabu, 3 Maret, 2010, 4:11 PM






  

 
  
 
Gunakan VLOOKUP







From: gjhmd gjhmd_2...@yahoo. co.id
To: belajar-excel@ yahoogroups. com
Sent: Wed, March 3, 2010 3:49:17 PM
Subject: Re: [belajar-excel] mencari data yang sama

  

 
  
 
Makasih pak hendrik atas bantuannya, tapi gak bisa sayat praktekan karen 
masih menggunakan excel 2003(. hi..hi.. jadi malu... ) 

Made

--- Pada Rab, 3/3/10, hendrik karnadi hendrikkarnadi@ yahoo.com menulis:


Dari: hendrik karnadi hendrikkarnadi@ yahoo.com
Judul: Re: [belajar-excel] mencari data yang sama
Kepada: belajar-excel@ yahoogroups. com
Tanggal: Rabu, 3 Maret, 2010, 3:26 PM






  

 
  
 
Kalau anda pakai Excel 2007, langkah2 nya (tanpa0program adalah seperti 
berikut ini :
 1. Blok data yang ingin dicek
 2. Klik Conditional Formatting, Highlights Cell Rules, Duplicate 
 Values,seperti contoh terlampir
 3. Klik OK.
Salam,
Hendrik Karnadi



 From: gjhmd gjhmd_2...@yahoo. co.id
To: belajar-excel@ yahoogroups. com
Sent: Wednesday, March 3, 2010 14:57:50
Subject: [belajar-excel] mencari data yang sama

  


Bpk / ibu yth.

Mohon bantuan, bagaimana mencari data yang sama dengan menggunakan rumus 
excel untuk data dibawah ini:

JANFEB

100400
300150
400250
200500
150600

Dari data tersebut diatas angka yang sama adalah 400 dan 150.
pertanyaannya bagaimana mencari angka yang sama tersebut dengan menggunakan 
rumus excel?

atas bantuan saya ucapkan terima kasih  


 Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang! 
Reply to sender | Reply to group | Reply via web post | Start a New Topic 
Messages in this topic (6) 
Recent Activity: 
 * New Members 8 
Visit Your Group 
/--- - - - - - ---\
| bergabung ke milis (subscribe)|
| kirim mail kosong ke: belajar-excel- subscribe@ yahoogroups. com |
|   |
| posting ke
 milis  |
| kirim kan ke: belajar-excel@ yahoogroups. com   |
|   |
| melihat file archive / mendownload
 lampiran   |
| http://www.mail- archive.com/ belajar-excel@ yahoogroups. com/|
|   |
| menhubungi moderators  owners:   |
|
 belajar-excel- ow...@yahoogroup s.com   |
|   |
| ExcelWeb http://opi.110mb. com/  |
\--- - - - - - ---/ 
 
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.

 New Email names for you!  
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!

  


 Nikmati chatting lebih sering di blog dan situs web 
Gunakan Wizard Pembuat Pingbox Online
 


Lebih Bersih, Lebih Baik, Lebih Cepat - Rasakan Yahoo! Mail baru yang Lebih 
Cepat hari ini!
 


 Lebih aman saat online

Re: [belajar-excel] SUMIF

2010-03-02 Terurut Topik anton suryadi
=SUM(OFFSET(B3:O3,MATCH(D23,A3:A17)-1,,,))


semoga bermanfaat







From: Ridwan Rahman ridwan7...@gmail.com
To: Excel Milist belajar-excel@yahoogroups.com
Sent: Wed, March 3, 2010 10:55:26 AM
Subject: [belajar-excel] SUMIF

  
Maaf, contoh file ketinggalan,
Please, untuk dibantu
 
Salam
Ridwan
 
From:Ridwan Rahman
[mailto:ridwan7677@ gmail.com] 
Sent: 03 Maret 2010 8:38
To: Excel Milist
Subject: SUMIF
 
Suhu/master excel sekalian
 
Mohon bantuannya untuk penyederhanaan fungsi sumif yang saya
buat ini. Kelihatannya panjang dan gak praktis. Mungkin ada solusi lain ?
 
=SUMIF(TB!A: A;Current! A11757;TB! E:E)
+SUMIF(TB!A: A;Current! A11757;TB! G:G)
+SUMIF(TB!A: A;Current! A11757;TB! H:H)
+SUMIF(TB!A: A;Current! A11757;TB! I:I)
+SUMIF(TB!A: A;Current! A11757;TB! J:J)
+SUMIF(TB!A: A;Current! A11757;TB! K:K)
+SUMIF(TB!A: A;Current! A11757;TB! L:L)
+SUMIF(TB!A: A;Current! A11757;TB! M:M)
+SUMIF(TB!A: A;Current! A11757;TB! N:N)
+SUMIF(TB!A: A;Current! A11757;TB! O:O)
+SUMIF(TB!A: A;Current! A11757;TB! P:P)
+SUMIF(TB!A: A;Current! A11757;TB! Q:Q)
+SUMIF(TB!A: A;Current! A11757;TB! R:R)

salam
Ridwan
 


  

Re: [belajar-excel] kenapa INT((204.01 - 204) * 100) 1 ?

2010-02-27 Terurut Topik anton suryadi
Setelah ngebaca pertanyaan pak zainul, langsung keinget tentang fungsi vba 
ROUND yang hasilnya bisa berbeda dengan fungsi excel ROUND.

Cek: http://support.microsoft.com/kb/194983

misal: 
fungsi excel: 
=Round(2.225,2) menghasilkan 2.3
fungsi vba:
Function ron(x)
ron = Round(x, 2) 'untuk x 2.225 menghasilkan 2.2
End Function

gak nyambung dengan pertanyaannya ya,,
tapi mungkin bisa bermanfaat,, 







From: zainul ulum zainul_u...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Sun, February 28, 2010 11:17:07 AM
Subject: RE: [belajar-excel] kenapa INT((204.01 - 204) * 100)  1 ?

  
Maturnuwun mas Kid,
Bermanfaat sekali penjelasannya.

Ceritanya begini,

Saya sedang mengolah data hasil ukuran sudut dari alat total station (TS)
yang dinyatakan dalam derajat, menit dan detik. Jika hasil pengukurannya
adalah 204 derajat, 1 menit, 1 detik hasil download dari TS tertulis
204.0101

Jadi kalo data dari TS adalah 204.01, dibaca 204 derajat, 1 menit.

Alasan kenapa saya memakai fungsi yang menghasilkan data type integer adalah
mempertimbangkan bahwa hasil dari fungsi tersebut hanya dari angka 0 sampai
59.

D = Int(DMS)'derajat DMS=Sudut dalam format d.mmss
M = Int((DMS - D) * 100)'menit
s = (DMS * 100 - Int(DMS * 100)) * 100'detik

Dengan rumus di atas sebagian besar mendapatkan hasil yang saya harapkan,
tetapi untuk sudut2 tertentu terjadi kesalahan. Misal untuk sudut 204.1
D=204 tetapi M=0

Kemudian saya ganti INT mejadi FIX, ternyata tetep aja M=0

Sebelum ada jawaban dari mas Kid, karena pusing mikirin INT dan FIX akhirnya
rumus saya rubah menjadi,

s = Format(absDMS, 000.00 )
Der = CInt(Left(s, 3))
Men = CInt(Mid(s, 5, 2))
Det = CDbl(Mid(s, 7, 2)) + CDbl(Right(s, 2) / 100)

Kini, saatnya menerapkan saran dari Mr.Kid

Apakah akibatnya jika semua data type yang semula integer dirubah menjadi
long (integer)?

Karena setahu saya ada hubungannya dengan alokasi memory yang akan dipakai
jika integer adalah 2 byte dengan range -32768 to 32767
Jika long adalah 4 byte dengan range -2147483648 to 2147483647

Mohon maaf kepanjangan ceritanya
_zainul_
 _ _ _ _
From: belajar-excel@ yahoogroups. com [mailto:belajar-excel@ yahoogroups. com]
On Behalf Of Mr. Kid
Sent: Sunday, February 28, 2010 5:24 AM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] kenapa INT((204.01 - 204) * 100)  1 ?

  
Hai mas Zainul,

datatype double dan single adalah bilangan approximate dan diproses dengan
algoritma yang berbeda dengan bilangan bulat seperti integer atau long. Jadi
nilai desimal suatu bilangan akan tersusun dalam banyak angka dibelakang
koma yang dibulatkan. Sedangkan fungsi Int() akan membulatkan ke terkecil
terdekat.

Alhasil, semua bilangan approximate (double dan single) akan dibulatkan ke
nilai terkecil terdekat. Sedangkan 1 didefinisikan sebagai nilai approcimate
berupa 0.99sekian

Fungsi konversi datatype berbeda dengan fungsi pembulatan suatu angka
seperti Int()
Int(99.99) = 99
Int(-99.99) = -100
Cint(99.99)= 100
Cint(-99.99) =-100

maksud dari syntax mas Zainul adalah memeriksa apakah selisihnya bernilai 1,
maka kerjakanlah keduanya sebagai bilangan bulat, atau jadikanlah hasil
akhir sebagai bilangan bulat 

silakan dicoba, agar punya gambaran yang lebih jelas
clng((204.01- 204) * 100)
204.01 * 100 mod 204*100
clng(204.01 * 100) - clng(204 * 100)

Semoga bermanfaat.
Kid.

__ Information from ESET NOD32 Antivirus, version of virus signature
database 4901 (20100227) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com



 


  

Re: [belajar-excel] Membuat grafik yang memiliki dua nilai Axis X

2010-02-23 Terurut Topik anton suryadi
Data Format Series  Series Option  Secondary Axissemoga bermanfaatFrom: Angga Gurmilang Sedar SBY angga.gurmilang.se...@para-star.comTo: belajar-excel@yahoogroups.comSent: Wed, February 24, 2010 12:50:16 PMSubject: RE: [belajar-excel] Membuat grafik
 yang memiliki dua nilai Axis X











  
  
  







Dari tadi aku juga nyari di 2007 muter2 ga temu blas, mbak Vi. Mosok
aku harus downgrade ke 2003 dulu MSO nya J . rekan-rekan yang lain
mungkin ada masukan? Mas Kid, Mas Anton? 

  



  







From:
belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] On
Behalf Of siti Vi
Sent: Wednesday, February 24, 2010 12:30 PM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Membuat grafik yang memiliki dua nilai Axis
X 





  

  









sambil menunggu saran dari temans lain... 





kalau di excel 11;  





dengan chart wizzard pada step 1 ada pilihan TYPE  





Custom Type  Line - Column on 2 Axes 





Bgmana di excel 12, saya ndak tahu babar blass. 





 





 





 





Dari situ ita bis pelajari cara memasang axe kedua. 





 





 

















-
Original Message -  





From: Angga Gurmilang Sedar SBY  





To: belajar-excel@ yahoogroups. com  





Sent: Wednesday, February
24, 2010 11:31 AM 





Subject: [belajar-excel]
Membuat grafik yang memiliki dua nilai Axis X 





Dear All,Ada sedikit problem disaat saya ingin membuat
grafik atau chart yang memiliki 2 nilai Axis X (bener ga ya istilah nya J CMIIW). Saya menggunakan MSO 2007, saya sudah coba ulik2 sampe mumet
ndak ketemu jalan keluar e. hehehe. Mohon bantuannya. Data untuk tabel saya
sertakan juga. Matur nuwun 

-Gilang Sedar- 





 









 











 







  

Re: [belajar-excel] Protect Sheet

2010-02-22 Terurut Topik anton suryadi
1. Bagaimana
caranya allow user to edit other cells (memberi warna, edit text,
delete text, border, pattern etc) tapi di cells yang terlock (A1:C6)
tidak boleh.
Untuk mem-format, copy paste Format (Warna, Border, dll) dari sheet lain yang 
sheet nya tidak diprotect.


2. bagaimana caranya supaya other cells bisa di Merge cells tapi cells 
A1:C6 tidak boleh. 
Copy paste merge cell dari sheet lain yang tidak diprotect.


semoga bermanfaat






From: Posi, Yugustin (PTI-SOR) yugustin.p...@valeinco.com
To: belajar-excel@yahoogroups.com
Sent: Tue, February 23, 2010 10:21:31 AM
Subject: [belajar-excel] Protect Sheet

  
Dear All,
Mohon pencerahannya,
Pada file terlampir, cells A1:C6 adalah cells yang di lock (tidak boleh/tidak 
bisa diedit)
Sedangkan cells yang lain selain cells di atas, harapan saya bisa di edit.
As i know, 
Saat akan protect sheet, adalah pilihan apakah kita mau allow user untuk format 
dan sebagainya. Tapi misalnya saat memilih allow user to format cells, cells 
yang terlock juga akhirnya bisa di beri warna kecuali di delete atau edit text.
Pertanyaannya :
1. Bagaimana caranya allow user to edit other cells (memberi warna, edit 
text, delete text, border, pattern etc) tapi di cells yang terlock (A1:C6) 
tidak boleh.
2. bagaimana caranya supaya other cells bisa di Merge cells tapi cells 
A1:C6 tidak boleh. 
O ya, password protect sheetnya =“gg”
protect cells.xls 
Demikian,
Terimakasih All,
Salam,
gusti
 


  

Re: [belajar-excel] memindahkan data sheet satu ke sheet lain dengan kriteria tertentu

2010-02-22 Terurut Topik anton suryadi
Bisa juga dengan formula ataupun macro

berikut ini dengan cara PivotTable
file terlampir.

semoga bermanfaat






From: him mah himmah@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Tue, February 23, 2010 1:39:14 PM
Subject: [belajar-excel] memindahkan data sheet satu ke sheet lain dengan 
kriteria tertentu

  
Assalamu'alaikum Wr. Wb.  

maaf mau tanya (maaf juga kalau sudah di posting mau nyari di arsip koneksi 
internetnya lambat disini)

misal kita punya data di sheet ASAL
terdiri dari 

NO NAMA ALAMAT KET 1 A AA KIRIM 2 B ABC KIRIM 3 D DDD 4 F FGH KIRIM 5 E EFR 6 G 
GJIK KIRIM 7 H HJKL 8 I I KIRIM 9 M MNOL 10 N NULL KIRIM

terus mau dipindahkan ke sheet HASIL dengan kriteria KET =KIRIM

sehingga di sheer HASIL seperti ini

NAMA ALAMAT KET A AA KIRIM B ABC KIRIM F FGH KIRIM G GJIK KIRIM I I KIRIM N 
NULL KIRIM

kira-kira caranya seperti apa ya, terima kasih sebelumnya ya





 


  

__pindah_data_sheet__.xls
Description: MS-Excel spreadsheet


Re: [belajar-excel] Placed Result

2010-02-19 Terurut Topik anton suryadi
pak Kozhot, kalo gini gimana,

Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
Range(Cells(5, 2), Cells(LR, LC)).ClearContents 'tambahan
For i = 2 To LC
If Cells(4, i) = Range(B2) Then
For n = 1 To LR - 4
Cells(4 + n, i) = =VLOOKUP(A  (4 + n)  ,Source!$A$2:$B$9,2,0)
Next n
End If
Next i
End Sub


semoga bermanfaat







From: Khozhot khozhot2...@telkom.net
To: belajar-excel@yahoogroups.com
Sent: Fri, February 19, 2010 4:10:25 PM
Subject: Re: [belajar-excel] Placed Result


Dear Pak Anton,

bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti.

Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1 
(red: satu per satu) tiap kolom.
Hasilnya jadi sama cmua dach xi..xi...xi.
Tapi gapapa sech, satu lagi ilmu kudapat hari ini.

Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak.
Kayaknya sech mang gw yg belajar dari dasar jadi bukan g bisa dimengerti 
melainkan gw nya az yg perlu banyak bimbingan atawa descripsi langkah kerjanya 
kalleee heu.heu.heu

Hatur nuhun.


-- 
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/


On Fri, 19 Feb 2010 15:14:22 +0700, anton suryadi summon...@yahoo.com wrote:


  


 
  
 
coba,

Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
If Cells(4, i) = Range(B2) Then
For n = 1 To LR - 4
Cells(4 + n, i) = =VLOOKUP(A  (4 + n)  ,Source!$A$2:$B$9,2,0)
Next n
End If
Next i
End Sub


semoga bermanfaat









From: hery wahyudi h...@cresyn.com
To: belajar-excel@yahoogroups.com
Sent: Fri, February 19, 2010 2:43:09 PM
Subject: Re: [belajar-excel] Placed Result

  

 
  
 



mungkin seperti data terlampir

kodenya agak berantakan, saya juga masih belajar

mungkin Bu Guru Siti ada Solusi yang lebih tepat

cmiiw

tq

Miturut Khozhot kados ingkang kaserat ing ngandap meniko:

Dear Suhu,



Ada lagee yg mo ditanyain nech.


Kucoba coba merangkai kode
Kode kurangkai... error ku dapat
Kucoba-coba menganti kode.
Kode ku tetap error ku dapat
xi...xi...xi. ..


Bukan syair lagu tapi mirip.nyanyiin az heu...heu... .heu...
Intinya masih terus pengen belajar dengan kinds of cases by
Macro.


Soal
Weukbuk terdiri dari dua weuksit, yauti :
satu.weuksit Source, en
dua. weuksit Result.
Data result terus berubah (dalam hal ini ngoacak-ngacak) , sedang
data yang ada di weuksit te-es-be pengen masuk ke weuksit Result dimana
kolomnya disesuaikan dengan data yang ada di sel B2 yang seperti
biasanya dengan warna kesukaan q yauti Kuning ketika di pencet tombol
Update.


Por ditail, si fail enklosed.


-- 
Wassalam,
ヂヂン コマルヂン
...zhot thea
Using Opera's revolutionary e-mail client:
http://www.opera. com/mail/


-- 
Template  
 

 

 
Hery Wahyudi
 





-- 
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/


  

Re: [belajar-excel] Placed Result

2010-02-19 Terurut Topik anton suryadi
Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak.

kalo ingin hasil proses sebelumnya tidak dihapus, n hasilnya berupa value,,
coba,

Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
If Cells(4, i) = Range(B2) Then
For n = 1 To LR - 4
v = =VLOOKUP(A  (4 + n)  ,Source!$A$2:$B$9,2,0)
Cells(4 + n, i) = Evaluate(v)
Next n
End If
Next i
End Sub


semoga bermanfaat







From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Fri, February 19, 2010 4:43:37 PM
Subject: Re: [belajar-excel] Placed Result

  
pak Kozhot, kalo gini gimana,

Sub Updating_Click( )
LR = Cells(Rows.Count, 1).End(xlUp) .Row
LC = Cells(4, Columns.Count) .End(xlToLeft) .Column
Range(Cells( 5, 2), Cells(LR, LC)).ClearContents 'tambahan
For i = 2 To LC
If Cells(4, i) = Range(B2) Then
For n = 1 To LR - 4
Cells(4 + n, i) = =VLOOKUP(A  (4 + n)  ,Source!$A$ 2:$B$9,2, 0)
Next n
End If
Next i
End Sub


semoga bermanfaat







From: Khozhot Khozhot2009@ telkom.net
To: belajar-excel@ yahoogroups. com
Sent: Fri, February 19, 2010 4:10:25 PM
Subject: Re: [belajar-excel] Placed Result


Dear Pak Anton,

bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti.

Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1 
(red: satu per satu) tiap kolom.
Hasilnya jadi sama cmua dach xi..xi...xi. 
Tapi gapapa sech, satu lagi ilmu kudapat hari ini.

Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak.
Kayaknya sech mang gw yg belajar dari dasar jadi bukan g bisa dimengerti 
melainkan gw nya az yg perlu banyak bimbingan atawa descripsi langkah kerjanya 
kalleee heu.heu.heu. ...

Hatur nuhun.


-- 
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera. com/mail/


On Fri, 19 Feb 2010 15:14:22 +0700, anton suryadi summon...@yahoo. com wrote:


  


 
  
 
coba,

Sub Updating_Click( )
LR = Cells(Rows.Count, 1).End(xlUp) .Row
LC = Cells(4, Columns.Count) .End(xlToLeft) .Column
For i = 2 To LC
If Cells(4, i) = Range(B2) Then
For n = 1 To LR - 4
Cells(4 + n, i) = =VLOOKUP(A  (4 + n) 
 ,Source!$A$ 2:$B$9,2, 0)
Next n
End If
Next i
End Sub


semoga bermanfaat









From: hery wahyudi h...@cresyn. com
To:  belajar-excel@ yahoogroups. com
Sent: Fri, February 19, 2010 2:43:09 PM
Subject: Re: [belajar-excel] Placed Result

  

 
  
 



mungkin seperti data terlampir

kodenya agak berantakan, saya juga masih belajar

mungkin Bu Guru Siti ada Solusi yang lebih tepat

cmiiw

tq

Miturut Khozhot kados ingkang kaserat ing ngandap meniko:

Dear Suhu,



Ada lagee yg mo ditanyain nech.


Kucoba coba merangkai kode
Kode kurangkai... error ku dapat
Kucoba-coba menganti kode.
Kode ku tetap error ku dapat
xi...xi...xi. ..


Bukan syair lagu tapi mirip.nyanyiin az heu...heu... .heu...
Intinya masih terus pengen belajar dengan kinds of cases by
Macro.


Soal
Weukbuk terdiri dari dua weuksit, yauti :
satu.weuksit Source, en
dua. weuksit Result.
Data result terus berubah (dalam hal ini ngoacak-ngacak) , sedang
data yang ada di weuksit te-es-be pengen masuk ke weuksit Result dimana
kolomnya disesuaikan dengan data yang ada di sel B2 yang seperti
biasanya dengan warna kesukaan q yauti Kuning ketika di pencet tombol
Update.


Por ditail, si fail enklosed.


-- 
Wassalam,
ヂヂン コマルヂン
...zhot thea
Using Opera's revolutionary e-mail client:
http://www.opera. com/mail/


-- 
Template  
 

 

 
Hery Wahyudi
 





-- 
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera. com/mail/

 


  

Re: [belajar-excel] File tidak bisa dibuka

2010-02-15 Terurut Topik anton suryadi
Excel Option  Resources  About
atau 
jika pada menu save as ada pilihan Open Document Spreadsheet, berarti sudah 
SP2








From: zainul ulum zainul_u...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Mon, February 15, 2010 4:10:39 PM
Subject: RE: [belajar-excel] File tidak bisa dibuka

  
Ceknya lewat control paneladd remove programPilih MS Officeclick Click 
here for support information link

Atau baca dulu di http://support. microsoft. com/kb/821549

Dengan cara yang sama, ternyata excelku sudah Excel 2003 SP3

 _ _ _ _
From: belajar-excel@ yahoogroups. com [mailto:belajar-excel@ yahoogroups. com] 
On Behalf Of Bagyo L
Sent: Monday, February 15, 2010 4:01 PM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] File tidak bisa dibuka

 
Pak anton, maaf belum terjawab ya, saya kurang tahu excelnya paki excel 
2007 SP berapa ? tapi kalo windowsnya pakai SP 3.

Demikian pak dan terima kasih.

__ Information from ESET NOD32 Antivirus, version of virus signature 
database 4866 (20100214) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com



 


  

Re: [belajar-excel] File tidak bisa dibuka

2010-02-14 Terurut Topik anton suryadi
ada pertanyaan dari saya yg belum pak bagyo jwb,
pak bagyo menggunakan excel 2007 service pack 1 atau 2?

fyi, belum lama ini saya pernah coba edit vba code di file saya, saya save dan 
buka kembali, tapi Excel semena2 men-disabled macro-nya, alias macro has been 
disabled, tidak diberi opsi untuk enable macro, kasus yang aneh. Tapi setelah 
saya update ke service pack 2, macro bisa jalan seperti biasa. (gak ada 
hubungannya dengan kasus ini ya, hehe)

tanpa attachment,, saya rasa kurang afdol utk kasus sprti ini.

gini aja, copy filenya trus di delete datanya kan bisa, trus di kirim ke milis






From: Bagyo L bag...@nojima.co.id
To: belajar-excel@yahoogroups.com
Sent: Mon, February 15, 2010 12:57:35 PM
Subject: Re: [belajar-excel] File tidak bisa dibuka

  
 
Betul pak Anton di screenshootnya tidak muncul, 
tetapi pada saat mau dibuka kembali, tandanya seperti file sudah 
terbuka.
Maaf filenya tidak bisa saya upload karena disitu 
data ledger prsh dan file relatif besar 6,2 mb.
 
Untuk klik di klik unable dan disable semuanya 
tidak bisa.
 
 
 
 
 
 
 
- Original Message - 
From: anton 
  suryadi 
To: belajar-excel@ yahoogroups. com 
Sent: Monday, February 15, 2010 11:36 
  AM
Subject: Re: [belajar-excel] File tidak 
  bisa dibuka

  
Dari 
  screenshotnya file kosong ya?
kenapa gak di upload aja, toh gak bakal 
  ngebuka file path nya

Excel 2007 service pack 1 kah?






 From: Bagyo L bag...@nojima. co.id
To: belajar-excel@ yahoogroups. com
Sent: Mon, February 15, 2010 10:54:46 
  AM
Subject: Re: 
  [belajar-excel] File tidak bisa dibuka

  
Sudah saya baca dan coba, ternyata juga 
  belum berhasil dibuka filenya..
Terima kasih ibu Siti atas 
  petunjuknya.
 
 
 
- 
Original Message - 
From: siti 
Vi 
To: belajar-excel@ yahoogroups. 
com 
Sent: Monday, February 15, 2010 9:52 AM
Subject: Re: [belajar-excel] File tidak bisa dibuka

  
coba baca-baca dulu di 
sini
http://office. microsoft. com/en-us/ 
excel/HA10039898 1033.aspx
 
 


 
- Original Message - 
From: Bagyo L 
To: belajar-excel@ yahoogroups. 
com 
Sent: Monday, February 15, 2010 8:11 AM
Subject: 
[belajar-excel] File tidak bisa dibuka

Yth. pakar excel,
Mohon 
bantuannya kalo data excel tidak bisa dibuka, karena seperti 
keterangan
pada contoh print screen dibawah ini kenapa ya ?  
bagaimana cara
membuka filenya kembali?

Terima 
kasih,
Salam
Bagyo L


 


  

Re: [belajar-excel] Aplikasi IF

2010-02-09 Terurut Topik anton suryadi
=IF(B6=,A5,B6)



semoga bermanfaat






From: muhamad.syukur muhamad.syu...@bridgestone.co.id
To: belajar-excel@yahoogroups.com
Sent: Wed, February 10, 2010 11:59:31 AM
Subject: [belajar-excel] Aplikasi IF

  
Dear Master
 
Baru Belajar nih
 
Saya ingin bertanya, 
 
Apakah ada aplikasi dari
rumus if
 
Ketika di kolom B
tertera tulisan, maka di kolom A sama dengan tulisan di kolom B
 
Bila di kolom B kosong,
maka di kolom A berisi Tulisan di kolom B yang di atasnya (Yang Ada tulisan)
 
Maaf jira pertanyaannya
kurang jelas
 
 
Salam Super
 
Syukur
 
/--- - - - - - ---\
| bergabung ke milis
(subscribe)   
|
| kirim mail kosong ke: belajar-excel- subscribe@ yahoogroups. com 
|
|  
|
| posting ke
milis 
|
| kirim kan 
ke: belajar-excel@ yahoogroups. com   
|
|  
|
| melihat file archive / mendownload
lampiran  
|
| http://www.mail- archive.com/ belajar-excel@ yahoogroups. com/   
|
|  
|
| menhubungi moderators 
owners:  
|
| belajar-excel- ow...@yahoogroup s.com  
|
|  
|
| ExcelWeb http://opi.110mb. com/ 
|
\--- - - - - - ---/ 
MARKETPLACE
Going
Green: Your Yahoo! Groups resource for green living
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms
of Use
.
 


  

Re: [belajar-excel] property

2010-02-08 Terurut Topik anton suryadi
pada VBE pencet F2, pilih VBA
atau kunjungi:
http://www.techonthenet.com/excel/formulas/index_vba.php


semoga bermanfaat







From: Cicis Kristian cicis...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Tue, February 9, 2010 10:02:36 AM
Subject: [belajar-excel] property

  
dear all pakar excel,

saya kesulitan untuk menemukan property2 atw fungsi2 build in untuk macro 
bawaan excel (atw apalah namanya). 
misalnya saya ingin memberi warna font, dll. saya sudah melihat beberapa contoh 
melalui situs2 yang ada. namun saya belum menemukan property untuk modifikasi 
label worksheet. saya berencana untuk memberi warna pada worksheet tertentu 
jika pada cell tertentu, misal cell A1 telah terisi sebuah nilai. mohon 
bantuannya, trima kasih

NB : kalo ada yg pnya sumber2/referensi dari situs lain, boleh tuh!!

~ cicis ~




 


  

Re: [belajar-excel] Array

2010-02-02 Terurut Topik anton suryadi
coba ke sini, ada contoh simpelnya.

Sample Visual Basic macros for working with arrays in Excel
(http://support.microsoft.com/kb/213798)


semoga bermanfaat







From: Posi, Yugustin (PTI-SOR) yugustin.p...@valeinco.com
To: belajar-excel@yahoogroups.com
Sent: Wed, February 3, 2010 1:21:54 PM
Subject: RE: [belajar-excel] Array

  
Oke dech… J
Bapak/Ibu terimakasih…
Sudah dibaca tapi belum ngerti he..he..
 
Sepertinya akan lebih ngerti kalu ada file
contoh penggunaan array dari para Master J
 
Salam,
Gusti
 


 
From:belajar-excel@ yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] 
On Behalf Of Mr. Kid
Sent: Wednesday, February 03, 2010
2:14 PM
To: belajar-excel@ yahoogroups. com
Subject: Re: [belajar-excel] Array
 
  
Betul Yu
gus, karena penerapan dalam koding bisa sangat bervariatif dan memikat hati
dari banyak sisi. Coba deh beberapa kode standar, lalu ubah dengan pendekatan
lain. Sama-sama array saja. Lalu rasakan getarannya. wuuuhhh. .. te o
pe dah..
 
Sampai sampai suatu waktu, kita bisa terlena dan lupa cara pikir lain
yang lebih out of the box.
 
wakakakakkaa. .
 
On Wed, Feb 3, 2010 at 1:06 PM, anton suryadi summon...@yahoo. com wrote:
  
setelah
di baca,

jangan malu bertanya apabila ada yang kurang jelas,
pertanyaan pak Pos akan sangat bermanfaat bagi kita2 yang malu bertanya tapi
ingin belajar... 


Salam,

anton


 


 
From:Posi, Yugustin (PTI-SOR) Yugustin.Posi@ valeinco. com

To: belajar-excel@ yahoogroups. com
Sent:Wed,
February 3, 2010 12:04:52 PM
Subject: RE: [belajar-excel] Array

  
Ibu Siti yang baik,
Terimakasih banyak perhatiannya
 
Salam,
gusti
 


 
From:belajar-excel@
yahoogroups. com [mailto:belajar- ex...@yahoogroup s.com] On Behalf Of siti Vi

Sent: Wednesday, February 03, 2010
11:51 AM
To: belajar-excel@ yahoogroups.
com
Subject: Re: [belajar-excel] Array
 
  
Untuk
sementara baca file ini (yg sebenarnya sudah ada di excel anda / Help 'using
arrays')
Using Arrays
You can declare
an array to work with a set of values of the same data type. An array is a
single variable with many compartments to store values, while a typical
variable has only one storage compartment in which it can store only one value.
Refer to the array as a whole when you want to refer to all the values it
holds, or you can refer to its individual elements.
For example, to
store daily expenses for each day of the year, you can declare one array
variable with 365 elements, rather than declaring 365 variables. Each element
in an array contains one value. The following statement declares the array
variable curExpensewith 365 elements. By default, an
array is indexed beginning with zero, so the upper bound of the array is 364
rather than 365.
Dim curExpense(364) As Currency
To set the
value of an individual element, you specify the element's index. The following
example assigns an initial value of 20 to each element in the array.
Sub FillArray()
Dim curExpense(364) As Currency
Dim intI As Integer
For intI = 0 to 364
curExpense(intI) = 20
Next
End Sub
Changing the
Lower Bound
You can use the Option Base statement at the top
of a module to change the default index of the first element from 0 to 1. In
the following example, the Option Base statement changes the index for the 
first element, and the Dim statement declares the array variable curExpensewith 
365 elements.
Option Base 1
Dim curExpense(365) As Currency
You can also
explicitly set the lower bound of an array by using a To clause, as shown in 
the following
example.
Dim curExpense(1 To 365) As Currency
Dim strWeekday(7 To 13) As String
Storing Variant
Values in Arrays
There are two
ways to create arrays of Variant values. One way is to declare an array of 
Variant data type, as shown in the
following example:
Dim varData(3) As Variant
varData(0) = Claudia Bendel
varData(1) =  4242 Maple Blvd 
varData(2) = 38
varData(3) = Format(06-09- 1952, General Date)
The other way
is to assign the array returned by the Array function to a Variant variable, as
shown in the following example.
Dim varData As Variant
varData = Array(Ron Bendel,  4242 Maple Blvd , 38, _
Format(06-09- 1952, General Date))
You identify
the elements in an array of Variant values by index, no matter which technique 
you use to create the array. For
example, the following statement can be added to either of the preceding
examples.
MsgBox Data for   varData(0)   has been recorded.
Using
Multidimensional Arrays
In Visual
Basic, you can declare arrays with up to 60 dimensions. For example, the
following statement declares a 2-dimensional, 5-by-10 array..
Dim sngMulti(1 To 5, 1 To 10) As Single
If you think of
the array as a matrix, the first argument represents the rows and the second
argument represents the columns.
Use nested For...Next statements to process
multidimensional arrays. The following procedure fills a two-dimensional

Re: [belajar-excel] Re: rekap nama kemunculan (maaf)

2010-01-28 Terurut Topik anton suryadi
Maafnya satu kali saja gpp kok 

jangan kapok tuk bertanya lagi ya... ^_^









From: Cicis Kristian cicis...@yahoo.com
To: setiyowati.d...@gmail.com; belajar-excel@yahoogroups.com
Sent: Thu, January 28, 2010 3:18:32 PM
Subject: [belajar-excel] Re: rekap nama  kemunculan (maaf)

  
maaf sebelumnya, bukan karena sengaja saya mengirimkan email berkali - kali. 
saya sendiri baru tahu klo telah mengirim lbh dari satu email yg berisi content 
yg sama. menurut IT kantor, td trafic jaringan kantor memang sedang bermasalah, 
itu saja yang saya tahu. sekali dengan penuh kerendahan hati, saya mohon maaf  
maklumnya kepada semua anggota milis ini jika merasa terganggu. terima kasih



From: siti_vi setiyowati.devi@ gmail.com
To: Cicis Kristian cicis...@yahoo. com
Sent: Thu, January 28, 2010 2:41:16 PM
Subject: Re: rekap nama  kemunculan

yth sdr cicis,

tercatat anda mengirimkan satu posting yg sama berkali kali.

** apakah ini karena ketidak sengajaan ?
atau
** karena suatu maksud tertentu (apa) ?

mohon penjelasan

terima kasih

moderator


--- In belajar-excel@ yahoogroups. com, Cicis Kristian cicis...@... wrote:

  _ _ __
 Terima kasih buat responnya, tapi permasalahan saya msh belum terjawab, pada 
 sheet Rekap untuk kolom nama dan kemunculan itu tidak diisi secara manual 
 tapi ter-generate secara otomatis dari sheet2 bulan.

 Misalnya, pada sheet Jan terdapat 4 nama maka nama2 itu ter-copy di sheet 
 Rekap kemudian jumlah kemunculan menjadi 1. Kemudian jika pada sheet Feb 
 dan sheet2 yg lain diisikan nama2, maka nama2 tersebut akan ter-copy di sheet 
 Rekap, jika memang sebelumnya sebuah nama belum ada dalam list, maka 
 kemunculan nama dihitung 1 dan jika sudah ada maka kemunculannya ditambahkan.





 


  

Re: [belajar-excel] Re: (unknown)

2010-01-26 Terurut Topik anton suryadi
coba juga,

=--MID(LEFT( A3,LOOKUP(99,FIND((ROW(1:10)-1) ,A3 
))),MIN(FIND(ROW(1:10)-1,A3ROW(1:10)-1)),50)


semoga bermanfaat







From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Tue, January 26, 2010 11:03:40 PM
Subject: Re: [belajar-excel] Re: (unknown)

  
ikutan ah.. 

Selalu angka pertama yang ditemui.
=--MID(LEFT( A2,MIN(FIND( ROW(1:10) -1 ,A2 ROW(1:10)-1 ))),MIN(FIND( 
ROW(1:10) -1,A2 ROW(1:10)-1) ),50)


2010/1/26 zainul_ulum zainul_ulum@ yahoo.com
















  


 
  
 
TOP BGT rumusnya.
ide BRILLIANT memberi spasi sebanyak 99 dan mengambil angka pertama dengan 
dummy 0123456789.

terimakasih pelajaran excel hari ini


--- In belajar-excel@ yahoogroups. com, anton suryadi summon...@.. . wrote:

 coba,
 
 =VALUE(MID(SUBSTITU TE(A2, ,REPT( ,99)),MIN(FIND( {0,1,2,3, 4,5,6,7,8, 
 9},(SUBSTITUTE( A2, ,REPT( ,99)))0123456789)),99))
 
 
 semoga bermanfaat
 
 
 
 
 
 
  _ _ __

 From: zainul ulum zainul_ulum@ ...

 To: belajar-excel@ yahoogroups. com
 Sent: Tue, January 26, 2010 2:10:26 PM
 Subject: RE: [belajar-excel] (unknown)
 
 
 Masih pakai cell bantu, tanpa macro.
 Bisa mengambil data integer maupun real.
 Kelemahannya: hanya mengambil bilanga pertama dalam string.
 
  _ _ _ _
 From: belajar-excel@ yahoogroups. com [mailto:belajar-excel@ yahoogroups. 
 com]
 On Behalf Of siti Vi
 Sent: Tuesday, January 26, 2010 1:41 PM
 To: belajar-excel@ yahoogroups. com
 Subject: Re: [belajar-excel] (unknown)
 
 
 we... oke banget nih formulanya
 
 sayangnya (sementara) masih mengharuskan data dlm bilangan 
 harus ada TITIK-nya
 
 XLKJ FOIUR OIUR 999,874,94050 OIUROIU 31 SOIUA OIU
 150,983,484, 098 ABCDFRGT JDLKJ DLKJ 123 XXQ
 abcdfrt 1234567890 qwertyuio asdfjkl; 345
 menghasilkan error #VALUE
 
 (di problem mas HerrSoe memang contohnya kurang lengkap:
 per sms dia bilang string bilangan bisa berupa bilangan bulat.)
 
 tentuna mas HerrSoe dan mas zain saat ini sedang mecari cara
 perbaikannya. ..
 
 karena makro hanya akan dipakai bila formula sudahbenar-2 sulit dibuat.
 
 terima kasih mas zain, trick-nya... 
 
 
 
 __ Information from ESET NOD32 Antivirus, version of virus signature
 database 4805 (20100125) __
 
 The message was checked by ESET NOD32 Antivirus.
 
 http://www.eset. com




 


  

Re: [belajar-excel] url yg bermanfaat

2010-01-06 Terurut Topik anton suryadi
simpel tapi berisi:
http://www.xlpert.com/vba_index.htm


semoga bermanfaat







From: siti Vi setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Thu, January 7, 2010 6:34:55 AM
Subject: [belajar-excel] url yg bermanfaat

  
coba deh link ini 
(barangkali belum..)
 
http://udaramaya. com/berita/ 2216/0/74_ Sumber_Pengetahu an_MS_Excel_ 
Serba_Guna
 
mudah2an 
bermanfaat.. ..
 
 


  

Re: [belajar-excel] Check Cell and make result

2010-01-05 Terurut Topik anton suryadi
Dear pak Jim,

dengan,
=LOOKUP(9^9,B3:F3,$B$1:$F$1)

apakah menghasilkan hasil yang berbeda dari harapan?
formula tersebut flexible, mau 150 column juga bisa, hanya mengganti range-nya





From: Jimmy Damanik jimmydama...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Tue, January 5, 2010 8:32:22 PM
Subject: Re: [belajar-excel] Check Cell and make result

  
Dear Mbak Siti 


Thanks atas formulanya ... actualnya ada banyak Columns mbak .. ada 15an 
columns yang harus dicheck ... and data pada columns candidate juga gak tahu 
jumlahnya berapa .., apa masih bisa if bertingakt seperti itu ..? 

rencana mau di gabungin ama macro yang lain ..cuma masih newbee buat program 
dengan variable...

thanks mbak  

Best Regard 
Jimmy Damanik

--- On Tue, 1/5/10, siti Vi setiyowati.devi@ gmail.com wrote:


From: siti Vi setiyowati.devi@ gmail.com
Subject: Re: [belajar-excel] Check Cell and make result
To: belajar-excel@ yahoogroups. com
Date: Tuesday, January 5, 2010, 5:35 PM






  

 
  
 


Tanpa makro juga 
bisa;  cukup dengan formula biasa 
IF majemuk / nested IF, 
bertingkat 4  

=IF(LEN(B3)0,IF(LEN(F3)0,$F$1,IF(LEN( E3)0,$E$1,
 IF(LEN(D3)0,$D$1,IF(LEN( C3)0,$C$1,Don' t 
have candidate)) )))

atau

=IF(B3,IF(F3,$F$1,IF(E3,$E$1,IF(D3,$D$1,
  
IF(C3,$C$1,Don' t have candidate)) )))


 


 

- Original Message - 

From: Jimmy Damanik 
To: belajar-excel@ yahoogroups. com 
Sent: Tuesday, 
January 05, 2010 4:34 PM
Subject: [belajar-excel] Check Cell and make 
result

Dear master master Excel
master master excel  minta tolong 
nie  .. 
gimana buat macro yang sederhana 
..untuk case yang seperti ini .
karna banyak berulang dengan sama intruksi .. 
terutama dengan variable 
mungkin lebih simple macronya ... file 
saya attachment kan..

Thanks buat master2 excel 

Best Regard 

Jimmy Damanik 
 

 


  

Re: [belajar-excel] Membuat List Di Execel

2010-01-05 Terurut Topik anton suryadi
Coba gunakan:
Data  Data Validation
Setting
Allow : pilih List
Source: ketik idr,usd,eur


semoga bermanfaat







From: Siregar, Syahrir  syahrir.sire...@citi.com
To: belajar-excel@yahoogroups.com
Sent: Wed, January 6, 2010 9:35:19 AM
Subject: [belajar-excel] Membuat List Di Execel

  
Dear 
all,
 
bagaimana cara membuat list di excell misalnya : idr, usd, eur kita tinggal 
pilih 
 
 
thanks
 
 


  

Re: [belajar-excel] menyembunyikan vertical dan hoisontal bar

2010-01-05 Terurut Topik anton suryadi
Maksudnya Headings? (kolom A,B,C,D dst serta Row 1,2,3,4 dst?)
kalo iya,
excel 2007 bisa, unchecked Headings
gak tau kalo versi sebelumnya
file berikut ini dibuka di excel 2007, hanya sheet1 saja yg tidak punya 
headings, sheet yang lain punya


semoga bermanfaat






From: Darto Chandra d...@gmx.com
To: belajar-excel@yahoogroups.com
Sent: Wed, January 6, 2010 1:10:21 PM
Subject: [belajar-excel] menyembunyikan vertical dan hoisontal bar

  
dear pakar xl
 
bgm cara menyembunyikan vertical dan horisontal bar pada 
satu sheet saja? jika kita menggunakan tool-option dan menghilangkan centang 
hasilnya semua sheet ga punya vertikal dan horisontal bar.
mohon bantuannya
 
dc
 


  

__Headings__.xls
Description: MS-Excel spreadsheet


Re: [belajar-excel] Info Perkembangan jumlah mail di milis kita

2010-01-02 Terurut Topik anton suryadi
nih dia yang bikin grafiknya nglonjak vvvFrom: wahyu abdi wahy...@yahoo.comTo: belajar-excel@yahoogroups.comSent: Sat, January 2, 2010 2:22:38 PMSubject: Re: [belajar-excel] Info Perkembangan jumlah mail di milis kita
Sepertinya udah mulai banyak yg tahu kalau VBA itu enak,, enak dibuat, enak di pakai, enak di lihat dan bisa pinjam vitur excel yg lumayan power full,... yang belum enak speed nya waktu buka tutup file kali ya, yg perlu di cepetin,... ntu juga baru SEPERTINYA lo ya,...masih bisa salah,..namenye juge komennn



From: siti Vi setiyowati.d...@gmail.comTo: belajar-excel@yahoogroups.comSent: Sat, January 2, 2010 11:56:20 AMSubject: [belajar-excel] Info Perkembangan jumlah mail di milis kita


sekedar informasi (di webnya juga ada sih,..) silakan kalau mau dikomentari


jumlah members per 31 des 2009 = 648












milis[b-e]







bulan

mail

bulan

mail

bulan

mail






Jan 2008

79

Jan 2009

64






Feb 2008

145

Feb 2009

78






Mar 2008

49

Mar 2009

107






Apr 2008

82

Apr 2009

77






May 2008

89

May 2009

89






Jun 2008

76

Jun 2009

90


Jul 2007

54

Jul 2008

86

Jul 2009

104


Aug 2007

59

Aug 2008

25

Aug 2009

98


Sep 2007

51

Sep 2008

39

Sep 2009

150


Oct 2007

134

Oct 2008

54

Oct 2009

186


Nov 2007

92

Nov 2008

116

Nov 2009

212


Dec 2007

118

Dec 2008

31

Dec 2009

379

note: walaupun kuantitas belum dapat dijadikan tolok ukur, tapi 
pada3 x triwulanterakhir, perkembangan jumlah posting cukup menyenangkan.
pengurus milis mengucapkan terima kasih kepada seluruh members atas
dukungannya selama ini..

mudah mudahan perkembangan jumlah posting disertai 
perkembangan jumlah anggota /member
perkembangan jumlah member yg mengirimkan posting
dan... kualitas posting..





  



  

Re: [belajar-excel] Fw: Minta bantuan input userform berdasarkan tanggal

2009-12-30 Terurut Topik anton suryadi
Ini mah bukan homework lagi... 

aku sih dah coba n berhasil,.. Yakin? di komputer saya, looping terus tanpa 
henti

di daerah sini nih yang bikin looping sampe kiamat :D
coba ganti,
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = Cells(1, 2)
dengan,
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = Cells(1, 1).Value

sebaiknya kasus disederhanakan, untuk selanjutnya solusi yang diperoleh dari 
milis diterapkan sendiri ke kasus nyata-nya, sehingga lebih mudah dipahami oleh 
para anggota milis yang ingin belajar dari kasusnya mas pahmi,


semoga bermanfaat






From: Fahmi M. Nasir pahmi_2...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Wed, December 30, 2009 3:23:40 PM
Subject: Re: [belajar-excel] Fw: Minta bantuan input userform berdasarkan 
tanggal

  
oh iya nje-nje.. lali aku...
 
se aku save pake xlsm dulu y..
 
dah aku lampirin filenya ..
aku sih dah coba n berhasil,.. tp kayanya macronya kebanyakan y..
tolong dong mas..
makasih y mas anto..

--- On Wed, 12/30/09, anton suryadi summon...@yahoo. com wrote:


From: anton suryadi summon...@yahoo. com
Subject: Re: [belajar-excel] Fw: Minta bantuan input userform berdasarkan 
tanggal
To: belajar-excel@ yahoogroups. com
Date: Wednesday, December 30, 2009, 7:34 AM


  
Dear Mas pahmi,

karena terkait dengan macro,
mohon diulangi lagi, save as nya bukan .xlsx, gunakan ext lain semisal xlsb, 
xlsm, atau xls

Tks






 From: Fahmi M. Nasir pahmi_2...@yahoo. com
To: belajar-excel@ yahoogroups. com
Sent: Wed, December 30, 2009 2:13:36 PM
Subject: Re: [belajar-excel] Fw: Minta bantuan input userform berdasarkan 
tanggal

  
Ttengkyu - tengkyu wat mas goen...,,
trims dah coba kasih jawaban.,,
tp bukan itu yg sy maskud eh maksud..
 
maksud saya,.. saya mau buat database..,
nah database itu di input menggunakan userform yg saya buat sendiri..
nah utk isi userform itu berdasarkan tanggal inputnya..
 
misalkan di tabel database dah kita siapkan komlo eh kolom tanggal,
nah di kolom sebelahnya kolom nilai...
 
nah - lagi? ( nah, nah terus...?)
ingin saya input database tsb berdasarkan tanggal yg kita masukkan,
misal utk tgl 29 desember 2009 nilainya 1
 utk tgl 30 desember 2009 nilainya 2
 
tengkyu2 skali lg wat mas goen...
 
saya lampirkan file yg dah saya buat..


--- On Wed, 12/30/09, Gunawan Wibisono goen_property@ yahoo.com wrote:


From: Gunawan Wibisono goen_property@ yahoo.com
Subject: Re: [belajar-excel] Fw: Minta bantuan input userform berdasarkan 
tanggal
To: belajar-excel@ yahoogroups. com
Date: Wednesday, December 30, 2009, 7:03 AM


  
Mas Pahmi
 
saya mencoba berdasarkan kiriman kiriman sebelumnya, SUMPRODUCT bisa 
mengakomodir case ini
maaf klo yg saya maksud salah, hehe
 
Salam,
goen





 From: Fahmi M. Nasir pahmi_2...@yahoo. com
To: belajar-excel@ yahoogroups. com
Sent: Wed, December 30, 2009 10:56:40 AM
Subject: [belajar-excel] Fw: Minta bantuan input userform berdasarkan tanggal

  


--- On Wed, 12/30/09, Fahmi M. Nasir pahmi_2...@yahoo. com wrote:


From: Fahmi M. Nasir pahmi_2...@yahoo. com
Subject: Fw: Minta bantuan input userform berdasarkan tanggal
To: belajar-excel@ yahoogroups. com
Date: Wednesday, December 30, 2009, 3:52 AM




--- On Wed, 12/30/09, Fahmi M.. Nasir pahmi_2...@yahoo. com wrote:


From: Fahmi M. Nasir pahmi_2...@yahoo. com
Subject: Minta bantuan input userform berdasarkan tanggal
To: belajar-excel@ yahoogroups. com
Date: Wednesday, December 30, 2009, 3:47 AM


dear para pakar excel
 
saya pahmi
saya mohon bantuannya untuk input data menggunakan userform berdasarkan 
tanggal dan waktu. terlampir file yg sudah saya buat tetapi buntu...
 
terima kasih sebelumnya..
n buat mba siti makasih y dah mw bales email saya..
 
pahmi 
 
 

 

 

 


  

Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?

2009-12-23 Terurut Topik anton suryadi

saya coba jawab mas Kid, (semoga juga gak salah maksudnya)
maksudnya seperti inikah,
Misalkan contohnya =SMALL(IF($A$1:$A$50,2,0),1) mau VBA-kan
ada 2 cara di sini, yaitu:
Cara 1
===
Sub abc()
Dim x
x = Sheets(Sheet1).Range(A1:A5).Address
[C1] = Evaluate(SMALL(IF(  x  0  ,2,0),1))
MsgBox SMALL(IF(  x  0  ,2,0),1)
End Sub
===

Cara2 (lebih singkat)
===
Sub def()
[D1].FormulaArray = =SMALL(IF($A$1:$A$50,2,0),1)
End Sub
===


semoga bermanfaat







From: Mr. Kid mr..nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, December 23, 2009 2:48:39 PM
Subject: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?

  
Dear All,

Bagaimanakah cara menggunakan Evaluate() dalam VBA yang bisa hasilnya berupa 
array disimpan dalam variabel array?
Mungkinkah tanpa menggunakan loop?
Contohnya untuk formula kondang Small(IF()) atau yang semacamnya.
Bisakah langsung :
dim vHasil as Variant
vHasil=Evaluate(=small(if(bla- bla-bla), urutan)

Warm Regards.
Kid.

 


  

Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?

2009-12-23 Terurut Topik anton suryadi

Sejauh yang saya tau dalam penggunaan SMALL melalui Evaluate DAN di-Range-kan 
array-nya, hal itu bisa dilakukan dengan Loop (mis: For Next), kecuali hal yg 
lebih simpel seperti IF bisa dilakukan tanpa Loop

apabila menggunakan FormulaArray lebih simpel,
Range(C1:C5).FormulaArray = =SMALL(IF(A1:A50,ROW(1:5),0),ROW(1:5))

harus menggunakan Evaluate?
Sub eVaLup()
[C1:C5] = Evaluate(=IF(A1:A52,ROW(1:5),0))
For i = 1 To 5
Range(D  i) = Evaluate(=SMALL($C$1:$C$5,  i  ))
Next i
End Sub


Small, Evaluate, Array to Range, tanpa Loop?
[C1:C5] = Evaluate(=IF(A1:A52,ROW(1:5),0))  bisa tp gagal bila diterapkan 
pada formula SMALL,
Small dengan Evaluate, array di-range kan, tanpa Loop, ilmu saya belum nyampe :D
Mungkin rekan [b-e] yang yang lain punya pandangan lain


semoga bermanfaat







From: Mr. Kid mr.nm...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wed, December 23, 2009 11:20:32 PM
Subject: Re: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?

  
Terima kasih Pak Anton.

Boleh dong tanya lagi untuk semua juga ya.
Kalau angka 1 dalam SMALL(IF(  x  0  ,2,0),1) akan diganti Row($1:$5)
dan [C1]  diganti dengan vHasil yang ber-type Variant, sebaiknya bagaimana ya?

Karena yang digunakan sekarang (dikonversi ke koding Pak Anton) jadi :
Range(c1:c5)=evaluate(SMALL(IF(  x  0  ,Row($1:$5)),Row($1:$5) )
kok hasilnya sama dengan SMALL(IF(  x  0  ,2,0),1)

Target hasil :
seluruh hasil array formula melalui Evaluate() yang berupa array langsung masuk 
ke variabel vHasil, sehingga vHasil menjadi variant Array juga.

Latar belakang :
Selama ini digunakan loop jika elemen array hasil pemilahan (small if pada 
contoh kan juga formula pemilah data ya) tidak lebih dari 400 elemen. (angka 
400 adalah hasil hitung kancing satu tim... hahahaha... tapi ini beneran..)

Untuk hasil elemen lebih dari itu, digunakan SQL dengan left join-nya (di excel 
biasa disebut lookup).

Masalah :
Diminta dengan metode lain yang bisa langsung men-select seluruh areas, hingga 
bisa ditracking datanya ke datasource (seperti klik kanan show detail pada 
pivot table, tapi dilakukan terhadap tabel agregat).

Ide :
- Jika bisa mendapatkan array melalui sebuah formula pemilah, maka hal itu akan 
membuka jalan untuk proses selanjutnya tanpa membuat sebuah koneksi data lagi. 
Lalu mencoba memanfaatkan evaluate(). Karena memasang formula pada satu kolom 
bantu menguras resources berulang-kali ketika calculation dilakukan ( manual 
dengan Range(helper) .calculate )

Kebingungan :
Bagaimana caranya ya.. mungkin terlalu naif jika pakai Evaluate kali ya.

Versi excel : xl2007

-- suasana akhir tahun bisa diakhiri dengan cerita ruwet --   :(
 
Bantuan ide apa saja sangat berarti.
Kid.



2009/12/23 anton suryadi summon...@yahoo. com
















  


 
  
 

saya coba jawab mas Kid, (semoga juga gak salah maksudnya)
maksudnya seperti inikah,
Misalkan contohnya =SMALL(IF($A$ 1:$A$50,2,0),1) mau VBA-kan

ada 2 cara di sini, yaitu:
Cara 1
===
Sub abc()
Dim x
x = Sheets(Sheet1).Range(A1:A5).Address
[C1] = Evaluate(SMALL(IF(  x  0  ,2,0),1))
MsgBox SMALL(IF(  x  0  ,2,0),1)

End Sub
===

Cara2 (lebih singkat)
===
Sub def()
[D1].FormulaArray = =SMALL(IF($A$ 1:$A$50,2,0),1)
End Sub
===


semoga bermanfaat







From: Mr. Kid
 mr.nm...@gmail. com

To: belajar-excel@ yahoogroups. com
Sent: Wed, December 23, 2009 2:48:39 PM
Subject: [belajar-excel] VBA evaluate untuk hasil dalam variabel array?



  

 
  
 
Dear All,

Bagaimanakah cara menggunakan Evaluate() dalam VBA yang bisa hasilnya berupa 
array disimpan dalam variabel array?
Mungkinkah tanpa menggunakan loop?
Contohnya untuk formula kondang Small(IF()) atau yang semacamnya.



Bisakah langsung :
dim vHasil as Variant
vHasil=Evaluate(=small(if(bla- bla-bla), urutan)

Warm Regards.
Kid.




 

 


  

Re: [belajar-excel] Run ID Password

2009-12-17 Terurut Topik anton suryadi
Saya coba woksit nya di hide, gak nge-save yach !!!

Ups,, maaf ada yang kelewat
coba,
===
Sub workbook_open()
Sheets(LogSheet).Visible = True
LR = Range(A65536).End(xlUp).Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   Now()
Sheets(LogSheet).Visible = xlVeryHidden
End Sub
===


semoga bermanfaat







From: Khozhot khozhot2...@telkom.net
To: belajar-excel@yahoogroups.com
Sent: Thu, December 17, 2009 11:47:47 AM
Subject: Re: [belajar-excel] Run ID  Password

Pak Anton,

Seperti ini yang saya mau, tapi.
Saya coba woksit nya di hide, gak nge-save yach !!!
Kalo harus selalu tampil khan usernya nanti bisa hapus recordnya.
Bisa gak kalo save ke file lain? misal Log.txt dsb.

Makaseh,
...zhot

On Wed, 16 Dec 2009 12:11:16 +0700, anton suryadi summon...@yahoo.com  
wrote:

 ===
 Sub workbook_open()
 LR = Range(A65536).End(xlUp).Row
 'pastikan sheet bernama LogSheet sudah dibuat
 Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   
  Now()
 End Sub
 ===



 semoga bermanfaat





 
 From: Khozhot khozhot2...@telkom.net
 To: belajar-excel@yahoogroups.com
 Sent: Wed, December 16, 2009 10:41:06 AM
 Subject: [belajar-excel] Run ID  Password

 Bu Ctv,

 Thanks atas penjelasannya.
 Seperti yang saya katakan sebelumnya bahwa file yang q buat dipakai oleh
 members lain yang diijinkan, namun ketika file tersebut ada masalah
 sehingga rumus menjadi acak2an, jadi gak tahu siapa yang telah berbuat.
 Jadi rencananya q kan buat lembar ID  password ketika file tersebut  
 opens
 dan pengen agar ID pemakai tersebut bisa ter-record di suatu woksit atau
 file lain tanggal dan jamnya.
 Gimana yach codingannya?
 Dan satu lagi q ingin menampilkan menu bantu pemakaian file tersebut di
 toolbar menu. Gimana caranya?

 Dah-dahan para suhu bisa membantu saya'


-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/




/---\
| bergabung ke milis (subscribe)|
| kirim mail kosong ke: belajar-excel-subscr...@yahoogroups.com |
|   |
| posting ke milis  |
| kirim kan ke: belajar-excel@yahoogroups.com   |
|   |
| melihat file archive / mendownload lampiran   |
| http://www.mail-archive.com/belajar-excel@yahoogroups.com/|
|   |
| menhubungi moderators  owners:   |
| belajar-excel-ow...@yahoogroups.com   |
|   |
| ExcelWeb http://opi.110mb.com/  |
\---/Yahoo! Groups 
Links




  

Re: [belajar-excel] Run ID Password

2009-12-17 Terurut Topik anton suryadi
Agar gak keliatan ada yang berseliweran

===
Sub workbook_open()
Application.ScreenUpdating = False
Sheets(LogSheet).Visible = True
LR = Range(A65536).End(xlUp).Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   Now()
Sheets(LogSheet).Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
===


semoga bermanfaat







From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thu, December 17, 2009 4:22:48 PM
Subject: Re: [belajar-excel] Run ID  Password


Saya coba woksit nya di hide, gak nge-save yach !!!

Ups,, maaf ada yang kelewat
coba,
===
Sub workbook_open()
Sheets(LogSheet).Visible = True
LR = Range(A65536).End(xlUp).Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   Now()
Sheets(LogSheet).Visible = xlVeryHidden
End Sub
===


semoga bermanfaat







From: Khozhot khozhot2...@telkom.net
To: belajar-excel@yahoogroups.com
Sent: Thu, December 17, 2009 11:47:47 AM
Subject: Re: [belajar-excel] Run ID  Password

Pak Anton,

Seperti ini yang saya mau, tapi.
Saya coba woksit nya di hide, gak nge-save yach !!!
Kalo harus selalu tampil khan usernya nanti bisa hapus recordnya.
Bisa gak kalo save ke file lain? misal Log.txt dsb.

Makaseh,
...zhot

On Wed, 16 Dec 2009 12:11:16 +0700, anton suryadi summon...@yahoo.com  
wrote:

 ===
 Sub workbook_open()
 LR = Range(A65536).End(xlUp).Row
 'pastikan sheet bernama LogSheet sudah dibuat
 Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   
  Now()
 End Sub
 ===



 semoga bermanfaat





 
 From: Khozhot khozhot2...@telkom.net
 To: belajar-excel@yahoogroups.com
 Sent: Wed, December 16, 2009 10:41:06 AM
 Subject: [belajar-excel] Run ID  Password

 Bu Ctv,

 Thanks atas penjelasannya.
 Seperti yang saya katakan sebelumnya bahwa file yang q buat dipakai oleh
 members lain yang diijinkan, namun ketika file tersebut ada masalah
 sehingga rumus menjadi acak2an, jadi gak tahu siapa yang telah berbuat.
 Jadi rencananya q kan buat lembar ID  password ketika file tersebut  
 opens
 dan pengen agar ID pemakai tersebut bisa ter-record di suatu woksit atau
 file lain tanggal dan jamnya.
 Gimana yach codingannya?
 Dan satu lagi q ingin menampilkan menu bantu pemakaian file tersebut di
 toolbar menu. Gimana caranya?

 Dah-dahan para suhu bisa membantu saya'


-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/




/---\
| bergabung ke milis (subscribe)|
| kirim mail kosong ke: belajar-excel-subscr...@yahoogroups.com |
|   |
| posting ke milis  |
| kirim kan ke: belajar-excel@yahoogroups.com   |
|   |
| melihat file archive / mendownload lampiran   |
| http://www.mail-archive.com/belajar-excel@yahoogroups.com/|
|   |
| menhubungi moderators  owners:   |
| belajar-excel-ow...@yahoogroups.com   |
|   |
| ExcelWeb http://opi.110mb.com/  |
\---/Yahoo! Groups 
Links




  

Re: [belajar-excel] Run ID Password

2009-12-17 Terurut Topik anton suryadi
Wah, di tes lagi ternyata belum nge-save juga,,, 

ada yang kurang, tambahkan:
Sheets(LogSheet).Select


===
Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets(LogSheet).Visible = True
Sheets(LogSheet).Select
LR = Range(A65536).End(xlUp).Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet).Cells(1 + LR, 1).Value = Application.UserName   :   Now()
Sheets(LogSheet).Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
===


semoga bermanfaat







From: anton suryadi summon...@yahoo.com
To: belajar-excel@yahoogroups.com
Sent: Thu, December 17, 2009 4:29:53 PM
Subject: Re: [belajar-excel] Run ID  Password

  
Agar gak keliatan ada yang berseliweran. ...

===
Sub workbook_open( )
Application. ScreenUpdating = False
Sheets(LogSheet ).Visible = True
LR = Range(A65536 ).End(xlUp) .Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet ).Cells(1 + LR, 1).Value = Application. UserName   :   
Now()
Sheets(LogSheet ).Visible = xlVeryHidden
Application. ScreenUpdating = True
End Sub
===


semoga bermanfaat







From: anton suryadi summon...@yahoo. com
To: belajar-excel@ yahoogroups. com
Sent: Thu, December 17, 2009 4:22:48 PM
Subject: Re: [belajar-excel] Run ID  Password


Saya coba woksit nya di hide, gak nge-save yach !!!

Ups,, maaf ada yang kelewat
coba,
===
Sub workbook_open( )
Sheets(LogSheet ).Visible = True
LR = Range(A65536 ).End(xlUp) .Row
'pastikan sheet bernama LogSheet sudah dibuat
Sheets(LogSheet ).Cells(1 + LR, 1).Value = Application. UserName   :   
Now()
Sheets(LogSheet ).Visible = xlVeryHidden
End Sub
===


semoga bermanfaat







From: Khozhot Khozhot2009@ telkom.net
To: belajar-excel@ yahoogroups. com
Sent: Thu, December 17, 2009 11:47:47 AM
Subject: Re: [belajar-excel] Run ID  Password

Pak Anton,

Seperti ini yang saya mau, tapi.
Saya coba woksit nya di hide, gak nge-save yach !!!
Kalo harus selalu tampil khan usernya nanti bisa hapus recordnya.
Bisa gak kalo save ke file lain? misal Log.txt dsb.

Makaseh,
..zhot

On Wed, 16 Dec 2009 12:11:16 +0700, anton suryadi summon...@yahoo. com  
wrote:

 ===
 Sub workbook_open( )
 LR = Range(A65536 ).End(xlUp) .Row
 'pastikan sheet bernama LogSheet sudah dibuat
 Sheets(LogSheet ).Cells(1 + LR, 1).Value = Application. UserName   :   
  Now()
 End Sub
 ===



 semoga bermanfaat





  _ _ __
 From: Khozhot Khozhot2009@ telkom.net
 To: belajar-excel@ yahoogroups. com
 Sent: Wed, December 16, 2009 10:41:06 AM
 Subject: [belajar-excel] Run ID  Password

 Bu Ctv,

 Thanks atas penjelasannya.
 Seperti yang saya katakan sebelumnya bahwa file yang q buat dipakai oleh
 members lain yang diijinkan, namun ketika file tersebut ada masalah
 sehingga rumus menjadi acak2an, jadi gak tahu siapa yang telah berbuat.
 Jadi rencananya q kan buat lembar ID  password ketika file tersebut  
 opens
 dan pengen agar ID pemakai tersebut bisa ter-record di suatu woksit atau
 file lain tanggal dan jamnya.
 Gimana yach codingannya?
 Dan satu lagi q ingin menampilkan menu bantu pemakaian file tersebut di
 toolbar menu. Gimana caranya?

 Dah-dahan para suhu bisa membantu saya'


-- 
Using Opera's revolutionary e-mail client: http://www.opera. com/mail/


 - - --

/--- - - - - - ---\
| bergabung ke milis (subscribe)|
| kirim mail kosong ke: belajar-excel- subscribe@ yahoogroups. com |
|   |
| posting ke milis  |
| kirim kan ke: belajar-excel@ yahoogroups. com   |
|   |
| melihat file archive / mendownload lampiran   |
| http://www.mail- archive.com/ belajar-excel@ yahoogroups. com/|
|   |
| menhubungi moderators  owners:   |
| belajar-excel- ow...@yahoogroup s.com   |
|   |
| ExcelWeb http://opi.110mb. com/  |
\--- - - - - - ---/Yahoo! 
Groups Links






 


  

  1   2   >