Kamis, 18 Agustus 2011

[belajar-excel] Digest Number 1295

Messages In This Digest (25 Messages)

Messages

1.

Filtering

Posted by: "utthank abe" abeutthank@gmail.com   abe_utthank

Thu Aug 18, 2011 1:12 am (PDT)



Mohon bantuannya, filterink dengan formula
file terlampir
--
R125
2a.

zembunyi tombol activex

Posted by: "utthank abe" abeutthank@gmail.com   abe_utthank

Thu Aug 18, 2011 1:13 am (PDT)



berkat agank2 di "belajar xl" za jadi ketagihan makro :)
iniy ada pertanyaan lagi mengenai hide, copy rumuz yang nda makan tenaga,
berikut lampiran filenya
tq.

--
R125
2b.

Re: zembunyi tombol activex

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Thu Aug 18, 2011 1:40 am (PDT)



Ngilangin tombol, ya Print Objectnya jangan dicentang.
Agar sel kosong ga ikutan maka range nya dibuat dinamis dengan fungsi Offset(Sheet1!$D$1,0,0,CountA(D:D)-6,1)
Agar bisa ngopi (bukan di Starbuck) ke bawah sesuai sel yang terisi disampingnya (kolom A) maka sorot sel D65, cari tanda tanda + pada bagian pojok kanan kotak (sel pointer), kemudian double klik mouse. Hasilnya formula akan dicopy s/d sel D1064.
 
Salam,
Hendrik Karnadi

From: utthank abe <abeutthank@gmail.com>
To: Belajar excell <belajar-excel@yahoogroups.com>
Sent: Thursday, August 18, 2011 12:27 PM
Subject: [belajar-excel] zembunyi tombol activex

 
berkat agank2 di "belajar xl" za jadi ketagihan makro :)
iniy ada pertanyaan lagi mengenai hide, copy rumuz yang nda makan tenaga,
berikut lampiran filenya
tq.

--
R125

2c.

Re: zembunyi tombol activex

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 18, 2011 3:45 am (PDT)



[image: datavalidation range dinamis.PNG]dear bung utang..

lihat jawaban langasung di sheet1 & modules di VBE

Private Sub CommandButton1_Click()
Rows("6:56").Select
Selection.EntireRow.Hidden = True
CommandButton1.Visible = False
CommandButton2.Visible = True
End Sub

Private Sub CommandButton2_Click()
Range("c6:f56").Select
Selection.EntireRow.Hidden = False
CommandButton1.Visible = True
CommandButton2.Visible = False
End Sub

2011/8/18 utthank abe <abeutthank@gmail.com>
>
> berkat agank2 di "belajar xl" za jadi ketagihan makro :)
> iniy ada pertanyaan lagi mengenai hide, copy rumuz yang nda makan tenaga,
> berikut lampiran filenya
> tq.
> --
> R125
2d.

Re: zembunyi tombol activex

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

Thu Aug 18, 2011 7:05 pm (PDT)



Bisa juga untuk kebutuhan lihat tabel, pake CommandButton2 aja tanpa
commandbutton1, dengan event kliknya berbunyi :
Private Sub CommandButton2_Click()
If Len(CommandButton2.Caption) > 5 Then
CommandButton2.Caption = "Bakul"
Range("c6:f56").EntireRow.Hidden = True
Else
CommandButton2.Caption = "Hide Bakul"
Range("c6:f56").EntireRow.Hidden = False
End If
End Sub

Kid.

2011/8/18 STDEV(i) <setiyowati.devi@gmail.com>

> dear bung utang..
>
> lihat jawaban langasung di sheet1 & modules di VBE
>
> Private Sub CommandButton1_Click()
> Rows("6:56").Select
> Selection.EntireRow.Hidden = True
> CommandButton1.Visible = False
> CommandButton2.Visible = True
> End Sub
>
> Private Sub CommandButton2_Click()
> Range("c6:f56").Select
> Selection.EntireRow.Hidden = False
> CommandButton1.Visible = True
> CommandButton2.Visible = False
> End Sub
>
>
>
>
> 2011/8/18 utthank abe <abeutthank@gmail.com>
> >
> > berkat agank2 di "belajar xl" za jadi ketagihan makro :)
> > iniy ada pertanyaan lagi mengenai hide, copy rumuz yang nda makan tenaga,
> > berikut lampiran filenya
> > tq.
> > --
> > R125
>
2e.

Re: zembunyi tombol activex

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 18, 2011 7:27 pm (PDT)



*nambo ciek ..*
Kalau mau mengexplorasi keperluan seperti ini, coba juga* ToggleButton *
Control
ToggleButton seperti CommandButton tetapi *punya dua nilai*
setiap di klik nilainya berubah ( False -> Tru -> False -> True dst)
Nilai ToggleButton dapat kita jadikan* Logicaltest*-nya (dlm struktur IF -
Then)

IF *ToggleButton1* Then
'--*'gini*--
Else
'--*'gitu*--
End If
[image: ToggleButton.PNG]

2011/8/19 Mr. Kid <mr.nmkid@gmail.com>

