Senin, 20 Januari 2014

[belajar-excel] Digest Number 2738

15 New Messages

Digest #2738
1a
Prosedur Loop-ing by "Fano The Miner"
1b
Re: Prosedur Loop-ing [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
1c
Re: Prosedur Loop-ing by "Fano The Miner"
2a
4b
Re: sembunyi banyak tampil satu sheet by "Mr. Kid" nmkid.family@ymail.com
5a
Rubah tanggal menggunakan tipe numbering by "Johanes Wawan" johaneswawan
5d
Re: Rubah tanggal menggunakan tipe numbering by "Mr. Kid" nmkid.family@ymail.com
6b

Messages

Sun Jan 19, 2014 6:26 am (PST) . Posted by:

"Fano The Miner"

Dear All,

Mohon bantuannya teman-teman Be-Exceler.

1. Saya punya prosedur vba untuk membuat file txt. Sheet "sheet_txt"
berisi formula yang terintegrasi dengan sheet "data". Jika tombol Create
txt file saya tekan maka akan ter-create file txt sebanyak data count.

2. Permasalannya, saya mempunyai data hampir ribuan, artinya, saya
harus menekan tombol Create txt file sebanyak hampir ribuan di tiap
pekerjaan saya. Yang ingin saya inginkan dan belum saya ketahui adalah
bagaimana me-LOOP / mengulang prosedur tersebut hanya dengan sekali tekan
tombol tersebut maka akan di-create data sebanyak itu.

Untuk lebih jelasnya, illustrasi ada dalam file lampiran.

Mohon Bantuannya.

Terima Kasih,

Salam.

IRFANO "the miner"

Sun Jan 19, 2014 7:54 am (PST) . Posted by:

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

Hai Fano,

Prosedur berikut membutuhkan data di kolom F pada sheet bernama 'data'
minimal 2 nilai.
Public Sub CreateTxtFile()
Dim sPath As String, sFile As String, sTxt(1 To 6) As String
Dim lRow As Long, lRows As Long, sht As Worksheet
Dim dblTime As Double

dblTime = Timer
Set sht = ThisWorkbook.Worksheets("data")
With sht
lRows = .Range("f1").CurrentRegion.Resize(, 1).Count - 1
If lRows < 1 Then
Exit Sub
End If
sPath = ThisWorkbook.Path & "\level_" 'simpan folder hasil
beserta prefix nama file
'Kill sPath & "*.txt" 'hapus hasil yang lama
(aktifkan bila perlu)

'nilai data yang konstan
sTxt(1) = String$(42, "#")
'creation date dibuat sama per klik create
sTxt(2) = "# Creation Date : " & Format$(Now, "DDD MMM HH:nn:ss
YYYY")
sTxt(6) = sTxt(1)

'loop create file
For lRow = 1 To lRows
sFile = sPath & lRow & ".txt" 'nama file (fullname)

sTxt(3) = "# Level" & String$(10, " ") & ": " & lRow
'6 adalah kolom F
sTxt(4) = "# Above" & String$(10, " ") & ": " & .Cells(lRow,
6).Value
sTxt(5) = "# Below" & String$(10, " ") & ": " & .Cells(lRow +
1, 6).Value

'tulis jadi file
Open sFile For Output As #1
Print #1, Join(sTxt, vbCrLf)
Close #1
Next lRow
End With
MsgBox "Done." & vbCrLf & _
lRows & " files created in " & Timer - dblTime & " seconds." _
, vbInformation, "Create txt files"
End Sub

Wassalam,
Kid.

2014/1/19 Fano The Miner <fano.theminer@gmail.com>

>
>
> *Dear All,*
>
> *Mohon bantuannya teman-teman* *Be-Exceler.*
>
>
>
> 1. Saya punya prosedur vba untuk membuat file txt. Sheet "
> *sheet_txt*" berisi formula yang terintegrasi dengan sheet "*data*".
> Jika tombol *Create txt file *saya tekan maka akan ter-create file txt
> sebanyak data count.
>
> 2. Permasalannya, saya mempunyai data hampir ribuan, artinya, saya
> harus menekan tombol *Create txt file *sebanyak hampir ribuan di tiap
> pekerjaan saya. Yang ingin saya inginkan dan belum saya ketahui adalah
> bagaimana me-*LOOP */ *mengulang *prosedur tersebut hanya dengan sekali
> tekan tombol tersebut maka akan di-create data sebanyak itu.
>
>
>
> Untuk lebih jelasnya, illustrasi ada dalam file lampiran.
>
>
>
>
>
> Mohon Bantuannya.
>
> *Terima Kasih, *
>
> *Salam.*
>
> IRFANO *"the miner"*
>
>
>

Sun Jan 19, 2014 10:07 pm (PST) . Posted by:

"Fano The Miner"

Dear Mr. kid..

Tks atas solusinya.

Saya coba dulu untuk di compile dengan vba saya..

Akan saya tanyakan lagi jika ada masalah..

Sekali lagi Terima Kasih Mr. Kid..

Fano.theminer

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Monday, January 20, 2014 12:54 AM
To: BeExcel
Subject: Re: [belajar-excel] Prosedur Loop-ing

Hai Fano,

Prosedur berikut membutuhkan data di kolom F pada sheet bernama 'data'
minimal 2 nilai.
Public Sub CreateTxtFile()
Dim sPath As String, sFile As String, sTxt(1 To 6) As String
Dim lRow As Long, lRows As Long, sht As Worksheet
Dim dblTime As Double

dblTime = Timer
Set sht = ThisWorkbook.Worksheets("data")
With sht
lRows = .Range("f1").CurrentRegion.Resize(, 1).Count - 1
If lRows < 1 Then
Exit Sub
End If
sPath = ThisWorkbook.Path & "\level_" 'simpan folder hasil beserta
prefix nama file
'Kill sPath & "*.txt" 'hapus hasil yang lama
(aktifkan bila perlu)

'nilai data yang konstan
sTxt(1) = String$(42, "#")
'creation date dibuat sama per klik create
sTxt(2) = "# Creation Date : " & Format$(Now, "DDD MMM HH:nn:ss
YYYY")
sTxt(6) = sTxt(1)

'loop create file
For lRow = 1 To lRows
sFile = sPath & lRow & ".txt" 'nama file (fullname)

sTxt(3) = "# Level" & String$(10, " ") & ": " & lRow
'6 adalah kolom F
sTxt(4) = "# Above" & String$(10, " ") & ": " & .Cells(lRow,
6).Value
sTxt(5) = "# Below" & String$(10, " ") & ": " & .Cells(lRow + 1,
6).Value

'tulis jadi file
Open sFile For Output As #1
Print #1, Join(sTxt, vbCrLf)
Close #1
Next lRow
End With
MsgBox "Done." & vbCrLf & _
lRows & " files created in " & Timer - dblTime & " seconds." _
, vbInformation, "Create txt files"
End Sub

Wassalam,

Kid.

2014/1/19 Fano The Miner <fano.theminer@gmail.com>

Dear All,

Mohon bantuannya teman-teman Be-Exceler.

1. Saya punya prosedur vba untuk membuat file txt. Sheet "sheet_txt"
berisi formula yang terintegrasi dengan sheet "data". Jika tombol Create
txt file saya tekan maka akan ter-create file txt sebanyak data count.

2. Permasalannya, saya mempunyai data hampir ribuan, artinya, saya
harus menekan tombol Create txt file sebanyak hampir ribuan di tiap
pekerjaan saya. Yang ingin saya inginkan dan belum saya ketahui adalah
bagaimana me-LOOP / mengulang prosedur tersebut hanya dengan sekali tekan
tombol tersebut maka akan di-create data sebanyak itu.

Untuk lebih jelasnya, illustrasi ada dalam file lampiran.

Mohon Bantuannya.

Terima Kasih,

Salam.

IRFANO "the miner"

Sun Jan 19, 2014 7:22 pm (PST) . Posted by:

"Febrian Yoshi"

Dear All Master,

Mohon bantuannya kembali, untuk kasus terlampir.
Terima kasih.

Rgds,
Fefe

Sun Jan 19, 2014 7:44 pm (PST) . Posted by:

"Jan Raisin"

Hai Fefe,

coba pilih salah satu dari beberapa solusi pada file terlampir

Salam,

-Miss Jan Raisin-

Pada 20 Januari 2014 10.14, Febrian Yoshi <febrixl@gmail.com> menulis:

>
>
> Dear All Master,
>
> Mohon bantuannya kembali, untuk kasus terlampir.
> Terima kasih.
>
> Rgds,
> Fefe
>
>
>

Sun Jan 19, 2014 11:09 pm (PST) . Posted by:

"Febrian Yoshi"

Terima kasih banyak Miss.Jan..

Rgds,
Fefe

Pada 20 Januari 2014 10.44, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

>
>
> Hai Fefe,
>
> coba pilih salah satu dari beberapa solusi pada file terlampir
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 20 Januari 2014 10.14, Febrian Yoshi <febrixl@gmail.com> menulis:
>
>
>>
>> Dear All Master,
>>
>> Mohon bantuannya kembali, untuk kasus terlampir.
>> Terima kasih.
>>
>> Rgds,
>> Fefe
>>
>>
>

Sun Jan 19, 2014 7:39 pm (PST) . Posted by:

"Febrian Yoshi"

Terima kasih banyak atas penjelasannya Mr. Kid.

Wassalamuálaikum Wr. Wb.
Fefe

Pada 18 Januari 2014 20.55, Mr. Kid <mr.nmkid@gmail.com> menulis:

>
>
> Hai Fefe,
>
> Format cells number yang mengatur jumlah digit dibelakang koma tidak akan
> mempengaruhi proses kalkulasi.
> Fungsi Round yang digunakan untuk membandingkan akan memberi manfaat
> tersendiri.
> Misal cell A9 yang bisa jadi memiliki 7 digit dibelakang koma akan
> dibandingkan dengan G9 yang hanya bisa memiliki 3 digit dibelakang koma,
> maka jumlah digit dalam fungsi round sebaiknya mengikuti yang terendah dari
> kedua nilai yang dibandingkan. Jadi bentuk perbandingannya menjadi :
> Round( A9 , 3 ) = Round( G9 , 3 )
>
> Jika A9 tadi akan dibandingkan dengan hasil Sum range K2:K17 yang bisa
> memiliki 8 digit dibelakang koma, maka tentukan kebutuhan jumlah digit di
> sisi hasilnya. Misal sisi hasil hanya boleh berisi 2 digit dibelakang koma
> karena uang hanya sampai satuan sen.
> Round( A9 , 2 ) = Round( Sum( K2:K17 ) , 2 )
>
> Biasanya, untuk komputasi nilai uang, jumlah digitnya sering menggunakan 4
> digit dibelakang koma (lihat datatype Currency), meskipun nanti akhirnya
> dalam menampilkan nilai akhir akan ditampilkan dengan 2 digit dibelakang
> koma (baik dengan format cell maupun menggunakan round).
> Contoh :
> kolom total pendapatan hasil Sum di round dengan 4
> kolom nilai pajak hasil perkalian dengan persentase di round dengan 4
> kolom nilai bersih hasil pengurangan total pendapatan dengan nilai pajak
> di :
> - round dengan 4 lalu di format cells menampilkan 2 digit dibelakang koma
> atau
> - round dengan 2 sekalian dan format cells menampilkan 2 digit dibelakang
> koma
>
> gitu kali ya...
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2014/1/18 Febrian Yoshi <febrixl@gmail.com>
>
>>
>>
>> Dear all master,
>> Berapa digit kah angka di belakang koma yang idealnya kita pakai, agar
>> tdk terjadi selisih yg besar pada saat kita membandingkan dg hasil
>> penjumlahan angka yg tdk memakai digit di belakang koma.
>>
>> Wassalamu'alaikum Wr.Wb
>> Fefe
>>
>>
>>
>
>

Sun Jan 19, 2014 8:29 pm (PST) . Posted by:

"prazt" praztmath

Pakah seperti file terlampir ini Mr.Kid?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Hendrik Karnadi
Sent: 18 Januari 2014 16:18
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] sembunyi banyak tampil satu sheet

Sdh coba pake macro recording pak?

Salam,

HK

Sent from Samsung Mobile

prazt <praztmath@gmail.com> wrote:


Dear rekan dan master excell.....

jika saya mempunyai 3 sheet (a,b dan b), dan 3 sheet tersebut mempunyi hyperlink (sheeet a ada hyperlink ke sheet b, dan sebaliknya)jika saya tekan tombol hyperlink pd sheet a maka masuk ke sheet b dan sheet a dan c terhiden begitu juga sebaliknya jika hyperlink pada sheet a saya klik maka sheet b dan c terhiden...bagaimana cara menyelesaikan kasus tersebut para suhu..syukron..

_____

<http://www.avast.com/>

Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Mon Jan 20, 2014 12:06 am (PST) . Posted by:

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

Coba di-remove hyperlink nya

2014/1/20 prazt <praztmath@gmail.com>

>
>
> Pakah seperti file terlampir ini Mr.Kid?
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Hendrik Karnadi
> *Sent:* 18 Januari 2014 16:18
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] sembunyi banyak tampil satu sheet
>
>
>
>
>
> Sdh coba pake macro recording pak?
>
>
>
> Salam,
>
> HK
>
>
>
>
>
> Sent from Samsung Mobile
>
>
> prazt <praztmath@gmail.com> wrote:
>
>
> Dear rekan dan master excell.....
>
> jika saya mempunyai 3 sheet (a,b dan b), dan 3 sheet tersebut mempunyi
> hyperlink (sheeet a ada hyperlink ke sheet b, dan sebaliknya)jika saya
> tekan tombol hyperlink pd sheet a maka masuk ke sheet b dan sheet a dan c
> terhiden begitu juga sebaliknya jika hyperlink pada sheet a saya klik maka
> sheet b dan c terhiden...bagaimana cara menyelesaikan kasus tersebut para
> suhu..syukron..
>
>
> ------------------------------
>
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>

Sun Jan 19, 2014 9:19 pm (PST) . Posted by:

"Johanes Wawan" johaneswawan

Dear Pakar Excel,

Mohon pencerahannya untuk hanya mengambil bulan dan tanggalnya saja dengan tipe numbering.
Misalnya tertanggal 05/03/2007, bagaimana formula excel yang tepat supaya hasilnya 0307, dg penjelasan 03 bulan dan 07 tahun.

Terima kasih.

Salam,
Wawan

Sun Jan 19, 2014 10:07 pm (PST) . Posted by:

"Jan Raisin"

mungkin seperti file terlampir..

Salam,

-Miss Jan Raisin-

Pada 20 Januari 2014 12.16, Johanes Wawan <johaneswawan@yahoo.co.id>menulis:

>
>
> Dear Pakar Excel,
>
> Mohon pencerahannya untuk hanya mengambil bulan dan tanggalnya saja dengan
> tipe numbering.
> Misalnya tertanggal 05/03/2007, bagaimana formula excel yang tepat supaya
> hasilnya 0307, dg penjelasan 03 bulan dan 07 tahun.
>
> Terima kasih.
>
>
> Salam,
> Wawan
>
>
>

Sun Jan 19, 2014 10:20 pm (PST) . Posted by:

"Johanes Wawan" johaneswawan

Terima kasih Mr. Jan
file sudah sesuai dengan yang kami harapkan.

Salam,

Pada Senin, 20 Januari 2014 13:07, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
mungkin seperti file terlampir..

Salam,

-Miss Jan Raisin-

Pada 20 Januari 2014 12.16, Johanes Wawan <johaneswawan@yahoo.co.id> menulis:

> 
>Dear Pakar Excel,
>
>
>Mohon pencerahannya untuk hanya mengambil bulan dan tanggalnya saja dengan tipe numbering.
>Misalnya tertanggal 05/03/2007, bagaimana formula excel yang tepat supaya hasilnya 0307, dg penjelasan 03 bulan dan 07 tahun.
>
>
>Terima kasih.
>
>
>
>
>Salam,
>Wawan
>
>

Mon Jan 20, 2014 12:06 am (PST) . Posted by:

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

Jika ada kemungkinan hasil penyusunan bulan dan tahun tersebut menjadi
kolom kunci sort, bisa jadi susunannya akan lebih baik tahun diikuti bulan.
Jadi, data September tahun 2002 akan tetap diatas data Maret tahun 2007
ketika di-sort ascending.

Wassalam,
Kid.

2014/1/20 Johanes Wawan <johaneswawan@yahoo.co.id>

>
>
> Terima kasih Mr. Jan
> file sudah sesuai dengan yang kami harapkan.
>
> Salam,
>
>
> Pada Senin, 20 Januari 2014 13:07, Jan Raisin <miss.jan.raisin@gmail.com>
> menulis:
>
> mungkin seperti file terlampir..
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 20 Januari 2014 12.16, Johanes Wawan <johaneswawan@yahoo.co.id>menulis:
>
>
> Dear Pakar Excel,
>
> Mohon pencerahannya untuk hanya mengambil bulan dan tanggalnya saja dengan
> tipe numbering.
> Misalnya tertanggal 05/03/2007, bagaimana formula excel yang tepat supaya
> hasilnya 0307, dg penjelasan 03 bulan dan 07 tahun.
>
> Terima kasih.
>
>
> Salam,
> Wawan
>
>
>
>
>

Sun Jan 19, 2014 11:19 pm (PST) . Posted by:

"Febrian Yoshi"

Dear All Master,

Saya sedang membandingkan hasil formula AVERAGE dg hasil formula pembagian
langsung. Mengapa hasilnya berbeda ya? (contoh kasus terlampir).
Mohon pencerahannya Master..

Rgds,
Fefe

Mon Jan 20, 2014 12:08 am (PST) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Kalo menurut saya harusnya memang berbeda.
Misal:
-- S1: Sales bulan Pertama, T1: Target Bulan pertama
-- S2: Sales bulan kedua, T2: Target bulan kedua

rata-rata pertama (average) dihitung dengan rumus: ((S1/T1)+(S2/T2))/2
rata-rata kedua (pembanding) dihitung dengan rumus (S1+S2)/(T1/T2)

jadi rata2 pertama tidak sama dengan rata-rata kedua

mungkin yang lain bisa menjelaskan lebih gambling.

thanks
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Febrian Yoshi
Sent: Monday, January 20, 2014 2:19 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Hasil Average Berbeda dg Hasil Pembagian Langsung
[1 Attachment]

 
Dear All Master,

Saya sedang membandingkan hasil formula AVERAGE dg hasil formula pembagian
langsung. Mengapa hasilnya berbeda ya? (contoh kasus terlampir).
Mohon pencerahannya Master..

Rgds,
Fefe

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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.08

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)