Kamis, 01 Maret 2012

[belajar-excel] Digest Number 1532

Messages In This Digest (23 Messages)

Messages

1a.

menghitung Bulan Angsuran Hutang

Posted by: "agus setiawan" agusmadania1@yahoo.co.id   agusmadania1

Wed Feb 29, 2012 1:38 am (PST)



Siang Semua Maaf
Saya udah otak atik masih belum dapet ide tentang menghitung jumlah bulan yang telah dibayarkan.

Makasih minta tolong dibantu ya
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
1b.

Re: menghitung Bulan Angsuran Hutang

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Feb 29, 2012 7:29 am (PST)



Malam Pak Agus,

Mungkin yang menghambat Pak Agus adalah circular reference akibat formula
yang merujuk ke dirinya sendiri.
Coba ubah formula [Q4] menjadi :
=*(TEXT(Q$3,"yyyymm")>=TEXT($J4,"yyyymm"))**($N4/$L4)*(SUM($O4:P4)<$N4)**
(COUNTIF($P4:P4,">0")<$M4)*
dan copy ke cell lainnya.

*Biru *: kriteria berdasar bulan. Sebaiknya membandingkan tidak hanya nomor
bulannya saja, tetapi disertai tahunnya.
Contoh :
Januari 2013 memiliki nomor bulan yang lebih rendah dari Juni 2012. Ketika
disertai tahunnya dalam susunan YYYYMM, maka
201301 > 201206

*Merah *: kriteria berdasar jumlah angsuran.

Wassalam.
Kid.

On Wed, Feb 29, 2012 at 15:08, agus setiawan <agusmadania1@yahoo.co.id>wrote:

> **
>
>
> Siang Semua Maaf
> Saya udah otak atik masih belum dapet ide tentang menghitung jumlah bulan
> yang telah dibayarkan.
>
> Makasih minta tolong dibantu ya
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
2a.

Re: Mencocokkan Control Pada Form dengan yang ada di sheet

Posted by: "PT. ADHI KARYA (PERSERO) Tbk" adhi_tax_dk3@yahoo.com   adhi_tax_dk3

Wed Feb 29, 2012 1:39 am (PST)



Terima kasih banyak atas pencerahannya, Ki Semprul.....Terima kasih juga atas sarannyauntuk memeke DTPicker...
Best Regards,

--- Pada Rab, 29/2/12, Ki Semprul <semprul.ki@gmail.com> menulis:

Dari: Ki Semprul <semprul.ki@gmail.com>
Judul: Re: [belajar-excel] Mencocokkan Control Pada Form dengan yang ada di sheet
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 29 Februari, 2012, 6:47 AM

 

== Userform Module ==
Dim YYMMbox As String, YYMMcel As String, InDate As Date

Private Sub UserForm_Initialize()   YYMMcel = Format(DateValue(Cells(5, 8)), "yyyyMM")

End Sub
Private Sub CommandButton1_Click()

   'Ki Semprul - 29 feb 2012   Dim R As Long

   If YYMMcel = YYMMbox Then      R = Cells(Rows.Count, 1).End(xlUp).Row

      If Not IsEmpty(Cells(R, 1)) Then R = R + 1      Range("A" & R).Value = DateValue(txt_Tgl.Value)

      txt_Tgl = ""      txt_Tgl.SetFocus   Else

      MsgBox "Anda Tak Diizinkan Untuk Memasukan Bulan & Tahun Tersebut", 48   End If

End Sub
Private Sub txt_Tgl_AfterUpdate()

   'Ki Semprul - 29 feb 2012   On Error Resume Next

   InDate = DateValue(txt_Tgl)   If InDate > 0 Then      txt_Tgl = Format(InDate, "dd MMMM yyyy")

      YYMMbox = Format(InDate, "yyyyMM")   Else

      MsgBox "Input di TextBox tidak valid sbg data Tanggal!", 48   End If

End Sub
Note: agar memasukkan data DATE selalu akurat, textbox di userform bisa dibantu 

oleh Userform berisi Calendar control;  atau Textbox diganti dgn DTPicker control.
Semprul..Ki!