> **
>
> Bisa juga untuk kebutuhan lihat tabel, pake CommandButton2 aja tanpa
> commandbutton1, dengan event kliknya berbunyi :
> Private Sub CommandButton2_Click()
> If Len(CommandButton2.Caption) > 5 Then
> CommandButton2.Caption = "Bakul"
> Range("c6:f56").EntireRow.Hidden = True
> Else
> CommandButton2.Caption = "Hide Bakul"
> Range("c6:f56").EntireRow.Hidden = False
> End If
> End Sub
>
> Kid.
>
>
> 2011/8/18 STDEV(i) <setiyowati.devi@gmail.com>
>
>> dear bung utang..
>> lihat jawaban langsung di sheet1 & modules di VBE
>> Private Sub CommandButton1_Click()
>> Rows("6:56").Select
>> Selection.EntireRow.Hidden = True
>> CommandButton1.Visible = False
>> CommandButton2.Visible = True
>> End Sub
>>
>> Private Sub CommandButton2_Click()
>> Range("c6:f56").Select
>> Selection.EntireRow.Hidden = False
>> CommandButton1.Visible = True
>> CommandButton2.Visible = False
>> End Sub
>>
>>
3a.

Re: extensi Makro (xls & xlsm)

Posted by: "utthank abe" abeutthank@gmail.com   abe_utthank

Thu Aug 18, 2011 1:14 am (PDT)



makazih penjelazan nya tante ziti n tante hapz, za zekarank jadi inzan
yang tercerahkan :) ngekzzz

On 8/18/11, Haps <hapsari.stlizbeth@gmail.com> wrote:
> i.m.h.o...
> perombakan nama file (extensinya) mulai versi 2007 oleh microsoft bukan
> tanpa alaZan.
>
> workbook yg ada makronya diPAKZA *harus* punya *extenZi LAIN (xlsm / xlsb);*
> kebijakan itu adalah demi lebih melindungi user ( termasuk saya dan Zampeyan
> juga)
> agar tanpa membuka file, hanya dengan melihat extensinya saja, kita sudah
> tahu
> bahwa file ada makronya. (makro bisa berisi hal yg tidak aman !!)
>
>>> *ada trik biar xtensi nya tetap xlsx tapi makronya tetap jalan?*
> Security ditingkatkan ! eeee. malah Zampeyan ingin menurunkan
> kembali...??
> kumaha iye...
>
>
> 2011/8/18 utthank abe <abeutthank@gmail.com>
>>
>> maaf mau tanya nih mengenai xtensi makro xl
>> xl 2003--> jika work book di save dengan makro tetap xls
>> xl 2007--> jika work book di save tidak bisa xlsx harus xlsm
>> apa memang seperti itu?* **ada trik biar xtensi nya tetap xlsx tapi
> makronya tetap jalan?*
>> zebenarnya nda mazalah bagi zaya cuman kalo orang kagak ngatotz di kiranya
> filenya bermazalah
>> karena icon xlsm pake tanda zeru..
>> mohon penjelazan para mazter :)
>>
>> R125
>

--
R125

4a.

Bls: [belajar-excel] On Error pada Proses Looping

Posted by: "Hendro Supardi" hendro.supardi@yahoo.co.id   hendro.supardi

Thu Aug 18, 2011 2:02 am (PDT)



Terima kasih Pak Hendrik Karnadi atas solusinya

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Terkirim: Sel, 16 Agustus, 2011 12:42:05
Judul: Fw: [belajar-excel] On Error pada Proses Looping

Kalau ingin melompat :
On Error GoTo ErrorHandler
Perintah ....
....

ErrorHandler:
MsgBox "Pesan dan Kesan"
Exit Sub

atau
On Error GoTo 10


10 Perintah ........


Salam,
Hendrik Karnadi



----- Forwarded Message -----
From: Mashury (PTI-SOR) <Mashury@valeinco.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, August 16, 2011 12:00 PM
Subject: RE: [belajar-excel] On Error pada Proses Looping

Pak Hendro..
On Error GoTo Next nya diganti dengan On Error Resume Next
Semoga bisa.

Terima kasih…

Rgd's
Hry

From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of Hendro Supardi
Sent: Tuesday, August 16, 2011 12:49 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] On Error pada Proses Looping


Dear Exceller,

Bagaimana caranya agar on error pada proses looping dapat jalan?
On Error yang telah saya buat tersebut hanya berjalan pada error yang pertama,
sedangkan pada error yang berikutnya tidak dapat berjalan.

Mohon petunjuk lebih lanjut.

Terima kasih,
Hendro

On Error GoTo Next
..............
proses looping
..............

Next

5a.

Re: Soal_Mengambil Angka dalam 1cell

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 18, 2011 3:07 am (PDT)



Dengan formula mestinya bisa tapi (menurut fendafatku) : ribed..

Sambil menunggu solusi dari members lain, kita ajukan usulan penyelesaian
dengan "TOMBOL SAKTI" kiriman dari mbak Haps
(ybs ndak bisa kirim sendiri karena lagi pulang kampung " ndesit ")
dan hanya bisa mengirim text makro via sms (kacian deh Haps!!...)

