Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
Dim SelAkhir As Range
Dim SumKuning, SumBiru, SumHijau As Double
For Each Selrow In daerah.Rows
SumKuning = 0
SumBiru = 0
SumHijau = 0
For Each sel In Selrow.Cells
Kalau link "bukabuku" nya ga bisa dibuka, bisa langsung buka bukunya di TB
Gramedia.
Salam,
Hendrik Karnadi
- Forwarded Message -
From: Ki Semprul
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 7 March 2012, 11:09
Subject: Re: [belajar-excel] Belajar Pencarian
1:
Beli bukunya
Yang ini main Variable, lebih fleksible kaya burble walupun ga terlalu
simple.
Salam,
Hendrik Karnadi
From: Jokoplo
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 7 March 2012, 12:44
Subject: [belajar-excel] Re: Belajar Pencarian
ternyata banyak
ternyata banyak cara ya..ini satu lagi, gaya jurus wudang perguruan
BaruKlinting... (="kebanyakan" menyiapkan variables)
Private Sub CommandButton1_Click() 'Untuk Mengisi Sheet1 Kolom 2 Dim
i As Integer, LookupVal As Variant Dim dTulis As Range, dTabel As
Range, fun As Object Set dTab
Coba ganti Codenya seperti ini:
Private Sub CommandButton1_Click()
'Untuk Mengisi Sheet1 Kolom 2, 3 dan 4
Range("B3") = "=VLookup(A3, Data!A2:D9, 2, False)"
Range("C3") = "=VLookup(A3, Data!A2:D9, 3, False)"
Range("D3") = "=VLookup(A3, Data!A2:D9, 4, False)"
'langsung divalue
Range
1:
Beli bukunya saja, tulisan teman sendiri di milis ini ... gak ada ruginya..
Lagi pula bukunya juga oke, buat pemula maupun menengah..
http://www.bukabuku.com/browse/bookdetail/102444/tingkatkan-kinerja-excel-2007-2010-anda-dengan-vba-excel-cd.html
2:
di badan email anda belum terlihat apa keper
Private Sub CommandButton1_Click()
Dim vArg1 As Variant
Dim rArg2 As Range
Dim nArg3 As Long
Dim bArg4 As Boolean
vArg1 = Sheets("Pencarian").Range("A3").Value
Set rArg2 = Sheets("Data").Range("A$1:D$9")
nArg3 = 2
bArg4 = False
Sheets("Pencarian").Rang
*1 :*
Sesuai "wisik" (bisikan ghoib) dari si empunya project (ctv, yg sedang
mengasingkan diri (semoga lekas sehat kembali ya mbak...)
katanya begini:
Prosedur ini ( ada di dalam module Frm_NewUser)
Sub SaveIt(sUser As String, sPass As String, sSheet As String)
With Sheets("User")
iRow =
B-excel,
Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari
salah satu web lain, kasih pencerahannya dong untuk aplikasinya
Maaf, banyak bertanya-tanya...
Best Regards,
Mr Pecut
Belajar Vlookup Dengan Macro.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.
Wah bener juga tuh Mr Hendrik, kayaknya mungkin harus laptopnya yang dipecut,
saya fikir dengan laptop yang masih sekelas core 2 duo masih bisa di
pecut-pecut lagi untuk larinya
Tks...tks...
--- Pada Rab, 7/3/12, hendrik karnadi menulis:
Dari: hendrik karnadi
Judul: Re: [belajar-excel] K
Dear Mr Pecut,
Kalau komputer anda sudah "dipecut" sampai type i7 ddr3 dan masih lemot, tidak
ada cara lain selain memperbaiki Sheet2nya (hapus kolom dan baris kosong pada
bagian kanan dan bawah data serta kurangi link formulanya) atau menutup file2
lain pada saat anda menggunakan file yang lem
Dear All,
Mohon pencerahannya , saya sedang membuat rumus untuk menggeser sederetan nilai
sbb:
Range nilai berderet dari K, K+, C, C+, B, B+, A, A+
Jika Index nilai diantara C dan C+, maka nilai individu yg tadinya D, nilai
akhirnya menjadi K+, nilai C menjadi C, nilai B menjadi C+ , nila
Jadi, kalau sekaliber saya kemampuan excelnya, awam vba, solusinya harus gimana
ya Mr. Kid untuk tetap bisa memakai formula tapi excelnya ga lemot gitu...?
Oh iya, saya buka link dari Mr. Kid kok ga bisa dibuka yah...?
--- Pada Rab, 7/3/12, Kid Mr. menulis:
Dari: Kid Mr.
Judul: Re: [belajar-e
terima kasih untuk mr. kid atas solusinya.. solusinya sangat membantu
sekali..
case closed
wassalam,
-dwint-
Pada 6 Maret 2012 16:54, Kid Mr. menulis:
> Pak Dwint,
>
> Kasus ini adalah kasus filtering yang sudah bertebaran di milis.
> Salah satu solusi adalah dengan array formula Filtering
>
Hello Mr Pecut,
Ketika membicarakan tentang data, kadangkala agak lupa bahwa data itu
bermacam-macam. Ada yang berupa values, formula, gambar, links dsb.
Struktur penataannya pun berbeda-beda sesuai kebutuhan, seperti
berorientasi horisontal, vertikal atau horisontal dan vertikal seperti
pivot tab
Hai Para B-exel,
Perkenankan aku bertanya & mudah-mudahan ada yang bisa menjawab yang bisa
memuaskan semua, terutama aku...
Excel kan dibuat dengan jumlah kolom & baris yang banyak pada tiap sheetnya.
Artinya bisa diartika bahwa kita di persilahkan untuk mengisi data2, walau
denan jumlah yang b
Kasus ini sudah beberapa kali dijelaskan di milis
yang terakhir masih dapat anda lihat di msg list tgl 1 Feb 2012
http://tech.groups.yahoo.com/group/belajar-excel/message/15549
Atau kalau Jarum Black ingin mendapatkan file lemper-nya, sebaiknya ke sini
http://milis-belajar-excel.1048464.n5.nabble.
Pak Dwint,
Kasus ini adalah kasus filtering yang sudah bertebaran di milis.
Salah satu solusi adalah dengan array formula Filtering
1. Untuk urut berdasar data yang bertipe numerik
=IFERROR(SMALL(IF($C$3:$C$12=$F$2,$B$3:$B$12),ROW(1:1)),"")
2. Untuk urut berdasar urutan di tabel data :
=IFERROR(*
Coba sertakan kriteria yang menyebabkan sebuah cell (atau bahkan kolom)
diberi warna kuning, biru, hijau
Kid.
On Tue, Mar 6, 2012 at 12:09, KSM Absolute - Udin wrote:
> **
>
>
> saya ingin menjumlah nilai cell yang berwarna kuning, biru, hijau.
> 1. Jumlah nilai sel kuning = (nilai cell yang ber
Coba sertakan juga harusnya jadi tanggal berapa kalau dikerjakan manual.
Kid.
On Tue, Mar 6, 2012 at 15:36, Mansor wrote:
> **
>
>
> Mr Kid,
> Terima kasih rumus yang bapak ajarkan.
> Tetapi setelah dicoba beberapa kali, ternyata masih terdapat error.
> File nya dilampirkan
>
> terima kasih.
>
Kalau menggunakan macro khan mudah , tapi membuat koding macro dengan VBA ,
perlu usaha yang cukup. Cobalah belajar menjalankan macro. mungkin Ebook dari
ibu Hapsari bisa di pinta secara pribadi. Catatan : untuk Ibu Hapsari,
jika diperkenankan saya dikirimi juga ebooknya .Trim's
To: belaj
Terimakasih bapak sudarsono,
Saya masih newbie dalam excel, dan belum bisa menggunakan macro, kirakira
untuk formula tanpa macro bisa nggak ya ?
Terimakasih
Afdhol
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of jkssxls Sudarsono
Sent: 0
Maaf, emailnya terkirim tanpa subjek..
berikut saya kirim ulang
wassalam
-dwint-
-- Pesan terusan --
Dari: dwint ruswanto
Tanggal: 6 Maret 2012 09:46
Perihal:
Ke: belajar-excel@yahoogroups.com
Assalamu'alaikum
Teman-teman BeExcel,
Bagaimana cara memunculkan seluruh hasil ber
saya ingin menjumlah nilai cell yang berwarna kuning, biru, hijau.
1. Jumlah nilai sel kuning = (nilai cell yang berwarna kuning) + ((nilai cell
biru > 8)-(8))
2. Jumlaj nilai sel biru = total nilai cell biru, jika ada cell biru yang
nilainya > 8 maka nilainya dianggap 8
3. Jumlah nilai sel h
Mr Kid,
Terima kasih rumus yang bapak ajarkan.
Tetapi setelah dicoba beberapa kali, ternyata masih terdapat error.
File nya dilampirkan
terima kasih.
Mansor
Text Error Value 01/05/2011 1-May-11 01/12/2011 1-Dec-11 01/12/2011
1-Dec-11 01/12/2011 1-Dec-11 01/13/2011 #VALUE! 01/13/2011 #VALUE!
0
25 matches
Mail list logo