16 New Messages
Digest #2049
Messages
Tue Jan 29, 2013 9:06 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Semua formula berikut ini adalah array formula, jadi tulis formula apa
adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
Coba pada cell C3 diberi array formula :
=
IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")
- copy kebawah sampai bertemu error value #NUM!
- fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa
digunakan untuk menghilangkan error value
=IFError(
IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),""),
"" )
atau
=IF( IsError(
IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),""))
, "" , IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")
)
atau
=IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) ,
IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),""),
"" )
Jika akan diurutkan dari nilai terendah ke tertinggi :
=IF(ISODD(ROW()-ROW(C$2)),SMALL($A$3:$A$17,COUNT(C$2:C2)+1),"")
Jika akan diurutkan dari nilai tertinggi ke terendah :
=IF(ISODD(ROW()-ROW(C$2)),LARGE($A$3:$A$17,COUNT(C$2:C2)+1),"")
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/1/30 Maya Pada mayapada471@yahoo.com >
> **
>
>
>
> Assalamu'alakum wrwb
>
> Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
> Saya punya data input yang terisi kebawah secara sembarang seperti
> contoh
> INGIN dihasilkan seperti data output TAPI diberi 1 cell kosong
> URUTAN data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi
> 1 cell kosong
>
> Pejelesan terlampir
>
> Wasalam > Maya
>
>
>
Semua formula berikut ini adalah array formula, jadi tulis formula apa
adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
Coba pada cell C3 diberi array formula :
=
IF(ISODD(ROW(
- copy kebawah sampai bertemu error value #NUM!
- fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa
digunakan untuk menghilangkan error value
=IFError(
IF(ISODD(ROW(
"" )
atau
=IF( IsError(
IF(ISODD(ROW(
, "" , IF(ISODD(ROW(
)
atau
=IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) ,
IF(ISODD(ROW(
"" )
Jika akan diurutkan dari nilai terendah ke tertinggi :
=IF(ISODD(ROW(
Jika akan diurutkan dari nilai tertinggi ke terendah :
=IF(ISODD(ROW(
Wassalamu'
Kid.
2013/1/30 Maya Pada mayapada471@
> **
>
>
>
> Assalamu'
>
> Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
> Saya punya data input yang terisi kebawah secara sembarang seperti
> contoh
> INGIN dihasilkan seperti data output TAPI diberi 1 cell kosong
> URUTAN data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi
> 1 cell kosong
>
> Pejelesan terlampir
>
> Wasalam > Maya
>
>
>
Wed Jan 30, 2013 12:00 am (PST) . Posted by:
"Maya Pada" mayapada471
Assalamu'alaikum wrwb
Makasih Mas Kid atas responnya dan berjalan semesetinya...
Sebenernya file input dalaman cellnya berupa formula dan kadang hasilnya bisa text semua bukan angka..
Saya cobakan hasil "blank"
Kalo sy cobakan dengan file yg saya lampirkan memang berhasil...
Mohon petunjuknya lagi..
Wasalam > Maya
________________________________
From: Mr. Kid mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 30, 2013 12:05 PM
Subject: Re: [belajar-excel] Data Berurut Rapih dengan jeda 1 cell kosong
Wa'alaikumussalam Wr. Wb.
Semua formula berikut ini adalah array formula, jadi tulis formula apa adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
Coba pada cell C3 diberi array formula :
=IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")
- copy kebawah sampai bertemu error value #NUM!
- fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa digunakan untuk menghilangkan error value
=IFError( IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"") , "" )
atau
=IF( IsError( IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"") ) , "" , IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"") )
atau
=IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) , IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"") , "" )
Jika akan diurutkan dari nilai terendah ke tertinggi :
=IF(ISODD(ROW()-ROW(C$2)),SMALL($A$3:$A$17,COUNT(C$2:C2)+1),"")
Jika akan diurutkan dari nilai tertinggi ke terendah :
=IF(ISODD(ROW()-ROW(C$2)),LARGE($A$3:$A$17,COUNT(C$2:C2)+1),"")
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/1/30 Maya Pada mayapada471@yahoo.com >
>
>
>Assalamu'alakum wrwb
>
>Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
>
>Saya punya
data input yang terisi kebawah secara sembarang seperti contoh
>
>INGIN dihasilkan
seperti data output TAPI diberi 1 cell kosong
>URUTAN
data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi 1 cell kosong
>
>
>Pejelesan terlampir
>
>
>Wasalam > Maya
>
Makasih Mas Kid atas responnya dan berjalan semesetinya.
Sebenernya file input dalaman cellnya berupa formula dan kadang hasilnya bisa text semua bukan angka..
Saya cobakan hasil "blank"
Kalo sy cobakan dengan file yg saya lampirkan memang berhasil...
Mohon petunjuknya lagi..
Wasalam > Maya
____________
From: Mr. Kid mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, January 30, 2013 12:05 PM
Subject: Re: [belajar-excel] Data Berurut Rapih dengan jeda 1 cell kosong
Wa'alaikumussal
Semua formula berikut ini adalah array formula, jadi tulis formula apa adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
Coba pada cell C3 diberi array formula :
=IF(ISODD(ROW(
- copy kebawah sampai bertemu error value #NUM!
- fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa digunakan untuk menghilangkan error value
=IFError( IF(ISODD(ROW(
atau
=IF( IsError( IF(ISODD(ROW(
atau
=IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) , IF(ISODD(ROW(
Jika akan diurutkan dari nilai terendah ke tertinggi :
=IF(ISODD(ROW(
Jika akan diurutkan dari nilai tertinggi ke terendah :
=IF(ISODD(ROW(
Wassalamu'
Kid.
2013/1/30 Maya Pada mayapada471@
>
>
>Assalamu&#
>
>Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
>
>Saya punya
data input yang terisi kebawah secara sembarang seperti contoh
>
>INGIN dihasilkan
seperti data output TAPI diberi 1 cell kosong
>URUTAN
data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi 1 cell kosong
>
>
>Pejelesan terlampir
>
>
>Wasalam > Maya
>
Wed Jan 30, 2013 12:20 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr. Wb.
Coba array formula di c3 :
=IF(ISODD(ROW()-ROW(C$2)),INDEX($A$3:$A$17,SMALL(IF(LEN($A$3:$A$17),ROW($A$3:$A$17)-ROW($A$2)),ROWS(C$2:C2)/2+1)),"")
- copy ke bawah
- isi beberapa cell dengan suatu text
Wassalam,
Kid.
2013/1/30 Maya Pada mayapada471@yahoo.com >
> **
>
>
> Assalamu'alaikum wrwb
> Makasih Mas Kid atas responnya dan berjalan semesetinya...
> Sebenernya file input dalaman cellnya berupa formula dan kadang hasilnya
> bisa text semua bukan angka..
> Saya cobakan hasil "blank"
> Kalo sy cobakan dengan file yg saya lampirkan memang berhasil...
> Mohon petunjuknya lagi..
>
> Wasalam > Maya
>
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, January 30, 2013 12:05 PM
> *Subject:* Re: [belajar-excel] Data Berurut Rapih dengan jeda 1 cell
> kosong
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Semua formula berikut ini adalah array formula, jadi tulis formula apa
> adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
> Coba pada cell C3 diberi array formula :
> =
> IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")
> - copy kebawah sampai bertemu error value #NUM!
> - fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa
> digunakan untuk menghilangkan error value
> =IFError(
> IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),""), "" )
> atau
> =IF( IsError(
> IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")) , "" , IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),"")
> )
> atau
> =IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) ,
> IF(ISODD(ROW()-ROW(C$2)),MOD(SMALL(IF($A$3:$A$17,ROW($A$3:$A$17)*10^6+$A$3:$A$17),COUNT(C$2:C2)+1),10^6),""), "" )
>
> Jika akan diurutkan dari nilai terendah ke tertinggi :
> =IF(ISODD(ROW()-ROW(C$2)),SMALL($A$3:$A$17,COUNT(C$2:C2)+1),"")
>
> Jika akan diurutkan dari nilai tertinggi ke terendah :
> =IF(ISODD(ROW()-ROW(C$2)),LARGE($A$3:$A$17,COUNT(C$2:C2)+1),"")
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
> 2013/1/30 Maya Pada mayapada471@yahoo.com >
>
> **
>
>
> Assalamu'alakum wrwb
>
> Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
> Saya punya data input yang terisi kebawah secara sembarang seperti
> contoh
> INGIN dihasilkan seperti data output TAPI diberi 1 cell kosong
> URUTAN data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi
> 1 cell kosong
>
> Pejelesan terlampir
>
> Wasalam > Maya
>
>
>
>
>
>
>
>
Coba array formula di c3 :
=IF(ISODD(ROW(
- copy ke bawah
- isi beberapa cell dengan suatu text
Wassalam,
Kid.
2013/1/30 Maya Pada mayapada471@
> **
>
>
> Assalamu'
> Makasih Mas Kid atas responnya dan berjalan semesetinya.
> Sebenernya file input dalaman cellnya berupa formula dan kadang hasilnya
> bisa text semua bukan angka..
> Saya cobakan hasil "blank"
> Kalo sy cobakan dengan file yg saya lampirkan memang berhasil...
> Mohon petunjuknya lagi..
>
> Wasalam > Maya
>
>
> ------------
> *From:* Mr. Kid mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Wednesday, January 30, 2013 12:05 PM
> *Subject:* Re: [belajar-excel] Data Berurut Rapih dengan jeda 1 cell
> kosong
>
>
>
> Wa'alaikumussal
>
> Semua formula berikut ini adalah array formula, jadi tulis formula apa
> adanya, lalu tekan CTRL SHIFT ENTER bersamaan.
> Coba pada cell C3 diberi array formula :
> =
> IF(ISODD(ROW(
> - copy kebawah sampai bertemu error value #NUM!
> - fungsi IFError (pada xl2007) atau pengkondisian pada xl2003 bisa
> digunakan untuk menghilangkan error value
> =IFError(
> IF(ISODD(ROW(
> atau
> =IF( IsError(
> IF(ISODD(ROW(
> )
> atau
> =IF( Count( C$2:C2 ) < Count( $A$3:$A$17 ) ,
> IF(ISODD(ROW(
>
> Jika akan diurutkan dari nilai terendah ke tertinggi :
> =IF(ISODD(ROW(
>
> Jika akan diurutkan dari nilai tertinggi ke terendah :
> =IF(ISODD(ROW(
>
> Wassalamu'
> Kid.
>
> 2013/1/30 Maya Pada mayapada471@
>
> **
>
>
> Assalamu'
>
> Mau tambah lagi nih...lagi bersemangat nanya dan repotin para pakar.....
> Saya punya data input yang terisi kebawah secara sembarang seperti
> contoh
> INGIN dihasilkan seperti data output TAPI diberi 1 cell kosong
> URUTAN data seperti DATA INPUT (tidak lihat besar kecilnya angka) hanya diberi
> 1 cell kosong
>
> Pejelesan terlampir
>
> Wasalam > Maya
>
>
>
>
>
>
>
>
Tue Jan 29, 2013 9:41 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tony,
File terlampir.
Wassalam,
Kid.
2013/1/30 Tony Bexcel tonybexcel@yahoo.co.id >
> **
>
>
> Dear Mr.Kid dan Pakar yang Budiman,
>
> Kok belum bisa berubah ya,apa karena salah yang terjemahkan, apakah ada
> yang lebih simple lagi temans? Maaf merepotkan..
>
> Salam,
> Tony
>
> --- Pada *Rab, 30/1/13, Mr. Kid mr.nmkid@gmail.com >* menulis:
>
>
> Dari: Mr. Kid mr.nmkid@gmail.com >
> Judul: Re: [belajar-excel] Batasan range warna pada conditional
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Rabu, 30 Januari, 2013, 10:22 AM
>
>
>
> Hai Tony,
>
> Coba pada cell D5 dibuatkan Conditional formatting sebagai berikut :
> 1. klik cell D5 (boleh blok D5 sampai L5)
> 2. buat Conditional Formatting :
> >> ribbon Home -> group Styles -> Conditional Formatting -> pilih New Rule
> -> muncul dialog window -> atur pada dialog window tersebut sebagai berikut
> :
> - Pilih Use Formula (di excel 2003 pakai IsFormula)
> - klik area penulisan formula dan copas formula berikut ke sana :
> (tanpa tanda absolute reference [karakter $])
> =LEN(D5)*(ABS(D5)<=4%)
> - atur format (klik tombol format dan atur wujud format cell nya)
> - tekan OK sampai kembali ke Worksheet
>
> Wassalam,
> Kid.
>
> 2013/1/30 Tony Bexcel tonybexcel@yahoo.co.id http://id.mc1949.mail.yahoo.com/mc/compose?to=tonybexcel@yahoo.co.id >
> >
>
> **
>
> Dear Pakar yang Budiman,
>
> Mohon bantuan nya untuk kasus pemberian warna pada conditional, dimana
> range -4 sampai 4 % diberi warna hijau dan angka lain berwarna merah.
> Untuk itu saya lamprkan contoh soalnya.
> Atas bantuan dan waktunya saya ucapkan banyak terimakasih.
>
>
> Salam,
> Tony
>
>
>
>
File terlampir.
Wassalam,
Kid.
2013/1/30 Tony Bexcel tonybexcel@yahoo.
> **
>
>
> Dear Mr.Kid dan Pakar yang Budiman,
>
> Kok belum bisa berubah ya,apa karena salah yang terjemahkan, apakah ada
> yang lebih simple lagi temans? Maaf merepotkan..
>
> Salam,
> Tony
>
> --- Pada *Rab, 30/1/13, Mr. Kid mr.nmkid@gmail.
>
>
> Dari: Mr. Kid mr.nmkid@gmail.
> Judul: Re: [belajar-excel] Batasan range warna pada conditional
> Kepada: belajar-excel@
> Tanggal: Rabu, 30 Januari, 2013, 10:22 AM
>
>
>
> Hai Tony,
>
> Coba pada cell D5 dibuatkan Conditional formatting sebagai berikut :
> 1. klik cell D5 (boleh blok D5 sampai L5)
> 2. buat Conditional Formatting :
> >> ribbon Home -> group Styles -> Conditional Formatting -> pilih New Rule
> -> muncul dialog window -> atur pada dialog window tersebut sebagai berikut
> :
> - Pilih Use Formula (di excel 2003 pakai IsFormula)
> - klik area penulisan formula dan copas formula berikut ke sana :
> (tanpa tanda absolute reference [karakter $])
> =LEN(D5)*(ABS(
> - atur format (klik tombol format dan atur wujud format cell nya)
> - tekan OK sampai kembali ke Worksheet
>
> Wassalam,
> Kid.
>
> 2013/1/30 Tony Bexcel tonybexcel@yahoo.
> >
>
> **
>
> Dear Pakar yang Budiman,
>
> Mohon bantuan nya untuk kasus pemberian warna pada conditional, dimana
> range -4 sampai 4 % diberi warna hijau dan angka lain berwarna merah.
> Untuk itu saya lamprkan contoh soalnya.
> Atas bantuan dan waktunya saya ucapkan banyak terimakasih.
>
>
> Salam,
> Tony
>
>
>
>
Tue Jan 29, 2013 10:49 pm (PST) . Posted by:
"Bagus" bagus4bls
Dear Pak Tony;
Nggak ada yg salah koq dengan solusi dari Mr. Kid.
File terlampir.
Wassalam
~ Bagus ~
----- Original Message -----
From: Tony Bexcel
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 30, 2013 11:25 AM
Subject: Re: [belajar-excel] Batasan range warna pada conditional
Dear Mr.Kid dan Pakar yang Budiman,
Kok belum bisa berubah ya,apa karena salah yang terjemahkan, apakah ada yang lebih simple lagi temans? Maaf merepotkan..
Salam,
Tony
--- Pada Rab, 30/1/13, Mr. Kid mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] Batasan range warna pada conditional
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 30 Januari, 2013, 10:22 AM
Hai Tony,
Coba pada cell D5 dibuatkan Conditional formatting sebagai berikut :
1. klik cell D5 (boleh blok D5 sampai L5)
2. buat Conditional Formatting :
>> ribbon Home -> group Styles -> Conditional Formatting -> pilih New Rule -> muncul dialog window -> atur pada dialog window tersebut sebagai berikut :
- Pilih Use Formula (di excel 2003 pakai IsFormula)
- klik area penulisan formula dan copas formula berikut ke sana : (tanpa tanda absolute reference [karakter $])
=LEN(D5)*(ABS(D5)<=4%)
- atur format (klik tombol format dan atur wujud format cell nya)
- tekan OK sampai kembali ke Worksheet
Wassalam,
Kid.
2013/1/30 Tony Bexcel tonybexcel@yahoo.co.id >
Dear Pakar yang Budiman,
Mohon bantuan nya untuk kasus pemberian warna pada conditional, dimana range -4 sampai 4 % diberi warna hijau dan angka lain berwarna merah.
Untuk itu saya lamprkan contoh soalnya.
Atas bantuan dan waktunya saya ucapkan banyak terimakasih.
Salam,
Tony
Nggak ada yg salah koq dengan solusi dari Mr. Kid.
File terlampir.
Wassalam
~ Bagus ~
----- Original Message -----
From: Tony Bexcel
To: belajar-excel@
Sent: Wednesday, January 30, 2013 11:25 AM
Subject: Re: [belajar-excel] Batasan range warna pada conditional
Dear Mr.Kid dan Pakar yang Budiman,
Kok belum bisa berubah ya,apa karena salah yang terjemahkan, apakah ada yang lebih simple lagi temans? Maaf merepotkan..
Salam,
Tony
--- Pada Rab, 30/1/13, Mr. Kid mr.nmkid@gmail.
Dari: Mr. Kid mr.nmkid@gmail.
Judul: Re: [belajar-excel] Batasan range warna pada conditional
Kepada: belajar-excel@
Tanggal: Rabu, 30 Januari, 2013, 10:22 AM
Hai Tony,
Coba pada cell D5 dibuatkan Conditional formatting sebagai berikut :
1. klik cell D5 (boleh blok D5 sampai L5)
2. buat Conditional Formatting :
>> ribbon Home -> group Styles -> Conditional Formatting -> pilih New Rule -> muncul dialog window -> atur pada dialog window tersebut sebagai berikut :
- Pilih Use Formula (di excel 2003 pakai IsFormula)
- klik area penulisan formula dan copas formula berikut ke sana : (tanpa tanda absolute reference [karakter $])
=LEN(D5)*(ABS(
- atur format (klik tombol format dan atur wujud format cell nya)
- tekan OK sampai kembali ke Worksheet
Wassalam,
Kid.
2013/1/30 Tony Bexcel tonybexcel@yahoo.
Dear Pakar yang Budiman,
Mohon bantuan nya untuk kasus pemberian warna pada conditional, dimana range -4 sampai 4 % diberi warna hijau dan angka lain berwarna merah.
Untuk itu saya lamprkan contoh soalnya.
Atas bantuan dan waktunya saya ucapkan banyak terimakasih.
Salam,
Tony
Alhamdulillah, terima kasih Mr. Kid. Semoga Allah SWT membalas kebaikan
Mr. Kid.
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
01/30/2013 10:32 AM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Menutup 1 windows dengan code vba
Sedikit bisik-bisik...
1. Jika akan buka workbook tanpa perlu update link dalam workbook yang
dibuka :
Set wbTarget = Workbooks.Open(Filename:=LokasiFile , false ) 'LokasiFile taruh di cel yg kita inginkan.
2. Jika akan buka workbook dalam keadaan read only, supaya ndak peduli
workbook tersebut sudah dibuka atau belum
Set wbTarget = Workbooks.Open(Filename:=LokasiFile , , true ) 'LokasiFile taruh di cel yg kita inginkan.
3. Jika ingin keduanya (1 dan 2)
Set wbTarget = Workbooks.Open(Filename:=LokasiFile , false , true ) 'LokasiFile taruh di cel yg kita inginkan.
4. Jika ingin tutup workbook tanpa ada proses save :
wbTarget.close false
Wassalam,
Kid.
2013/1/29 tio.adjie@ptssb.co.id >
Dear Be-Exceller,
Ma'af sudah bisa, dengan code sbb. :
Dim wbTarget As Workbook
Set wbTarget = Workbooks.Open(Filename:=LokasiFile) 'LokasiFile taruh di
cel yg kita inginkan.
wbTarget.close
Set wbTarget = Nothing
Wassalam,
Tio
tio.adjie@ptssb.co.id
Sent by: belajar-excel@yahoogroups.com
01/28/2013 03:39 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: [belajar-excel] Menutup 1 windows dengan code vba
Dear Be-Exceller,
Saya mau tanya. Ada 2 windows workbook yang saya buka, saya ingin menutup
1 windows ditombol yang diletakkan di windows yang lain.
Saya coba pakai VBA code :
Dim LokasiFile As String
LokasiFile = Range("E1").Value
Windows(LokasiFile).Activate
ActiveWindow.Close
Kok tetap gak berhasil, apa ada yang salah di code saya ?
Terima kasih bantuannya.
Wassalam.
Tio
Mr. Kid.
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.
Sent by: belajar-excel@
01/30/2013 10:32 AM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Menutup 1 windows dengan code vba
Sedikit bisik-bisik.
1. Jika akan buka workbook tanpa perlu update link dalam workbook yang
dibuka :
Set wbTarget = Workbooks.Open(
2. Jika akan buka workbook dalam keadaan read only, supaya ndak peduli
workbook tersebut sudah dibuka atau belum
Set wbTarget = Workbooks.Open(
3. Jika ingin keduanya (1 dan 2)
Set wbTarget = Workbooks.Open(
4. Jika ingin tutup workbook tanpa ada proses save :
wbTarget.close false
Wassalam,
Kid.
2013/1/29 tio.adjie@ptssb.
Dear Be-Exceller,
Ma'af sudah bisa, dengan code sbb. :
Dim wbTarget As Workbook
Set wbTarget = Workbooks.Open(
cel yg kita inginkan.
wbTarget.close
Set wbTarget = Nothing
Wassalam,
Tio
tio.adjie@ptssb.
Sent by: belajar-excel@
01/28/2013 03:39 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: [belajar-excel] Menutup 1 windows dengan code vba
Dear Be-Exceller,
Saya mau tanya. Ada 2 windows workbook yang saya buka, saya ingin menutup
1 windows ditombol yang diletakkan di windows yang lain.
Saya coba pakai VBA code :
Dim LokasiFile As String
LokasiFile = Range("
Windows(LokasiFile)
ActiveWindow.
Kok tetap gak berhasil, apa ada yang salah di code saya ?
Terima kasih bantuannya.
Wassalam.
Tio
Tue Jan 29, 2013 11:15 pm (PST) . Posted by:
"PRAZT" praztmath
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"; then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.com >
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject(
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
sserial=Trim$
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject(
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Tue Jan 29, 2013 11:18 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
> Tambah puyeng mr.Kid hehehehe.....****
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)**
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"; then
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.close false
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.serialnumber)* adalah untuk mendapatkan teks serial
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.serialnumber)*
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *sserial=Trim$(objLoop.serialnumber)*
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.serialnumber)* saat sebelum baris EndIF.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.com >****
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber***
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?****
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ** **
>
> ****
>
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
> Tambah puyeng mr.Kid hehehehe....
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir***
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject(
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject(
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *sserial=Trim$
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject(
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?***
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ** **
>
> ****
>
Tue Jan 29, 2013 11:43 pm (PST) . Posted by:
"PRAZT" praztmath
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"; then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.com >
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Tambah puyeng mr.Kid hehehehe....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject(
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
sserial=Trim$
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject(
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Tue Jan 29, 2013 11:55 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=sheets("sheet1").range("a6").value
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
> **
>
>
> Bisa lewat tlp maupun Email****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 30 Januari 2013 14:19
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform
> darimana ?
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.com >****
>
> Tambah puyeng mr.Kid hehehehe.....****
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)**
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"; then
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.close false
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.serialnumber)* adalah untuk mendapatkan teks serial
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.serialnumber)*
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *sserial=Trim$(objLoop.serialnumber)*
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.serialnumber)* saat sebelum baris EndIF.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.com >****
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber***
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?****
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
> **
>
>
> Bisa lewat tlp maupun Email****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 30 Januari 2013 14:19
>
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> User dapat nilai JM-2B2B4D-8H14N-
> darimana ?
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.
>
> Tambah puyeng mr.Kid hehehehe....
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir***
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject(
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject(
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *sserial=Trim$
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject(
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?***
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
Wed Jan 30, 2013 12:35 am (PST) . Posted by:
"PRAZT" praztmath
Saya sudah ketik codenya seperti ini Mr.Kid:
Private Sub UserForm_Initialize()
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("sheet1").Range("a6").Value
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=sheets("sheet1").range("a6").value
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"; then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.com >
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Private Sub UserForm_Initialize
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Tambah puyeng mr.Kid hehehehe....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject(
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
sserial=Trim$
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject(
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Wed Jan 30, 2013 12:40 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Panggil user form di prosedur autoopen yang ada disana. Atau panggil
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
> **
>
>
> Saya sudah ketik codenya seperti ini Mr.Kid:****
>
> Private Sub UserForm_Initialize()****
>
> '-- mengisi List seriak HDD****
>
> txtSerial.Text = Sheets("sheet1").Range("a6").Value****
>
> End Sub****
>
> ****
>
> Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
> dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika pada
> sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak muncul
> lagi ?****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 30 Januari 2013 14:55
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> buat event initialize userform dan isi dengan :
> (asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
> sheet1 di cell a6)
> txtserial.text=sheets("sheet1").range("a6").value
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.com >****
>
> ****
>
> Bisa lewat tlp maupun Email****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 30 Januari 2013 14:19****
>
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform
> darimana ?
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.com >****
>
> Tambah puyeng mr.Kid hehehehe.....****
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)**
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"; then
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.close false
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.serialnumber)* adalah untuk mendapatkan teks serial
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.serialnumber)*
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set colDisks = objWMIService.ExecQuery("Select * from
> Win32_PhysicalMedia")
> For Each objLoop In colDisks
> If InStr(objLoop.Tag & "|", "*PHYSICALDRIVE0*|") <> 0 Then
> *sserial=Trim$(objLoop.serialnumber)*
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.serialnumber)* saat sebelum baris EndIF.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.com >****
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber***
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?****
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
> **
>
>
> Saya sudah ketik codenya seperti ini Mr.Kid:****
>
> Private Sub UserForm_Initialize
>
> '-- mengisi List seriak HDD****
>
> txtSerial.Text = Sheets("
>
> End Sub****
>
> ****
>
> Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
> dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika pada
> sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak muncul
> lagi ?****
>
> ** **
>
> ****
>
> PRAZTMATH ™****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 30 Januari 2013 14:55
>
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ** **
>
> ****
>
> buat event initialize userform dan isi dengan :
> (asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
> sheet1 di cell a6)
> txtserial.text=
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.
>
> ****
>
> Bisa lewat tlp maupun Email****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 30 Januari 2013 14:19****
>
>
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> User dapat nilai JM-2B2B4D-8H14N-
> darimana ?
>
> Wassalam,
> Kid.****
>
> 2013/1/30 PRAZT praztmath@gmail.
>
> Tambah puyeng mr.Kid hehehehe....
>
> Apakah bisa dikasih contoh file lampiran Mr. Kid?****
>
> Dan sekalian mau minta solusi pada file terlampir***
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 29 Januari 2013 23:04
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan
> VBA Excel****
>
> ****
>
> ****
>
> Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
> menggunakan :
> Hex(
> CreateObject(
> **
>
> hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
> number drive (bukan serial number hardware harddisk)
> Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
> Misal dalam sebuah variabel string seperti :
> dim sSerial as string
> sSerial=Hex(
> CreateObject(
> Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
> proses kondisi seperti :
> IF sSerial = "ABCD1235"
> msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
> else
> msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
> dalam file ini"
> thisworkbook.
> endif
> Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
>
> Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
> class seperti berikut :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
> *
> End If
> Next objLoop
>
> Bagian yang *merah *adalah harddisk yang akan diambil serial numbernya,
> yaitu harddisk pertama yang terpasang
> Bagian yang *biru *adalah contoh cara mengambil nilai properti yang
> tersedia.
> Bagian *Trim$(objLoop.
> number hardware harddisk
> Untuk mengambil data serial number harddisk pertama yang terpasang pada
> contoh di atas, bagian yang biru seluruhnya diganti menjadi :
> msgbox *Trim$(objLoop.
>
> Jika akan disimpan ke sebuah variabel :
> Dim objWMIService As Object, colDisks As Object, objLoop As Object,
> sSerial as string
>
> Set objWMIService =
> GetObject("
> Set colDisks = objWMIService.
> Win32_PhysicalMedia
> For Each objLoop In colDisks
> If InStr(objLoop.
> *sserial=Trim$
> End If
> Next objLoop
>
> Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
> tape disk, beri Exit For setelah baris *sserial=
> Trim$(objLoop.
>
> Serial number hardware akan berubah jika hardware diganti dengan hardware
> harddisk lainnya.
>
> Wassalam,
> Kid.
>
> 2013/1/29 PRAZT praztmath@gmail.
>
> ****
>
> ****
>
> Dear all master...
> Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
> cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
> otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
> pakai..****
>
> Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :****
>
> MsgBox
> CreateObject(
> *
>
> Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada
> para master bagaimana cara penggunaan code tersebut?***
>
> Atau mungkin ada contoh lain yang bisa membantu saya.****
>
> ****
>
> ****
>
> PRAZTMATH ™****
>
> ****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
Wed Jan 30, 2013 1:36 am (PST) . Posted by:
"PRAZT" praztmath
O ya sudah bs mMr.Kid, terus untuk memasukkan nilai pada UserForm (Serial
Number) ke cell I16 gmn ya ?
Jadi meskipun Cell i16 sudah terisi kalau tidak sama maka bisa diganti tapi
melalui UserForm (Serial Number)
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 15:40
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Panggil user form di prosedur autoopen yang ada disana. Atau panggil
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT
Saya sudah ketik codenya seperti ini Mr.Kid:
Private Sub UserForm_Initialize()
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("sheet1").Range("a6").Value
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=sheets("sheet1").range("a6").value
Wassalam,
Kid.
2013/1/30 PRAZT
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"; then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Number) ke cell I16 gmn ya ?
Jadi meskipun Cell i16 sudah terisi kalau tidak sama maka bisa diganti tapi
melalui UserForm (Serial Number)
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 15:40
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Panggil user form di prosedur autoopen yang ada disana. Atau panggil
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT
Saya sudah ketik codenya seperti ini Mr.Kid:
Private Sub UserForm_Initialize
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=
Wassalam,
Kid.
2013/1/30 PRAZT
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-
?
Wassalam,
Kid.
2013/1/30 PRAZT
Tambah puyeng mr.Kid hehehehe....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject(
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
sserial=Trim$
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject(
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Wed Jan 30, 2013 1:36 am (PST) . Posted by:
"PRAZT" praztmath
Ok Mr.Kid, udah kelar emua, Syukron atas bantuannya...sehingga program sudah
jadi sesuai keinginan
Wassalam....
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 15:40
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Panggil user form di prosedur autoopen yang ada disana. Atau panggil
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Saya sudah ketik codenya seperti ini Mr.Kid:
Private Sub UserForm_Initialize()
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("sheet1").Range("a6").Value
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=sheets("sheet1").range("a6").value
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-6F8H untuk diketikkan ke userform darimana
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.com >
Tambah puyeng mr.Kid hehehehe.....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").Seria
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"; then
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.close false
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.serialnumber)
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.serialnumber) adalah untuk mendapatkan teks serial
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.serialnumber)
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from
Win32_PhysicalMedia")
For Each objLoop In colDisks
If InStr(objLoop.Tag & "|", "PHYSICALDRIVE0|") <> 0 Then
sserial=Trim$(objLoop.serialnumber)
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$(objLoop.serialnumber)
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.com >
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
jadi sesuai keinginan
Wassalam....
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 15:40
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Panggil user form di prosedur autoopen yang ada disana. Atau panggil
userform di event workbook open
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Saya sudah ketik codenya seperti ini Mr.Kid:
Private Sub UserForm_Initialize
'-- mengisi List seriak HDD
txtSerial.Text = Sheets("
End Sub
Terus bagaimana codenya supaya UserForm tersebut muncul otomatis saat fil
dibuka (jika pada sheet1 cell i16 tidak sama dengan cell h16) serta jika
pada sheet1 cell i16 sama dengan cell h16 maka UserForm tersebut tidak
muncul lagi ?
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:55
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
buat event initialize userform dan isi dengan :
(asumsi nama textbox adalah txtSerial dan sumbernya dari sheet bernama
sheet1 di cell a6)
txtserial.text=
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Bisa lewat tlp maupun Email
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 30 Januari 2013 14:19
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
User dapat nilai JM-2B2B4D-8H14N-
?
Wassalam,
Kid.
2013/1/30 PRAZT praztmath@gmail.
Tambah puyeng mr.Kid hehehehe....
Apakah bisa dikasih contoh file lampiran Mr. Kid?
Dan sekalian mau minta solusi pada file terlampir
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 29 Januari 2013 23:04
To: belajar-excel@
Subject: Re: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA
Excel
Jika nomor seri yang dimaksud adalah volume serial number, maka bisa
menggunakan :
Hex(CreateObject(
hasilnya adalah sebuah string susunan bilangan hexadecimal volume serial
number drive (bukan serial number hardware harddisk)
Hasil tersebut bisa disimpan dimana saja yang memungkinkan.
Misal dalam sebuah variabel string seperti :
dim sSerial as string
sSerial=Hex(
lNumber)
Jika akan dibandingkan dengan suatu nilai, bisa diletakkan dalam suatu
proses kondisi seperti :
IF sSerial = "ABCD1235"
msgbox "Seri drive C: Anda sesuai dan boleh mengakses data"
else
msgbox "Seri drive C: Anda tidak mendapat hak akses terhadap data
dalam file ini"
thisworkbook.
endif
Harddisk Volume Serial Number akan berubah ketika drive tersebut diformat.
Andai akan mengambil serial number hardware harddisk, bisa menggunakan wmi
class seperti berikut :
Dim objWMIService As Object, colDisks As Object, objLoop As Object
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
Debug.Print objLoop.Tag & " | " & Trim$(objLoop.
End If
Next objLoop
Bagian yang merah adalah harddisk yang akan diambil serial numbernya, yaitu
harddisk pertama yang terpasang
Bagian yang biru adalah contoh cara mengambil nilai properti yang tersedia.
Bagian Trim$(objLoop.
number hardware harddisk
Untuk mengambil data serial number harddisk pertama yang terpasang pada
contoh di atas, bagian yang biru seluruhnya diganti menjadi :
msgbox Trim$(objLoop.
Jika akan disimpan ke sebuah variabel :
Dim objWMIService As Object, colDisks As Object, objLoop As Object,
sSerial as string
Set objWMIService =
GetObject("
Set colDisks = objWMIService.
Win32_PhysicalMedia
For Each objLoop In colDisks
If InStr(objLoop.
sserial=Trim$
End If
Next objLoop
Jika dalam komputer tersebut banyak terpasang harddisk maupun cdrom atau
tape disk, beri Exit For setelah baris sserial=Trim$
saat sebelum baris EndIF.
Serial number hardware akan berubah jika hardware diganti dengan hardware
harddisk lainnya.
Wassalam,
Kid.
2013/1/29 PRAZT praztmath@gmail.
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject(
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
Tue Jan 29, 2013 11:39 pm (PST) . Posted by:
"Teti Zhe via Yahoo!" teti_zhe
Join Teti Zhe on Yahoo! Messenger.
Come chat with me, share files and more.
Stay in the loop with all your friends.
Get started : http://invite.msg.yahoo.com/invite?op=accept&intl=us&sig=ctvdp9MB7ycesmaQTO.9d_0yMk7NJdZP68msfIQuzRLCSg--
* Stay connected at home, at work, or on the go
* Have fun with games, emoticons, and more
* Join a community of over 100 million people from around the world
Join Your Friends : http://invite.msg.yahoo.com/invite?op=accept&intl=us&sig=ctvdp9MB7ycesmaQTO.9d_0yMk7NJdZP68msfIQuzRLCSg--
--
this email was sent to you by an automated system - please do not reply directly
Come chat with me, share files and more.
Stay in the loop with all your friends.
Get started : http://invite.
* Stay connected at home, at work, or on the go
* Have fun with games, emoticons, and more
* Join a community of over 100 million people from around the world
Join Your Friends : http://invite.
--
this email was sent to you by an automated system - please do not reply directly
Tue Jan 29, 2013 11:46 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Dimohon tidak melakukan reply terhadap thread ini karena thread ini sudah
dihapus.
Wassalam,
Kid.
On Wed, Jan 30, 2013 at 2:39 PM, Teti Zhe via Yahoo! teti_zhe@yahoo.com >wrote:
> **
>
>
> **
>
>
Dimohon tidak melakukan reply terhadap thread ini karena thread ini sudah
dihapus.
Wassalam,
Kid.
On Wed, Jan 30, 2013 at 2:39 PM, Teti Zhe via Yahoo! teti_zhe@yahoo.
> **
>
>
> **
>
>
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