Sub Pisahkan()
' coded by: Hapsari, featuring sitiVi (? ^o^)
' St. Elizabeth, 18 Agu 2011
'-----------------------------------------
Dim InpRng As Range, OutRng As Range, rDat1, rDat2
Dim r As Long, c As Integer, iRow As Long

Set InpRng = Selection
Set OutRng = InpRng(InpRng.Rows.Count + 3, InpRng.Columns.Count + 2)

For r = 1 To InpRng.Rows.Count
If IsNumeric(Replace(InpRng(r, 1), " ", "")) Then
rDat1 = Split(InpRng(r, 1), " ")
rDat2 = Split(InpRng(r, 2), " ")
Else
rDat1 = Array(InpRng(r, 1))
rDat2 = Array(InpRng(r, 2))
End If

For c = 0 To UBound(rDat1)
iRow = iRow + 1
OutRng(iRow, 1) = rDat1(c)
OutRng(iRow, 2) = rDat2(c)
Next c
Next r

Penjelasan (tafsir makro model ngawuir-ngawuran) hanya akan ditulis
jika ada yg tanya.

Oiya, contoh & penjelasan yg dikirim INPUT dan OUTPUTNYA KOK SAMA ya?
Outputnya tetap berupa satu baris berisi beberapa SubData (apakah memang spt
itu
yg diinginkan) ataukah tiap SubData dijadikan LINE/ROW tersendiri ?

onbehalf of Hapsari
~siti

2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>

> Dear Master Excel,****
>
> ** **
>
> Mohon pencerahan untuk soal terlampir, sebelumnya saya sudah coba
> berdasarkan beberapa contoh soal untuk penanggalan kata..****
>
> Tetapi untuk masalah saya ini adalah penanggalan angka dalam 1cell****
>
> ****
>
> ** **
>
> Terima kasih sebelumnya****
>
> ** **
>
> Regards,
>
> Candra****
>
>
>
5b.

Re: Soal_Mengambil Angka dalam 1cell

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

Thu Aug 18, 2011 4:04 pm (PDT)



saya mencoba memberi solusi dengan formula, karena attachment yang dikirim belum menggunakan excel 2007,maka solusi yang saya kirimkan ini agak panjang formulannya karena tidak bisa menggunakan fungsi iferror untuk menjebak kesalahan formula. dan harus menggunakan combinasi if dan iserror jadi formulanya agak panjang .

=IF(AND($D4="NO OPO";G$3=$G$3);$D4;IF(AND($D4="NO OPO";G$3<>"line-1");"";IF(ISERROR(--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99));(LEN($D4)-LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99)));"";--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99));(LEN($D4)-LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99)))))

tetapi ketika formula ini saya coba simpan dalam format excel 2003 ditolak oleh sistem.
dengan  warning
the specified formula cannot be entered because it use more level of nesting than are allowed in the curent file

maka, terpaksa saya menggunakan excel 2007 (xlsx) dengan formula
IF(AND($D4="NO OPO";G$3=$G$3);$D4;IF(AND($D4="NO OPO";G$3<>$G$3);"";IFERROR(--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99));(LEN($D4)-LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99));"")))

mudah mudahan berkenan

wassalam

Ghozi Alkatiri

wassalam

Ghozi Alkatiri

--- Pada Kam, 18/8/11, STDEV(i) <setiyowati.devi@gmail.com> menulis:

Dari: STDEV(i) <setiyowati.devi@gmail.com>
Judul: Re: [belajar-excel] Soal_Mengambil Angka dalam 1cell
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 18 Agustus, 2011, 5:07 PM

Dengan formula mestinya bisa tapi (menurut fendafatku) : ribed.. 

Sambil menunggu solusi dari members lain, kita ajukan usulan penyelesaian

dengan "TOMBOL SAKTI" kiriman dari mbak Haps (ybs ndak bisa kirim sendiri karena lagi  pulang kampung " ndesit ")

dan hanya bisa mengirim text makro via sms (kacian deh Haps!!...) 

Sub Pisahkan()

   ' coded by: Hapsari, featuring sitiVi (? ^o^)

   ' St. Elizabeth, 18 Agu 2011   '-----------------------------------------

   Dim InpRng As Range, OutRng As Range, rDat1, rDat2   Dim r As Long, c As Integer, iRow As Long

      Set InpRng = Selection

   Set OutRng = InpRng(InpRng.Rows.Count + 3, InpRng.Columns.Count + 2)   

   For r = 1 To InpRng.Rows.Count      If IsNumeric(Replace(InpRng(r, 1), " ", "")) Then

         rDat1 = Split(InpRng(r, 1), " ")         rDat2 = Split(InpRng(r, 2), " ")

      Else         rDat1 = Array(InpRng(r, 1))

         rDat2 = Array(InpRng(r, 2))      End If

            For c = 0 To UBound(rDat1)

         iRow = iRow + 1         OutRng(iRow, 1) = rDat1(c)

         OutRng(iRow, 2) = rDat2(c)      Next c

   Next r
