[belajar-excel] Digest Number 2980

Milis Belajar Microsoft Excel Group

15 Messages

Digest #2980

1a

Bls: [belajar-excel] Rumus fungsi filter yang dijumlahkan. by "odongnando@yahoo.com"

2a

Re: Menggunakan Statment SQL pada Excel [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

3a

Re: Menggunakan Statment SQL pada Excel by "Mr. Kid" nmkid.family@ymail.com

3b

Fw: [belajar-excel] Menggunakan Statment SQL pada Excel by "hendrik karnadi" hendrikkarnadi

3c

Re: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel [3 Attac by "Mr. Kid" nmkid.family@ymail.com

3d

Bls: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel by "Lazuardi Biru" lazuardi_biru84

3e

Re: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel [3 Attac by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

4a

Re: Fw: [belajar-excel] Tanya Cara Copy paste otomatis_Macros [2 Att by "Mr. Kid" nmkid.family@ymail.com

5a

Re: getfile by "Mr. Kid" nmkid.family@ymail.com

5b

Re: getfile by krisan_flower@rocketmail.com

6a

Re: Android by "Mr. Kid" nmkid.family@ymail.com

7a

Re: Format tanggal di texbox by "fathir ali"

7b

Re: Format tanggal di texbox by "Mr. Kid" nmkid.family@ymail.com

8a

Bls: Bls: [belajar-excel] Tanggal Tatap Muka Dinamis Sesuai Hari Men by "abu dimaz" abudimaz

9a

Re: Export 3 Sheet Menjadi 1 File [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Bls: [belajar-excel] Rumus fungsi filter yang dijumlahkan.

Thu Jun 19, 2014 5:14 am (PDT) . Posted by:

"odongnando@yahoo.com"

Bisa pake formula sumif kok...
Or bisa jg pake pivot tbl...

br.

odong

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

2a

Re: Menggunakan Statment SQL pada Excel [1 Attachment]

Thu Jun 19, 2014 7:51 am (PDT) . Posted by:

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

MS Office menggunakan ACE OLEDB sebagai data provider. SQL yang digunakan
MS Access untuk kegiatan multi table join

SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
j.Quantity*b.Harga AS Total

FROM

(

[Jual$] AS j INNER JOIN [Barang$] AS b ON j.KodeBarang=b.KodeBarang

)

INNER JOIN [Customer$] AS c ON j.KodeCust=c.KodeCust

Lihat juga perbedaan antara Inner Join, Left Join dan Right Join.

Wassalam,
Kid.

2014-06-19 12:42 GMT+07:00 'zainul_ulum[at]yahoo[dot]com'
zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Bisa Pak Hendrik,
> Bisa menggunakan fasilitas SQL syntax JOIN
> Misal
> --Tabel Penjualan ada di sheet: Jual$ dengan header (field)-->
> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
> --Tabel Customer adadi sheet: Customer dengan fields -->
> |KodeCust|Nama|Alamat|
> --Tabel Barang ada di sheet: Barang dengan fields -->
> |KodeBarang|Barang|Harga|
>
> SQL untuk menampilkan kode customer, nama dan harga adalah:
>
> SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga,
> x.Quantity*x.Harga AS Total
> FROM
> (SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang) AS x
> INNER JOIN [Customer$] AS c
> ON x.KodeCust=c.KodeCust
>
> Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan
> subquery sehingga SQL nya menjadi:
>
> SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
> j.Quantity*b.Harga AS Total
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang
> INNER JOIN [Customer$] AS c
> ON j.KodeCust=c.KodeCust
>
> dijalankan di Microsoft Query kok Error?
>
> terimakasih
> -zainul-
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
>
> Sent: Wednesday, June 18, 2014 9:28 PM
> To: belajar-Excel@yahoogroups.com
> Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel
>
> Selamat malam Pak Zainal,
>
> Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar
> beberapa tabel ?
>
> mis.,
> Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
> dimana
> - Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel
> Customer (dgn ref. Kode Customer)
> - Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel
> Barang (dgn ref. Kode Barang)
>
> Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement)
> seperti yang pak Zainal contohkan sebelumnya?
>
> Terima kasih.
>
> Salam,
> HK
>
> .
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

3a

Re: Menggunakan Statment SQL pada Excel

Thu Jun 19, 2014 7:55 am (PDT) . Posted by:

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

Microsoft Query adalah salah satu tools yang disediakan oleh MS Office.
Microsoft Query bisa diter-install dalam komputer ketika sub item MS Query
dalam item Office Tools dipilih opsi untuk di-install ke dalam komputer.

Wassalam,
Kid.

2014-06-19 13:11 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mau Tanya, Microsoft Query buat apa yah ? /apakah free ?
>
>
>
> [image: Think Green]
>
> *Best Regards,*
> *Tio Adi Bayu Adjie*
>
> *PT Sanggar Sarana Baja*
>
> *[image: Foto all unit]*
>
> [image: Logo SSB]
>
>
> ------------------------------
>
>
>
>
> *Phone: Fax: Mobile: Email:*
>
>
>
>
> *+6221 4682 7927 +6221 4682 7925 +6282125 577 485 **tio.adjie@ptssb.co.id
> <stefany.muller@ptssb.co.id>*
>
>
>
>
> *Address: Website:*
>
>
> *Pulogadung Industrial Estate Jl. Rawa Sumur No. 10*
>
>
> *Jakarta 13930 www.ptssb.co.id <http://www.ptssb.co.id>*
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, June 19, 2014 12:43 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] Menggunakan Statment SQL pada Excel [1
> Attachment]
>
>
>
>
>
> Bisa Pak Hendrik,
> Bisa menggunakan fasilitas SQL syntax JOIN
> Misal
> --Tabel Penjualan ada di sheet: Jual$ dengan header (field)-->
> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
> --Tabel Customer adadi sheet: Customer dengan fields -->
> |KodeCust|Nama|Alamat|
> --Tabel Barang ada di sheet: Barang dengan fields -->
> |KodeBarang|Barang|Harga|
>
> SQL untuk menampilkan kode customer, nama dan harga adalah:
>
> SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga,
> x.Quantity*x.Harga AS Total
> FROM
> (SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang) AS x
> INNER JOIN [Customer$] AS c
> ON x.KodeCust=c.KodeCust
>
> Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan
> subquery sehingga SQL nya menjadi:
>
> SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
> j.Quantity*b.Harga AS Total
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang
> INNER JOIN [Customer$] AS c
> ON j.KodeCust=c.KodeCust
>
> dijalankan di Microsoft Query kok Error?
>
> terimakasih
> -zainul-
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
> <belajar-excel@yahoogroups.com>]
> Sent: Wednesday, June 18, 2014 9:28 PM
> To: belajar-Excel@yahoogroups.com
> Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel
>
>
> Selamat malam Pak Zainal,
>
> Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar
> beberapa tabel ?
>
> mis.,
> Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
> dimana
> - Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel
> Customer (dgn ref. Kode Customer)
> - Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel
> Barang (dgn ref. Kode Barang)
>
> Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement)
> seperti yang pak Zainal contohkan sebelumnya?
>
> Terima kasih.
>
> Salam,
> HK
>
> .
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

3b

Fw: [belajar-excel] Menggunakan Statment SQL pada Excel

Thu Jun 19, 2014 9:08 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Pak Zainal, Mr. Kid,
Kedua SQL sudah saya tes dengan memasukkan data dan sedikit edit SQLnya (modal Uji coba) maka hasilnya seperti terlampir.

SQL Pak Zainal (edit sedikit by HK)
SELECT x.SO,x.Tanggal,x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga,
x.Quantity*x.Harga AS Total
FROM 
(SELECTj.So,j.Tanggal,j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity 
FROM
[Jual$] AS j 
INNER
JOIN [Barang$] AS b
ON
j.KodeBarang=b.KodeBarang) AS x
INNER
JOIN [Customer$] AS c 
ON
x.KodeCust=c.KodeCust
ORDER
BY SO

SQL Mr. KID (edit sedikit by HK)
SELECT j.SO,j.Tanggal,j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
j.Quantity*b.Harga AS Total 
FROM ([Jual$] AS j  INNER JOIN [Barang$] AS b ON
j.KodeBarang=b.KodeBarang)
INNER JOIN [Customer$] AS c ON
j.KodeCust=c.KodeCust
ORDER
BY SO

Sekali lagi terima kasih...

Salam,
HK

On Thursday, 19 June 2014, 21:55, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Microsoft Query adalah salah satu tools yang disediakan oleh MS Office.
Microsoft Query bisa diter-install dalam komputer ketika sub item MS Query dalam item Office Tools dipilih opsi untuk di-install ke dalam komputer.

Wassalam,
Kid.

2014-06-19 13:11 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

> 
>Mau Tanya, Microsoft Query buat apa yah ? /apakah free ?
> 
>
>Best Regards,
>Tio Adi Bayu Adjie
>PT Sanggar Sarana Baja
> 
>
>________________________________
>
>Phone:
>Fax:
>Mobile:
>Email: +6221 4682 7927
>+6221 4682 7925
>+6282125 577 485
>tio.adjie@ptssb.co.id Address:
>
>
>Website: Pulogadung Industrial Estate
>Jl. Rawa Sumur No. 10
>Jakarta 13930
>www.ptssb.co.id
> 
> 
>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
>Sent: Thursday, June 19, 2014 12:43 PM
>To: belajar-excel@yahoogroups.com
>Subject: RE: [belajar-excel] Menggunakan Statment SQL pada Excel [1 Attachment]
> 
> 
>Bisa Pak Hendrik,
>Bisa menggunakan fasilitas SQL syntax JOIN
>Misal
>--Tabel Penjualan ada di sheet: Jual$ dengan header (field)--> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
>--Tabel Customer adadi sheet: Customer dengan fields --> |KodeCust|Nama|Alamat|
>--Tabel Barang ada di sheet: Barang dengan fields --> |KodeBarang|Barang|Harga|
>
>SQL untuk menampilkan kode customer, nama dan harga adalah:
>
>SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga, x.Quantity*x.Harga AS Total
>FROM
>(SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
>FROM [Jual$] AS j
>INNER JOIN [Barang$] AS b
>ON j.KodeBarang=b.KodeBarang) AS x
>INNER JOIN [Customer$] AS c
>ON x.KodeCust=c.KodeCust
>
>Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan subquery sehingga SQL nya menjadi:
>
>SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga, j.Quantity*b.Harga AS Total
>FROM [Jual$] AS j
>INNER JOIN [Barang$] AS b
>ON j.KodeBarang=b.KodeBarang
>INNER JOIN [Customer$] AS c
>ON j.KodeCust=c.KodeCust
>
>dijalankan di Microsoft Query kok Error?
>
>terimakasih
>-zainul-
>
>
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
>
>Sent: Wednesday, June 18, 2014 9:28 PM
>To: belajar-Excel@yahoogroups.com
>
Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel
>
>
>Selamat malam Pak Zainal,
>
>Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar beberapa tabel ?
>
>mis.,
>Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
>dimana
>- Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel Customer (dgn ref. Kode Customer)
>- Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel Barang (dgn ref. Kode Barang)
>
>Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement) seperti yang pak Zainal contohkan sebelumnya?
>
>Terima kasih.
>
>Salam,
>HK
>
>
.

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

