13 New Messages
Digest #1737
6
Membuat Daftar File yang ada dalam Dir atau SubDir di Sheet Excel by "hendrik karnadi" hendrikkarnadi
Messages
Sun Aug 19, 2012 9:14 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:
- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali
- nama yaitu bagian yg "(1)" itu ingin dihilangkan.
Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:
mySheet.Name = myBase & "(" & mySuffix & ")" dengan
mySheet.Name = myBase
Semoga pas sesuai keinginan (kayak iklan pertamina aja).
File revisinya terlampir.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Sdg libur lebaran pak??
Mau laporan nih. Makro sdh saya terapkan, pd dasarnya sdh oke, hanya msh ada yg terasa kurang manis, yaitu saat running makro pertama kali..
Running makro pertama kali akan membentuk sheet '010712(1)'..
Jika sebagian nama yaitu bagian yg "(1)" itu ingin dihilangkan gmn caranya??
(khusus utk angka (1) saja. Utk angka (2),(3),dst sdh cucok bgt)
Saya sdh coba sedikit ubah makro yaitu mysuffix=1 menjadi mysuffix=0, hasilnya malah nama sheet mjd '010712(0)'..
Mhn bimbingannya lagi pak, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] Makro - Memberi Nama Sheet Baru
Akhirnya saya temukan Macronya dalam buku karangan Reed Jacobson terbitan th 2001 (sudah 11 tahun namun masih solid)
Macronya seperti ini:
Sub MembuatSheetsSerial()
Dim mySheet As Worksheet
Dim myBase As String
Dim mySuffix As Integer
Set mySheet = Worksheets.Add
myBase = Sheets("Sheet1").Range("A3").Value 'cuma ini modifikasi dari saya, selebihnya tulisan beliau
mySuffix = 1
On Error Resume Next
mySheet.Name = myBase & "(" & mySuffix & ")"
Do Until Err.Number = 0
Err.Clear
mySuffix = mySuffix + 1
mySheet.Name = myBase & "(" & mySuffix & ")"
Loop
End Sub
Kunci utamanyaadalah menggunakan Do Loop dengan mentrap Err (Error) sampai tidak ada lagi Error (Err.Number = 0)
File beserta macronya terlmpir.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Thursday, 16 August 2012, 8:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Maaf, yang begini sementara saya belum bisa buat.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd kasus yg saya hadapi..
maaf ternyata msh ada masalah yg tadinya tdk terfikirkan..
Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita bentuk lagi sheet yg sama, maka akan muncul pesan error(debug??) Karena sheet tsb sdh ada sblmnya.
Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai medan010712(2), medan010712(3) dst --> persis seperti nama sheet kalo sheet tsb dikopi secara manual.
Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu sel(mis. A3) untuk menggabungkan sel A1 dan A2.
Sel A3 berisi function sbb:
=LEFT(A2,FIND("-",A2)-1)&DAY(A1)&RIGHT("00"&MONTH(A1),2)&RIGHT(YEAR(A1),2)
Kemudian buat macro sbb:
Sub ShBaru()
Sheets.Add
ActiveSheet.Name = Sheets("Sheet1").Range("A3").Value
End Sub
Salamat mencoba.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru
Salam exceler..
Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan makro??
Misalkan pada suatu sheet:
Sel A1 berisi tanggal --> 17 agustus 2012
Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan propinsi yg dipisahkan dgn tanda penghubung "-").
Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"??
(Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit tanggal, dua digit bulan, dan dua digit tahun dari
sel A1)..
mohon dicerahkan, trm ksh sblmnya.. :)
Wassalam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
------------------------------------
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali
- nama yaitu bagian yg "(1)" itu ingin dihilangkan.
Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:
mySheet.Name = myBase & "(" & mySuffix & ")" dengan
mySheet.Name = myBase
Semoga pas sesuai keinginan (kayak iklan pertamina aja).
File revisinya terlampir.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Sdg libur lebaran pak??
Mau laporan nih. Makro sdh saya terapkan, pd dasarnya sdh oke, hanya msh ada yg terasa kurang manis, yaitu saat running makro pertama kali..
Running makro pertama kali akan membentuk sheet '010712(1)'.
Jika sebagian nama yaitu bagian yg "(1)" itu ingin dihilangkan gmn caranya??
(khusus utk angka (1) saja. Utk angka (2),(3),dst sdh cucok bgt)
Saya sdh coba sedikit ubah makro yaitu mysuffix=1 menjadi mysuffix=0, hasilnya malah nama sheet mjd '010712(0)'.
Mhn bimbingannya lagi pak, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Fw: [belajar-excel] Makro - Memberi Nama Sheet Baru
Akhirnya saya temukan Macronya dalam buku karangan Reed Jacobson terbitan th 2001 (sudah 11 tahun namun masih solid)
Macronya seperti ini:
Sub MembuatSheetsSerial
Dim mySheet As Worksheet
Dim myBase As String
Dim mySuffix As Integer
Set mySheet = Worksheets.Add
myBase = Sheets("Sheet1"
mySuffix = 1
On Error Resume Next
mySheet.Name = myBase & "(" & mySuffix & ")"
Do Until Err.Number = 0
Err.Clear
mySuffix = mySuffix + 1
mySheet.Name = myBase & "(" & mySuffix & ")"
Loop
End Sub
Kunci utamanyaadalah menggunakan Do Loop dengan mentrap Err (Error) sampai tidak ada lagi Error (Err.Number = 0)
File beserta macronya terlmpir.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Thursday, 16 August 2012, 8:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Maaf, yang begini sementara saya belum bisa buat.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd kasus yg saya hadapi..
maaf ternyata msh ada masalah yg tadinya tdk terfikirkan.
Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita bentuk lagi sheet yg sama, maka akan muncul pesan error(debug?
Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai medan010712(
Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu sel(mis. A3) untuk menggabungkan sel A1 dan A2.
Sel A3 berisi function sbb:
=LEFT(A2,FIND(
Kemudian buat macro sbb:
Sub ShBaru()
Sheets.Add
ActiveSheet.
End Sub
Salamat mencoba.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru
Salam exceler..
Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan makro??
Misalkan pada suatu sheet:
Sel A1 berisi tanggal --> 17 agustus 2012
Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan propinsi yg dipisahkan dgn tanda penghubung "-").
Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"
(Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit tanggal, dua digit bulan, dan dua digit tahun dari
sel A1)..
mohon dicerahkan, trm ksh sblmnya.. :)
Wassalam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Sun Aug 19, 2012 3:39 pm (PDT) . Posted by:
"sin.ur4t@yahoo.com" sin.ur4t
Solved, pak karnadi, sesuai seutuhnya.. Case closed :D
Sekali lagi terima kasih, mhn jgn bosan membimbing utk kasus2 selanjutnya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Sun, 19 Aug 2012 09:14:16
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:
- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali
- nama yaitu bagian yg "(1)" itu ingin dihilangkan.
Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:
mySheet.Name = myBase & "(" & mySuffix & ")" dengan
mySheet.Name = myBase
Semoga pas sesuai keinginan (kayak iklan pertamina aja).
File revisinya terlampir.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Sdg libur lebaran pak??
Mau laporan nih. Makro sdh saya terapkan, pd dasarnya sdh oke, hanya msh ada yg terasa kurang manis, yaitu saat running makro pertama kali..
Running makro pertama kali akan membentuk sheet '010712(1)'..
Jika sebagian nama yaitu bagian yg "(1)" itu ingin dihilangkan gmn caranya??
(khusus utk angka (1) saja. Utk angka (2),(3),dst sdh cucok bgt)
Saya sdh coba sedikit ubah makro yaitu mysuffix=1 menjadi mysuffix=0, hasilnya malah nama sheet mjd '010712(0)'..
Mhn bimbingannya lagi pak, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] Makro - Memberi Nama Sheet Baru
Akhirnya saya temukan Macronya dalam buku karangan Reed Jacobson terbitan th 2001 (sudah 11 tahun namun masih solid)
Macronya seperti ini:
Sub MembuatSheetsSerial()
Dim mySheet As Worksheet
Dim myBase As String
Dim mySuffix As Integer
Set mySheet = Worksheets.Add
myBase = Sheets("Sheet1").Range("A3").Value 'cuma ini modifikasi dari saya, selebihnya tulisan beliau
mySuffix = 1
On Error Resume Next
mySheet.Name = myBase & "(" & mySuffix & ")"
Do Until Err.Number = 0
Err.Clear
mySuffix = mySuffix + 1
mySheet.Name = myBase & "(" & mySuffix & ")"
Loop
End Sub
Kunci utamanyaadalah menggunakan Do Loop dengan mentrap Err (Error) sampai tidak ada lagi Error (Err.Number = 0)
File beserta macronya terlmpir.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Thursday, 16 August 2012, 8:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Maaf, yang begini sementara saya belum bisa buat.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd kasus yg saya hadapi..
maaf ternyata msh ada masalah yg tadinya tdk terfikirkan..
Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita bentuk lagi sheet yg sama, maka akan muncul pesan error(debug??) Karena sheet tsb sdh ada sblmnya.
Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai medan010712(2), medan010712(3) dst --> persis seperti nama sheet kalo sheet tsb dikopi secara manual.
Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu sel(mis. A3) untuk menggabungkan sel A1 dan A2.
Sel A3 berisi function sbb:
=LEFT(A2,FIND("-",A2)-1)&DAY(A1)&RIGHT("00"&MONTH(A1),2)&RIGHT(YEAR(A1),2)
Kemudian buat macro sbb:
Sub ShBaru()
Sheets.Add
ActiveSheet.Name = Sheets("Sheet1").Range("A3").Value
End Sub
Salamat mencoba.
Salam,
Hendrik Karnadi
________________________________
From: "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru
Salam exceler..
Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan makro??
Misalkan pada suatu sheet:
Sel A1 berisi tanggal --> 17 agustus 2012
Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan propinsi yg dipisahkan dgn tanda penghubung "-").
Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"??
(Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit tanggal, dua digit bulan, dan dua digit tahun dari
sel A1)..
mohon dicerahkan, trm ksh sblmnya.. :)
Wassalam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
------------------------------------
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
Sekali lagi terima kasih, mhn jgn bosan membimbing utk kasus2 selanjutnya.
Salam
Sinurat
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Sun, 19 Aug 2012 09:14:16
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Ada 2 kondisi yang harus dipenuhi menurut apa yang diutarakan dalam milis:
- persis seperti nama sheet kalo sheet tsb dikopi secara manual (artinya jika salah satu sheet dihapus dan perintah diulangi maka No Sheet akan tetap berurut), kecuali
- nama yaitu bagian yg "(1)" itu ingin dihilangkan.
Jika kedua kondisi di atas benar maka anda cukup mengganti Code ini:
mySheet.Name = myBase & "(" & mySuffix & ")" dengan
mySheet.Name = myBase
Semoga pas sesuai keinginan (kayak iklan pertamina aja).
File revisinya terlampir.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Sunday, 19 August 2012, 17:48
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Sdg libur lebaran pak??
Mau laporan nih. Makro sdh saya terapkan, pd dasarnya sdh oke, hanya msh ada yg terasa kurang manis, yaitu saat running makro pertama kali..
Running makro pertama kali akan membentuk sheet '010712(1)'.
Jika sebagian nama yaitu bagian yg "(1)" itu ingin dihilangkan gmn caranya??
(khusus utk angka (1) saja. Utk angka (2),(3),dst sdh cucok bgt)
Saya sdh coba sedikit ubah makro yaitu mysuffix=1 menjadi mysuffix=0, hasilnya malah nama sheet mjd '010712(0)'.
Mhn bimbingannya lagi pak, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Sat, 18 Aug 2012 04:53:32 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Fw: [belajar-excel] Makro - Memberi Nama Sheet Baru
Akhirnya saya temukan Macronya dalam buku karangan Reed Jacobson terbitan th 2001 (sudah 11 tahun namun masih solid)
Macronya seperti ini:
Sub MembuatSheetsSerial
Dim mySheet As Worksheet
Dim myBase As String
Dim mySuffix As Integer
Set mySheet = Worksheets.Add
myBase = Sheets("Sheet1"
mySuffix = 1
On Error Resume Next
mySheet.Name = myBase & "(" & mySuffix & ")"
Do Until Err.Number = 0
Err.Clear
mySuffix = mySuffix + 1
mySheet.Name = myBase & "(" & mySuffix & ")"
Loop
End Sub
Kunci utamanyaadalah menggunakan Do Loop dengan mentrap Err (Error) sampai tidak ada lagi Error (Err.Number = 0)
File beserta macronya terlmpir.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Thursday, 16 August 2012, 8:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Maaf, yang begini sementara saya belum bisa buat.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Thursday, 16 August 2012, 1:44
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd kasus yg saya hadapi..
maaf ternyata msh ada masalah yg tadinya tdk terfikirkan.
Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita bentuk lagi sheet yg sama, maka akan muncul pesan error(debug?
Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai medan010712(
Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
Salam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
____________
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu sel(mis. A3) untuk menggabungkan sel A1 dan A2.
Sel A3 berisi function sbb:
=LEFT(A2,FIND(
Kemudian buat macro sbb:
Sub ShBaru()
Sheets.Add
ActiveSheet.
End Sub
Salamat mencoba.
Salam,
Hendrik Karnadi
____________
From: "sin.ur4t@yahoo.
To: Belajar Excel <belajar-excel@
Sent: Wednesday, 15 August 2012, 16:54
Subject: [belajar-excel] Makro - Memberi Nama Sheet Baru
Salam exceler..
Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan makro??
Misalkan pada suatu sheet:
Sel A1 berisi tanggal --> 17 agustus 2012
Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan propinsi yg dipisahkan dgn tanda penghubung "-").
Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"
(Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit tanggal, dua digit bulan, dan dua digit tahun dari
sel A1)..
mohon dicerahkan, trm ksh sblmnya.. :)
Wassalam
Sinurat-sumut
Powered by Telkomsel BlackBerry®
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
Sun Aug 19, 2012 9:33 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Selamat hari raya IDUL FITRI bagi Mods dan member Be-Excel.
Orang Batawi bilang "Kalo ade sale-sale kate mohon dimaapin ye"
Salam,
Hendrik Karnadi
Orang Batawi bilang "Kalo ade sale-sale kate mohon dimaapin ye"
Salam,
Hendrik Karnadi
Sun Aug 19, 2012 3:39 pm (PDT) . Posted by:
"rere Rua" rererua
error 1004
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb
Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert -> module])
public sub AturKolom()
dim lCols as long
activesheet.calculate
range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan lebar kolom yang diinginkan
'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris di atas
'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true menjadi false untuk meng-un-hide kolom
end sub
Wassalam,
Kid.
2012/8/18 rere <rererua@yahoo.com >
>
>salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1. hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Sunday, August 19, 2012 9:18 PM
Subject: Re: [belajar-excel] select beberapa coloumb
Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert -> module])
public sub AturKolom()
dim lCols as long
activesheet.
range("d1").
'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris di atas
'range("d1")
end sub
Wassalam,
Kid.
2012/8/18 rere <rererua@yahoo.
>
>salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1. hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
Sun Aug 19, 2012 3:42 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Setelah baris calculate beri :
Lcols=range("c1").value
Kid.
On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.com > wrote:
> **
>
>
> error 1004
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, August 19, 2012 9:18 PM
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
> -> module])
> public sub AturKolom()
> dim lCols as long
> activesheet.calculate
> range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan
> lebar kolom yang diinginkan
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan
> baris di atas
> 'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true
> menjadi false untuk meng-un-hide kolom
> end sub
>
> Wassalam,
> Kid.
>
> 2012/8/18 rere <rererua@yahoo.com >
>
> **
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
>
>
>
Lcols=range(
Kid.
On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.
> **
>
>
> error 1004
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Sunday, August 19, 2012 9:18 PM
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
> -> module])
> public sub AturKolom()
> dim lCols as long
> activesheet.
> range("d1").
> lebar kolom yang diinginkan
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan
> baris di atas
> 'range("d1")
> menjadi false untuk meng-un-hide kolom
> end sub
>
> Wassalam,
> Kid.
>
> 2012/8/18 rere <rererua@yahoo.
>
> **
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
>
>
>
Sun Aug 19, 2012 11:10 pm (PDT) . Posted by:
"rere Rua" rererua
thanks udah bisa
tp bisa ga di jelaskan
klo Public Sub AturKolom() adalah fungsi
end sub adalah akhir fungsi
Dim lCols As Long deklarasi variable nama lCols tipe data long
ActiveSheet.Calculate ???
lCols = Range("c1").Value ????
Range("d1").Resize(, lCols).ColumnWidth =
mohon maaf klo banyak bertanya
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, August 20, 2012 5:42 AM
Subject: Re: [belajar-excel] select beberapa coloumb
Setelah baris calculate beri :
Lcols=range("c1").value
Kid.
On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.com > wrote:
>
>error 1004
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Sunday, August 19, 2012 9:18 PM
>Subject: Re: [belajar-excel] select beberapa coloumb
>
>
>
>Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert -> module])
>public sub AturKolom()
> dim lCols as long
> activesheet.calculate
> range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan lebar kolom yang diinginkan
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris di atas
> 'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true menjadi false untuk meng-un-hide kolom
>end sub
>
>Wassalam,
>Kid.
>
>
>2012/8/18 rere <rererua@yahoo.com >
>
>
>>
>>salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1. hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>>
>>
>>
>
>
>
tp bisa ga di jelaskan
klo Public Sub AturKolom() adalah fungsi
end sub adalah akhir fungsi
Dim lCols As Long deklarasi variable nama lCols tipe data long
ActiveSheet.
lCols = Range("c1").
Range("d1").
mohon maaf klo banyak bertanya
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, August 20, 2012 5:42 AM
Subject: Re: [belajar-excel] select beberapa coloumb
Setelah baris calculate beri :
Lcols=range(
Kid.
On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.
>
>error 1004
>
>
>
>___________
> From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Sunday, August 19, 2012 9:18 PM
>Subject: Re: [belajar-excel] select beberapa coloumb
>
>
>
>Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert -> module])
>public sub AturKolom()
> dim lCols as long
> activesheet.
> range("d1").
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris di atas
> 'range("d1")
>end sub
>
>Wassalam,
>Kid.
>
>
>2012/8/18 rere <rererua@yahoo.
>
>
>>
>>salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1. hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>>
>>
>>
>
>
>
Sun Aug 19, 2012 11:24 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
ActiveSheet.Calculate 'perintahkan Excel untuk mengkalkulasi worksheet yang
aktif (untuk antisipasi jika file diset calculation opsi adalah manual)
lCols = Range("c1").Value 'isi variabel lcols dengan nilai dari range c1
Range("d1").Resize(, lCols).ColumnWidth = 15 'set nilai lebar kolom
dengan 15, untuk kolom mulai dari cell d1 diperlebar sebanyak lcols kolom
Wassalam,
Kid.
2012/8/20 rere Rua <rererua@yahoo.com >
> **
>
>
> thanks udah bisa
> tp bisa ga di jelaskan
> klo Public Sub AturKolom() adalah fungsi
> end sub adalah akhir fungsi
> Dim lCols As Long deklarasi variable nama lCols tipe data long
> ActiveSheet.Calculate ???
> lCols = Range("c1").Value ????
> Range("d1").Resize(, lCols).ColumnWidth =
>
> mohon maaf klo banyak bertanya
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, August 20, 2012 5:42 AM
>
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Setelah baris calculate beri :
> Lcols=range("c1").value
> Kid.
> On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.com > wrote:
>
> **
>
> error 1004
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, August 19, 2012 9:18 PM
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
> -> module])
> public sub AturKolom()
> dim lCols as long
> activesheet.calculate
> range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan
> lebar kolom yang diinginkan
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan
> baris di atas
> 'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true
> menjadi false untuk meng-un-hide kolom
> end sub
>
> Wassalam,
> Kid.
>
> 2012/8/18 rere <rererua@yahoo.com >
>
> **
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
>
>
>
>
>
aktif (untuk antisipasi jika file diset calculation opsi adalah manual)
lCols = Range("c1").
Range("d1").
dengan 15, untuk kolom mulai dari cell d1 diperlebar sebanyak lcols kolom
Wassalam,
Kid.
2012/8/20 rere Rua <rererua@yahoo.
> **
>
>
> thanks udah bisa
> tp bisa ga di jelaskan
> klo Public Sub AturKolom() adalah fungsi
> end sub adalah akhir fungsi
> Dim lCols As Long deklarasi variable nama lCols tipe data long
> ActiveSheet.
> lCols = Range("c1").
> Range("d1").
>
> mohon maaf klo banyak bertanya
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, August 20, 2012 5:42 AM
>
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Setelah baris calculate beri :
> Lcols=range(
> Kid.
> On Aug 20, 2012 5:39 AM, "rere Rua" <rererua@yahoo.
>
> **
>
> error 1004
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Sunday, August 19, 2012 9:18 PM
> *Subject:* Re: [belajar-excel] select beberapa coloumb
>
>
> Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
> -> module])
> public sub AturKolom()
> dim lCols as long
> activesheet.
> range("d1").
> lebar kolom yang diinginkan
> 'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan
> baris di atas
> 'range("d1")
> menjadi false untuk meng-un-hide kolom
> end sub
>
> Wassalam,
> Kid.
>
> 2012/8/18 rere <rererua@yahoo.
>
> **
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
>
>
>
>
>
Sun Aug 19, 2012 5:06 pm (PDT) . Posted by:
"dhen.baguse" bagusejogja
Salam mr kid
Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
Wassalam
Dikirim dari Yahoo! Mail pada Androidd
Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?
Wassalam
Dikirim dari Yahoo! Mail pada Androidd
Sun Aug 19, 2012 5:37 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang
selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah
nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang
berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi
volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif
formula yang mengurangi penggunaan fungsi volatile. File lampiran akan
lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari
ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai
penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak
sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya
merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@yahoo.com > wrote:
> Salam mr kid
> Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi
> tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna
> mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
> Wassalam
>
>
> Dikirim dari Yahoo! Mail pada Androidd
>
> ------------------------------
> * From: * Kid Mr. <mr.nmkid@gmail.com >;
> * To: * <belajar-excel@yahoogroups.com >;
> * Subject: * Re: [belajar-excel] Memperkecil ukuran file
> * Sent: * Sun, Aug 19, 2012 2:26:57 PM
>
>
>
> Apakah ada penggunaan fungsi-fungsi seperti :
> Now(),Date(),Offset(),Indirect()
> pada file aslinya ?
> baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
> Kid.
>
> 2012/8/18 dhen.baguse <bagusejogja@yahoo.com >
>
>> **
>>
>>
>> Salam Sahabat Excel,
>> saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat
>> excel agar sedikit yahud...;)
>>
>> wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut
>> belajar excel...
>>
>>
>
>
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang
selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah
nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang
berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi
volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif
formula yang mengurangi penggunaan fungsi volatile. File lampiran akan
lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari
ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai
penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak
sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya
merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@
> Salam mr kid
> Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi
> tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna
> mengatasinya?
> Wassalam
>
>
> Dikirim dari Yahoo! Mail pada Androidd
>
> ------------
> * From: * Kid Mr. <mr.nmkid@gmail.
> * To: * <belajar-excel@
> * Subject: * Re: [belajar-excel] Memperkecil ukuran file
> * Sent: * Sun, Aug 19, 2012 2:26:57 PM
>
>
>
> Apakah ada penggunaan fungsi-fungsi seperti :
> Now(),Date()
> pada file aslinya ?
> baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
> Kid.
>
> 2012/8/18 dhen.baguse <bagusejogja@
>
>> **
>>
>>
>> Salam Sahabat Excel,
>> saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat
>> excel agar sedikit yahud...;)
>>
>> wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut
>> belajar excel...
>>
>>
>
>
Sun Aug 19, 2012 8:03 pm (PDT) . Posted by:
"dhen.baguse" bagusejogja
Maaf mr kid klo email saya tadi ke cc, sahabat excel saya melampirkan excel seperti yang pertama dan dilampiran terdapat rumus rumus dan conditonal formatting yang sama seperti aslinya, hanya saya merampingkan jumlah barisnya agar file tidak terlalu besar. Untuk jumlah baris yang sebenarnya juga saya informasikan di sheet pertanyaan.. Semoga bisa membantu.. maturnuwun. Salam Jaya Bexceller....
wassalam
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Monday, August 20, 2012 7:37 AM
Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file
Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@yahoo.com > wrote:
Salam mr kid
>Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
>Wassalam
>
>
>
>Dikirim dari Yahoo! Mail pada Androidd
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com >;
>To: <belajar-excel@yahoogroups.com >;
>Subject: Re: [belajar-excel] Memperkecil ukuran file
>Sent: Sun, Aug 19, 2012 2:26:57 PM
>
>
>
>Apakah ada penggunaan fungsi-fungsi seperti :
>Now(),Date(),Offset(),Indirect()
>pada file aslinya ?
>baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
>Kid.
>
>
>2012/8/18 dhen.baguse <bagusejogja@yahoo.com >
>
>
>>
>>Salam Sahabat Excel,
>>saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat excel agar sedikit yahud...;)
>>
>>
>>wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut belajar excel...
>
wassalam
____________
From: Kid Mr. <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Monday, August 20, 2012 7:37 AM
Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file
Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@
Salam mr kid
>Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?
>Wassalam
>
>
>
>Dikirim dari Yahoo! Mail pada Androidd
>
>
>
>___________
> From: Kid Mr. <mr.nmkid@gmail.
>To: <belajar-excel@
>Subject: Re: [belajar-excel] Memperkecil ukuran file
>Sent: Sun, Aug 19, 2012 2:26:57 PM
>
>
>
>Apakah ada penggunaan fungsi-fungsi seperti :
>Now(),Date(
>pada file aslinya ?
>baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
>Kid.
>
>
>2012/8/18 dhen.baguse <bagusejogja@
>
>
>>
>>Salam Sahabat Excel,
>>saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat excel agar sedikit yahud...;)
>>
>>
>>wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut belajar excel...
>
Sun Aug 19, 2012 8:04 pm (PDT) . Posted by:
"dhen.baguse" bagusejogja
maaf attach tertinggal.....
Maaf mr kid klo email saya tadi ke cc, sahabat excel saya melampirkan
excel seperti yang pertama dan dilampiran terdapat rumus rumus dan
conditonal formatting yang sama seperti aslinya, hanya saya merampingkan jumlah barisnya agar file tidak terlalu besar. Untuk jumlah baris yang
sebenarnya juga saya informasikan di sheet pertanyaan.. Semoga bisa
membantu.. maturnuwun. Salam Jaya Bexceller....
wassalam
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Monday, August 20, 2012 7:37 AM
Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file
Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@yahoo.com > wrote:
Salam mr kid
>Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?trmakasih mr kid khususnya n sahat belajar excel umumnya..
>Wassalam
>
>
>
>Dikirim dari Yahoo! Mail pada Androidd
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com >;
>To: <belajar-excel@yahoogroups.com >;
>Subject: Re: [belajar-excel] Memperkecil ukuran file
>Sent: Sun, Aug 19, 2012 2:26:57 PM
>
>
>
>Apakah ada penggunaan fungsi-fungsi seperti :
>Now(),Date(),Offset(),Indirect()
>pada file aslinya ?
>baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
>Kid.
>
>
>2012/8/18 dhen.baguse <bagusejogja@yahoo.com >
>
>
>>
>>Salam Sahabat Excel,
>>saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat excel agar sedikit yahud...;)
>>
>>
>>wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut belajar excel...
>
Maaf mr kid klo email saya tadi ke cc, sahabat excel saya melampirkan
excel seperti yang pertama dan dilampiran terdapat rumus rumus dan
conditonal formatting yang sama seperti aslinya, hanya saya merampingkan jumlah barisnya agar file tidak terlalu besar. Untuk jumlah baris yang
sebenarnya juga saya informasikan di sheet pertanyaan.. Semoga bisa
membantu.. maturnuwun. Salam Jaya Bexceller...
wassalam
____________
From: Kid Mr. <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Monday, August 20, 2012 7:37 AM
Subject: Re: Bls: Re: [belajar-excel] Memperkecil ukuran file
Mohon posting berikutnya tanpa cc.
Fungsi-fungsi yang tersebut termasuk fungsi volatile. Yaitu fungsi yang selalu memicu Excel untuk melakukan kalkulasi meskipun cell yang diubah nilainya oleh user tidak ada kaitannya sama sekali dengan formula yang berisi fungsi tersebut.
Mungkin Anda perlu menyertakan macam-macam formula yang berisi fungsi volatile tersebut. Jadi Bexceller bisa turut membantu mencari alternatif formula yang mengurangi penggunaan fungsi volatile. File lampiran akan lebih membantu.
Pada umumnya,
fungsi offset bisa diganti dengan index.
Fungsi today atau now cukup di sebuah cell saja.
Lebih baik gunakan today daripada now untuk kebutuhan nilai tanggal hari ini yang tidak membutuhkan nilai waktu (jam,menit,detik)
Fungsi indirect diganti dengan index yang dibantu oleh match sebagai penentu baris.
Indirect diganti index dengan banyak nama range nika merujuk ke banyak sheet (khusus jenis ini : lebih baik merestrukturisasi data agar hanya merujuk ke satu sheet saja).
Banyak sekali alternatif yang bisa dikembangkan dari hal umum diatas.
Wassalam,
Kid.
On Aug 20, 2012 6:30 AM, "dhen.baguse" <bagusejogja@
Salam mr kid
>Benar saya mnggunakan sebagian fungsi yg disebutkan mr.apakah fungsi tersebut msalah pertama yg membuat file loading lama,jika iya bagaimna mengatasinya?
>Wassalam
>
>
>
>Dikirim dari Yahoo! Mail pada Androidd
>
>
>
>___________
> From: Kid Mr. <mr.nmkid@gmail.
>To: <belajar-excel@
>Subject: Re: [belajar-excel] Memperkecil ukuran file
>Sent: Sun, Aug 19, 2012 2:26:57 PM
>
>
>
>Apakah ada penggunaan fungsi-fungsi seperti :
>Now(),Date(
>pada file aslinya ?
>baik dalam penentuan nama range maupun pada formula disebuah sheet ?
>
>Kid.
>
>
>2012/8/18 dhen.baguse <bagusejogja@
>
>
>>
>>Salam Sahabat Excel,
>>saya lampirkan contoh file dan pertanyaan, mohon bantuan masukkan sahabat excel agar sedikit yahud...;)
>>
>>
>>wassalam sahabat..... jaya n sukses selalu buat moderator dan pengikut belajar excel...
>
Mon Aug 20, 2012 3:56 am (PDT) . Posted by:
"sumardiana596@gmail.com" hekerkampoeng
jadi begitu ya..Terimakasih Mr Kid,
Pengennya bikin aplikasi kasir,merujuknya ke database worksheet pakai vba,cuma dbgrid/data grid kayak di vb6 blm aku temui di vba. Makanya pakai listbox, diakal-akalin tetep tidak bisa mulus.Mungkin master-master be-excel ada solusi.
rgds,
mardi
From: Kid Mr.
Sent: Sunday, August 19, 2012 9:08 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tampilkan Columnheads listbox
e...
yang ...
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa aku salah contek ya ???)
>> untuk menampilkan column head, biasanya dirujuk ke sebuah range tertentu (lihat lampiran)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya bagaimana ?
>> Header dalam sebuah listbox mengikuti besaran font dari object control yang berlaku untuk seluruh item listbox. Jadi sepertinya ndak bisa dilakukan.
Kadang kala, header listbox diletakkan diluar listbox memanfaatkan object label atau listbox 1 baris, tetapi untuk listbox dengan multi column, akan sulit mengatur posisi setiap label control untuk header atau listbox untuk header ketika listbox untuk item di scroll ke kanan. Jika lebar listbox bisa mencakup seluruh kolom (tidak perlu scroll) maka akan lebih mudah.
Wassalam,
Kid.
2012/8/18 <sumardiana596@gmail.com >
masih >250KB ya...?sblmnya ku cek 214KB .Maaf....kurang teliti!!. Dan mohon pencerahanya...
From: Kid Mr.
Sent: Saturday, August 18, 2012 6:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tampilkan Columnheads listbox
File lampiran dari Pak Mardi yang telah dihilangkan object shape picture-nya.
Wassalam,
Kid.
***********************************
Selamat Hari Raya Idul Fitri 1433 H
Mohon Maaf Lahir dan Batin
***********************************
2012/8/18 <sumardiana596@gmail.com >
Terlampir adalah contoh dari Mr Kid yang disampaikan oleh Pak O� Seno.Yang mau saya tanyakan :
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa aku salah contek ya ???)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya bagaimana ?
Mohon pencerahan dari master2 dan member yang lain
terima kasih,
Hp : +6281.382.103.088
Email : mailto:sumardiana596%40gmail.com
--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------
**********************************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
**********************************
Pengennya bikin aplikasi kasir,merujuknya ke database worksheet pakai vba,cuma dbgrid/data grid kayak di vb6 blm aku temui di vba. Makanya pakai listbox, diakal-akalin tetep tidak bisa mulus.Mungkin master-master be-excel ada solusi.
rgds,
mardi
From: Kid Mr.
Sent: Sunday, August 19, 2012 9:08 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Tampilkan Columnheads listbox
e...
yang ...
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa aku salah contek ya ???)
>> untuk menampilkan column head, biasanya dirujuk ke sebuah range tertentu (lihat lampiran)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya bagaimana ?
>> Header dalam sebuah listbox mengikuti besaran font dari object control yang berlaku untuk seluruh item listbox. Jadi sepertinya ndak bisa dilakukan.
Kadang kala, header listbox diletakkan diluar listbox memanfaatkan object label atau listbox 1 baris, tetapi untuk listbox dengan multi column, akan sulit mengatur posisi setiap label control untuk header atau listbox untuk header ketika listbox untuk item di scroll ke kanan. Jika lebar listbox bisa mencakup seluruh kolom (tidak perlu scroll) maka akan lebih mudah.
Wassalam,
Kid.
2012/8/18 <sumardiana596@
masih >250KB ya...?sblmnya ku cek 214KB .Maaf....kurang teliti!!. Dan mohon pencerahanya.
From: Kid Mr.
Sent: Saturday, August 18, 2012 6:25 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Tampilkan Columnheads listbox
File lampiran dari Pak Mardi yang telah dihilangkan object shape picture-nya.
Wassalam,
Kid.
************
Selamat Hari Raya Idul Fitri 1433 H
Mohon Maaf Lahir dan Batin
************
2012/8/18 <sumardiana596@
Terlampir adalah contoh dari Mr Kid yang disampaikan oleh Pak O� Seno.Yang mau saya tanyakan :
1 . Properties Columnheads udah true tapi kok ga muncul kenapa ya ? (apa aku salah contek ya ???)
2 . Bisakah row height dari columnheads di atur ukurannya ? Sourcenya bagaimana ?
Mohon pencerahan dari master2 dan member yang lain
terima kasih,
Hp : +6281.382.103.
Email : mailto:sumardiana59
--- Mods ---
File lampiran yang lebih dari 250KB dihilangkan.
------------
************
Selamat Hari Raya Idul Fitri 1433H
Mohon Maaf Lahir dan Batin
************
Mon Aug 20, 2012 5:45 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Beberapa waktu yang lalu ada seorang member di milis Be-Excel atau tetangga sebelah yang menanyakan hal di atas.
Kebetulan saya dapat Macronya dari buku lama.
Dengan sedikit modifikasi maka Macronya menjadi seperti ini:
Private Sub Worksheet_Change(ByVal Target As Range) 'Macro akan berjalan jika sel B2 pada Sheet Files diedit atau diubah
If Target.Address = "$B$2" Then
If Target.Count = 1 Then
Call DaftarFile
Target.Select
End If
End If
End Sub
Sub DaftarFile() 'Macro untuk membuat Daftar File
Dim myRow As Integer
Dim myFile As String
Columns("A:A").ClearContents
On Error GoTo Pesan
ChDrive Range("B1").Value
ChDir Range("B1").Value & ":\" & Range("B2").Value
myRow = 1
myFile = Dir("*.*")
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Loop
Exit Sub
Pesan:
MsgBox "DIR atau SUBDIR TIDAK ADA", vbCritical, "P E S A N"
End Sub
File terlampir.
Semoga bermanfaat bagi yang membutuhkan.
Salam,
Hendrik Karnadi
Kebetulan saya dapat Macronya dari buku lama.
Dengan sedikit modifikasi maka Macronya menjadi seperti ini:
Private Sub Worksheet_Change(
If Target.Address = "$B$2" Then
If Target.Count = 1 Then
Call DaftarFile
Target.Select
End If
End If
End Sub
Sub DaftarFile() 'Macro untuk membuat Daftar File
Dim myRow As Integer
Dim myFile As String
Columns("A:A"
On Error GoTo Pesan
ChDrive Range("B1").
ChDir Range("B1").
myRow = 1
myFile = Dir("*.*")
Do Until myFile = ""
Cells(myRow, 1) = myFile
myRow = myRow + 1
myFile = Dir
Loop
Exit Sub
Pesan:
MsgBox "DIR atau SUBDIR TIDAK ADA", vbCritical, "P E S A N"
End Sub
File terlampir.
Semoga bermanfaat bagi yang membutuhkan.
Salam,
Hendrik Karnadi
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
---------------------------------------------------------------------
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