2012/2/29 PT. ADHI KARYA (PERSERO) Tbk <adhi_tax_dk3@yahoo.com>
>
> Be Excel,
> Aku coba utak-atik membuat suatu form inputan tanggal & bulan yang dilengkapi dengan control pengawas. Sebetulnya keinginan saya begini :

>
> jika yang tertulis pada sheet 1 range H5 tertulis Bulan Februari 2011, maka yang diizinkan untuk diinput pada form hanya bulan Februari 2011 saja, artinya jika selain Bulan Februari 2011, maka keluar suatu peringatan untuk menolak exekusi....

>
> Tapi , sudah aku putar2 otak ne, ga bisa juga. Jadi jika para pakar XL berkenan, bantulah saya untuk mencerahkan ilmuku yang lagi mampet ini yah...
>
> Aku juga lampirkan contoh filenya...
>

> Best Regard

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3a.

Row ke Column

Posted by: "Indra Psr" indra.psr@gmail.com   indra_psr

Wed Feb 29, 2012 6:41 am (PST)



Bagaimana caranya memindahkan banyak nama dan banyak data ke dalam 1 kolom?
Apakah ada rumusnya atau harus menggunakan VBA? Mohon bantuannya.
(Contoh kasus data dan hasil yang diiginkan terlampir)
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3b.

Re: Row ke Column

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Feb 29, 2012 7:06 am (PST)



Pak Indra,

Bagaimana jika menggunakan Pivot Table saja ?

Wassalam.
Kid.

On Wed, Feb 29, 2012 at 21:41, Indra Psr <indra.psr@gmail.com> wrote:

> **
>
>
> Bagaimana caranya memindahkan banyak nama dan banyak data ke dalam 1 kolom?
> Apakah ada rumusnya atau harus menggunakan VBA? Mohon bantuannya.
> (Contoh kasus data dan hasil yang diiginkan terlampir)
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3c.

Re: Row ke Column

Posted by: "o' Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Wed Feb 29, 2012 7:08 am (PST)



biasanya, orang-orang mengerjakan dengan:
*=SUMPRODUCT( ($C$4:$C$18=H$14)*($B$4:$B$18=$G15) * $D$4:$D$18 )*

lihat lampiran heading-kolom dan lebel-baris dibuat manual

jika dengan makro semua dapat diotomatiskan
(termasuk heading kolom [HIJAU] dan label-baris [BIRU])

[image: Inline image 1]

*o'Seno*

*
2012/2/29 Indra Psr <indra.psr@gmail.com>
>
> Bagaimana caranya memindahkan banyak nama dan banyak data ke dalam 1
kolom?
> Apakah ada rumusnya atau harus menggunakan VBA? Mohon bantuannya.
> (Contoh kasus data dan hasil yang diiginkan terlampir)*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4a.

Re: Memisahkan 2 data yang sama dan Sort data per kecamatan

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Feb 29, 2012 9:07 am (PST)



Dear Ketut Budiasa,

Terus terang saya gak mudeng kenapa kok harus dipisahkan antara yang
duplicate dengan yang gak duplicate. Padahal sheet awal 1 adalah data
inputan baru yang unique.

Salah satu solusi untuk memenuhi pemisahan duplicate dan tidak duplicate
adalah seperti file terlampir dengan sheet berwarna hijau.

Untuk masalah kecamatan, sebaiknya hal tersebut telah di-input secara
lengkap mulai dari sheet awal 1.
Jika tidak, maka sediakan daftar seluruh nopol dilengkapi dengan nama
kecamatan dalam 2 kolom, sebagai referensi untuk Excel dalam mencari nama
kecamatan.
Hal ini disebabkan karena Excel gak kenal daerah sampeyan. Untuk di-parse
juga banyak ketidak teraturan dalam inputan.

Andai saja.... cuma andai loh ya... (syarat dan ketentuan berlaku)
Data kecamatan sudah ada dalam 1 kolom terpisah sejak data inputan.
Kemudian dilengkapi dengan tanggal meng-inputnya di sheet inputan.

Maka, bisa disusun sebuah historical data tentang nopol seperti sheet
berwarna kuning.
Masalah output yang pengennya harus menampilkan data yang bersifat unique,
termasuk di-sort berdasar kecamatan, bisa dilakukan dengan memanfaatkan
fitur Pivot Table.