3c

Re: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel [3 Attac

Thu Jun 19, 2014 9:15 am (PDT) . Posted by:

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

Biasanya pengurutan diserahlan ke interface agar engine bisa mengerjakan
query lainnya. Jadi bagian ORDER BY blablabla dihilangkan dan biarkan
interface (dalam hal ini sheet Excel) yang melakukan sorting data.

Wassalam,
Kid.

2014-06-19 23:08 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terima kasih Pak Zainal, Mr. Kid,
> Kedua SQL sudah saya tes dengan memasukkan data dan sedikit edit SQLnya
> (modal Uji coba) maka hasilnya seperti terlampir.
>
> SQL Pak Zainal (edit sedikit by HK)
> SELECT x.SO,x.Tanggal,x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity,
> x.Harga, x.Quantity*x.Harga AS Total
> FROM
> (SELECT j.So,j.Tanggal,j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
>
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang) AS x
> INNER JOIN [Customer$] AS c
> ON x.KodeCust=c.KodeCust
> ORDER BY SO
>
> SQL Mr. KID (edit sedikit by HK)
> SELECT
> j.SO,j.Tanggal,j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
> j.Quantity*b.Harga AS Total
> FROM ([Jual$] AS j INNER JOIN [Barang$] AS b ON j.KodeBarang=b.KodeBarang)
> INNER JOIN [Customer$] AS c ON j.KodeCust=c.KodeCust
> ORDER BY SO
>
> Sekali lagi terima kasih...
>
> Salam,
> HK
>
>
>
>
>
> On Thursday, 19 June 2014, 21:55, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Microsoft Query adalah salah satu tools yang disediakan oleh MS Office.
> Microsoft Query bisa diter-install dalam komputer ketika sub item MS Query
> dalam item Office Tools dipilih opsi untuk di-install ke dalam komputer.
>
> Wassalam,
> Kid.
>
>
>
> 2014-06-19 13:11 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mau Tanya, Microsoft Query buat apa yah ? /apakah free ?
>
> [image: Think Green]
> *Best Regards,*
> *Tio Adi Bayu Adjie*
> *PT Sanggar Sarana Baja*
> *[image: Foto all unit]*
> [image: Logo SSB]
>
> ------------------------------
>
>
>
> *Phone: Fax: Mobile: Email:*
>
>
>
> *+6221 4682 7927 +6221 4682 7925 +6282125 577 485 **tio.adjie@ptssb.co.id
> <stefany.muller@ptssb.co.id>*
>
>
>
> *Address: Website:*
>
> *Pulogadung Industrial Estate Jl. Rawa Sumur No. 10*
>
> *Jakarta 13930 www.ptssb.co.id <http://www.ptssb.co.id/>*
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, June 19, 2014 12:43 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] Menggunakan Statment SQL pada Excel [1
> Attachment]
>
>
> Bisa Pak Hendrik,
> Bisa menggunakan fasilitas SQL syntax JOIN
> Misal
> --Tabel Penjualan ada di sheet: Jual$ dengan header (field)-->
> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
> --Tabel Customer adadi sheet: Customer dengan fields -->
> |KodeCust|Nama|Alamat|
> --Tabel Barang ada di sheet: Barang dengan fields -->
> |KodeBarang|Barang|Harga|
>
> SQL untuk menampilkan kode customer, nama dan harga adalah:
>
> SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga,
> x.Quantity*x.Harga AS Total
> FROM
> (SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang) AS x
> INNER JOIN [Customer$] AS c
> ON x.KodeCust=c.KodeCust
>
> Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan
> subquery sehingga SQL nya menjadi:
>
> SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
> j.Quantity*b.Harga AS Total
> FROM [Jual$] AS j
> INNER JOIN [Barang$] AS b
> ON j.KodeBarang=b.KodeBarang
> INNER JOIN [Customer$] AS c
> ON j.KodeCust=c.KodeCust
>
> dijalankan di Microsoft Query kok Error?
>
> terimakasih
> -zainul-
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
> <belajar-excel@yahoogroups.com>]
> Sent: Wednesday, June 18, 2014 9:28 PM
> To: belajar-Excel@yahoogroups.com
> Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel
>
>
> Selamat malam Pak Zainal,
>
> Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar
> beberapa tabel ?
>
> mis.,
> Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
> dimana
> - Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel
> Customer (dgn ref. Kode Customer)
> - Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel
> Barang (dgn ref. Kode Barang)
>
> Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement)
> seperti yang pak Zainal contohkan sebelumnya?
>
> Terima kasih.
>
> Salam,
> HK
>
> .
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

3d

Bls: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel

Thu Jun 19, 2014 8:56 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