Penjelasan (tafsir makro model ngawuir-ngawuran) hanya akan ditulis 

jika ada yg tanya.
Oiya, contoh & penjelasan yg dikirim INPUT dan OUTPUTNYA KOK SAMA ya?

Outputnya tetap berupa satu baris berisi beberapa SubData (apakah memang spt ituyg diinginkan) ataukah tiap SubData dijadikan LINE/ROW tersendiri ?

onbehalf of Hapsari

~siti

2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>

Dear Master Excel,

 

Mohon pencerahan untuk soal terlampir, sebelumnya
saya sudah coba berdasarkan beberapa contoh soal untuk penanggalan kata..

Tetapi untuk masalah saya ini adalah penanggalan
angka dalam 1cell

 

Terima kasih sebelumnya

 

Regards,

Candra

5c.

Re: Soal_Mengambil Angka dalam 1cell

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 18, 2011 6:38 pm (PDT)



Kalau tujuannya hanya menekuk (wrap) tiap cell menjadi beberapa "LINE"
sesuai banyaknya subsString (dimana antara subString bertanda pemisah
SPASI)
maka :
** Tidak perlu menyamakan lebar (jumlah krakter) tiap SubString
** Cukup dengan formula biasa, yaitu mengganti " " (spasi) menjadi *tanda
penekuk/wrap *
(vbCrLf (Carriage Return / Line Feed)

*dengan tindakan/Action*, kita dapat memberi vbCrlf dengan *ALt + Enter*
*dengan formula* kita meng-Ekspressikan dengan *Char(10) atau bisa juga
Chr(13)*

Jadi rumusnya tulis di cell H4
=SUBSTITUTE(D4," ",CHAR(10))

tetapi karena *ada kondisi*, bahwa:
JIKA DATA BUKAN ANGKA / BUKAN "TANGGAL" >> tidak perlu di Wraped
JIKA DATA TIDAK MENGANDUNG SPASI >> tidak perlu di-Wrapped
maka rumusnya menjadi
=IF(CODE(D4) <=57,IF(COUNTIF(D4,"* *"),SUBSTITUTE(D4," ",CHAR(10)),D4),D4)

tinggal mengcopy rumus di ke area hasil (H4:I8)
jangan lupa memformat *range hasil* dengan : Allignment > Text Control =
Wraped text.

[image: hasil formula & formatting.PNG]

*2011/8/19 ghozi alkatiri <ghozialkatiri@yahoo.co.id>*
>
> saya mencoba memberi solusi dengan formula, karena attachment yang dikirim
belum menggunakan excel 2007,
maka solusi yang saya kirimkan ini agak panjang formulannya karena tidak
bisa menggunakan fungsi iferror
untuk menjebak kesalahan formula. dan harus menggunakan combinasi if dan
iserror jadi formulanya agak panjang .
>
> =IF(AND($D4="NO OPO";G$3=$G$3);$D4;IF(AND($D4="NO OPO";G$3<>"line-1");"";
IF(ISERROR(--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99));
(LEN($D4)-LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99)));"";
--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99));
(LEN($D4)-LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99)))))
>
> tetapi ketika formula ini saya coba simpan dalam format excel 2003 ditolak
oleh sistem.
> dengan warning:
> "the specified formula cannot be entered because it use more level of
nesting than are allowed in the curent file"
> maka, terpaksa saya menggunakan excel 2007 (xlsx) dengan formula
> IF(AND($D4="NO OPO";G$3=$G$3);$D4;IF(AND($D4="NO OPO";G$3<>$G$3);"";
IFERROR(--TRIM(LEFT(RIGHT(SUBSTITUTE($D4;" ";REPT(" ";99)); (LEN($D4)-
LEN(SUBSTITUTE($D4;" ";""))+2-COLUMNS($G4:G4))*99);99));"")))
>
> mudah mudahan berkenan
> wassalam
> Ghozi Alkatiri

*2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>*
> Dear Master Excel,
> Mohon pencerahan untuk soal terlampir, sebelumnya saya sudah coba
> berdasarkan beberapa contoh soal untuk penanggalan kata..
> Tetapi untuk masalah saya ini adalah penanggalan angka dalam 1cell
5d.

Re: Soal_Mengambil Angka dalam 1cell

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

Thu Aug 18, 2011 6:48 pm (PDT)



Wrap text selain berisi angka
=IF(LEFT(D4)="N",D4,SUBSTITUTE(TRIM(D4)," ",CHAR(10)))

Kid.

2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>

> Dear Master Excel,****
>
> ** **
>
> Mohon pencerahan untuk soal terlampir, sebelumnya saya sudah coba
> berdasarkan beberapa contoh soal untuk penanggalan kata..****
>
> Tetapi untuk masalah saya ini adalah penanggalan angka dalam 1cell****
>
> ****
>
> ** **
>
> Terima kasih sebelumnya****
>
> ** **
>
> ** **
>
> Regards,****
>
> Candra****
>
> *+607-6612384*****
>
> P Please consider the environment before printing this mail !****
>
> ** **
>
5e.