Jika ada manfaatnya (jika ada manfaatnya loh ya), bisa ditampilkan juga :
1. tanggal mulai terdaftarnya si nopol
2. tanggal terakhir si nopol beraktifitas dan tercatat
3. frekuensi si nopol beraktifitas

ealah... moga-moga gak jauh banget dari harapan sampeyan...

biasanya mbak semprul punya ide lainnya. kayanya belon nongol wangsitnya.

Regards.
Kid.

On Mon, Feb 27, 2012 at 18:05, ketut budiasa <yudix_ketut@yahoo.com> wrote:

> **
>
>
> Dear All excel master,
>
>
> Minta bantuannya untuk menyelesaikan/ memudahkan dalam penyusunan data
> kendaraan.
> Ada 2 Sheet Data, yang sebagian data ada yang sama.
> - Keinginannya adalah memisahkan data yang ada di sheet Awal 2 yang sudah
> terdapat di Sheet Awal 1, untuk selanjutnya data yang sama akan di copykan
> ke sheet Hasil Duplicate.
> -Selanjutnya Sheet Awal 1 yang sudah tidak ada data Sheet Awal 2 di short
> per kecamatan, berhubung alamatnya dengan kecamatan di gabung dalam 1 kolom
>
> Yang sudah saya coba lakukan adalah dengan menggunakan Conditional
> Formating, Highlight Duplicating Value, selanjjutnya di pindah satu2.
> karena datanya mencapai ribuan sehingga susah untuk mencarinya.
> Untuk menSort per kecamatan belum bisa saya lakukan.
>
> Mohon bantuannya semuanya ya.. Atas bantuannya saya sampaikan Terima Kasih.
>
> Best regards
> Ketut
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5a.

Memberi Tanda Kurung Buku & Tutup Pada Fungsi Terbilang...

Posted by: "dehen adam" dehen_na@yahoo.com   dehen_na

Wed Feb 29, 2012 3:45 pm (PST)



Buat teman-teman BeExcellers, bgmana mengisipkan tanda (.......) pada coding fungsi TERBILANG ini sehingga otomatis saat fungsi terbilangnya muncul maka diberi tanda kurung depan dan kurung belakang (......terbilangnya......).

Contoh sb:
250000
maka hasilnya : (Dua Ratus Lima Puluh Ribu Rupiah)

NB:
Langsung diberi tanda kurung.

Untuk contoh file Makronya ada saay attacmentkan dibawah ini. Terima kasih..

===================================================
Pak Dehem,
Anda sedang berada di milis BeExcel [belejar-excel],
bukan milis lain,
Jadi sebutannya kalimat pertama kata ke3) kami edit!

--moderator--
===================================================
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5b.

Re: Memberi Tanda Kurung Buku & Tutup Pada Fungsi Terbilang...

Posted by: "HerrSoe" herrsoe@gmail.com   herrsoe

Wed Feb 29, 2012 4:15 pm (PST)



Mungkin dengan mengedit di *bagian 6 baris terakhir* pada prosedur Function

" Function Terbilang(ByVal MyNumber) "

'----
If IsNeg = True Then
Terbilang = *"(* MINUS " & Rupiah & Sen *& " )"*
Else
Terbilang = *"( " &* Rupiah & Sen *& " )"*
End If
End Function

On Thu, Mar 1, 2012 at 06:17, dehen adam <dehen_na@yahoo.com> wrote:

> **
> Buat teman-teman BeExcellers, bgmana mengisipkan tanda (.......) pada
> coding fungsi TERBILANG ini sehingga otomatis saat fungsi terbilangnya
> muncul maka diberi tanda kurung depan dan kurung belakang
> (......terbilangnya......).
>
> Contoh sb:
> 250000
> maka hasilnya : (Dua Ratus Lima Puluh Ribu Rupiah)
>
> NB:
> Langsung diberi tanda kurung.
> Untuk contoh file Makronya ada saay attacmentkan dibawah ini. Terima
> kasih..
>
> ===================================================
> Pak Dehem,
> Anda sedang berada di milis BeExcel [belejar-excel],
> bukan milis lain,
> Jadi sebutannya kalimat pertama kata ke3) kami edit!
>
> --moderator--
> ===================================================
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5c.

Re: Memberi Tanda Kurung Buku & Tutup Pada Fungsi Terbilang...

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Feb 29, 2012 4:17 pm (PST)