asalamu alaikum wr wb
ikut belajar pak ya..
misal field (header) data kita berada di baris ke 3 dan baris 1 dan 2 berisi nama atau judul dari data kita.
gimana syntax menentukan bahwa field berada di baris tiga.
misal field sheet data di baris ke tiga berisi
TGL|NAMA|JML|HARGA|KET
misal saya ingin mengambil field TGL|NAMA|JML|HARGA

dengan sintax
select data.tgl,data.nama.data.jml
from [data$] as data
order by tgl

berhubung di baris 1 dan 2 ada judul file tersebut tidak bisa tapi kalau judul di hapus bisa.

apa database di atas tidak masuk standart excel query.

wasalam

lb

Pada Kamis, 19 Juni 2014 23:15, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Biasanya pengurutan diserahlan ke interface agar engine bisa mengerjakan query lainnya. Jadi bagian ORDER BY blablabla dihilangkan dan biarkan interface (dalam hal ini sheet Excel) yang melakukan sorting data.

Wassalam,
Kid.

2014-06-19 23:08 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

> 
>Terima kasih Pak Zainal, Mr. Kid,
>Kedua SQL sudah saya tes dengan memasukkan data dan sedikit edit SQLnya (modal Uji coba) maka hasilnya seperti terlampir.
>
>
>SQL Pak Zainal (edit sedikit by HK)
>SELECT x.SO,x.Tanggal,x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga,
x.Quantity*x.Harga AS Total
>FROM 
>(SELECTj.So,j.Tanggal,j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity 
>FROM
[Jual$] AS j 
>INNER
JOIN [Barang$] AS b
>ON
j.KodeBarang=b.KodeBarang) AS x
>INNER
JOIN [Customer$] AS c 
>ON
x.KodeCust=c.KodeCust
>ORDER
BY SO
>
>
>
>SQL Mr. KID (edit sedikit by HK)
>SELECT j.SO,j.Tanggal,j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga,
j.Quantity*b.Harga AS Total 
>FROM ([Jual$] AS j  INNER JOIN [Barang$] AS b ON
j.KodeBarang=b.KodeBarang)
>INNER JOIN [Customer$] AS c ON
j.KodeCust=c.KodeCust
>ORDER
BY SO
>
>
>
>Sekali lagi terima kasih...
>
>
>Salam,
>HK
>
>
>
>
>
>
>
>
>On Thursday, 19 June 2014, 21:55, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> 
>Microsoft Query adalah salah satu tools yang disediakan oleh MS Office.
>Microsoft Query bisa diter-install dalam komputer ketika sub item MS Query dalam item Office Tools dipilih opsi untuk di-install ke dalam komputer.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2014-06-19 13:11 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>> 
>>Mau Tanya, Microsoft Query buat apa yah ? /apakah free ?
>> 
>>
>>Best Regards,
>>Tio Adi Bayu Adjie
>>PT Sanggar Sarana Baja
>> 
>>
>>________________________________
>>
>>Phone:
>>Fax:
>>Mobile:
>>Email: +6221 4682 7927
>>+6221 4682 7925
>>+6282125 577 485
>>tio.adjie@ptssb.co.id Address:
>>
>>
>>Website: Pulogadung Industrial Estate
>>Jl. Rawa Sumur No. 10
>>Jakarta 13930
>>www.ptssb.co.id
>> 
>> 
>>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
>>Sent: Thursday, June 19, 2014 12:43 PM
>>To: belajar-excel@yahoogroups.com
>>Subject: RE: [belajar-excel] Menggunakan Statment SQL pada Excel [1 Attachment]
>> 
>> 
>>Bisa Pak Hendrik,
>>Bisa menggunakan fasilitas SQL syntax JOIN
>>Misal
>>--Tabel Penjualan ada di sheet: Jual$ dengan header (field)--> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
>>--Tabel Customer adadi sheet: Customer dengan fields --> |KodeCust|Nama|Alamat|
>>--Tabel Barang ada di sheet: Barang dengan fields --> |KodeBarang|Barang|Harga|
>>
>>SQL untuk menampilkan kode customer, nama dan harga adalah:
>>
>>SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga, x.Quantity*x.Harga AS Total
>>FROM
>>(SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
>>FROM [Jual$] AS j
>>INNER JOIN [Barang$] AS b
>>ON j.KodeBarang=b.KodeBarang) AS x
>>INNER JOIN [Customer$] AS c
>>ON x.KodeCust=c.KodeCust
>>
>>Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan subquery sehingga SQL nya menjadi:
>>
>>SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga, j.Quantity*b.Harga AS Total
>>FROM [Jual$] AS j
>>INNER JOIN [Barang$] AS b
>>ON j.KodeBarang=b.KodeBarang
>>INNER JOIN [Customer$] AS c
>>ON j.KodeCust=c.KodeCust
>>
>>dijalankan di Microsoft Query kok Error?
>>
>>terimakasih
>>-zainul-
>>
>>
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
>>
>>Sent: Wednesday, June 18, 2014 9:28 PM
>>To: belajar-Excel@yahoogroups.com
>>
Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel
>>
>>
>>Selamat malam Pak Zainal,
>>
>>Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar beberapa tabel ?
>>
>>mis.,
>>Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
>>dimana
>>- Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel Customer (dgn ref. Kode Customer)
>>- Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel Barang (dgn ref. Kode Barang)
>>
>>Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement) seperti yang pak Zainal contohkan sebelumnya?
>>
>>Terima kasih.
>>
>>Salam,
>>HK
>>
>>
.
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

3e

