terima kasih atas listing nya,
luar biasa listing berjalan sesuai dengan yang diharapkan.
Salam: |Rasyid|
From: belajar-excel@yahoogroups.com
On Behalf Of jkssxls Sudarsono
Sent: Tuesday, January 31, 2012 10:43 AM
Sub cui()
Dim daerah As Range
Set daer
Oke, terima kasih atas pencerahan dari para master.
para murid mesti banyak belajar.
... pengen pinter ??? Makanya belajar ... :)
- prodev simple -
Dari: Mulki
Dikirim: Selasa, 31 Januari 2012 11:36
Pak hendrik, saya menggunakan excel 2007 dan posisi
"Show a
di komputer lain dengan setting spt itu (show ... = enabled)
maka 0 tampak utuh sebagai 0
kalau di komputer nak Mulki malah tidak tampak, tentunya nak mulki
sudah memberlakukan fitur lain terhadap cells / range itu, misal dengan
diberi custom number formatting *0;-0;;@*
atau mungkin condition
Pak hendrik, saya menggunakan excel 2007 dan posisi "Show a Zero in Cells that
have zero value" adalah tercentang tp nilai 0-nya tidak muncul di cell tersbt.
saya cuma menggunakan cara dari mr. kid dg mengatur format number custom
menjadi :
[blue]General;;
ini mungkin yg dsebut banyak jalan me
Jika ingin berkreasi lebih banyak dengan format cell number, coba
jalan-jalan ke :
http://www.ozgrid.com/Excel/CustomFormats.htm
Selamat mencoba.
Wassalamualaikum Wr. Wb.
Kid.
2012/1/31 Mulki
> **
>
>
> **
> wa'alaikumsalam wr. wb.
>
> jawaban mr. kid dibawah ini sudah cukup mewakili.
> barus
wa'alaikumsalam wr. wb.
jawaban mr. kid dibawah ini sudah cukup mewakili.
barusan saya coba dg format custom >> [blue]General;;
dan hasilnya semua yg nilainya 0 tidak muncul.
+++
solusi mr. kid :
Umumnya menggunakan fitur Conditional Formatting.
Pada Excel 2007 ke atas : menu Ho
Jika anda pakai Excel 2007 maka langkah2nya adalah sbb:
- Klik simbol Windows pada pojok kiri atas
- Klik Excel Options
- Klik Advance
- Klik Display Options for this Worksheet
- Batalkan (cabut) centang "Show a Zero in Cells that have zero value"
Salam,
Hendrik Karnadi
_
Terima kasih Mr. Kid, problem solved :D
Dari: Kid Mr.
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 31 Januari 2012 11:03
Judul: Re: [belajar-excel] REKAP TANGGAL
Dear Ahmad,
Coba formula : D3
=SUMPRODUCT( ( DAY( $A$1:$A$14 ) = D$2 ) * ( MO
Waalaikumussalam Wr. Wb.
Salah satu caranya sudah diungkapkan tadi, yaitu :
*>> Kemudian, format number custom General;;*
Jadi, blok rangenya, klik kanan pilih Format Cells -> pilih tab Number ->
pilih Custom -> ketik di text box yang ada tulisan berikut :
General;;
Jika ingin diberi warna biru s
Assalamu'alaikum Wr. Wb.
ikut nimbrung juga untuk soal yang sama :)
bagaimana cara jika cell yang bernilai 0 tidak perlu ditampilkan angka 0, cukup
dg cell kosong saja? atau garis spasi ( - )
Thanks b4 :)
Wassalam
- prodev simple -
Dari: Mulki
Kepada: bel
Umumnya menggunakan fitur Conditional Formatting.
Pada Excel 2007 ke atas : menu Home -> grup Styles -> Conditional
Formatting -> Highlight Cells Rules -> pilih kriterianya -> isi nilai-nilai
batasnya -> atur formatnya
Jika yang akan diberi warna adalah nilainya (bukan fill cell nya), bisa
juga de
mr. kid, numpang thread yg sama.
saya mau numpang pertanyaan jg dg contoh soal yg sama, bagaimana jika saat cell
tersbt ada nilainya (lebih dari 0)maka cell tersbt dibuat berwarna.
mohon pencerahannya mr. kid.
thx & wassalam,
mulki
- Original Message -
From: Kid Mr.
To: belaja
Dear Ahmad,
Coba formula : D3
=SUMPRODUCT( *( DAY( $A$1:$A$14 ) = D$2 )* * *( MONTH( $A$1:$A$14 ) = ROW(
$C1 ) )* )
Kemudian, format number custom General;;
Copy ke cell lain di kanan dan bawahnya.
Warna biru adalah kriteria berdasar tanggal
Warna hijau adalah kriteria berdasar bulan
Regards,
Ki
Sub cui()
Dim daerah As Range
Set daerah = ThisWorkbook.ActiveSheet.Range("A1:L100")
daerah.CopyWorkbooks.Add
Dim tujuan As Range
Set tujuan = ActiveWorkbook.Sheets(1).Cells(1)
tujuan.Activate
ActiveSheet.Paste
End Sub
To: belajar-excel@yahoogroups.com
CC: apassi
Dear Para Master Excel
Mungkin ini masalah sepele buat para Master Excel, tp saya kebingungan
Mohon bantuannya, bagaimana cara mengisi tabel dari data di kolom A sehingga
menghasilkan output seperti pada file terlampir...
Terima kasih atas bantuannya
Rekap Tanggal.xls
Description: MS-E
2012/1/30 Mansor
> Terima Pak Ki Semprul atas response anda yang sangat bagus.
>
> Saya ingin memahami lebih detail tentang format number.
> 1) Apa yang dimaksudkan dgn kode ini?
> Adakah "#,##0.00" = 1,000.00?
> Trus , ",", "|")) apa artinya?
>
> Bagaimana pula dgn Replace(Replace(TxtNum, ".",
Saya bukan guru BeExcel, hanya member biasa seperti anda
Sangat disayangkan bahwai pak mansor desi permatasari tidak
menginformasikan
SETTING PADA "REGIONAL & LANGUAGE OPTIONS" DI PC NYA
Dlm mengoprex data date dan format bilangan informasi ini sangat berguna
Makro ini sudah dicoba di Regional
Coba juga yang berbeda berikut ini,
Sub CopySpecial()'anton suryadi, 30/Jan/2012Dim Z As String, nh
As Long, nd As Long, x As Range, Knh = Sheet2.Cells(Rows.Count,
1).End(3).Rownd = Sheet1.Cells(Rows.Count, 1).End(3).RowFor Each
x In Sheet2.Range("A1:A" & nh)If x.Value <
Terima kasih untuk semua yg telah memberikan bantuan.
Reparasi code dari Pak Sudarsono sangat bermanfaat bagi saya.
Kasus ditutup
Terima kasih
Mantap juga nih rumus dari Pak Seno...nambah ilmu maning asyik. Lanjutkan
pak jika ada cara lainnya yang lebih simple atau bisa untuk data yang lebih
kompleks.
2012/1/30 o' Seno
> **
>
>
> cara sedikit lain: mencari AngkaPOSISI (index) Label Baris
>
> Jika pak sudarsono sudah mencontohkan mengg
Dear rekan rekan Pecinta Excel,
Listing dibawah hanya mempaste berdasarkan value, format dan lebar
colom,
tetapi objek seperti gambar, wordArt maupun grafik tidak ikut terkopi.
Asumsi gambar, wordArt dan Grafik berada di sekitar area Range yang di
Copy ("A1:L100")
Bagaimana agar objek tersebu
Para guru BeExcel,
saya mau belajar gimana makronya supaya data dalam table asli difilter
seperti advance filter, dengan memilih bulan dan nama perusahaan langsung
terfilter dan dipindahkan ke table hasil di sheet filter.
Kalau dengan pivot, fungsi nya sangat terbatas.
Tujuan table ini iala
Mantap pak rumusnya, berhasil...berhasil. Terima kasih banyak atas
bantuannya pak Sudarsono.
TOP banget
regards,
Isti
On Mon, Jan 30, 2012 at 3:56 PM, jkssxls Sudarsono wrote:
> **
>
>
> coba :
>
>
> Sub CopyPaste()
> Dim dataTbl As Range, dataRekap As Range, Rng As Range
> Dim Row As
coba : Sub CopyPaste()
Dim dataTbl As Range, dataRekap As Range, Rng As Range
Dim Row As Integer, Col As Integer
Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet
berubah sesuai dengan data tabel sumber
Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1,
adapun kode dari Subrutinnya : ' karena diluar Sub ... End maka timbul error
`Invalid Outside Procedure`
'Worksheets("Sheet1").Columns("A").Copy Worksheets("Sheet2").Columns("B")
Sub kopisheet()
Worksheets("Data").Columns("A:E").Copy Worksheets("Hasil").Columns("A")
End Sub
daripada mengetik
25 matches
Mail list logo