Hai Dehen,

Bagaimana jika formulanya saja yang diberi kurung.

Misal :
dari :
=terbilang( a2 )

menjadi :
="(" & terbilang( a2 ) & ")"

Kid.

On Thu, Mar 1, 2012 at 06:17, dehen adam <dehen_na@yahoo.com> wrote:

> **
>
>
> Buat teman-teman BeExcellers, bgmana mengisipkan tanda (.......) pada
> coding fungsi TERBILANG ini sehingga otomatis saat fungsi terbilangnya
> muncul maka diberi tanda kurung depan dan kurung belakang
> (......terbilangnya......).
>
> Contoh sb:
> 250000
> maka hasilnya : (Dua Ratus Lima Puluh Ribu Rupiah)
>
> NB:
> Langsung diberi tanda kurung.
>
> Untuk contoh file Makronya ada saay attacmentkan dibawah ini. Terima
> kasih..
>
> ===================================================
> Pak Dehem,
> Anda sedang berada di milis BeExcel [belejar-excel],
> bukan milis lain,
> Jadi sebutannya kalimat pertama kata ke3) kami edit!
>
> --moderator--
> ===================================================
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5d.

Re: Memberi Tanda Kurung Buku & Tutup Pada Fungsi Terbilang...

Posted by: "dehen adam" dehen_na@yahoo.com   dehen_na

Wed Feb 29, 2012 4:35 pm (PST)



Terima kasih Pak atas bantuannnya. Saya coba dulu merubah coding di MAKRO nya...

________________________________
From: HerrSoe <herrsoe@gmail.com>
Sent: Thursday, March 1, 2012 7:15 AM
 
Mungkin dengan mengedit di bagian 6 baris terakhir pada prosedur Function 

  " Function Terbilang(ByVal MyNumber) "

    '----
    If IsNeg = True Then
       Terbilang = "(MINUS " & Rupiah & Sen & " )"
    Else
       Terbilang = "( " &Rupiah & Sen & " )"
    End If
End Function

On Thu, Mar 1, 2012 at 06:17, dehen adam <dehen_na@yahoo.com> wrote:
>
>===================================================
>Pak Dehem,
>Anda sedang berada di milis BeExcel [belejar-excel],
>bukan milis lain,
>Jadi sebutannya kalimat pertama kata ke3) kami edit!
>
>--moderator--
>===================================================


Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
6.

Bls: [belajar-excel] Row ke Column

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Wed Feb 29, 2012 4:09 pm (PST)



karena file pertanyaan menggunakan excel 2003
maka jawaban menggunakan excel 2003 sehingga untuk menghilangkan tanda NA pada cell yang kosong dibutuhkan formula yang lebih panjang

untuk nama (formula array)
{=IF(ISERROR(INDEX($B$4:$B$18;MATCH(;COUNTIF(G$4:G4;$B$4:$B$18);0)));"";INDEX($B$4:$B$18;MATCH(;COUNTIF(G$4:G4;$B$4:$B$18);0)))}
copy ke bawah

untuk kehadiran (formula array)
{=IF(ISERROR(INDEX($D$4:$D$18;MATCH($G5&H$4;$B$4:$B$18&$C$4:$C$18;0)));"";INDEX($D$4:$D$18;MATCH($G5&H$4;$B$4:$B$18&$C$4:$C$18;0)))}
copy ke seluruh cell yang perlu diisi nilai

wassallam

Ghozi Alkatiri

--- Pada Rab, 29/2/12, Indra Psr <indra.psr@gmail.com> menulis:

Dari: Indra Psr <indra.psr@gmail.com>
Judul: [belajar-excel] Row ke Column
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 29 Februari, 2012, 9:41 PM

 

Bagaimana caranya memindahkan banyak nama dan banyak data ke dalam 1 kolom?
Apakah ada rumusnya atau harus menggunakan VBA? Mohon bantuannya.
(Contoh kasus data dan hasil yang diiginkan terlampir)

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
7a.

Menjumlahkan dalam range tertentu

Posted by: "sepriansyah encep" citra_encep@yahoo.co.id   syepriansyah

Wed Feb 29, 2012 5:48 pm (PST)



Dear All.
 