Re: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel [3 Attac

Thu Jun 19, 2014 11:18 pm (PDT) . Posted by:

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

Wa'alaikum Salam Wr. Wb.

Ikut nimbrung jawab..

Asal baris ke-3 sampai akhir record sudah sesuai dengan kaidad table database, terlebih dahulu dibuat [named range] mulai baris ke-3 sampai akhir record.

missal named rangenya adalah [dataku] maka kira-kira syntax sqlnya:

select data.tgl,data.nama.data.jml
from dataku as data
order by tgl

wassalam

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, June 20, 2014 10:57 AM
To: belajar-excel@yahoogroups.com
Subject: Bls: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel [3 Attachments]

asalamu alaikum wr wb
ikut belajar pak ya..
misal field (header) data kita berada di baris ke 3 dan baris 1 dan 2 berisi nama atau judul dari data kita.
gimana syntax menentukan bahwa field berada di baris tiga.
misal field sheet data di baris ke tiga berisi
TGL|NAMA|JML|HARGA|KET
misal saya ingin mengambil field TGL|NAMA|JML|HARGA

dengan sintax
select data.tgl,data.nama.data.jml
from [data$] as data
order by tgl

berhubung di baris 1 dan 2 ada judul file tersebut tidak bisa tapi kalau judul di hapus bisa.

apa database di atas tidak masuk standart excel query.

wasalam

lb

Pada Kamis, 19 Juni 2014 23:15, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Biasanya pengurutan diserahlan ke interface agar engine bisa mengerjakan query lainnya. Jadi bagian ORDER BY blablabla dihilangkan dan biarkan interface (dalam hal ini sheet Excel) yang melakukan sorting data.

Wassalam,
Kid.

2014-06-19 23:08 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Terima kasih Pak Zainal, Mr. Kid,

Kedua SQL sudah saya tes dengan memasukkan data dan sedikit edit SQLnya (modal Uji coba) maka hasilnya seperti terlampir.

SQL Pak Zainal (edit sedikit by HK)

SELECT x.SO,x.Tanggal,x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga, x.Quantity*x.Harga AS Total
FROM
(SELECT j.So,j.Tanggal,j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
FROM [Jual$] AS j
INNER JOIN [Barang$] AS b
ON j.KodeBarang=b.KodeBarang) AS x
INNER JOIN [Customer$] AS c
ON x.KodeCust=c.KodeCust

ORDER BY SO

SQL Mr. KID (edit sedikit by HK)

SELECT j.SO,j.Tanggal,j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga, j.Quantity*b.Harga AS Total
FROM ([Jual$] AS j INNER JOIN [Barang$] AS b ON j.KodeBarang=b.KodeBarang)

INNER JOIN [Customer$] AS c ON j.KodeCust=c.KodeCust

ORDER BY SO

Sekali lagi terima kasih...

Salam,

HK

On Thursday, 19 June 2014, 21:55, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Microsoft Query adalah salah satu tools yang disediakan oleh MS Office.
Microsoft Query bisa diter-install dalam komputer ketika sub item MS Query dalam item Office Tools dipilih opsi untuk di-install ke dalam komputer.

Wassalam,

Kid.

2014-06-19 13:11 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Mau Tanya, Microsoft Query buat apa yah ? /apakah free ?


Think Green

Best Regards,
Tio Adi Bayu Adjie

PT Sanggar Sarana Baja

Foto all unit

Logo SSB




_____

Phone:
Fax:
Mobile:
Email:

+6221 4682 7927
+6221 4682 7925
+6282125 577 485
<mailto:stefany.muller@ptssb.co.id> tio.adjie@ptssb.co.id

Address:

Website:

Pulogadung Industrial Estate
Jl. Rawa Sumur No. 10

Jakarta 13930
www.ptssb.co.id <http://www.ptssb.co.id/>

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, June 19, 2014 12:43 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Menggunakan Statment SQL pada Excel [1 Attachment]

Bisa Pak Hendrik,
Bisa menggunakan fasilitas SQL syntax JOIN
Misal
--Tabel Penjualan ada di sheet: Jual$ dengan header (field)--> |ID|Tanggal|KodeCust|KodeBarang|Quantity|
--Tabel Customer adadi sheet: Customer dengan fields --> |KodeCust|Nama|Alamat|
--Tabel Barang ada di sheet: Barang dengan fields --> |KodeBarang|Barang|Harga|

SQL untuk menampilkan kode customer, nama dan harga adalah:

SELECT x.KodeCust,c.Nama,x.KodeBarang,x.Barang,x.Quantity, x.Harga, x.Quantity*x.Harga AS Total
FROM
(SELECT j.KodeCust,j.KodeBarang,b.Barang,b.Harga,j.Quantity
FROM [Jual$] AS j
INNER JOIN [Barang$] AS b
ON j.KodeBarang=b.KodeBarang) AS x
INNER JOIN [Customer$] AS c
ON x.KodeCust=c.KodeCust

Mungkin Mas Kid bisa menambahi lebih lanjut kenapa saat saya hilangkan subquery sehingga SQL nya menjadi:

SELECT j.KodeCust,c.Nama,j.KodeBarang,b.Barang,j.Quantity,b.Harga, j.Quantity*b.Harga AS Total
FROM [Jual$] AS j
INNER JOIN [Barang$] AS b
ON j.KodeBarang=b.KodeBarang
INNER JOIN [Customer$] AS c
ON j.KodeCust=c.KodeCust

dijalankan di Microsoft Query kok Error?

terimakasih
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

Sent: Wednesday, June 18, 2014 9:28 PM
To: belajar-Excel@yahoogroups.com

Subject: Fw: [belajar-excel] Menggunakan Statment SQL pada Excel

Selamat malam Pak Zainal,

Apakah melalui Excel juga dapat dibuatkan SQL Statement yang link antar beberapa tabel ?

mis.,
Jika kita punya tiga tabel, yaitu Tabel Penjualan, Customer dan Barang
dimana
- Kode Customer pada Tabel Penjualan link ke Nama Customer,dll pada Tabel Customer (dgn ref. Kode Customer)
- Kode Barang pada Tabel Penjualan link ke Nama Barang,dll pada Tabel Barang (dgn ref. Kode Barang)

Apakah dapat dibuat SQL Statement melalui Excel (kotak SQL Statement) seperti yang pak Zainal contohkan sebelumnya?

Terima kasih.

Salam,
HK

.

Reply to sender . Reply to group . Reply via Web Post . All Messages (15) . Top ^

4a

Re: Fw: [belajar-excel] Tanya Cara Copy paste otomatis_Macros [2 Att

Thu Jun 19, 2014 7:56 am (PDT) . Posted by:

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

Sebaiknya dibiasakan menuliskan nama kolom yang di Select daripada
menggunakan all (karakter *)

Wassalam,
Kid.

2014-06-17 17:06 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Barusan saya coba, Jika data terus bertambah maka SQL Statementnya harus
> diubah menjadi:
> SELECT a.* FROM [Sheet1$] AS a
> UNION ALL
> SELECT b.* FROM [Sheet2$] AS b
> UNION ALL
> SELECT c.* FROM [Sheet3$] AS c
> ORDER BY KODE, TANGGAL
>
> Ini juga bisa digunakan untuk menggabungkan data dari beberapa Sheet
> dengan sedikit penyesuaian pada SQL Statementnya.
>
> Terima kasih pak Zainal.
>
> Salam,
> HK
>
>
>
>
> On Tuesday, 17 June 2014, 14:56, "hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> wrote:
>
> Contoh SQL pak Zainul sangat menarik.
> Saya coba aplikasikan untuk merekap stock quantitiy dengan menggunakan 3
> sheet (3 tabel) masing2 saya beri nama tbl_awal, tbl_beli dan tbl_jual.
>
> SQL Statementnya adalah seperti ini :
> SELECT a.* FROM tbl_awal AS a
> UNION ALL
> SELECT b.* FROM tbl_beli AS b
> UNION ALL
> SELECT c.* FROM tbl_jual AS c
> ORDER BY KODE, TANGGAL
>
> Nama ketiga tabel tersebut saya buat dengan menggunakan kotak Range Name
> yang ada dipojok kiri atas, karena kalau menggunakan tabel otomatis (tanpa
> header) SQL Statementnya tidak bisa jalan.
>
> Pertanyaannya :
> Bagaimana membuat tabel tersebut fleksibel tanpa harus merubah rangenya
> melalui worksheet, namun SQL nya tetap dapat dijalankan ?
>
> Untuk lebih jelasnya saya lampirkan file Stock dan Stock SQL (hasil
> pengolahan dengan SQL melalui Excel Get External Data).
>
> Semoga bahasan mengenai aplikasi SQL pada Excel (khususnya untuk
> pengolahan database dalam jumlah besar dengan berbagai contoh aplikasinya)
> akan semakin marak.
>
> Salam,
> HK
>
>
> On Friday, 13 June 2014, 14:03, "hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
> Kalau mau pake macro, mungkin perlu pinjam kode warisan dari si mbah
> tambah sedikit modifikasi,
> Sub Copy2BlankCell()
> Dim lRow As Long 'deklarasi variabel
> lRow = Cells(Rows.Count, "A").End(xlUp).Offset(2, 0).Row 'cari no
> baris terakhir + 2 baris
> Range("A1:I" & lRow).Select 'sorot rangenya
> Selection.SpecialCells(xlCellTypeBlanks).Select 'selek sel kosong
> Selection.FormulaR1C1 = "=R[-1]C" 'isi formula pada sel kosong
> End Sub
>
> Salam,
> HK
>
>
>
> On Friday, 13 June 2014, 9:55, "'zainul_ulum[at]yahoo[dot]com'
> zainul_ulum@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> wrote:
>
>
> Mas Dedy,
> Saya coba menggunakan fasilitas Get External Data dengan [Microsoft Query]
> maaf tidak pakai macro ataupun formula.
> Langkah-langkahnya adalah:
>
> 1. File asal harus berupa tabel database. File dari mas Dedy sudah berupa
> tabel database jika baris kosong dihilangkan lebih dahulu sehingga bentuk
> tabel sebagai berikut:
> Simpan file database ini kemudian disimpan di file tersendiri missal
> [data.xlsx]
> Sebelum memulai langkah#2, tutup file [data.xlsx]
>
> 2. Buat workbook baru atau file baru
> 3. Pada menu excel pilih [Data], pada group [Get External Data]>>[From
> Other Sources]>>[From Microsoft Query]
>
>
> 4. Pada tab [Database], pilih [Excel Files*] kemudian clik [OK]
> 5. Pilih lokasi file [data.xlsx]
> 6. Pada [Microsoft Query], saat muncul kotak dialog [Add Tables] click
> [Close]
> 7. Masih di [Microsoft Query], click icon [SQL]
> 8. Tulis atau copy SQL berikut di ktak Sql Statement:
>
> SELECT a.* FROM [Sheet1$] AS a
> UNION ALL
> SELECT b.* FROM [Sheet1$] AS b
> UNION ALL
> SELECT c.* FROM [Sheet1$] AS c
> ORDER BY BID;
>
> 9. Click [OK] jika muncul kotak dialog …..continue anyway?
> 10. Hasil query akan ditampilkan di [Microsoft Query]
> 11. untuk menampilkan hasil di Excel, pada [Microsoft Query], click
> [File]>>[Return Data to Microsoft Excel]
> 12. Di [Microsoft Excel], Pilih [Table] kemudian clik [OK]
> 13. Untuk selanjutnya, jika ada perubahan data di file [data.xlsx] dan
> lokasi file masih sama, untuk update data hasil query lakukan langkah
> berikut:
> 13.1. click kanan di lokasi table, kemudian pilih [Refresh]
>
> Selamat mencoba, mohon maaf jika terlalu panjang instruksinya.
> thanks
> -zainul
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, June 13, 2014 6:54 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Tanya Cara Copy paste otomatis_Macros [1
> Attachment]
>
>
> Dear All pencinta excel
>
> Saya ingin menanyakan bagaimana cara copy paste secara otomatis dengan
> menggunakan macros?
> Terlampir file yang ingin saya copy paste otomatis tersebut.
> Terima kasih sebelumnya atas bantuannya.
>
> Salam,
> *DEDY DHARMAWANSYAH*
>
>
>
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

5a

Re: getfile

Thu Jun 19, 2014 8:48 am (PDT) . Posted by:

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

Nah kan jelas akhirnya.

Jadi ceritanya mau buka dialog window untuk open file tertentu.

Yang Anda gunakan adalah memanfaatkan winapi GetOpenFilename. Pembuat
script yang Anda gunakan, memanfaatkan prosedur fungsi winapi bernama
GetOpenFileName melalui sebuah prosedur fungsi buatannya sendiri yang
bernama GetFile.
Input parameter yang diminta adalah wadah hendle windows terhadap pemanggil
dialog window open file yang diberi nama HWnd.

Fungsi winapi GetOpenFIleName membutuhkan inputan berupa rangkaian data
yang disusun sebagai user defined type (UDT) bernama OpenFileName. Salah
satu itemnya adalah wadah nama file yang dipilih user yang bernama lpstrFile

Dialog window open file akan berada dibawah kendali si window yang ditunjuk
atau yang memiliki id windows senilai dengan nilai dalam HWnd.

Begitulah ceritanya.

Winapi GetOpenFileName memang bisa membuat bingung pengguna VBA yang sedang
berkembang. Bagaimana jika menggunakan yang lebih mudah dikenali karena
menggunakan prinsip object.

Object yang digunakan namanya adalah FileDialog yang menjadi member dari
object application.
Contoh penggunaannya adalah sebuah prosedur sub bernama AmbilFile berikut
ini : (hanya prinsip dasar pemakaian saja yah)

Public Sub AmbilFile()
dim fd as filedialog 'variabel object file dialog window
dim lfd as long 'variabel penampung hasil kerja dialog window (0
kalau user gak pilih file, -1 atau 1 alias true jika user pilih file)
dim sFilePilihanUser as string 'variabel penyimpan nama file yang
dipilih user
set fd=application.filedialog( msofiledialogfilepicker )
with fd
.title = "Silakan pilih sebuah file" 'pasang caption dialog
window
.filters.clear 'hapus filter file yang boleh dipilih
.filters.add "Ms Ofice97/XP/2003" , "*.doc;*.xls" 'tambahkan
filter file baru sesuai kebutuhan
.allowmultiselect=false 'supaya tidak boleh multiple file
selection alias cuma boleh pilih 1 file sajah

lfd= .show 'tampilkan file dialog dan tunggu respon user
if lfd<>0 then 'user memilih sebuah file
sfilepilihanuser= .selecteditems(1) 'ambil file pertama
pilihan user yang disimpan oleh si file dialog
else 'user gak milih apa-apa
sfilepilihanuser = "loh... kok gak pilih apa-apa"
endif
end fd
msgbox sfilepilihanuser,vbinformation,"Inilah pilihan anda"
end sub

letakkan di sebuah general module. Kembangkan sesuai kebutuhan, termasuk
membuat sebuah prosedur berparameter agar bisa dinamis dipakai oleh
berbagai proses yang membutuhkan pemilihan file.

Wassalam,
Kid.

2014-06-19 8:39 GMT+07:00 'irianto' irianto.mandala@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Berikut saya kirim kan source di general modulnya
>
>
>
> Mohon penjelasannya,trim's
>
>
>
> Option Explicit
>
> Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
>
> "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
>
> Private Type OPENFILENAME
>
> lStructSize As Long
>
> hwndOwner As Long
>
> hInstance As Long
>
> lpstrFilter As String
>
> lpstrCustomFilter As String
>
> nMaxCustFilter As Long
>
> nFilterIndex As Long
>
> lpstrFile As String
>
> nMaxFile As Long
>
> lpstrFileTitle As String
>
> nMaxFileTitle As Long
>
> lpstrInitialDir As String
>
> lpstrTitle As String
>
> flags As Long
>
> nFileOffset As Integer
>
> nFileExtension As Integer
>
> lpstrDefExt As String
>
> lCustData As Long
>
> lpfnHook As Long
>
> lpTemplateName As String
>
> End Type
>
>
>
>
> Function GetFile(Hwnd As Long) As String
>
> Dim OFName As OPENFILENAME
>
> OFName.lStructSize = Len(OFName)
>
> OFName.hwndOwner = Hwnd
>
> OFName.hInstance = App.hInstance
>
> OFName.lpstrFilter = "Ms Ofice97/XP/2003(*.doc;*.xls)" _
>
> + Chr$(0) + "*.doc;*.xls" + Chr$(0) _
>
> + "Kabeh File (*.*)" + Chr$(0) + "*.*" + Chr$(0)
>
> OFName.lpstrFile = Space$(254)
>
> OFName.nMaxFile = 255
>
> OFName.lpstrFileTitle = Space$(254)
>
> OFName.nMaxFileTitle = 255
>
> OFName.lpstrInitialDir = "C:\"
>
> OFName.lpstrTitle = "Open File - vbBego Team 2000?"
>
> OFName.flags = 0
>
> If GetOpenFileName(OFName) Then
>
> GetFile = Left(OFName.lpstrFile, _
>
> InStr(1, OFName.lpstrFile, Chr(0)) - 1)
>
> Else
>
> GetFile = ""
>
> End If
>
> End Function
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Wednesday, June 18, 2014 7:09 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] getfile
>
>
>
>
>
> Sepertinya butuh bunyi script (min deklarasi nya) prosedur bernama
> getfile. Klo ndak ada di module object sheet tersebut, mungkin di sebuah
> general module yg ada di file tersebut.
>
> On Jun 18, 2014 5:58 PM, "'irianto' irianto.mandala@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Betul mr kid kayaknya seperti itu ,source ini adalah bagian dari source
> u/buka pass macro,logika nya macro yang di password akan di backup ke
> workbook lain kemudian nantinya akan dirubah dngan pass baru,tapi kenapaya
> ketika saya run muncul the bug"variable not define"
>
> Berikut potongan source nya
>
> Private Sub CommandButton1_Click()
>
>
>
> Dim hFile As String
>
> Dim inFile As Long, nLoop As Long
>
> Dim Header As String
>
> Dim State As Boolean
>
> '// Header Key VBA Password
>
> Header = Chr(&HD) & Chr(&HA) & Chr(&H44) & Chr(&H50) & _
>
> Chr(&H42) & Chr(&H3D) & Chr(&H22)
>
> '// Buka File Excel & Word
>
> hFile = GetFile(Hwnd)……………bla bla bla
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Wednesday, June 18, 2014 10:19 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] getfile
>
>
>
>
>
> Hwnd pada kalimat tersebut adalah sebuah variabel. Typenya variant.
> Detilnya tergantung isi prosedur.
>
> Biasanya, variabel hwnd digunakan untuk menyimpan nomor handle windows yg
> bertipe long. Tapi pada kasus ini, ndak bisa dipastikan bahwa hwnd sebagai
> handle windows jika tidak melihat isi prosedur getfile.
>
> On Jun 18, 2014 7:40 AM, "'irianto' irianto.mandala@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear all master
>
> Arti dari "Hwnd" dari source berikut: hFile = GetFile(Hwnd),itu bahasa
> manusia nya apa ya?apakah alamat file yang akan kita ambil berada?
>
> Trim's atas pencerahannya
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