Re: Soal_Mengambil Angka dalam 1cell

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

Thu Aug 18, 2011 6:51 pm (PDT)



eh udah ada yang dari mbak Siti.
Ternyata memang cepat naik ojek dibanding naik bajaj (kalo lagi macet).

Kid.

2011/8/19 Mr. Kid <mr.nmkid@gmail.com>

> Wrap text selain berisi angka
> =IF(LEFT(D4)="N",D4,SUBSTITUTE(TRIM(D4)," ",CHAR(10)))
>
> Kid.
>
> 2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>
>
>> Dear Master Excel,****
>>
>> ** **
>>
>> Mohon pencerahan untuk soal terlampir, sebelumnya saya sudah coba
>> berdasarkan beberapa contoh soal untuk penanggalan kata..****
>>
>> Tetapi untuk masalah saya ini adalah penanggalan angka dalam 1cell****
>>
>> ****
>>
>> ** **
>>
>> Terima kasih sebelumnya****
>>
>> ** **
>>
>> ** **
>>
>> Regards,****
>>
>> Candra****
>>
>> *+607-6612384*****
>>
>> P Please consider the environment before printing this mail !****
>>
>> ** **
>>
>
>
5f.

Re: Soal_Mengambil Angka dalam 1cell

Posted by: "Candra Herison Sihaloho - BTS" candraherisons@my.beyonics.com   candra.herison

Thu Aug 18, 2011 8:39 pm (PDT)



Dear Master Excel,

Terima kasih untuk semua tanggapannya (Mbak Siti, Mr Kid, Mas Ghozi)

Turut saya lampirkan untuk FINAL Data yang diinginkan, mohon kiranya
masukan dari para Master Excel

Formula yang dapat mengambil angka2 yang dipisahkan oleh spasi dan
otomatis menjadi 7digit

Sebelumnya rumus dari Mas Ghozi dapat dipakai, berhubung di kantor hanya
menggunakan Office 2003, formula tersebut tidak bisa dijalankan

Sebelumnya terima kasih

Regards,

Candra

+607-6612384

P Please consider the environment before printing this mail !

_____

From: belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Friday, August 19, 2011 9:51 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Soal_Mengambil Angka dalam 1cell

eh udah ada yang dari mbak Siti.
Ternyata memang cepat naik ojek dibanding naik bajaj (kalo lagi macet).

Kid.

2011/8/19 Mr. Kid <mr.nmkid@gmail.com>

Wrap text selain berisi angka
=IF(LEFT(D4)="N",D4,SUBSTITUTE(TRIM(D4)," ",CHAR(10)))

Kid.

2011/8/18 Candra Herison Sihaloho - BTS <candraherisons@my.beyonics.com>

Dear Master Excel,



Mohon pencerahan untuk soal terlampir, sebelumnya saya sudah
coba berdasarkan beberapa contoh soal untuk penanggalan kata..

Tetapi untuk masalah saya ini adalah penanggalan angka dalam
1cell





Terima kasih sebelumnya





Regards,

Candra

+607-6612384 <tel:%2B607-6612384>

P Please consider the environment before printing this mail !



**********************************************************************
CONFIDENTIALITY CAUTION :

This email is intended only for the use of the individual or entity to whom it is addressed and contains information that is confidential and may also be privileged. If you, the reader of this email, are not the intended recipient, you are strictly prohibited from disseminating, distributing, copying, disclosing or in any way use or rely on information contained in this email or any attachment. If you have received this email in error, please notify us immediately by return email and delete the original email including any attachment.

www.beyonics.com
**********************************************************************

6.