Mohon pencerahannya,
Bagaimana menjumlahkan dalam suatu range tertentu ,
Seperti di lampiran,
Mohon pencerahannya...
 
Tq,
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
7b.

Re: Menjumlahkan dalam range tertentu

Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com   zainul_ulum

Wed Feb 29, 2012 5:53 pm (PST)



Coba ini rumus ini di cell C10

=SUMPRODUCT(($C$5:$N$5>=$C$8)*($C$5:$N$5<=$C$9)*$C$6:$N$6)

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of sepriansyah encep
Sent: Thursday, March 01, 2012 8:47 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menjumlahkan dalam range tertentu

 
Dear All.
 
Mohon pencerahannya,
Bagaimana menjumlahkan dalam suatu range tertentu ,
Seperti di lampiran,
Mohon pencerahannya...
 
Tq,

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
7c.

Re: Menjumlahkan dalam range tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Feb 29, 2012 6:07 pm (PST)



Coba pakai SumIF

=SUMIF($C$5:$N$5,">="&*C8*,$C$6:$N$6)-SUMIF($C$5:$N$5,">="&*C8+C9*
,$C$6:$N$6)
*merah *: jumlah bulan yang akan di-Sum
*biru *: bulan mulainya

=SUMIF($C$5:$N$5,">="&*C13*,$C$6:$N$6)-SUMIF($C$5:$N$5,">"&*C14*,$C$6:$N$6)
*hijau *: bulan terakhir yang di-sum
*biru *: bulan mulai yang di-sum

Kid.

On Thu, Mar 1, 2012 at 08:47, sepriansyah encep <citra_encep@yahoo.co.id>wrote:

> **
>
>
> Dear All.
>
> Mohon pencerahannya,
> Bagaimana menjumlahkan dalam suatu range tertentu ,
> Seperti di lampiran,
> Mohon pencerahannya...
>
> Tq,
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
7d.

Re: Menjumlahkan dalam range tertentu

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Wed Feb 29, 2012 6:31 pm (PST)



Lha... itu kan sudah ada rumusnya
=SUM(OFFSET($C$6,0,0,1,C9))

tinggal memperbaiki sedikit menjadi:

*=SUM(OFFSET($B$6,0,C8,1,C9-C8+1))*

*Semprul..Ki!*

2012/3/1 sepriansyah encep <citra_encep@yahoo.co.id>

> **
>
> Dear All.
> Mohon pencerahannya,
> Bagaimana menjumlahkan dalam suatu range tertentu ,
> Seperti di lampiran,
> Mohon pencerahannya...
> Tq,
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
7e.

Re: Menjumlahkan dalam range tertentu

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Wed Feb 29, 2012 7:03 pm (PST)



maukah pak encep menambahkan info ke milis
[image: Inline image 1]
arti (bahasa indonesia-nya) *"Bulan Achievement" (ex B9)*
dengan bahasa yg masih ada hubungannya dengan "*Mulai Bulan" (ex B8)*
agar rumus-rumus yg kami ajukan dapat dibuat dengan gamfang
tidak ferlu mengira-kira arti "Bulan Achievement" (setengah indo setengah
belanda)

saya coba pakai "bulan pencapaian" maupun "bulan prestasi"; masih sulit
menebak
maksud yg terkandung didalamnya sehubungan dengan angka-anga / alamat caell

yg akan di RUMUS/ formulasi -kan

Terima kasih

Tetepi misalnya permohonan ini tidak dijawab pun kami sudah terbiasa
menerimanya.
(= ditanya *sering* menjawab, kalau gantian bertanya *jarang* dijawab,
hiks..)

*Semprul..Ki!*

*

2012/3/1 sepriansyah encep <citra_encep@yahoo.co.id>
>
> Dear All.
> Mohon pencerahannya,
> Bagaimana menjumlahkan dalam suatu range tertentu ,
> Seperti di lampiran,
> Mohon pencerahannya...
> Tq,*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
8a.

mengisi status dalam cell otomatis

Posted by: "deni ramdhani" alkuninjaniy@yahoo.com   alkuninjaniy

Wed Feb 29, 2012 7:19 pm (PST)



terlampir data excel, mohon penjelasan serta penyelesaiannya dari tmen...thanks..
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
8b.