5b

Re: getfile

Thu Jun 19, 2014 11:50 pm (PDT) . Posted by:

krisan_flower@rocketmail.com

Dear Mr. Kid,

Iseng saya mencoba code VBA untuk get file, tapi code End fd berwarna merah ,
saya ganti dengan End With kode mau jalan.
Tapi kenapa file tidak bisa dibuka.
apa tujuannya dari VBA ini.

Terimaksih,


Krisan

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

6a

Re: Android

Thu Jun 19, 2014 8:59 am (PDT) . Posted by:

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

Coba cari tahu dari developernya apakah support pembuatan formula termasuk
array formula. Jika di google spreadsheet, array formula bisa disusun
dengan memanfaatkan fungsi ArrayFormula seperti :
=ArrayFormula( Min( IF( a1:a5 = "kid" , b1:b5 , "" ) ) )

Wassalam,
Kid.

2014-06-19 12:10 GMT+07:00 'odongnando@yahoo.com' odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear all,
>
> Sy lg seneng2 ngerjain tugas d excel pake hp android sy, tp sy brkndala
> saat menggunakan array formula yg pake CSE key, krn sy tdk melihat tombol
> control di papan screen keyboard sy.adakah solusi utk mslh ini, or adakah
> pengganti untuk CSE key untuk screen keyboard android.
> Sy pake kingsoft office utk pmbuka file excel ny.
>
> br.
>
> odong
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

