Minggu, 12 Agustus 2012

[belajar-excel] Digest Number 1725

8 New Messages

Digest #1725
1a
looping  dan message box by "Purnomo Sidi" pysa_2605
1b
Re: looping dan message box by "Kid Mr." nmkid.family@ymail.com
1c
Re: looping dan message box by "Purnomo Sidi" pysa_2605
4
Rumus Filter Data Banyak Kriteria by "sin.ur4t@yahoo.com" sin.ur4t

Messages

Sat Aug 11, 2012 12:25 am (PDT) . Posted by:

"Purnomo Sidi" pysa_2605

para pakar excel saya ingin bertanya tentang looping dan message box singkat cerita seperti ini dan file terlampir :

jika command Button di klik Bagaimana caranya kita mengetahui proses perhitungan telah sampai di no berapa dan atas nama siapa. Mungkin seperti message box yang menyampaikan pesan namun tidak harus meng-Klik message box tersebut hingga proses selesai

terima kasih atas bantuannya

salam

pysa2605

Sat Aug 11, 2012 12:56 am (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Jika memanfaatkan range :
Private Sub CommandButton1_Click()

'menampilkan pesan (ganti dengan proses init object pesan yang dipakai)
Sheet1.Range("g2").Value = "Nomor"
Sheet1.Range("g3").Value = "Nama"

For i = 2 To 10000

If Sheet1.Cells(i, 1) = "" Then
MsgBox ("proses telah selesai")

Sheet1.Range("g2:h3").ClearContents 'menghapus pesan (ganti dgn
set off object pesan)

Exit Sub

Else

Sheet2.Cells(1, 2) = Sheet1.Cells(i, 1)
Sheet1.Cells(i, 4) = Sheet2.Cells(4, 2)

'menulis teks pesan (ganti dengan proses set nilai properti object
yang dipakai)
Sheet1.Range("h2").Value = Sheet1.Cells(i, 1).Value
Sheet1.Range("h3").Value = Sheet1.Cells(i, 2).Value

End If

Next i

End Sub

Cara lain loop (buat yang lagi niat belajar VBA) :
Private Sub CommandButton1_Click()
Dim rng As Range

With Sheet1
'menampilkan pesan
'(ganti dengan proses init object pesan yang dipakai)
.Range("g2").Value = "Nomor"
.Range("g3").Value = "Nama"

For Each rng In .Range("a1").CurrentRegion.Resize(, 1).Offset(1)
If LenB(rng.Value) <> 0 Then
Sheet2.Range("b1").Value = rng.Value
rng.Offset(0, 3).Value = Sheet2.Range("b4").Value

'menulis teks pesan
'(ganti dengan proses set nilai properti object yang
dipakai)
.Range("h2").Value = rng.Value
.Range("h3").Value = rng.Offset(0, 1).Value
End If
Next rng

MsgBox "proses telah selesai"

'menghapus pesan
'(ganti dgn set off object pesan)
.Range("g2:h3").ClearContents
End With
End Sub

Wassalam,
Kid.

2012/8/11 Purnomo Sidi <pysa_2605@yahoo.com>

> **
>
>
> para pakar excel saya ingin bertanya tentang looping dan message box
> singkat cerita seperti ini dan file terlampir :
> jika command Button di klik Bagaimana caranya kita mengetahui proses
> perhitungan telah sampai di no berapa dan atas nama siapa. Mungkin seperti
> message box yang menyampaikan pesan namun tidak harus meng-Klik message box
> tersebut hingga proses selesai
>
>
> terima kasih atas bantuannya
>
>
> salam
> pysa2605
>
>
>
>

Sat Aug 11, 2012 1:25 am (PDT) . Posted by:

"Purnomo Sidi" pysa_2605

Assalamualaikum war.wab
terima kasih  Kid Mr inspiratif sekali (bisa di bilang tidak sekali tapi berkali2). izin menggunakan dan dikembangkan