Bls: [belajar-excel] User Form dng Penomoran Otomatis (program Excel

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Thu Aug 18, 2011 4:50 am (PDT)



Terima kasih atas berkanan tanggapannya. Bersama ini saya lampirkan contoh Worksheet yang saya maksudkan.

Mohon dapat dijelaskan cara dan rumusnya.

Sebelum dan sesudahnya, saya ucapkan banyak terima kasih.

Wassalam,

Harry

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 16 Agustus 2011 7:56
Judul: Re: [belajar-excel] User Form dng Penomoran Otomatis (program Excel yang dilengkapi dng fitur LAN)

 
belum ada penanggapnya ya...

* apakah workbook sudah di set sbg SHARED Workbook ?
(di excel 2003, lihat menu Tools > Share Workbook..
(di Excel 2007, Tab Review > Share Workbook..)

*Bgmana cara anda mengotomatiskan  NAIKnya No. Registrasi 
**apakah dihubungkan juga dengan, misalnya: tingginya tabel yg selalu
bertambah setiap entri records baru ??
** kapan Nomor Registrasi tsb diNAIK-kan ? 
   saat dimulainya proses INPUT ?  atau saat INPUT dimasukkan ke tabel ??
hal ini tentu ada pengaruhnya.

mungkin juga, misalnya kekedar pertanyaan tsb dijawab, belum tentu ada gunanya.

agak segan-nya menanggapi kasus ini karena kita tidak diberi kesempatan 
melihat vba code maupun workbook/sheets tempat bermain nya makro ( kita
maklum karena mungkin saja berupa data dan makro yg tidak boleh diketahui orang lain...)

jadi misalnya pun menulis tanggapan hanyalah berdasarkan "pembayangan" /
pendapat kita (sepihak) mengenai KIRA-KIRA SEPERTI APA  data di sheet & makronya

~siti

mungkin eBook ini aada gunanya, mudah2-an
http://www.box.net/shared/prhba5unobs3qnq5dznb

2011/8/13 Harry <hariansyahptk@yahoo.com>
>
> Mohon informasi atau cara pemecahan permasalahan saya hadapi dng situasi sbb:
>  
> Ada 3 PC (diperuntukkan untuk banyak user / anggota) yang telah dihubungkan dengan LAN melakukan pengisian User Form (VB) pada program Excel (file yang sama) secara bersamaan. Pada User Form tsb telah di setting penomoran / No. Registrasi secara otomatis.
>  
> KONDISI SEKARANG:
> ·         PC 1, meng-click User Form otomatis muncul No. Registrasi 1. Setelah di "SAVE" dan "CLOSE", dan selanjutnya, PC 1 meng-click lagi User Form yang sama otomatis mengisi Form dng No. Registrasi 2 (dst).
> ·         PC 2, meng-click User Form otomatis muncul No. Registrasi 1. Setelah di "SAVE" dan "CLOSE", dan selanjutnya, PC 2 meng-click lagi User Form yang sama otomatis mengisi Form dng No. Registrasi 2 (dst).
> ·         PC 3, meng-click User Form otomatis muncul No. Registrasi 1. Setelah di "SAVE" dan "CLOSE", dan selanjutnya, PC 3 meng-click lagi User Form yang sama otomatis mengisi Form dng No. Registrasi 2 (dst).
>  
> KONDISI YANG SEHARUSNYA:
> ·         PC 1, meng-click User Form otomatis muncul No. Registrasi 1. Setelah di "SAVE" dan "CLOSE", dan selanjutnya, PC 1 meng-click lagi User Form yang sama otomatis mengisi Form dng No. Registrasi 2 (dst).
> ·         Jika PC 1 telah selesai mengisi User Form dng No. Registrasi 1 dan 2, otomatis PC 2 bisa mengisi User Form No. Registrasi 3 karena No. Registrasi 1 dan 2 telah dilakukan oleh PC 1.
> ·         Selanjutnya, jika PC 3 meng-click User Form seharusnya secara otomatis bisa mengisi User Form dng No. Registrasi 4 karena No. Registrasi 1 dan 2 telah diisi oleh PC 1 dan No. Registrasi 3 telah disi oleh PC 2.
> ·         Dan jika PC 2 meng-click lagi User Form, secara otomatis muncul isian dng No. Registrasi 5 dan seterusnya dan seterusnya.
>  
> PERTANYAANNYA:
> Apa dan bagaimana rumus dan caranya agar bisa mendapat / menerapkan dari KONDISI SEKARANG menjadi KONDISI YANG SEHARUSNYA…???
>  
> Mohon bantuan dan penjelasannya.
> Terima kasih atas informasi dan berkenan akan rumus dan caranya.
>  
> Regard,
> Harry
> (Seorang masih harus banyak dan banyak belajar tentang Excel VB)

7a.

Grafik kurs rupiah yang selalu update otomatis

Posted by: "akhmad kurniawan" wawan01ex@yahoo.com   wawan01ex

Thu Aug 18, 2011 12:23 pm (PDT)



Hai para eXcel-ers,saya punya data dengan kurs, misalnyaTanggal      Kurs1                8000
2                8500
3                8450
4                8550
dst             dst
Yang diinginkan, grafik Kurs -vs- Tanggal selalu otomatis update menunjukkan trend kurs untuk 3 hari terakhir saja. Misalnya sekarang tgl 18 maka diinginkan dalam grafik itu yang muncul adalah trend kurs tanggal 16, 17, 18.
Adakah yg bisa bantu, gimana caranya?T'makasih sebelumnya.. :)
7b.

Re: Grafik kurs rupiah yang selalu update otomatis

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Aug 18, 2011 4:00 pm (PDT)



*Sambil menunggu tanggapan dari members lain., sementara kita buat dulu spt
ini..*

Yang dioprek bukan Chart (anda bilang Grafik)-nya; tetapi Tabel nya.

Tabel Kurs tetap dibuat dengan baik (misalnya tanggal ditulis sbg tanggal
kurs ditulis sebagai bilangan dst )
Dalam contoh dari pak Akhmad Kur, tanggal ditulis sbagai *bukan tanggal *
karena
hanya berupa data bilangan 1, 2, 3 dst mungkin hanya sampai max 31.
bgmana membedakan tgl 1 Juli dan 1 agustus th 2011 ??

Mungkin tabel KURS tsb akan diUpdated setiap hari yaitu ditambah 1 baris
data
untuk kurs hari tsb.

Untuk gampangnya kita akan membuat* Tabel ke 2*, yaitu tabel yg *hanya
berisi *
*3 hari kurs; tetapi 3 hari itu dibuat dinamis*,
hari 1 = Today()-2
hari 2 = Today()-1
hari 3 / terakhir = TODAY()
nilai kurs untuk 3 hari tsb dapat diambil dengan VLOOKUP
(ini memerlukan Tabel Kurs yg dibuat dengan baik)

Dlm contoh yg siti lampirkan, pembuatan *Tabel 3Hari-Dinamis* tsb bukan
dengan
cara spt diatas, tetapi dipakai fungsi OFFSET yg ditulis sekaligus di 3haris
x 2 Kolom
sbg *Array Formula *(lihat tabel* H5:I7*)
=OFFSET(B4:C4,J2-2,0,3,2)
Dengan cara itu *tabel 3 hari *tadi, setiap hari akan berubah secara
ostosmastis.

Langkah terakhir: *kita membuat chart berdasarkan tabal 3 hari dinamis tsb:*
*
*
[image: tabelDinamis_n_Chart.GIF]

*2011/8/18 akhmad kurniawan <wawan01ex@yahoo.com>*
Hai para eXcel-ers,
saya punya data dengan kurs, misalnya
________________________________
Tanggal Kurs
1 8000
2 8500
3 8450
4 8550
dst dst
________________________________

Yang diinginkan, grafik Kurs -vs- Tanggal selalu otomatis update
menunjukkan
trend kurs untuk 3 hari terakhir saja.
Misalnya sekarang tgl 18 maka diinginkan dalam grafik itu yang muncul
adalah
trend kurs tanggal 16, 17, 18.

Adakah yg bisa bantu, gimana caranya?
T'makasih sebelumnya.. :)
8a.

lookup dengan 2 acuan data

Posted by: "Anton Gundul" antongundul@yahoo.com   antongundul

Thu Aug 18, 2011 7:36 pm (PDT)



Dear para master dan teman sekalian,

Bagaimana caranya ya melakukan lookup tapi dengan 2 acuan data yaitu NoMRP dan NamaBarang. Atau mungkin ada altyernatif selain memakai lookupo
Mohon pencerahannya dan terimakasih banyak sebelumnya.

Regards
Anton
8b.

Bls: [belajar-excel] lookup dengan 2 acuan data

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id   dwint.ruswanto

Thu Aug 18, 2011 7:41 pm (PDT)



coba gunakan sumifs

NoMRP NamaBarang QTYin
MRP-01 Plat A =SUMIFS($C$1:$C$10;$E$1:$E$10;$I5;$B$1:$B$10;$J5)
MRP-01 Plat B =SUMIFS($C$1:$C$10;$E$1:$E$10;$I6;$B$1:$B$10;$J6)
MRP-02 Plat A =SUMIFS($C$1:$C$10;$E$1:$E$10;$I7;$B$1:$B$10;$J7)
MRP-02 Plat B =SUMIFS($C$1:$C$10;$E$1:$E$10;$I8;$B$1:$B$10;$J8)
MRP-99 Plat C =SUMIFS($C$1:$C$10;$E$1:$E$10;$I9;$B$1:$B$10;$J9)
MRP-81 Plastik B =SUMIFS($C$1:$C$10;$E$1:$E$10;$I10;$B$1:$B$10;$J10)

Dari: Anton Gundul <antongundul@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 19 Agustus 2011 9:36
Judul: [belajar-excel] lookup dengan 2 acuan data

 

Dear para master dan teman sekalian,

Bagaimana caranya ya melakukan lookup tapi dengan 2 acuan data yaitu NoMRP dan NamaBarang. Atau mungkin ada altyernatif selain memakai lookupo
Mohon pencerahannya dan terimakasih banyak sebelumnya.

Regards
Anton
8c.

Bls: [belajar-excel] lookup dengan 2 acuan data

Posted by: "Saifudin Mnp" saifmnp@ymail.com   saifmnp@ymail.com

Thu Aug 18, 2011 8:01 pm (PDT)



tuliskan formula ini di K5
=SUMPRODUCT(($E$2:$E$10=I5)*($B$2:$B$10=J5);$C$2:$C$10)
lalu copy paste ke row bawahnya

'ada mas Ahmad Zamproduct di sini?

________________________________
Dari: Anton Gundul <antongundul@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 19 Agustus 2011 10:36
Judul: [belajar-excel] lookup dengan 2 acuan data

 
Dear para master dan teman sekalian,

Bagaimana caranya ya melakukan lookup tapi dengan 2 acuan data yaitu NoMRP dan NamaBarang. Atau mungkin ada altyernatif selain memakai lookupo
Mohon pencerahannya dan terimakasih banyak sebelumnya.

Regards
Anton
8d.

Bls: [belajar-excel] lookup dengan 2 acuan data

Posted by: "Anton Gundul" antongundul@yahoo.com   antongundul

Thu Aug 18, 2011 8:24 pm (PDT)



Terimakasih banyak Pak Ruswanto dan Pak Saifudin. Sudah seperti yang diinginkan. Case Close.

________________________________
Dari: Saifudin Mnp <saifmnp@ymail.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 19 Agustus 2011 10:01
Judul: Bls: [belajar-excel] lookup dengan 2 acuan data

 
tuliskan formula ini di K5
=SUMPRODUCT(($E$2:$E$10=I5)*($B$2:$B$10=J5);$C$2:$C$10)
lalu copy paste ke row bawahnya

'ada mas Ahmad Zamproduct di sini?

________________________________
Dari: Anton Gundul <antongundul@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 19 Agustus 2011 10:36
Judul: [belajar-excel] lookup dengan 2 acuan data

 
Dear para master dan teman sekalian,

Bagaimana caranya ya melakukan lookup tapi dengan 2 acuan data yaitu NoMRP dan NamaBarang. Atau mungkin ada altyernatif selain memakai lookupo
Mohon pencerahannya dan terimakasih banyak sebelumnya.

Regards
Anton

9a.

Fungsi IF lagi...

Posted by: "Simonne Manuella" simonne_manuella@yahoo.co.uk   simonne_manuella

Thu Aug 18, 2011 7:54 pm (PDT)



Dear All...
Saya mau minta tolong untuk pencerahannya ya.... terima kasih lo sebelumnya
begini, kasus saya adalah:
jika maker 26 s.d. 28 thn berbobot 24
jika maker 24 s.d. 26 thn berbobot 22
jika maker 22 s.d. 24 thn berbobot 20
jika maker 20 s.d. 22 thn berbobot 18.2

jika poin>=100 maka a
jika poin>=150 maka b
jika poin>=200 maka c
selengkapnya saya lampirkan filenya
mohon bantuannya para master...

terima kasih

9b.

Re: Fungsi IF lagi...

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

Thu Aug 18, 2011 8:25 pm (PDT)



Coba manfaatkan VLookUp dengan opsi match type TRUE atau diabaikan.

Kid.

2011/8/19 Simonne Manuella <simonne_manuella@yahoo.co.uk>

> **
>
>
> Dear All...
> Saya mau minta tolong untuk pencerahannya ya.... terima kasih lo sebelumnya
> begini, kasus saya adalah:
> jika maker 26 s.d. 28 thn berbobot 24
> jika maker 24 s.d. 26 thn berbobot 22
> jika maker 22 s.d. 24 thn berbobot 20
> jika maker 20 s.d. 22 thn berbobot 18.2
>
> jika poin>=100 maka a
> jika poin>=150 maka b
> jika poin>=200 maka c
> selengkapnya saya lampirkan filenya
> mohon bantuannya para master...
>
> terima kasih
>
>
>
>
9c.

Re: Fungsi IF lagi...

Posted by: "Simonne Manuella" simonne_manuella@yahoo.co.uk   simonne_manuella

Thu Aug 18, 2011 9:15 pm (PDT)



Oke mr.Kid ini lagi belajar vlookup,
terima kasih banyak atas bantuannya...

--- On Fri, 19/8/11, Mr. Kid <mr.nmkid@gmail.com> wrote:

From: Mr. Kid <mr.nmkid@gmail.com>
Subject: Re: [belajar-excel] Fungsi IF lagi...
To: belajar-excel@yahoogroups.com
Date: Friday, 19 August, 2011, 10:23

 

Coba manfaatkan VLookUp dengan opsi match type TRUE atau diabaikan.

Kid.

2011/8/19 Simonne Manuella <simonne_manuella@yahoo.co.uk>

 

Dear All...
Saya mau minta tolong untuk pencerahannya ya.... terima kasih lo sebelumnya
begini, kasus saya adalah:

jika maker 26 s.d. 28 thn berbobot 24
jika maker 24 s.d. 26 thn berbobot 22
jika maker 22 s.d. 24 thn berbobot 20
jika maker 20 s.d. 22 thn berbobot 18.2

jika poin>=100 maka a
jika poin>=150 maka b
jika poin>=200 maka c
selengkapnya saya lampirkan filenya
mohon bantuannya para master...

terima kasih

10.

Data huruf besar dan kecil

Posted by: "Yusril Ramadani" yusrilramadani@gmail.com   yusril_rmd

Thu Aug 18, 2011 9:49 pm (PDT)



Dear para pakar

Mohon bantuannya untu case dibawah
Formula apa yang bisa menggabungkan fungsi Upper dan lower di data yang
huruf besar semua menjadi Huruf Besar hanya diawal kata dan seterusnya huruf
kecil

Data yang diinginkan ANDI JAYA Andi Jaya MICHAEL CHAN Michael
Chan JALAN
KENANGA BARU Jalan Kenanga Baru

Terimakasih sebelumnya
Recent Activity
Visit Your Group
Dog Groups

on Yahoo! Groups

Share pictures &

stories about dogs.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

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
---------------------------------------------------------------------
MARKETPLACE
A good Credit Score is 720, find yours & what impacts it at freecreditscore.com.

A bad score is 598. A good idea is checking yours, at freecreditscore.com.

Tidak ada komentar:

Posting Komentar