7a

Re: Format tanggal di texbox

Thu Jun 19, 2014 9:07 am (PDT) . Posted by:

"fathir ali"

Maaf baru bales setelah saya coba pake costum klo inputnya formatnya yyyyy
mm dd hasil texbox sesuai tapi klo saya input dd mm yyyy bulan jadi tanggal

master kid jadi format tanggal harus sesuai regional setting ya yg
berformat yyyy mmmm dd nga bisa input format dd mm yyyy
Pada 19 Jun 2014 16:13, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> menulis:

>
>
> Hai Fathir,
>
> Textbox bertipe string. Fomat tanggal yang ditampilkan dalam textbox bisa
> diformat dalam bentuk apa saja dengan fungsi Format.
> txtBoxnya.text = format( nilai_tanggal_bertipe_datetime , "formatnya" )
>
> Untuk menyimpan data tanggal dari textbox yang bertipe string ke sebuah
> cell, maka harus diubah ke tipe datetime lebih dulu. Untungnya, cell
> bersedia mengubahnya secara otomatis jika dan hanya jika memenuhi salah
> satu dari hal berikut :
> 1. format tanggal berupa teks dalam textbox memiliki format yang sama
> dengan regional setting
> atau
> 2. format tanggal berupa teks dalam textbox memiliki susunan format
> YYYY-MM-DD