wassalam

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, August 11, 2012 12:55 AM
Subject: Re: [belajar-excel] looping dan message box


 
Jika memanfaatkan range :
Private Sub CommandButton1_Click()

    'menampilkan pesan  (ganti dengan proses init object pesan yang dipakai)
    Sheet1.Range("g2").Value = "Nomor"
    Sheet1.Range("g3").Value = "Nama"

For i = 2 To 10000

  If Sheet1.Cells(i, 1) = "" Then
  MsgBox ("proses telah selesai")
       
        Sheet1.Range("g2:h3").ClearContents     'menghapus pesan (ganti dgn set off object pesan)
       
      Exit Sub
 
  Else
 
    
      Sheet2.Cells(1, 2) = Sheet1.Cells(i, 1)
      Sheet1.Cells(i, 4) = Sheet2.Cells(4, 2)
     
        'menulis teks pesan (ganti dengan proses set nilai properti object yang dipakai)
        Sheet1.Range("h2").Value = Sheet1.Cells(i, 1).Value
        Sheet1.Range("h3").Value = Sheet1.Cells(i, 2).Value
 
  End If

Next i

End Sub

Cara lain loop (buat yang lagi niat belajar VBA) :
Private Sub CommandButton1_Click()
    Dim rng As Range
   
    With Sheet1
        'menampilkan pesan
        '(ganti dengan proses init object pesan yang dipakai)
        .Range("g2").Value = "Nomor"
        .Range("g3").Value = "Nama"
   
        For Each rng In .Range("a1").CurrentRegion.Resize(, 1).Offset(1)
            If LenB(rng.Value) <> 0 Then
                Sheet2.Range("b1").Value = rng.Value
                rng.Offset(0, 3).Value = Sheet2.Range("b4").Value
               
                'menulis teks pesan
                '(ganti dengan proses set nilai properti object yang dipakai)
                .Range("h2").Value = rng.Value
                .Range("h3").Value = rng.Offset(0, 1).Value
            End If
        Next rng
       
        MsgBox "proses telah selesai"
       
        'menghapus pesan
        '(ganti dgn set off object pesan)
        .Range("g2:h3").ClearContents
    End With
End Sub

Wassalam,
Kid.

2012/8/11 Purnomo Sidi <pysa_2605@yahoo.com>


>para pakar excel saya ingin bertanya tentang looping dan message box singkat cerita seperti ini dan file terlampir :
>
>jika command Button di klik Bagaimana caranya kita mengetahui proses perhitungan telah sampai di no berapa dan atas nama siapa. Mungkin seperti message box yang menyampaikan pesan namun tidak harus meng-Klik message box tersebut hingga proses selesai
>
>
>
>
>terima kasih atas bantuannya
>
>
>
>
>salam
>
>pysa2605
>
>
>

Sat Aug 11, 2012 12:27 am (PDT) . Posted by:

"Teti Zhe" teti_zhe

Dear Mr. Kid,
Thanks untuk balasannya,, uda berhasil..
Namun, link yang dalam pikiran saya itu sebenarnya pengennya fungsinya seperti hyperlink, jadi ketika di klik nama orang tua di dbase children, data (record) ttg orang tua di dbase parents akan terbuka.. karena tiap record orang tua itu memuat banyak info yang belum sempat saya isi di kolom2 excel nya, nanti ada sekitar 43 kolom per record, makanya saya pengen fungsi link itu seperti fungsi hyperlink,, kira2 apakah itu memungkinkan ya??
Makasih banyak sebelumnya ...

 
Salam,
Teti.

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, August 9, 2012 3:37 PM
Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?


 
Klik cell I4 (hanya cell ini saja)
tulis formulanya dan jangan tekan ENTER
tapi tekan tombol-tombol ini bersamaan :
CTRL       SHIFT        ENTER

Wassalam,
Kid.

2012/8/9 Teti Zhe <teti_zhe@yahoo.com>


>Hi Mr. Kid,
>Thanks untuk pencerahannya,
>Saya masih pemula benar dengan excel,, tadi maksudnya penulisan formulanya di kolom mana? saya coba menuliskan formula tersebut pada dbase_Parents di kolom 'Name' record pertama
>tapi koq setelah tekan CTRL   SHIFT   ENTER, muncul pesan 'Multi-cel array formulas are not allowed in tables' ?
>
>
>Mohon maaf jk merepotkan,, tapi saya pengen banget belajar ini.. makasih banyak sebelumnya...