Re: mengisi status dalam cell otomatis

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Wed Feb 29, 2012 7:44 pm (PST)



=IF( OR( yayaya=kosong, yeyeye=kosong), "", rumus_lama )

mungkin si deni ini member lama yg setatusnya sudah UnModerated
sehingga bisa lolos postingnya walaupaun OGAH menuliskan masalahnya di
BADAN eMail

semprul.. Ki!

2012/3/1 deni ramdhani <alkuninjaniy@yahoo.com>
> terlampir data excel, mohon penjelasan serta penyelesaiannya dari tmen...thanks..

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
9a.

belajar VB1

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id   nezaibaneza

Wed Feb 29, 2012 7:19 pm (PST)



dear be-excel
saya lagi coba buat program belajar dasar VB, tetapi saya coba agar rumus pada kolom lookup tidak terlihat gimana caranya
supaya seperti pada kolom Y' secara otomatis.

salam
neza
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
9b.

Re: belajar VB1

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Wed Feb 29, 2012 8:25 pm (PST)



sebaiknya kita menyebut VBA sebagai VBA jangan VB
karena VBA bukan VB walaupun masih sodaranya)

problem:
*>> agar rumus pada kolom lookup tidak terlihat gimana caranya*

*Cara1,*
Dengan meng-asumsi-kan: tabel di kolom O:P itu data di kolom O nya
pasti angka urut 1,2,3,... dst

Kelemahan makro ini (bawaan dari ibaneza) bahwa untuk mengotomatiskan
JALANNYA makro dipakai EVENT WorkSheet_SelectionChange tanpa
pembatasan Target.
Sehingga *makro akan terus-menerus dijalankan* setiap anda* memindah kan *
*cell pointer *KE CELL MANA SAJA di sheet tsb, walaupun hanya memindahkan
saja.
(kacian deh komputernya...)

Sebaiknya ibaneza menenetukan keperluannya: kapan hasil ingin didapatkan ?

Private Sub *Worksheet_SelectionChange*(ByVal Target As Range)

Dim TabelRef As Range
Dim i As Integer
Dim a As Double, b As Double
Dim x As Double, y As Double
Set TabelRef = Range("O9").CurrentRegion

For i = 8 To 16

a = Cells(i, 4)
b = Cells(i, 5)
x = Cells(i, 3)
y = a + (b ^ x)

*Cells(i, 6).Value = y*
* Cells(i, 7).Value = TabelRef(x, 2*)

Next i
End Sub

cara 2 / dan cara lain akan diposted ke milis bila posting ini ada
tanggapannya

*Semprul..Ki!*

2012/3/1 neza ibaneza <nezaibaneza@yahoo.co.id>

> **
> dear be-excel
> saya lagi coba buat program belajar dasar VB, tetapi saya coba agar rumus
> pada kolom lookup tidak terlihat gimana caranya
> supaya seperti pada kolom Y' secara otomatis.
> salam
> neza
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
9c.

Bls: [belajar-excel] belajar VB1

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id   nezaibaneza

Wed Feb 29, 2012 9:32 pm (PST)



waduh Ki, kayaknya cara menjawab Ki ini saya kenal, mirip dgn STDV.... (ST level 3)
trus gimana kalaw kolom O tidak berurut? (cara 2) ada g ya?... terus evennya yang diinginkan diperoses saat nilai telah diisikan pada
kolom "D" dan "E"...atau Worksheet_SelectionChangeevennya diganti jadi apa Ki?
karena saya juga melihat even baru :Set TabelRef = Range("O9").CurrentRegion apa batasan kolom terbaca terus sesuai

batasan kolom tabel yg dibuat? atau klw nambah data pada tabel lookup akan terbaca juga?

salam

neza

________________________________
Dari: Ki Semprul <semprul.ki@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 1 Maret 2012 12:24
Judul: Re: [belajar-excel] belajar VB1


sebaiknya kita menyebut VBA sebagai VBA jangan VB 
karena VBA bukan VB walaupun masih sodaranya)

problem:
>> agar rumus pada kolom lookup tidak terlihat gimana caranya

Cara1, 
Dengan meng-asumsi-kan: tabel di kolom O:P itu  data di kolom O nya 
pasti angka urut 1,2,3,... dst