>
> Jadi, hati-hati dengan regional setting komputer setempat, karena format
> tanggal yang ditampilkan dalam textbox yang tidak sesuai regional setting
> dan juga tidak berformat YYYY-MM-DD akan membuat data tanggal dimasukkan ke
> cell dan membuat cell memiliki tipe data string yang tidak bisa
> dimanfaatkan secara luas.
>
> Jika memenuhi salah satu dari 2 ketentuan diatas, maka teks tanggal dari
> textbox akan disimpan ke cell dengan tipe data datetime.
> Tipe data datetime sangat bermanfaat ketimbang data tanggal yang disimpan
> bertipe teks karena mengejar penampakan nilai di cell yang cantik sesuai
> kebutuhan.
>
> Nilai data datetime yang disimpan dalam cell dapat diformat cell agar
> ditampilkan oleh cell sesuai kebutuhan.
>
> Misal di textbox tertulis 2014-06-24 dan disimpan dalam cell, maka cell
> akan menyimpannya sebagai nilai series datetime 41814.
> Jika cell tersebut kemudian di format cell number pilih custom dan di
> format dengan bunyi :
> [$-421]dddd, d mmmm yyyy
> maka di cell akan tampak Selasa, 24 Juni 2014.
>
> Artinya, panampakan tulisan tanggal sesuai kebutuhan di sebuah cell akan
> mudah diatur dengan format cell jika nilai data tanggalnya bertipe datetime.
>
> Cara mengubah format cell dengan VBA :
> range("alamatnya").numberformat = "formatnya"
>
> Contoh :
> jika regional setting komputer setempat adalah English dan sebuah textbox
> bernama txtTgl diisi oleh user 17 Mei 2014, maka ketika ditulis di cell
> (misal range A1) akan bertuliskan 17 Mei 2014 yang bertipe string (text),
> sehingga tidak dapat dikomputasi untuk mencari data antara tanggal 1 mei
> sampai 30 mei 2014 pada kegiatan lain. Dan hal ini sangat merugikan.
>
> Jika di txtTgl user dipaksa mengisi 2014-05-17, maka di cell bisa jadi
> akan tertulis dengan format sesuai regional setting setempat, tetapi tipe
> datanya adalah datetime. Kemudian bisa diformat number menjadi sesuai
> kebutuhan dengan properti numberformat. Selain itu, karena tipe data yang
> tersimpan di cell adalah datetime, maka bisa dimanfaatkan untuk proses lain
> seperti mencari record yang antara tanggal 1 mei sampai 30 mei 2014.
>
> Script : (untuk txtTgl diinput dengan format YYYY-MM-DD
> range("a1").value = cdate( txtTgl.text )
> range("a1").numberformat = "[$-421]dddd, d mmmm yyyy"
>
> maka akan tampak di cell a1 berformat long date karena ada hari, tanggal,
> teks bulan lengkap dan tahun 4 digit. Tetapi tipe datanya tetap datetime.
>
> Jadi,
> sebuah nilai data akan mudah mengatur penampakan yang cantik di mata
> manusia jika disimpan dengan tipe data yang sesuai dengan nilai data
> tersebut.
> Jika nilai data tanggal, simpanlah dengan tipe datetime dan formatlah
> sesuai kebutuhan untuk penampilannya.
> Jika nilai data uang, simpanlah dengan tipe numerik dan formatlah sesuai
> kebutuhan untuk penampilannya.
> dst
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
>
> 2014-06-14 11:13 GMT+07:00 fathir ali payripayali@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Mas dwi saya dah coba format txt1.value=format(txt1,''yyyy/mm/dd") klo
>> saya simpan tanggal nya tdk berubah sesuai dengan yg kita inginkan tetapi
>> klo pas di edit tanggalnya berubah lagi padahl yg saya edit haya txtnama
>> bukan tanggal mohon pencerahannya atas perhatianya terimakasih !
>> Pada 11 Jun 2014 11:43, "fathir ali" <payripayali@gmail.com> menulis:
>>

>> Bisa nga format imputnya dd/mm/yyyy soalnya dah kebiasaan, text box dah

>>> sy format txtmasuk.value =format(txtmasuk,"dd/mm/yyyy") tapi masih berubah
>>> jika di save di data base
>>> Pada 11 Jun 2014 11:18, "dwint ruswanto dwint.ruswanto@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Wa'alaikumsalam wr. wb.,
>>>>
>>>> belum sempat lihat lampirannya.. tapi mungkin hal berikut ini bisa
>>>> menjadi awalan..
>>>>
>>>> 1. format input tanggal diubah menjadi yyyy/mm/dd agar tidak
>>>> terpengaruh dengan format regional setting di setiap komputer
>>>> 2. ubah type data di textbox dari text menjadi datetime dengan

>>>> script CDate( nilainya )
>>>>
>>>> Wassalamu'alaikum wr. wb.
>>>>
>>>> -dwint-
>>>>
>>>>
>>>> Pada 10 Juni 2014 23.11, fathir ali payripayali@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>>>
>>>>>
>>>>>
>>>>> assalamualaikum wr br
>>>>> mohon pencerahannya untuk kasus vba pertama saya tentang tanggal yg
>>>>> selalu berubah formatnya . ketika saya entri format textbox dd/mm/yyyy
>>>>> tetapi ketika di panggil terus di edit lalu di simpan tanggal di database
>>>>> berubah format ada yg format mm/dd/yyyy dan ada yg dd/mm/yyyy mohon
>>>>> pencerahannya agar tanggal tidak berubah formatnya file terlampir
>>>>>
>>>>>
>>>>>
>>>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

7b

Re: Format tanggal di texbox

Thu Jun 19, 2014 9:14 am (PDT) . Posted by:

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

Format tanggal yang universal diseluruh komputer (bukan diseluruh dunia ya,
tapi diseluruh komputer dimanapun berada) adalah :
YYYY-MM-DD

Jika ingin inputan berformat tertentu yang bukan YYYY-MM-DD, maka salah
satu cara yang mudah adalah pastikan harus sesuai regional setting setempat
Misal regional setting komputer setempat adalah English, maka inputan
MM-DD-YYYY akan bisa mudah diterima.

Jika tidak peduli dengan regional setting komputer setempat (yang
bermacam-macam formatnya dan bisa beda-beda) dan tidak suka dengan format
universal komputer (yang formatnya tunggal yaitu YYYY-MM-DD), maka susunlah
sendiri dari inputan user tersebut agar menjadi berformat YYYY-MM-DD

Misal di textbox harus diisi dengan format DD-MM-YYYY dan ingin dapat
berlaku di sebarang regional komputer setempat, maka susunlah dengan fungsi
Right, Mid, dan Left dan simpan pada sebuah variabel

dim dtTanggalInputan as date
dttanggalinputan= cdate( right(txtTgl.text , 4 ) & "-" & mid(txttgl.text ,
4,2) & "-" & left(txttgl.text,2) )

Wassalam,
Kid.

2014-06-19 23:03 GMT+07:00 fathir ali payripayali@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Maaf baru bales setelah saya coba pake costum klo inputnya formatnya yyyyy
> mm dd hasil texbox sesuai tapi klo saya input dd mm yyyy bulan jadi tanggal
> master kid jadi format tanggal harus sesuai regional setting ya yg
> berformat yyyy mmmm dd nga bisa input format dd mm yyyy
> Pada 19 Jun 2014 16:13, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
>
>>
>> Hai Fathir,
>>
>> Textbox bertipe string. Fomat tanggal yang ditampilkan dalam textbox bisa
>> diformat dalam bentuk apa saja dengan fungsi Format.
>> txtBoxnya.text = format( nilai_tanggal_bertipe_datetime , "formatnya" )
>>
>> Untuk menyimpan data tanggal dari textbox yang bertipe string ke sebuah
>> cell, maka harus diubah ke tipe datetime lebih dulu. Untungnya, cell
>> bersedia mengubahnya secara otomatis jika dan hanya jika memenuhi salah
>> satu dari hal berikut :
>> 1. format tanggal berupa teks dalam textbox memiliki format yang sama
>> dengan regional setting
>> atau
>> 2. format tanggal berupa teks dalam textbox memiliki susunan format
>> YYYY-MM-DD
>>
>> Jadi, hati-hati dengan regional setting komputer setempat, karena format
>> tanggal yang ditampilkan dalam textbox yang tidak sesuai regional setting
>> dan juga tidak berformat YYYY-MM-DD akan membuat data tanggal dimasukkan ke
>> cell dan membuat cell memiliki tipe data string yang tidak bisa
>> dimanfaatkan secara luas.
>>
>> Jika memenuhi salah satu dari 2 ketentuan diatas, maka teks tanggal dari
>> textbox akan disimpan ke cell dengan tipe data datetime.
>> Tipe data datetime sangat bermanfaat ketimbang data tanggal yang disimpan
>> bertipe teks karena mengejar penampakan nilai di cell yang cantik sesuai
>> kebutuhan.
>>
>> Nilai data datetime yang disimpan dalam cell dapat diformat cell agar
>> ditampilkan oleh cell sesuai kebutuhan.
>>
>> Misal di textbox tertulis 2014-06-24 dan disimpan dalam cell, maka cell
>> akan menyimpannya sebagai nilai series datetime 41814.
>> Jika cell tersebut kemudian di format cell number pilih custom dan di
>> format dengan bunyi :
>> [$-421]dddd, d mmmm yyyy
>> maka di cell akan tampak Selasa, 24 Juni 2014.
>>
>> Artinya, panampakan tulisan tanggal sesuai kebutuhan di sebuah cell akan
>> mudah diatur dengan format cell jika nilai data tanggalnya bertipe datetime.
>>
>> Cara mengubah format cell dengan VBA :
>> range("alamatnya").numberformat = "formatnya"
>>
>> Contoh :
>> jika regional setting komputer setempat adalah English dan sebuah textbox
>> bernama txtTgl diisi oleh user 17 Mei 2014, maka ketika ditulis di cell
>> (misal range A1) akan bertuliskan 17 Mei 2014 yang bertipe string (text),
>> sehingga tidak dapat dikomputasi untuk mencari data antara tanggal 1 mei
>> sampai 30 mei 2014 pada kegiatan lain. Dan hal ini sangat merugikan.
>>
>> Jika di txtTgl user dipaksa mengisi 2014-05-17, maka di cell bisa jadi
>> akan tertulis dengan format sesuai regional setting setempat, tetapi tipe
>> datanya adalah datetime. Kemudian bisa diformat number menjadi sesuai
>> kebutuhan dengan properti numberformat. Selain itu, karena tipe data yang
>> tersimpan di cell adalah datetime, maka bisa dimanfaatkan untuk proses lain
>> seperti mencari record yang antara tanggal 1 mei sampai 30 mei 2014.
>>
>> Script : (untuk txtTgl diinput dengan format YYYY-MM-DD
>> range("a1").value = cdate( txtTgl.text )
>> range("a1").numberformat = "[$-421]dddd, d mmmm yyyy"
>>
>> maka akan tampak di cell a1 berformat long date karena ada hari, tanggal,
>> teks bulan lengkap dan tahun 4 digit. Tetapi tipe datanya tetap datetime.
>>
>> Jadi,
>> sebuah nilai data akan mudah mengatur penampakan yang cantik di mata
>> manusia jika disimpan dengan tipe data yang sesuai dengan nilai data
>> tersebut.
>> Jika nilai data tanggal, simpanlah dengan tipe datetime dan formatlah
>> sesuai kebutuhan untuk penampilannya.
>> Jika nilai data uang, simpanlah dengan tipe numerik dan formatlah sesuai
>> kebutuhan untuk penampilannya.
>> dst
>>
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> 2014-06-14 11:13 GMT+07:00 fathir ali payripayali@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Mas dwi saya dah coba format txt1.value=format(txt1,''yyyy/mm/dd") klo
>>> saya simpan tanggal nya tdk berubah sesuai dengan yg kita inginkan tetapi
>>> klo pas di edit tanggalnya berubah lagi padahl yg saya edit haya txtnama
>>> bukan tanggal mohon pencerahannya atas perhatianya terimakasih !
>>> Pada 11 Jun 2014 11:43, "fathir ali" <payripayali@gmail.com> menulis:
>>>
>>> Bisa nga format imputnya dd/mm/yyyy soalnya dah kebiasaan, text box dah
>>>> sy format txtmasuk.value =format(txtmasuk,"dd/mm/yyyy") tapi masih berubah
>>>> jika di save di data base
>>>> Pada 11 Jun 2014 11:18, "dwint ruswanto dwint.ruswanto@gmail.com
>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>
>>>>>
>>>>>
>>>>> Wa'alaikumsalam wr. wb.,
>>>>>
>>>>> belum sempat lihat lampirannya.. tapi mungkin hal berikut ini bisa
>>>>> menjadi awalan..
>>>>>
>>>>> 1. format input tanggal diubah menjadi yyyy/mm/dd agar tidak
>>>>> terpengaruh dengan format regional setting di setiap komputer
>>>>> 2. ubah type data di textbox dari text menjadi datetime dengan
>>>>> script CDate( nilainya )
>>>>>
>>>>> Wassalamu'alaikum wr. wb.
>>>>>
>>>>> -dwint-
>>>>>
>>>>>
>>>>> Pada 10 Juni 2014 23.11, fathir ali payripayali@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>>>>
>>>>>>
>>>>>>
>>>>>> assalamualaikum wr br
>>>>>> mohon pencerahannya untuk kasus vba pertama saya tentang tanggal yg
>>>>>> selalu berubah formatnya . ketika saya entri format textbox dd/mm/yyyy
>>>>>> tetapi ketika di panggil terus di edit lalu di simpan tanggal di database
>>>>>> berubah format ada yg format mm/dd/yyyy dan ada yg dd/mm/yyyy mohon
>>>>>> pencerahannya agar tanggal tidak berubah formatnya file terlampir
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

8a

Bls: Bls: [belajar-excel] Tanggal Tatap Muka Dinamis Sesuai Hari Men

Thu Jun 19, 2014 9:07 am (PDT) . Posted by:

"abu dimaz" abudimaz

Assalamu'alaikum wr.wb

Terimakasih atas bantuan yg kalian berikan, jazakumullah khaira.

Wassalamu'alaikum wr.wb

Pada Rabu, 18 Juni 2014 8:22, "NangAgus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Asalamualaikum warahmatullah
Abu Dimaz,
Coba formulanya ditambahkan dengan IF, maksudnya, jika hari
sesudahnya melewati minggu (hasil pengurangan negatif), maka
ditambah 7 lainnya ditambah 0.
=F3+INDEX(ROW($1:$7);MATCH(C4;$J$3:$J$9;0))-INDEX(ROW($1:$7);MATCH(C3;$J$3:$J$9;0))+IF(INDEX(ROW($1:$7);MATCH(C4;$J$3:$J$9;0))<INDEX(ROW($1:$7);MATCH(C3;$J$3:$J$9;0));7;0)

Atau mungkin mau menggunakan rumus yang lebih mudah?
ini juga menggunakan kolom bantu untuk menentukan hari-hari yang
akan dipilih. (0 = mewakili 0 hari sesudah senin; 2 = mewakili 2
hari sesudah senin, 5 = mewakili 5 hari sesudah senin)
tinggal menjumlah, C2 +A3
sedangkan mulai baris ke empat di tulis rumus C3 + 7
maksudnya jika ditambah 7 akan menghasilkan hari yang sama khan?

Untuk lebih jelasnya silahkan langsung ke TKP!

Wasalamualaikum Warahmatullah.

NangAgus

On 17/06/2014 12:35, abu dimaz abudimaz@yahoo.co.id [belajar-excel] wrote:

 

>Terimakasih atas solusi yang diberikan. Jazakumullah khaira.
>
>
>Namun masih belum pas dengan yg diinginkan.
>Ketika sy coba copy ke bawah, hasilnya statis dari 3 tanggal pertama.
>Mungkin maksud saya kurang dapat dimengerti.
>
>
>Intinya sy ingin membuat tanggal loncat, sesuai jumlah hari mengajar dalam seminggu, selama 1 semester.
>Jadi, jika sy ubah hari mengajarnya hanya 1 atau 2 atau 3 kali per minggu, tanggal otomatis berubah sesuai hari dan jumlah pertemuan.
>
>
>Misal: Tanggal awalnya adalah hari Senin, tanggal 14/7/2014
>Pertemuan pertama hari Senin
>Pertemuan kedua hari Rabu
>Maka tanggal pada kolom tanggal tatap muka otomatis berubah dari tgl 14/7/2014 s/d 30/12/2014.
>Hanya saja tanggalnya sesuai dg hari pertemuan, yaitu hanya Senin dan Rabu saja.
>
>
>Semoga dapat dipahami, dan mohon bantuannya.
>Terimakasih sebelumnya.
>
>
>
>
>Pada Selasa, 17 Juni 2014 8:50, "NangAgus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>
>
>
> 
>Asalamualaikumwarahmatullah,
>Abu Dimas,
>Pakai kolom bantu ya...
>Coba gunakan formula:
=$C$2+INDEX(ROW($1:$7);MATCH(C3;$J$3:$J$9;0))-INDEX(ROW($1:$7);MATCH($D$2;$J$3:$J$9;0))
>Diubah dahulu hari senin menjadi 1 dan
rabu menjadi 3
>kita hitung dahulu selisih antara hari
rabu dengan hari senin, (3-1)
>kemudian selisihnya dijumlah dengan
tanggal pertama.
>
>Wasalamualaikumwarahmatullah
>NangAgus
>
>On 15/06/2014 15:46, abudimaz@yahoo.co.id [belajar-excel] wrote:
>
> 

>>Assalamu alaikum warahmatullah
>>
>>Mohon bantuan para master dan
suhu.
>>Saya ingin membuat tanggal tatap
muka/pertemuan yang dinamis sesuai
hari dalam jadwal mengajar selama
1 semester di mulai dari tgl awal
masuk semester, namun mengalami
kebuntuan dalam mencari rumus yang
pas.
>>Untuk lebih jelasnya, sy lampirkan
filenya.
>>
>>Terimakasih sebelumnya.
>>
>>Wassalamu alaikum warahmatullah
>>
>>
>>
>>
>>
>>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

9a

Re: Export 3 Sheet Menjadi 1 File [1 Attachment]

Thu Jun 19, 2014 9:26 am (PDT) . Posted by:

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

Untuk mendapatkan folder pilihan user, coba kembangkan prosedur ambilfile
yang ada di :
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/32428
dengan menyesuaikan jenis filedialog yang dibutuhkan untuk ambil folder.
Simpan folder pilihan user ke sebuah variabel.

Siapkan variabel nama file dan susun nama file (lengkap dengan folder
pilihan user) sesuai kebutuhan.

Setelah itu baru proses copy sheet

1. siapkan variabel workbook kerja, workbook baru hasil copy
dim wbkKerja as workbook, wbkBaru as workbook

2. set masing-masing workbook
set wbkkerja=thisworkbook
set wbkbaru=workbooks.add

3. kembali ke workbook kerja
wbkkerja.activate

4. mulai copy sheet
sheets("nama sheet pertama").copy wbkbaru.sheets(1)
sheets("nama sheet kedua").copy wbkbaru.sheets(2)
sheets("nama sheet ketiga").copy wbkbaru.sheets(3)

5. save as file baru
wbkbaru.saveas variabel_nama_file_lengkap_dengan_folder

6. tutup file baru
wbkbaru.close false

Wassalam,
Kid.

2014-06-19 13:41 GMT+07:00 Odhy odhyz83_assasaky@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Para Master,
> Sebelumnya saya sudah menanyakan tentang Export sheet, namun belum ada
> pencerhan untuk itu saya posting ulang dengan harapan di tanggapi amieen...
> Saya ingin mengeksport 3 sheet sekaligus(sheet pemasukan,pengeluaran,
> dan onHand) menjadi 1 file baru
> yang nantinya namanya akan berdasarkan Lokasi dan Tanggal, misalnya :Rekap_Mataram_10
> April 2014. Lokasi
>
> Terima Kasih atas pencerahannya,
>
>
>
> Odhy.
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

=====================================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html

Posting lowongan kerja : ke link tersebut dan klik New Topic
=====================================================================

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

Visit Your Group

• New Members 6

• Privacy • Unsubscribe • Terms of Use