>Salam,
>Teti.
>
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, August 9, 2012 1:48 PM
>Subject: Re: [belajar-excel] Bagaimana membuat link/relasi antar record dengan sheet yang berbeda?
>
>
>

>Hai Teti,
>
>Pada sheet parents :
>Coba pada kolom i record pertama diberi array formula berikut : (tulis formula dan jangan tekan Enter, tetapi tekan CTRL   SHIFT   ENTER bersamaan)
>=IFERROR(INDEX(Table3[Name],SMALL(IF((Table3[Nama Orang Tua]=$D4)*(Table3[Village]=$C4),Table3[No]),COLUMN()-COLUMN(dbase_Parents!$H$3))),"")
>kemudian copy ke kolom lain.
>
>Lakukan juga untuk sheet children dengan fungsi vlookup (kecuali jika orang tua bisa lebih dari 1, maka gunakan array formula di atas dengan menyesuaikan rujukan range-nya).
>
>Wassalam,
>Kid.
>
>
>2012/8/9 Teti Zhe <teti_zhe@yahoo.com>
>
>
>> 
>>Dear master Excel,,
>>Saya punya data responden pada sheet yang berbeda (terlampir).
>>
>>
>>Sheet 1 (dbase_Children) memiliki relasi dengan sheet 2 (dbase_Parents) yakni pada kolom 'Nama orang tua' .
>>
>>Apakah memungkinkan jika di sheet 1 (dbase_Children) dibuat link dengan sheet 2 (dbase_Parents) dimana masing-masing data anak terhubung dengan data orang tuanya masing2.. sehingga ketika meng-klik data 'Nama orang tua' di sheet 1 (dbase_Children) akan bisa mengakses data orang tua dimaksud pada sheet 2 (dbase_Parents).
>>
>>Jika memungkinkan, bagaimana caranya ?
>>
>>Atau ada ide lain sehingga data masing-masing orang tua tersebut tetap bisa langsung diakses dari sheet 1 (dbase_Children) sesuai dengan nama dari orang tua si anak masing-masing?
>>
>> 
>>Terimakasih banyak sebelumnya ...
>>
>>Salam,
>>Teti.
>>
>
>
>

Sat Aug 11, 2012 1:02 am (PDT) . Posted by:

"Kid Mr." nmkid.family@ymail.com

Oh begitu ya...
Mungkin butuh VBA kali ya...
Tapi,
pada kondisi data yang banyak kolom dan banyak baris tidak berurutan,
maksud dari kata '*akses*' dalam kalimat ini bagaimana :
>> "ketika meng-klik data 'Nama orang tua' di sheet 1 (dbase_Children) akan
bisa meng*akses* data orang tua dimaksud pada sheet 2 (dbase_Parents) ."
>> "data masing-masing orang tua tersebut tetap bisa langsung di*akses*dari sheet 1 (dbase_Children)
sesuai dengan nama dari orang tua si anak masing-masing?"

Coba sertakan contoh kerja manualnya yang runut ceritanya, misal
>> saya klik nama si ini di sini nih, nanti di sheet sebelah jadi begini
nih.
>> dst...

Wassalam,
Kid.

2012/8/11 Teti Zhe <teti_zhe@yahoo.com>