Kelemahan makro ini (bawaan dari ibaneza) bahwa untuk mengotomatiskan 
JALANNYA makro  dipakai EVENT  WorkSheet_SelectionChange  tanpa 
pembatasan Target.
Sehingga makro akan terus-menerus dijalankan setiap anda memindah kan 
cell pointer KE CELL MANA SAJA di sheet tsb, walaupun hanya memindahkan saja.
(kacian deh komputernya...)

Sebaiknya ibaneza menenetukan keperluannya: kapan hasil ingin didapatkan ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   Dim TabelRef As Range
   Dim i As Integer
   Dim a As Double, b As Double
   Dim x As Double, y As Double
   Set TabelRef = Range("O9").CurrentRegion
   
   For i = 8 To 16
   
      a = Cells(i, 4)
      b = Cells(i, 5)
      x = Cells(i, 3)
      y = a + (b ^ x)
      
      Cells(i, 6).Value = y
      Cells(i, 7).Value = TabelRef(x, 2)
   
   Next i
End Sub

cara 2 / dan cara lain akan diposted ke milis bila posting ini ada tanggapannya

Semprul..Ki!

2012/3/1 neza ibaneza <nezaibaneza@yahoo.co.id>

>dear be-excel
>saya lagi coba buat program belajar dasar VB, tetapi saya coba agar rumus pada kolom lookup tidak terlihat gimana caranya
>supaya seperti pada kolom Y' secara otomatis.
>salam
>neza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
9d.

Re: belajar VB1

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Wed Feb 29, 2012 11:32 pm (PST)



Begini ya Dik Neza,,,
(ha ! betapa Aki merasa tuwir sekali, sehingga berani bilang "Dik" pada
anda)

Cara menanggapi jawaban itu.. sebaiknya begini:

1. solusi yg diberikan orang *diberi status dulu*:
kabarkan statusnya:
sesuai keinginan atau tidak, benar atau salah, memuaskan atau
menjengkelkan ..dst

status itu tentunya sesuai syarat / batas pertanyaan yg PERNAH diajukan.
jangan memberi status tetapi dengan SYARAT BARU yg belum pernah diajukan
pada email sebelumnya (email yg ditanggapi si penanggap) = "gak
sofan..."

2. kalau ada pertanyaan baru;... misalnya (jika kolom x diberi data tidak
urut, *bgmana*)?
lha mengapa kok tanya ke milis ? apa ndak bisa dicoba sendiri ??
sebaiknya adik COBA dulu isilah kolom x dengan angka yg tidak urut
terus lihat apa yg terjadi di kolom hasil (dlm kasus ini kolom 'LookUp')
apakah masih sesuai keinginan ataukah berantakan ?
jika tidak sesuai keingian, ajukan pertanyaan baru
jika ternyata *"lho kok hasilnya masih benar"* ya jangan repot-repot:
pura-pura tanya (ngeTest) !!

3. begitu juga mengenai *ObjectRange.Currentregion*, apa yg dijangkau ?
( itu bukan event lho, tetapi variable object Range, event SELALU
ditetnukan sbg nama prosedur)
sebelum pertanyaan macem-macem diajukan, lebih baik Adik mencoba sendiri
dulu
secara manual juga bisa
** aktifkan / select Cell o9
** tekan tombol fungsi [F5]
** cari-cari tombol *S*pecial, kalau ada di ceklik (atau dengan kiboard
shortcut Alt+S)
** cari-cari Option CurrentRegion dan PILIH-lah
** Tekan tombol "wooOke", dan lihat apa yg terjadi

[image: Inline image 1]

4. adakan percobaan dengan *menambah / atau mengurangi data di kolom O:P *
ulangi meng-Currentregion-kan O9, lihat apa yg terjadi.
Di sini berlaku syarat:
1. tidak ada data loncat parit : (o10 diisi, *o11 kosong,* o12 diisi
dst...)
2. sekitar tabel O:P (kolom kanan kirinya dan baris atas bawahnya
jangan bergandengan dengan data (cell berisi data) lain

5.* pemilihan EVENT yg memenuhi keinginan, dengan sarat:*
>> " saat nilai telah diisikan pada kolom "D" dan "E" "
adalah *Worksheet_CHANGE*
dengan ada *pembatasan alamat Target*
yaitu kalau:
- nomor kolom Target di atas 3 tapi di bawah 6 (kolom D dan E)
- nomor baris Target di atas (lebih besar daripada) 7 yaitu baris 8 ke
bawah
code lain di dalamnya sama dengan yg sudah ada

Cara Pembatasan Alamat Target sudah sangat sering dicontohkan, dicari cari
dulu lah di milis..
Kalau sudah pusing tapi gak ketemu, kembali ke sini lagi ya Dik... (kalau
sempat)

Saya hanya menunggu status dari Adik mengenai "Cara menanggapi jawaban
butir 1"
Tetapi bagi Adik., *tidak ada kewajiban untuk itu*, karena ini hanya main
"tepo-sliro" saja..

*Semprul..Ki!*

catatan:
Aki sudah mencari-cari si semua posting dari Juli 2007 sampai terakhir
ternyata tidak ada member dengan nikname STDV
jadi Aki mirip dengan siapa dwongngng.. ??

Yang (pernah) ada = member dengan nikname STDEV(i)
( mirip nama Fungsi mencari nilai Standar Deviasi dari variable i )

Kalau dibanding beiauh.. tentunya ada mirip-nya karena dia itu murid Aki,
eh kebalik..
.. Aki itu murid beliauh.. tapi tidak tamat, cuma sampai jurus "tendangan
dari langit"

*'----*
*2012/3/1 neza ibaneza <nezaibaneza@yahoo.co.id>
*
>
> * *
> *waduh Ki, kayaknya cara menjawab Ki ini saya kenal, mirip dgn STDV....
> (ST level 3)*
> *trus gimana kalaw kolom O tidak berurut? (cara 2) ada g ya?... terus
> evennya yang diinginkan diperoses saat nilai telah diisikan pada*
> kolom "D" dan "E"...atau *Worksheet_SelectionChange *evennya diganti jadi
> apa Ki?
> *karena saya juga melihat even baru : Set TabelRef =
> Range("O9").CurrentRegion apa batasan kolom terbaca terus sesuai
> *
> *batasan kolom tabel yg dibuat? atau klw nambah data pada tabel lookup
> akan terbaca juga?*
> *
> *
> *salam
> *
> *neza
> *
> *
> *
>
> ------------------------------
> *Dari:* Ki Semprul <semprul.ki@gmail.com>
> *Dikirim:* Kamis, 1 Maret 2012 12:24
> sebaiknya kita menyebut VBA sebagai VBA jangan VB
> karena VBA bukan VB walaupun masih sodaranya)
>
> problem:
> *>> agar rumus pada kolom lookup tidak terlihat gimana caranya*
>
> *Cara1,*
> Dengan meng-asumsi-kan: tabel di kolom O:P itu data di kolom O nya
> pasti angka urut 1,2,3,... dst
>
> Kelemahan makro ini (bawaan dari ibaneza) bahwa untuk mengotomatiskan
> JALANNYA makro dipakai EVENT WorkSheet_SelectionChange tanpa
> pembatasan Target.
> Sehingga *makro akan terus-menerus dijalankan* setiap anda* memindah kan *
> *cell pointer *KE CELL MANA SAJA di sheet tsb, walaupun hanya memindahkan
> saja.
> (kacian deh komputernya...)
>
> Sebaiknya ibaneza menenetukan keperluannya: kapan hasil ingin didapatkan ?
>
> Private Sub *Worksheet_SelectionChange*(ByVal Target As Range)
> Dim TabelRef As Range
> Dim i As Integer
> Dim a As Double, b As Double
> Dim x As Double, y As Double
> Set TabelRef = Range("O9").CurrentRegion
>
> For i = 8 To 16
> a = Cells(i, 4)
> b = Cells(i, 5)
> x = Cells(i, 3)
> y = a + (b ^ x)
> *Cells(i, 6).Value = y*
> * Cells(i, 7).Value = TabelRef(x, 2*)
> Next i
> End Sub
>
> cara 2 / dan cara lain akan diposted ke milis bila posting ini ada
> tanggapannya
>
> *Semprul..Ki!*
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
Recent Activity
Visit Your Group
Yahoo! Groups

Small Business Group

Improve your business

by community exchange

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.23

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)