> **
>
>
> Dear Mr. Kid,
> Thanks untuk balasannya,, uda berhasil..
> Namun, link yang dalam pikiran saya itu sebenarnya pengennya fungsinya
> seperti hyperlink, jadi ketika di klik nama orang tua di dbase children,
> data (record) ttg orang tua di dbase parents akan terbuka.. karena tiap
> record orang tua itu memuat banyak info yang belum sempat saya isi di
> kolom2 excel nya, nanti ada sekitar 43 kolom per record, makanya saya
> pengen fungsi link itu seperti fungsi hyperlink,, kira2 apakah itu
> memungkinkan ya??
>
> Makasih banyak sebelumnya ...
>
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, August 9, 2012 3:37 PM
>
> *Subject:* Re: [belajar-excel] Bagaimana membuat link/relasi antar record
> dengan sheet yang berbeda?
>
>
> Klik cell I4 (hanya cell ini saja)
> tulis formulanya dan *jangan *tekan ENTER
> tapi tekan tombol-tombol ini bersamaan :
> CTRL SHIFT ENTER
>
> Wassalam,
> Kid.
>
> 2012/8/9 Teti Zhe <teti_zhe@yahoo.com>
>
> **
>
> Hi Mr. Kid,
> Thanks untuk pencerahannya,
> Saya masih pemula benar dengan excel,, tadi maksudnya penulisan formulanya
> di kolom mana? saya coba menuliskan formula tersebut pada dbase_Parents di
> kolom 'Name' record pertama
> tapi koq setelah tekan CTRL SHIFT ENTER, muncul pesan 'Multi-cel array
> formulas are not allowed in tables' ?
>
> Mohon maaf jk merepotkan,, tapi saya pengen banget belajar ini.. makasih
> banyak sebelumnya...
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, August 9, 2012 1:48 PM
> *Subject:* Re: [belajar-excel] Bagaimana membuat link/relasi antar record
> dengan sheet yang berbeda?
>
>
> Hai Teti,
>
> Pada sheet parents :
> Coba pada kolom i record pertama diberi array formula berikut : (tulis
> formula dan jangan tekan Enter, tetapi tekan CTRL SHIFT ENTER bersamaan)
> =IFERROR(INDEX(Table3[Name],SMALL(IF((Table3[Nama Orang
> Tua]=$D4)*(Table3[Village]=$C4),Table3[No]),COLUMN()-COLUMN(dbase_Parents!$H$3))),"")
> kemudian copy ke kolom lain.
>
> Lakukan juga untuk sheet children dengan fungsi vlookup (kecuali jika
> orang tua bisa lebih dari 1, maka gunakan array formula di atas dengan
> menyesuaikan rujukan range-nya).
>
> Wassalam,
> Kid.
>
> 2012/8/9 Teti Zhe <teti_zhe@yahoo.com>
>
> **
>
> Dear master Excel,,
> Saya punya data responden pada sheet yang berbeda (terlampir).
>
> Sheet 1 (dbase_Children) memiliki relasi dengan sheet 2 (dbase_Parents)
> yakni pada kolom 'Nama orang tua' .
> Apakah memungkinkan jika di sheet 1 (dbase_Children) dibuat link dengan sheet
> 2 (dbase_Parents) dimana masing-masing data anak terhubung dengan data
> orang tuanya masing2.. sehingga ketika meng-klik data 'Nama orang tua' di sheet
> 1 (dbase_Children) akan bisa mengakses data orang tua dimaksud pada sheet
> 2 (dbase_Parents) .
> Jika memungkinkan, bagaimana caranya ?
> Atau ada ide lain sehingga data masing-masing orang tua tersebut tetap
> bisa langsung diakses dari sheet 1 (dbase_Children) sesuai dengan nama
> dari orang tua si anak masing-masing?
>
> Terimakasih banyak sebelumnya ...
> Salam,
> Teti.
>
>
>
>
>
>
>
>
>

Sat Aug 11, 2012 1:50 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Buat rekan2 yang ingin belajar/mendalami macro, kasus terlampir bisa menjadi pelajaran untuk membuat Code dan meletakkan Variable

Kasusnya saya ambil dari pertanyaan salah satu member dalam milis tetangga.

Pada kolom A dan B terdapat beberapa angka dan kata, dimana ada angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

Contoh kasusnya (terlampir) adalah sepert ini:
A                 B              C

1 1

2 2

3 3

4   4

5   meja

6   lemari

meja


kursi


lemari


Pertanyaan:
Bagaimana caranya agar pada kolom C dapat ditampilkan :
1 angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B (secara berututan mulai dari C1)
2 angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B (sesuai barisnya pada kolom A)
3 data terakhir pada kolom A yang tidak ada pada kolom B (angka atau huruf, ditampilkan pada sel C1)

4 Bagaimana caranya untuk memberi warna merah pada angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

5 Bagaimana caranya untukmemberi warna merah padalatar belakang angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

Struktur macro yang saya buat adalah sbb:
Sub Rekon1()
    Dim a, b, x As Range
    Dim i As Integer
    Set a = Range(Range("A1"), Range("A1").End(xlDown))
    Set b = Range(Range("B1"), Range("B1").End(xlDown))
  
    For Each x In a
        If WorksheetFunction.CountIf(b, x) = 0 Then
           
        End If
  
    Next x
  
End Sub

Hasil yang diinginkan sesuai kolom C pada Sheet Rekon1 s/d Rekon 5 fiile terlampir.

Silakan rekan2 melengkapinya (sambil menunggu buka puasa).

Salam,
Hendrik Karnadi

Sat Aug 11, 2012 10:42 am (PDT) . Posted by:

"sin.ur4t@yahoo.com" sin.ur4t

Siap pak bro, makasih oleh2nya..
Murid baru TPA Almakro Walexcel segera ke tekapeh.. #kegirangan# :D
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 11 Aug 2012 01:50:30
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] latihan macro untuk menampilkan atau menandai item yang tidak ada

Buat rekan2 yang ingin belajar/mendalami macro, kasus terlampir bisa menjadi pelajaran untuk membuat Code dan meletakkan Variable

Kasusnya saya ambil dari pertanyaan salah satu member dalam milis tetangga.

Pada kolom A dan B terdapat beberapa angka dan kata, dimana ada angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

Contoh kasusnya (terlampir) adalah sepert ini:
A���������������� B������������� C

1 1

2 2

3 3

4 � 4

5 � meja

6 � lemari

meja


kursi


lemari


Pertanyaan:
Bagaimana caranya agar pada kolom C dapat ditampilkan :
1 angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B (secara berututan mulai dari C1)
2 angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B (sesuai barisnya pada kolom A)
3 data terakhir pada kolom A yang tidak ada pada kolom B (angka atau huruf, ditampilkan pada sel C1)

4 Bagaimana caranya untuk memberi warna merah pada angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

5 Bagaimana caranya untukmemberi warna merah padalatar belakang angka atau kata yang ada pada kolom A tetapi tidak ada pada kolom B

Struktur macro yang saya buat adalah sbb:
Sub Rekon1()
��� Dim a, b, x As Range
��� Dim i As Integer
��� Set a = Range(Range("A1"), Range("A1").End(xlDown))
��� Set b = Range(Range("B1"), Range("B1").End(xlDown))
��
��� For Each x In a
������� If WorksheetFunction.CountIf(b, x) = 0 Then
�����������
������� End If
��
��� Next x
��
End Sub

Hasil yang diinginkan sesuai kolom C pada Sheet Rekon1 s/d Rekon 5 fiile terlampir.

Silakan rekan2 melengkapinya (sambil menunggu buka puasa).

Salam,
Hendrik Karnadi

Sat Aug 11, 2012 12:37 pm (PDT) . Posted by:

"sin.ur4t@yahoo.com" sin.ur4t

Salam exceller..
Para pakar n rekan2, Mhn petunjuk utk memecahkan persoalan ini (excel 2003)..

Data diinput secara rutin pada tabel hijau (kolom: nama, umur, lokasi, jenis usaha, dan jlh anggota).

Bgmn rumus menampilkan data yg sesuai dgn kriteria saja ke dalam tabel merah (kolom: nama, jenis usaha)??
Formula ataupun makro..

Kriterianya adalah lokasi, umur, dan jlh anggota tertentu (tabel kuning).

Sudah coba buka2 arsip ctv_admpenjualan_mrbagiyo, tapi msh bingung menerapkannya utk kasus ini.

Mohon dibantu, trm ksh sblmnya.

Salam
Sinurat - sumut
Powered by Telkomsel BlackBerry�
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar