15 Messages
Digest #3263
Messages
Wed Jan 14, 2015 4:09 am (PST) . Posted by:
"Jack Carmelo"
Selamat mlam mas Sony n Mas Nang Agus.
Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang datang ke timika akan mengingat kuala kencana dan yang lebih dari itu tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari Papua yang diminta. Hahaha
Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto number ini saya bingung.Karena ketika saya merumuskan seperti yang di ajarkan oleh para master sekalian malah muncul eror di program saya.dan malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan Nama as string dan N as long sperti yang diminta. karena ada banyak kolom lagi yang mau diinput. seperti kolom2 transaksi yang lain.
Saya kirimkan file contohnya. Mohon koreksinya.
--
Salam Sehat Selalu Dari Papua Timika
Jack
Selasa, 13 Januari 2015, 09:40PM +0900 dari "sony.ario1@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>:
Hai Jack,
Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database, header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan cara input data namanya hanya menggunakan inputbox:
Sub button1_click()
Dim Nama as string
Dim n As long
N = worksheetfunction.counta(range("A:A")) + 1
Nama = inputbox ("nama : ")
Range("a" N).select
Activecell.value = activecell.row() - 1
Activecell.offset(0,1).value = Nama
End Sub
Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang diharapkan.
Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
Salam
Sony
Powered by paid monthly bills®
----------------------------------------------------------
From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Jan 2015 06:09:40 +0300
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] autonumber
Mat siang para master.
Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
--
Salam Sehat Selalu Dari Papua Timika
Jack
Wed Jan 14, 2015 4:14 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Jack,
Coba ubah baris :
cells( N,2 )=txtnama.value
menjadi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
Selamat mencoba
Kid
2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat mlam mas Sony n Mas Nang Agus.
> Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> Saya kirimkan file contohnya. Mohon koreksinya.
>
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
> Selasa, 13 Januari 2015, 09:40PM +0900 dari "sony.ario1@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
>
> Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
>
> Sub button1_click()
>
> Dim Nama as string
> Dim n As long
>
> N = worksheetfunction.counta(range("A:A")) + 1
>
> Nama = inputbox ("nama : ")
> Range("a" N).select
> Activecell.value = activecell.row() - 1
> Activecell.offset(0,1).value = Nama
>
> End Sub
>
> Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button
> (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang
> diharapkan.
>
> Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>
> Salam
> Sony
>
> Powered by paid monthly bills®
> ----------------------------------------------------------
> From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> Sender: belajar-excel@yahoogroups.com
> Date: Tue, 13 Jan 2015 06:09:40 +0300
> To: <belajar-excel@yahoogroups.com>
> ReplyTo: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] autonumber
>
>
>
> Mat siang para master.
> Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
>
>
Coba ubah baris :
cells( N,2 )=txtnama.value
menjadi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
Selamat mencoba
Kid
2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Selamat mlam mas Sony n Mas Nang Agus.
> Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> Saya kirimkan file contohnya. Mohon koreksinya.
>
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
> Selasa, 13 Januari 2015, 09:40PM +0900 dari "sony.ario1@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
>
> Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
>
> Sub button1_click()
>
> Dim Nama as string
> Dim n As long
>
> N = worksheetfunction.counta(range("A:A")) + 1
>
> Nama = inputbox ("nama : ")
> Range("a" N).select
> Activecell.value = activecell.row() - 1
> Activecell.offset(0,1).value = Nama
>
> End Sub
>
> Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button
> (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang
> diharapkan.
>
> Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>
> Salam
> Sony
>
> Powered by paid monthly bills®
> ----------------------------------------------------------
> From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> Sender: belajar-excel@yahoogroups.com
> Date: Tue, 13 Jan 2015 06:09:40 +0300
> To: <belajar-excel@yahoogroups.com>
> ReplyTo: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] autonumber
>
>
>
> Mat siang para master.
> Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
>
>
Wed Jan 14, 2015 8:55 am (PST) . Posted by:
"Toby kenzo" tobykenzo
Dear Jack,
Coba yg ini,mungkin bisa membantu.
TieriomsKasih.
Sent from Yahoo Mail on Android
Coba yg ini,mungkin bisa membantu.
TieriomsKasih.
Sent from Yahoo Mail on Android
Wed Jan 14, 2015 4:21 pm (PST) . Posted by:
"Jack Carmelo"
Mat pagi Mr.Kid
Terima kasih ats masukkannya. Sudah di coba dan teng....teng..... Berhasil..
Hehehe
Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk pembelajaran saja.
Makasih banyak..
--
Salam Sehat Selalu Dari Papua Timika
Jack
Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>:
Hai Jack,
Coba ubah baris :
cells( N,2 )=txtnama.value
menjadi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
Selamat mencoba
Kid
2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel] < belajar-excel@yahoogroups.com > :
>
>Selamat mlam mas Sony n Mas Nang Agus.
>Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang datang ke timika akan mengingat kuala kencana dan yang lebih dari itu tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari Papua yang diminta. Hahaha
>Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto number ini saya bingung.Karena ketika saya merumuskan seperti yang di ajarkan oleh para master sekalian malah muncul eror di program saya.dan malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan Nama as string dan N as long sperti yang diminta. karena ada banyak kolom lagi yang mau diinput. seperti kolom2 transaksi yang lain.
>Saya kirimkan file contohnya. Mohon koreksinya.
>--
>Salam Sehat Selalu Dari Papua Timika
>Jack
>Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com [belajar-excel]" < belajar-excel@yahoogroups.com >:
>
>Hai Jack,
>Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database, header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan cara input data namanya hanya menggunakan inputbox:
>Sub button1_click()
>Dim Nama as string
>Dim n As long
>N = worksheetfunction.counta(range("A:A")) + 1
>Nama = inputbox ("nama : ")
>Range("a" N).select
>Activecell.value = activecell.row() - 1
>Activecell.offset(0,1).value = Nama
>End Sub
>Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang diharapkan.
>Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>Salam
>Sony
>Powered by paid monthly bills®
>----------------------------------------------------------
>From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" < belajar-excel@yahoogroups.com >
>Sender: belajar-excel@yahoogroups.com
>Date: Tue, 13 Jan 2015 06:09:40 +0300
>To: < belajar-excel@yahoogroups.com >
>ReplyTo: belajar-excel@yahoogroups.com
>Subject: [belajar-excel] autonumber
>
>Mat siang para master.
>Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
>--
>Salam Sehat Selalu Dari Papua Timika
>Jack
Wed Jan 14, 2015 5:38 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Jack,
baris berbunyi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
bahasa manusianya :
"si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
(resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
jadi,
bagian :
cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris ke-n
.resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
.value -> menunjuk ke properti Value milik si cells yang diproses (hasil
cells resize)
= -> akan melakukan pengisian ke properti object yang diproses (properti
value milik cells hasil cells resize)
array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
larik data
n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
txtnama -> nama activex control object berupa text box
.text -> properti text milik si control object txtnama yang menyimpan nilai
bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk di
kolom kedua.
Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
akan menjadi :
cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
yang setara dengan bunyi script :
range("a3:b3").value = array( 2 , "Kid" )
yang akan membuat :
cell A3 berisi nilai numerik 2 (item pertama larik data)
cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
fyi,
Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
usaha mengkonversi tipe data.
Contoh, jika bagian array berisi data teks semua seperti bunyi :
range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit tanda
petik, menjadi data bertipe string alias teks
akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon pertama
Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
bagi yag sudah terbiasa dengan array,
penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
pada baris yang sama)
jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
range 1 baris x 2 kolom
2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
pada kolom yang sama)
3. array m baris x n kolom akan diset pada range m baris x n kolom
4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
2 baris x 1 kolom range.
Contoh :
range("a3:a4").value = array( 2 , "Kid" )
akan membuat range A3 dan A4 bernilai numerik 2
dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
Kira-kira demikian.
Wassalam,
Kid.
2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mat pagi Mr.Kid
> Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
> Berhasil..
> Hehehe
> Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
> pembelajaran saja.
> Makasih banyak..
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
> Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
> Coba ubah baris :
> cells( N,2 )=txtnama.value
> menjadi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> Selamat mencoba
> Kid
> 2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >
> >Selamat mlam mas Sony n Mas Nang Agus.
> >Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> >Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> >Saya kirimkan file contohnya. Mohon koreksinya.
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
> >Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >
> >Hai Jack,
> >Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
> >Sub button1_click()
> >Dim Nama as string
> >Dim n As long
> >N = worksheetfunction.counta(range("A:A")) + 1
> >Nama = inputbox ("nama : ")
> >Range("a" N).select
> >Activecell.value = activecell.row() - 1
> >Activecell.offset(0,1).value = Nama
> >End Sub
> >Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button
> (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang
> diharapkan.
> >Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
> >Salam
> >Sony
> >Powered by paid monthly bills®
> >----------------------------------------------------------
> >From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> >Sender: belajar-excel@yahoogroups.com
> >Date: Tue, 13 Jan 2015 06:09:40 +0300
> >To: < belajar-excel@yahoogroups.com >
> >ReplyTo: belajar-excel@yahoogroups.com
> >Subject: [belajar-excel] autonumber
> >
> >Mat siang para master.
> >Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
>
>
>
baris berbunyi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
bahasa manusianya :
"si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
(resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
jadi,
bagian :
cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris ke-n
.resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
.value -> menunjuk ke properti Value milik si cells yang diproses (hasil
cells resize)
= -> akan melakukan pengisian ke properti object yang diproses (properti
value milik cells hasil cells resize)
array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
larik data
n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
txtnama -> nama activex control object berupa text box
.text -> properti text milik si control object txtnama yang menyimpan nilai
bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk di
kolom kedua.
Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
akan menjadi :
cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
yang setara dengan bunyi script :
range("a3:b3").value = array( 2 , "Kid" )
yang akan membuat :
cell A3 berisi nilai numerik 2 (item pertama larik data)
cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
fyi,
Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
usaha mengkonversi tipe data.
Contoh, jika bagian array berisi data teks semua seperti bunyi :
range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit tanda
petik, menjadi data bertipe string alias teks
akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon pertama
Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
bagi yag sudah terbiasa dengan array,
penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
pada baris yang sama)
jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
range 1 baris x 2 kolom
2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
pada kolom yang sama)
3. array m baris x n kolom akan diset pada range m baris x n kolom
4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
2 baris x 1 kolom range.
Contoh :
range("a3:a4").value = array( 2 , "Kid" )
akan membuat range A3 dan A4 bernilai numerik 2
dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
Kira-kira demikian.
Wassalam,
Kid.
2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mat pagi Mr.Kid
> Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
> Berhasil..
> Hehehe
> Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
> pembelajaran saja.
> Makasih banyak..
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
> Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
> Coba ubah baris :
> cells( N,2 )=txtnama.value
> menjadi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> Selamat mencoba
> Kid
> 2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >
> >Selamat mlam mas Sony n Mas Nang Agus.
> >Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> >Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> >Saya kirimkan file contohnya. Mohon koreksinya.
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
> >Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >
> >Hai Jack,
> >Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
> >Sub button1_click()
> >Dim Nama as string
> >Dim n As long
> >N = worksheetfunction.counta(range("A:A")) + 1
> >Nama = inputbox ("nama : ")
> >Range("a" N).select
> >Activecell.value = activecell.row() - 1
> >Activecell.offset(0,1).value = Nama
> >End Sub
> >Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button
> (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang
> diharapkan.
> >Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
> >Salam
> >Sony
> >Powered by paid monthly bills®
> >----------------------------------------------------------
> >From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> >Sender: belajar-excel@yahoogroups.com
> >Date: Tue, 13 Jan 2015 06:09:40 +0300
> >To: < belajar-excel@yahoogroups.com >
> >ReplyTo: belajar-excel@yahoogroups.com
> >Subject: [belajar-excel] autonumber
> >
> >Mat siang para master.
> >Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
>
>
>
Wed Jan 14, 2015 5:42 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
oh lupa simpulannya
Simpulan :
- Array m x n sesuai dengan range m baris x n kolom
- klausa fungsi Array() membentuk array 1 x n, yang berarti sesuai dengan
range 1 baris x n kolom
;)
Kid.
2015-01-15 12:37 GMT+11:00 Mr. Kid <mr.nmkid@gmail.com>:
> Hai Jack,
>
> baris berbunyi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>
> bahasa manusianya :
> "si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
> (resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
> Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
> komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
>
> jadi,
> bagian :
> cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris
> ke-n
> .resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
> sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
> n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
> .value -> menunjuk ke properti Value milik si cells yang diproses (hasil
> cells resize)
> = -> akan melakukan pengisian ke properti object yang diproses (properti
> value milik cells hasil cells resize)
> array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
> larik data
> n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
> hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
> 3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
> txtnama -> nama activex control object berupa text box
> .text -> properti text milik si control object txtnama yang menyimpan
> nilai bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk
> di kolom kedua.
>
> Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris
> :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> akan menjadi :
> cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
> yang setara dengan bunyi script :
> range("a3:b3").value = array( 2 , "Kid" )
> yang akan membuat :
> cell A3 berisi nilai numerik 2 (item pertama larik data)
> cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
>
> fyi,
> Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
> usaha mengkonversi tipe data.
> Contoh, jika bagian array berisi data teks semua seperti bunyi :
> range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit
> tanda petik, menjadi data bertipe string alias teks
> akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon
> pertama Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
> dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
>
> bagi yag sudah terbiasa dengan array,
> penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
> 1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
> penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
> pada baris yang sama)
> jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
> range 1 baris x 2 kolom
>
> 2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
> pada kolom yang sama)
>
> 3. array m baris x n kolom akan diset pada range m baris x n kolom
>
> 4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
> jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
> kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
> 2 baris x 1 kolom range.
> Contoh :
> range("a3:a4").value = array( 2 , "Kid" )
> akan membuat range A3 dan A4 bernilai numerik 2
> dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
> 2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Mat pagi Mr.Kid
>> Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
>> Berhasil..
>> Hehehe
>> Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
>> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
>> pembelajaran saja.
>> Makasih banyak..
>> --
>> Salam Sehat Selalu Dari Papua Timika
>> Jack
>> Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>>
>>
>> Hai Jack,
>> Coba ubah baris :
>> cells( N,2 )=txtnama.value
>> menjadi :
>> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>> Selamat mencoba
>> Kid
>> 2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
>> [belajar-excel] < belajar-excel@yahoogroups.com > :
>> >
>> >Selamat mlam mas Sony n Mas Nang Agus.
>> >Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
>> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
>> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
>> Papua yang diminta. Hahaha
>> >Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
>> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
>> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
>> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
>> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
>> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
>> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
>> >Saya kirimkan file contohnya. Mohon koreksinya.
>> >--
>> >Salam Sehat Selalu Dari Papua Timika
>> >Jack
>> >Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
>> [belajar-excel]" < belajar-excel@yahoogroups.com >:
>> >
>> >Hai Jack,
>> >Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
>> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
>> cara input data namanya hanya menggunakan inputbox:
>> >Sub button1_click()
>> >Dim Nama as string
>> >Dim n As long
>> >N = worksheetfunction.counta(range("A:A")) + 1
>> >Nama = inputbox ("nama : ")
>> >Range("a" N).select
>> >Activecell.value = activecell.row() - 1
>> >Activecell.offset(0,1).value = Nama
>> >End Sub
>> >Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah
>> Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti
>> yang diharapkan.
>> >Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>> >Salam
>> >Sony
>> >Powered by paid monthly bills®
>> >----------------------------------------------------------
>> >From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
>> belajar-excel@yahoogroups.com >
>> >Sender: belajar-excel@yahoogroups.com
>> >Date: Tue, 13 Jan 2015 06:09:40 +0300
>> >To: < belajar-excel@yahoogroups.com >
>> >ReplyTo: belajar-excel@yahoogroups.com
>> >Subject: [belajar-excel] autonumber
>> >
>> >Mat siang para master.
>> >Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
>> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
>> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
>> >--
>> >Salam Sehat Selalu Dari Papua Timika
>> >Jack
>>
>>
>>
>
>
Simpulan :
- Array m x n sesuai dengan range m baris x n kolom
- klausa fungsi Array() membentuk array 1 x n, yang berarti sesuai dengan
range 1 baris x n kolom
;)
Kid.
2015-01-15 12:37 GMT+11:00 Mr. Kid <mr.nmkid@gmail.com>:
> Hai Jack,
>
> baris berbunyi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>
> bahasa manusianya :
> "si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
> (resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
> Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
> komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
>
> jadi,
> bagian :
> cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris
> ke-n
> .resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
> sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
> n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
> .value -> menunjuk ke properti Value milik si cells yang diproses (hasil
> cells resize)
> = -> akan melakukan pengisian ke properti object yang diproses (properti
> value milik cells hasil cells resize)
> array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
> larik data
> n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
> hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
> 3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
> txtnama -> nama activex control object berupa text box
> .text -> properti text milik si control object txtnama yang menyimpan
> nilai bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk
> di kolom kedua.
>
> Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris
> :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> akan menjadi :
> cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
> yang setara dengan bunyi script :
> range("a3:b3").value = array( 2 , "Kid" )
> yang akan membuat :
> cell A3 berisi nilai numerik 2 (item pertama larik data)
> cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
>
> fyi,
> Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
> usaha mengkonversi tipe data.
> Contoh, jika bagian array berisi data teks semua seperti bunyi :
> range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit
> tanda petik, menjadi data bertipe string alias teks
> akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon
> pertama Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
> dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
>
> bagi yag sudah terbiasa dengan array,
> penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
> 1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
> penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
> pada baris yang sama)
> jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
> range 1 baris x 2 kolom
>
> 2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
> pada kolom yang sama)
>
> 3. array m baris x n kolom akan diset pada range m baris x n kolom
>
> 4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
> jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
> kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
> 2 baris x 1 kolom range.
> Contoh :
> range("a3:a4").value = array( 2 , "Kid" )
> akan membuat range A3 dan A4 bernilai numerik 2
> dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
> 2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Mat pagi Mr.Kid
>> Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
>> Berhasil..
>> Hehehe
>> Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
>> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
>> pembelajaran saja.
>> Makasih banyak..
>> --
>> Salam Sehat Selalu Dari Papua Timika
>> Jack
>> Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>>
>>
>> Hai Jack,
>> Coba ubah baris :
>> cells( N,2 )=txtnama.value
>> menjadi :
>> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>> Selamat mencoba
>> Kid
>> 2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
>> [belajar-excel] < belajar-excel@yahoogroups.com > :
>> >
>> >Selamat mlam mas Sony n Mas Nang Agus.
>> >Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
>> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
>> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
>> Papua yang diminta. Hahaha
>> >Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
>> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
>> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
>> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
>> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
>> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
>> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
>> >Saya kirimkan file contohnya. Mohon koreksinya.
>> >--
>> >Salam Sehat Selalu Dari Papua Timika
>> >Jack
>> >Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
>> [belajar-excel]" < belajar-excel@yahoogroups.com >:
>> >
>> >Hai Jack,
>> >Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
>> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
>> cara input data namanya hanya menggunakan inputbox:
>> >Sub button1_click()
>> >Dim Nama as string
>> >Dim n As long
>> >N = worksheetfunction.counta(range("A:A")) + 1
>> >Nama = inputbox ("nama : ")
>> >Range("a" N).select
>> >Activecell.value = activecell.row() - 1
>> >Activecell.offset(0,1).value = Nama
>> >End Sub
>> >Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah
>> Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti
>> yang diharapkan.
>> >Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>> >Salam
>> >Sony
>> >Powered by paid monthly bills®
>> >----------------------------------------------------------
>> >From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
>> belajar-excel@yahoogroups.com >
>> >Sender: belajar-excel@yahoogroups.com
>> >Date: Tue, 13 Jan 2015 06:09:40 +0300
>> >To: < belajar-excel@yahoogroups.com >
>> >ReplyTo: belajar-excel@yahoogroups.com
>> >Subject: [belajar-excel] autonumber
>> >
>> >Mat siang para master.
>> >Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
>> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
>> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
>> >--
>> >Salam Sehat Selalu Dari Papua Timika
>> >Jack
>>
>>
>>
>
>
Wed Jan 14, 2015 6:17 pm (PST) . Posted by:
"Jack Carmelo"
Mr Kid makasih banyak atan pnjelasannya.
Jadi sebenarnya code yang di berikar Kid, Mas Sony n Mas Toby pada dasarnya sama. Hanya saya bingung untuk implementasikan k msalah saya karena tdak tw maksd dan tjuannya.
Tapi dengan pncrahan sperti ini mnjadi jelas knapa mncul eror di code yg di brikan mas Sony.
--
Salam Sehat Selalu Dari Papua Timika
Jack
Kamis, 15 Januari 2015, 10:37AM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>:
Hai Jack,
baris berbunyi :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
bahasa manusianya :
"si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas (resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
jadi,
bagian :
cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris ke-n
.resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1) sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
.value -> menunjuk ke properti Value milik si cells yang diproses (hasil cells resize)
= -> akan melakukan pengisian ke properti object yang diproses (properti value milik cells hasil cells resize)
array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item larik data
n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai 3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
txtnama -> nama activex control object berupa text box
.text -> properti text milik si control object txtnama yang menyimpan nilai bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk di kolom kedua.
Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris :
cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
akan menjadi :
cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
yang setara dengan bunyi script :
range("a3:b3").value = array( 2 , "Kid" )
yang akan membuat :
cell A3 berisi nilai numerik 2 (item pertama larik data)
cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
fyi,
Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan usaha mengkonversi tipe data.
Contoh, jika bagian array berisi data teks semua seperti bunyi :
range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit tanda petik, menjadi data bertipe string alias teks
akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon pertama Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
bagi yag sudah terbiasa dengan array,
penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range pada baris yang sama)
jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke range 1 baris x 2 kolom
2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range pada kolom yang sama)
3. array m baris x n kolom akan diset pada range m baris x n kolom
4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya, jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5 kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di 2 baris x 1 kolom range.
Contoh :
range("a3:a4").value = array( 2 , "Kid" )
akan membuat range A3 dan A4 bernilai numerik 2
dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
Kira-kira demikian.
Wassalam,
Kid.
2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel] < belajar-excel@yahoogroups.com > :
>
>Mat pagi Mr.Kid
>Terima kasih ats masukkannya. Sudah di coba dan teng....teng..... Berhasil..
>Hehehe
>Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk pembelajaran saja.
>Makasih banyak..
>--
>Salam Sehat Selalu Dari Papua Timika
>Jack
>Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" < belajar-excel@yahoogroups.com >:
>
>
>Hai Jack,
>Coba ubah baris :
> cells( N,2 )=txtnama.value
>menjadi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>Selamat mencoba
>Kid
>2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel] < belajar-excel@yahoogroups.com > :
>>
>>Selamat mlam mas Sony n Mas Nang Agus.
>>Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang datang ke timika akan mengingat kuala kencana dan yang lebih dari itu tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari Papua yang diminta. Hahaha
>>Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto number ini saya bingung.Karena ketika saya merumuskan seperti yang di ajarkan oleh para master sekalian malah muncul eror di program saya.dan malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan Nama as string dan N as long sperti yang diminta. karena ada banyak kolom lagi yang mau diinput. seperti kolom2 transaksi yang lain.
>>Saya kirimkan file contohnya. Mohon koreksinya.
>>--
>>Salam Sehat Selalu Dari Papua Timika
>>Jack
>>Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com [belajar-excel]" < belajar-excel@yahoogroups.com >:
>>
>>Hai Jack,
>>Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database, header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan cara input data namanya hanya menggunakan inputbox:
>>Sub button1_click()
>>Dim Nama as string
>>Dim n As long
>>N = worksheetfunction.counta(range("A:A")) + 1
>>Nama = inputbox ("nama : ")
>>Range("a" N).select
>>Activecell.value = activecell.row() - 1
>>Activecell.offset(0,1).value = Nama
>>End Sub
>>Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti yang diharapkan.
>>Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
>>Salam
>>Sony
>>Powered by paid monthly bills®
>>----------------------------------------------------------
>>From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" < belajar-excel@yahoogroups.com >
>>Sender: belajar-excel@yahoogroups.com
>>Date: Tue, 13 Jan 2015 06:09:40 +0300
>>To: < belajar-excel@yahoogroups.com >
>>ReplyTo: belajar-excel@yahoogroups.com
>>Subject: [belajar-excel] autonumber
>>
>>Mat siang para master.
>>Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
>>--
>>Salam Sehat Selalu Dari Papua Timika
>>Jack
Wed Jan 14, 2015 6:33 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Ya, kira-kira begitulah...
script mas Sony yang bagian :
Range("a" N).select
sepertinya perlu diubah menjadi :
Range("a" *&* N).select
supaya ndak muncul error
btw,
Secara umum, dengan konsep penggunaan object, bagian script brbunyi :
Range("a" *&* N).select
Activecell.value = activecell.row() - 1
Activecell.offset(0,1).value = Nama
akan lebih cepat diproses jika diubah menjadi :
with Range("a" *&* N)
.value=n-1
.offset(0,1).value=Nama
end with
atau
Range("a" *&* N).resize(1,2).value=array( n-1 , nama )
lagi lagi, Kira-kira demikian
Wassalam,
Kid.
2015-01-15 13:11 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr Kid makasih banyak atan pnjelasannya.
> Jadi sebenarnya code yang di berikar Kid, Mas Sony n Mas Toby pada
> dasarnya sama. Hanya saya bingung untuk implementasikan k msalah saya
> karena tdak tw maksd dan tjuannya.
> Tapi dengan pncrahan sperti ini mnjadi jelas knapa mncul eror di code yg
> di brikan mas Sony.
>
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
> Kamis, 15 Januari 2015, 10:37AM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
>
> baris berbunyi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>
> bahasa manusianya :
> "si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
> (resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
> Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
> komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
>
> jadi,
> bagian :
> cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris
> ke-n
> .resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
> sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
> n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
> .value -> menunjuk ke properti Value milik si cells yang diproses (hasil
> cells resize)
> = -> akan melakukan pengisian ke properti object yang diproses (properti
> value milik cells hasil cells resize)
> array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
> larik data
> n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
> hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
> 3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
> txtnama -> nama activex control object berupa text box
> .text -> properti text milik si control object txtnama yang menyimpan
> nilai bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk
> di kolom kedua.
>
> Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris
> :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> akan menjadi :
> cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
> yang setara dengan bunyi script :
> range("a3:b3").value = array( 2 , "Kid" )
> yang akan membuat :
> cell A3 berisi nilai numerik 2 (item pertama larik data)
> cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
>
> fyi,
> Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
> usaha mengkonversi tipe data.
> Contoh, jika bagian array berisi data teks semua seperti bunyi :
> range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit
> tanda petik, menjadi data bertipe string alias teks
> akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon
> pertama Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
> dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
>
> bagi yag sudah terbiasa dengan array,
> penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
> 1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
> penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
> pada baris yang sama)
> jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
> range 1 baris x 2 kolom
>
> 2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
> pada kolom yang sama)
>
> 3. array m baris x n kolom akan diset pada range m baris x n kolom
>
> 4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
> jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
> kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
> 2 baris x 1 kolom range.
> Contoh :
> range("a3:a4").value = array( 2 , "Kid" )
> akan membuat range A3 dan A4 bernilai numerik 2
> dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
> 2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >
> >Mat pagi Mr.Kid
> >Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
> Berhasil..
> >Hehehe
> >Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
> pembelajaran saja.
> >Makasih banyak..
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
> >Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >
> >
> >Hai Jack,
> >Coba ubah baris :
> > cells( N,2 )=txtnama.value
> >menjadi :
> > cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> >Selamat mencoba
> >Kid
> >2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >>
> >>Selamat mlam mas Sony n Mas Nang Agus.
> >>Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> >>Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> >>Saya kirimkan file contohnya. Mohon koreksinya.
> >>--
> >>Salam Sehat Selalu Dari Papua Timika
> >>Jack
> >>Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >>
> >>Hai Jack,
> >>Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
> >>Sub button1_click()
> >>Dim Nama as string
> >>Dim n As long
> >>N = worksheetfunction.counta(range("A:A")) + 1
> >>Nama = inputbox ("nama : ")
> >>Range("a" N).select
> >>Activecell.value = activecell.row() - 1
> >>Activecell.offset(0,1).value = Nama
> >>End Sub
> >>Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah
> Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti
> yang diharapkan.
> >>Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
> >>Salam
> >>Sony
> >>Powered by paid monthly bills®
> >>----------------------------------------------------------
> >>From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> >>Sender: belajar-excel@yahoogroups.com
> >>Date: Tue, 13 Jan 2015 06:09:40 +0300
> >>To: < belajar-excel@yahoogroups.com >
> >>ReplyTo: belajar-excel@yahoogroups.com
> >>Subject: [belajar-excel] autonumber
> >>
> >>Mat siang para master.
> >>Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> >>--
> >>Salam Sehat Selalu Dari Papua Timika
> >>Jack
>
>
>
script mas Sony yang bagian :
Range("a" N).select
sepertinya perlu diubah menjadi :
Range("a" *&* N).select
supaya ndak muncul error
btw,
Secara umum, dengan konsep penggunaan object, bagian script brbunyi :
Range("a" *&* N).select
Activecell.value = activecell.row() - 1
Activecell.offset(0,1).value = Nama
akan lebih cepat diproses jika diubah menjadi :
with Range("a" *&* N)
.value=n-1
.offset(0,1).value=Nama
end with
atau
Range("a" *&* N).resize(1,2).value=array( n-1 , nama )
lagi lagi, Kira-kira demikian
Wassalam,
Kid.
2015-01-15 13:11 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr Kid makasih banyak atan pnjelasannya.
> Jadi sebenarnya code yang di berikar Kid, Mas Sony n Mas Toby pada
> dasarnya sama. Hanya saya bingung untuk implementasikan k msalah saya
> karena tdak tw maksd dan tjuannya.
> Tapi dengan pncrahan sperti ini mnjadi jelas knapa mncul eror di code yg
> di brikan mas Sony.
>
> --
> Salam Sehat Selalu Dari Papua Timika
> Jack
>
> Kamis, 15 Januari 2015, 10:37AM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>:
>
>
> Hai Jack,
>
> baris berbunyi :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
>
> bahasa manusianya :
> "si VBA said : hai excel... di cells baris n di kolom ke-1 yang diperluas
> (resize) sebanyak 1 baris dan 2 kolom, tulung diisiken nilai data (properti
> Value) dari larik data satu dimensi (array) yang disusun berisi nilai hasil
> komputasi n-1 dan nilai teks (properti Text) dari control bernama txtnama"
>
> jadi,
> bagian :
> cells( n,1) -> menghasilkan cell di kolom ke-1 alias kolom A pada baris
> ke-n
> .resize(1,2) -> melakukan perluasan area cells hasil bagian cells(n,1)
> sebanyak 1 baris dan 2 kolom alias menjadi 2 bijik cells yaitu cell dibaris
> n kolom ke-1 dan kolom ke-2 (kalau n bernilai 3 berarti menjadi A3:B3)
> .value -> menunjuk ke properti Value milik si cells yang diproses (hasil
> cells resize)
> = -> akan melakukan pengisian ke properti object yang diproses (properti
> value milik cells hasil cells resize)
> array() -> menyusun larik data satu dimensi dengan nilai-nilai setiap item
> larik data
> n-1 -> nilai item ke-1 dari larik data (untuk proses array) yaitu berupa
> hasil komputasi nilai n-1, kalau n=3 berarti nilai item ke-1 akan bernilai
> 3-1=2. Item ke-1 akan dimasukkan ke cell yang ditunjuk di kolom pertama
> txtnama -> nama activex control object berupa text box
> .text -> properti text milik si control object txtnama yang menyimpan
> nilai bertipe string alias teks yang akan dimasukkan ke cell yang ditunjuk
> di kolom kedua.
>
> Jadi, jika n bernilai 3 dan txtnama berisi teks berbunyi 'Kid', maka baris
> :
> cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> akan menjadi :
> cells( 3,1).resize(1,2).value=array( 3-1 , "Kid" )
> yang setara dengan bunyi script :
> range("a3:b3").value = array( 2 , "Kid" )
> yang akan membuat :
> cell A3 berisi nilai numerik 2 (item pertama larik data)
> cell B3 berisi nilai teks berbunyi 'Kid' (item kedua larik data)
>
> fyi,
> Mengisi nilai ke cells Excel akan direspon oleh Excel pertama kali dengan
> usaha mengkonversi tipe data.
> Contoh, jika bagian array berisi data teks semua seperti bunyi :
> range("a3:b3").value = array( "2" , "Kid" ) 'karakter 2 diapit
> tanda petik, menjadi data bertipe string alias teks
> akan membuat Excel menulis nilai numerik 2 di cell A3 karena respon
> pertama Excel adalah mengubah teks '2' menjadi bertipe numerik. Karena bisa
> dikonversi ke numerik maka di cell A3 berupa nilai data 2 bertipe numerik.
>
> bagi yag sudah terbiasa dengan array,
> penge-set-an nilai ke suatu area cells dengan array berlaku hal berikut :
> 1. array 1 dimensi setara dengan array 1 baris x n kolom, sehingga
> penge-set-an ke dalam cells akan dilakukan pada 1 baris x n kolom (range
> pada baris yang sama)
> jadi arr(1 to 1 , 1 to 2) dan array hasil Array( n1 , n2 ) akan di-set ke
> range 1 baris x 2 kolom
>
> 2. array m baris x 1 kolom akan diset pada range m baris x 1 kolom (range
> pada kolom yang sama)
>
> 3. array m baris x n kolom akan diset pada range m baris x n kolom
>
> 4. area range yang ditunjuk menjadi pembatas penge-set-an nilai. artinya,
> jika diset ke range 2 baris x 1 kolom sedangkan arraynya adalah 1 baris x 5
> kolom, maka yang akan diset hanyalah item pertama array yaitu arr(1 , 1) di
> 2 baris x 1 kolom range.
> Contoh :
> range("a3:a4").value = array( 2 , "Kid" )
> akan membuat range A3 dan A4 bernilai numerik 2
> dan nilai data teks berbunyi 'Kid' tidak ditulis ke range manapun.
>
> Kira-kira demikian.
>
> Wassalam,
> Kid.
>
> 2015-01-15 9:10 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >
> >Mat pagi Mr.Kid
> >Terima kasih ats masukkannya. Sudah di coba dan teng....teng.....
> Berhasil..
> >Hehehe
> >Tapi Mr Kid, klo saya boleh tau bisa dijelaskan sedikit kode itu. soalnya
> saya bngung. Yang menunjukkan code untuk autonumbernya yang mana ya? Untuk
> pembelajaran saja.
> >Makasih banyak..
> >--
> >Salam Sehat Selalu Dari Papua Timika
> >Jack
> >Rabu, 14 Januari 2015, 09:14PM +0900 dari "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >
> >
> >Hai Jack,
> >Coba ubah baris :
> > cells( N,2 )=txtnama.value
> >menjadi :
> > cells( n,1).resize(1,2).value=array( n-1 , txtnama.text )
> >Selamat mencoba
> >Kid
> >2015-01-14 21:56 GMT+11:00 Jack Carmelo jackcarmelo@yahoo.co.id
> [belajar-excel] < belajar-excel@yahoogroups.com > :
> >>
> >>Selamat mlam mas Sony n Mas Nang Agus.
> >>Mas Sony Lama tidak klihatan di komunitas excel ini. Yah pastinya yang
> datang ke timika akan mengingat kuala kencana dan yang lebih dari itu
> tembagapura kalau pernah kesana. dan Mas Nang Agus, ini dia hadiah dari
> Papua yang diminta. Hahaha
> >>Mengenai pertanyaan kemarin tentang membagi secara konstan percell sudah
> saya buat dan itu luar biasa.hasilnya benar2 memuaskan. Hanya mengenai auto
> number ini saya bingung.Karena ketika saya merumuskan seperti yang di
> ajarkan oleh para master sekalian malah muncul eror di program saya.dan
> malah autonumber di colom nomor tidak terwujut. Saya tidak bisa merumuskan
> Nama as string dan N as long sperti yang diminta. karena ada banyak kolom
> lagi yang mau diinput. seperti kolom2 transaksi yang lain.
> >>Saya kirimkan file contohnya. Mohon koreksinya.
> >>--
> >>Salam Sehat Selalu Dari Papua Timika
> >>Jack
> >>Selasa, 13 Januari 2015, 09:40PM +0900 dari " sony.ario1@gmail.com
> [belajar-excel]" < belajar-excel@yahoogroups.com >:
> >>
> >>Hai Jack,
> >>Ini yang saya biasa lakukan : Asumsi tabel sudah berkaidah database,
> header data berada di row ke 1(A1 berisi "No.", dan B1 berisi "Nama"), dan
> cara input data namanya hanya menggunakan inputbox:
> >>Sub button1_click()
> >>Dim Nama as string
> >>Dim n As long
> >>N = worksheetfunction.counta(range("A:A")) + 1
> >>Nama = inputbox ("nama : ")
> >>Range("a" N).select
> >>Activecell.value = activecell.row() - 1
> >>Activecell.offset(0,1).value = Nama
> >>End Sub
> >>Kuncinya ada di variabel N itu. Coba copas code diatas pada sebuah
> Button (form controls), dan coba liat dulu apakah hasil nya sudah seperti
> yang diharapkan.
> >>Btw, kalau dengar Timika saya jadi ingat Kuala Kencana.. :D
> >>Salam
> >>Sony
> >>Powered by paid monthly bills®
> >>----------------------------------------------------------
> >>From: "Jack Carmelo jackcarmelo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com >
> >>Sender: belajar-excel@yahoogroups.com
> >>Date: Tue, 13 Jan 2015 06:09:40 +0300
> >>To: < belajar-excel@yahoogroups.com >
> >>ReplyTo: belajar-excel@yahoogroups.com
> >>Subject: [belajar-excel] autonumber
> >>
> >>Mat siang para master.
> >>Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto
> number di kolom A tapi berdasarkan perintah inputan dari userform. Supaya
> setiap data yang mau diinput dibaris kosong di awali dengan penomoran.
> >>--
> >>Salam Sehat Selalu Dari Papua Timika
> >>Jack
>
>
>
Wed Jan 14, 2015 4:28 pm (PST) . Posted by:
"Muhaimin Shidiq" shidiq92
Assalamualaikum,
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
Wed Jan 14, 2015 5:48 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX),
command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil
dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja
namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture
terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum,
>
> mohon solusi untuk persoalan yang saya hadapi,
>
> saya memasukkan gambar (dari folder gambar) ke excel dengan activeX
> control menggunakan command button dan spin button, berhasil untuk sheet
> yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama
> otomatis ke sheet yang lain.
>
> mohon solusi para master.
> terimakasih
>
>
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX),
command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil
dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja
namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture
terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum,
>
> mohon solusi untuk persoalan yang saya hadapi,
>
> saya memasukkan gambar (dari folder gambar) ke excel dengan activeX
> control menggunakan command button dan spin button, berhasil untuk sheet
> yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama
> otomatis ke sheet yang lain.
>
> mohon solusi para master.
> terimakasih
>
>
Wed Jan 14, 2015 7:30 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Boleh ikutan kan ?Kalau sheetnya beda mungkin di depan imgY perlu ditambahkan nama sheetnya, sesuai petunjuk Mr. Kid mengenai hierarchi object.
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 8:48
Subject: Re: [belajar-excel] mohon solusi : VBA loading gambar
Wa'alaikumussalam wr wb
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX), command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum,
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
#yiv4289701590 #yiv4289701590 -- #yiv4289701590ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4289701590 #yiv4289701590ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4289701590 #yiv4289701590ygrp-mkp #yiv4289701590hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4289701590 #yiv4289701590ygrp-mkp #yiv4289701590ads {margin-bottom:10px;}#yiv4289701590 #yiv4289701590ygrp-mkp .yiv4289701590ad {padding:0 0;}#yiv4289701590 #yiv4289701590ygrp-mkp .yiv4289701590ad p {margin:0;}#yiv4289701590 #yiv4289701590ygrp-mkp .yiv4289701590ad a {color:#0000ff;text-decoration:none;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ygrp-lc {font-family:Arial;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ygrp-lc #yiv4289701590hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ygrp-lc .yiv4289701590ad {margin-bottom:10px;padding:0 0;}#yiv4289701590 #yiv4289701590actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4289701590 #yiv4289701590activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4289701590 #yiv4289701590activity span {font-weight:700;}#yiv4289701590 #yiv4289701590activity span:first-child {text-transform:uppercase;}#yiv4289701590 #yiv4289701590activity span a {color:#5085b6;text-decoration:none;}#yiv4289701590 #yiv4289701590activity span span {color:#ff7900;}#yiv4289701590 #yiv4289701590activity span .yiv4289701590underline {text-decoration:underline;}#yiv4289701590 .yiv4289701590attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4289701590 .yiv4289701590attach div a {text-decoration:none;}#yiv4289701590 .yiv4289701590attach img {border:none;padding-right:5px;}#yiv4289701590 .yiv4289701590attach label {display:block;margin-bottom:5px;}#yiv4289701590 .yiv4289701590attach label a {text-decoration:none;}#yiv4289701590 blockquote {margin:0 0 0 4px;}#yiv4289701590 .yiv4289701590bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4289701590 .yiv4289701590bold a {text-decoration:none;}#yiv4289701590 dd.yiv4289701590last p a {font-family:Verdana;font-weight:700;}#yiv4289701590 dd.yiv4289701590last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4289701590 dd.yiv4289701590last p span.yiv4289701590yshortcuts {margin-right:0;}#yiv4289701590 div.yiv4289701590attach-table div div a {text-decoration:none;}#yiv4289701590 div.yiv4289701590attach-table {width:400px;}#yiv4289701590 div.yiv4289701590file-title a, #yiv4289701590 div.yiv4289701590file-title a:active, #yiv4289701590 div.yiv4289701590file-title a:hover, #yiv4289701590 div.yiv4289701590file-title a:visited {text-decoration:none;}#yiv4289701590 div.yiv4289701590photo-title a, #yiv4289701590 div.yiv4289701590photo-title a:active, #yiv4289701590 div.yiv4289701590photo-title a:hover, #yiv4289701590 div.yiv4289701590photo-title a:visited {text-decoration:none;}#yiv4289701590 div#yiv4289701590ygrp-mlmsg #yiv4289701590ygrp-msg p a span.yiv4289701590yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4289701590 .yiv4289701590green {color:#628c2a;}#yiv4289701590 .yiv4289701590MsoNormal {margin:0 0 0 0;}#yiv4289701590 o {font-size:0;}#yiv4289701590 #yiv4289701590photos div {float:left;width:72px;}#yiv4289701590 #yiv4289701590photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4289701590 #yiv4289701590photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4289701590 #yiv4289701590reco-category {font-size:77%;}#yiv4289701590 #yiv4289701590reco-desc {font-size:77%;}#yiv4289701590 .yiv4289701590replbq {margin:4px;}#yiv4289701590 #yiv4289701590ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4289701590 #yiv4289701590ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4289701590 #yiv4289701590ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4289701590 #yiv4289701590ygrp-mlmsg select, #yiv4289701590 input, #yiv4289701590 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4289701590 #yiv4289701590ygrp-mlmsg pre, #yiv4289701590 code {font:115% monospace;}#yiv4289701590 #yiv4289701590ygrp-mlmsg * {line-height:1.22em;}#yiv4289701590 #yiv4289701590ygrp-mlmsg #yiv4289701590logo {padding-bottom:10px;}#yiv4289701590 #yiv4289701590ygrp-msg p a {font-family:Verdana;}#yiv4289701590 #yiv4289701590ygrp-msg p#yiv4289701590attach-count span {color:#1E66AE;font-weight:700;}#yiv4289701590 #yiv4289701590ygrp-reco #yiv4289701590reco-head {color:#ff7900;font-weight:700;}#yiv4289701590 #yiv4289701590ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ov li a {font-size:130%;text-decoration:none;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4289701590 #yiv4289701590ygrp-sponsor #yiv4289701590ov ul {margin:0;padding:0 0 0 8px;}#yiv4289701590 #yiv4289701590ygrp-text {font-family:Georgia;}#yiv4289701590 #yiv4289701590ygrp-text p {margin:0 0 1em 0;}#yiv4289701590 #yiv4289701590ygrp-text tt {font-size:120%;}#yiv4289701590 #yiv4289701590ygrp-vital ul li:last-child {border-right:none !important;}#yiv4289701590
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 8:48
Subject: Re: [belajar-excel] mohon solusi : VBA loading gambar
Wa'alaikumussalam wr wb
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX), command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum,
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
#yiv4289701590 #yiv4289701590 -- #yiv4289701590ygrp-
Wed Jan 14, 2015 7:32 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
yak betul Pak HK
harusnya :
sheets("nama sheetnya").imgY.picture=loadpicture(blabla)
Thanks
Kid.
On Thu, Jan 15, 2015 at 2:30 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Boleh ikutan kan ?
> Kalau sheetnya beda mungkin di depan imgY perlu ditambahkan nama sheetnya,
> sesuai petunjuk Mr. Kid mengenai hierarchi object.
>
> Salam,
> HK
>
>
>
> ----- Forwarded Message -----
> *From:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 15 January 2015, 8:48
> *Subject:* Re: [belajar-excel] mohon solusi : VBA loading gambar
>
>
> Wa'alaikumussalam wr wb
>
> Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
> 1. di sheet X ada activex control berupa image (misal bernama imgX),
> command button, dan spin button
> 2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil
> dengan proses LoadPicture ke control image imgX
> 3. ada sheet Y yang juga memiliki activex control berupa image (anggap
> saja namanya imgY)
> 4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture
> terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
> Jadi, yang tadinya ada bunyi :
> imgX.picture=loadpicture(blabla)
> ditambahkan dibawahnya untuk ke imgY menjadi :
> imgX.picture=loadpicture(blabla)
> imgY.picture=loadpicture(blabla)
>
> Kira-kira demikian.
>
> Wassalamu'alaikum wr wb
> Kid.
>
>
> 2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum,
>
> mohon solusi untuk persoalan yang saya hadapi,
>
> saya memasukkan gambar (dari folder gambar) ke excel dengan activeX
> control menggunakan command button dan spin button, berhasil untuk sheet
> yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama
> otomatis ke sheet yang lain.
>
> mohon solusi para master.
> terimakasih
>
>
>
>
>
>
harusnya :
sheets("nama sheetnya").imgY.picture=loadpicture(blabla)
Thanks
Kid.
On Thu, Jan 15, 2015 at 2:30 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Boleh ikutan kan ?
> Kalau sheetnya beda mungkin di depan imgY perlu ditambahkan nama sheetnya,
> sesuai petunjuk Mr. Kid mengenai hierarchi object.
>
> Salam,
> HK
>
>
>
> ----- Forwarded Message -----
> *From:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 15 January 2015, 8:48
> *Subject:* Re: [belajar-excel] mohon solusi : VBA loading gambar
>
>
> Wa'alaikumussalam wr wb
>
> Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
> 1. di sheet X ada activex control berupa image (misal bernama imgX),
> command button, dan spin button
> 2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil
> dengan proses LoadPicture ke control image imgX
> 3. ada sheet Y yang juga memiliki activex control berupa image (anggap
> saja namanya imgY)
> 4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture
> terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
> Jadi, yang tadinya ada bunyi :
> imgX.picture=loadpicture(blabla)
> ditambahkan dibawahnya untuk ke imgY menjadi :
> imgX.picture=loadpicture(blabla)
> imgY.picture=loadpicture(blabla)
>
> Kira-kira demikian.
>
> Wassalamu'alaikum wr wb
> Kid.
>
>
> 2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum,
>
> mohon solusi untuk persoalan yang saya hadapi,
>
> saya memasukkan gambar (dari folder gambar) ke excel dengan activeX
> control menggunakan command button dan spin button, berhasil untuk sheet
> yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama
> otomatis ke sheet yang lain.
>
> mohon solusi para master.
> terimakasih
>
>
>
>
>
>
Thu Jan 15, 2015 1:31 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Mungkin link file warisan mbak Siti (yang telah saya edit) ini bisa menjadi referensi.
klik di sini
Sebelum dijalankan, download dulu filenya ke suatu directory, mis. D
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 10:31
Subject: Re: Fw: [belajar-excel] mohon solusi : VBA loading gambar
yak betul Pak HK
harusnya :
sheets("nama sheetnya").imgY.picture=loadpicture(blabla)
Thanks
Kid.
On Thu, Jan 15, 2015 at 2:30 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Boleh ikutan kan ?Kalau sheetnya beda mungkin di depan imgY perlu ditambahkan nama sheetnya, sesuai petunjuk Mr. Kid mengenai hierarchi object.
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 8:48
Subject: Re: [belajar-excel] mohon solusi : VBA loading gambar
Wa'alaikumussalam wr wb
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX), command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum,
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
#yiv2765072943 #yiv2765072943 -- #yiv2765072943ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2765072943 #yiv2765072943ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2765072943 #yiv2765072943ygrp-mkp #yiv2765072943hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2765072943 #yiv2765072943ygrp-mkp #yiv2765072943ads {margin-bottom:10px;}#yiv2765072943 #yiv2765072943ygrp-mkp .yiv2765072943ad {padding:0 0;}#yiv2765072943 #yiv2765072943ygrp-mkp .yiv2765072943ad p {margin:0;}#yiv2765072943 #yiv2765072943ygrp-mkp .yiv2765072943ad a {color:#0000ff;text-decoration:none;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ygrp-lc {font-family:Arial;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ygrp-lc #yiv2765072943hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ygrp-lc .yiv2765072943ad {margin-bottom:10px;padding:0 0;}#yiv2765072943 #yiv2765072943actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2765072943 #yiv2765072943activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2765072943 #yiv2765072943activity span {font-weight:700;}#yiv2765072943 #yiv2765072943activity span:first-child {text-transform:uppercase;}#yiv2765072943 #yiv2765072943activity span a {color:#5085b6;text-decoration:none;}#yiv2765072943 #yiv2765072943activity span span {color:#ff7900;}#yiv2765072943 #yiv2765072943activity span .yiv2765072943underline {text-decoration:underline;}#yiv2765072943 .yiv2765072943attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2765072943 .yiv2765072943attach div a {text-decoration:none;}#yiv2765072943 .yiv2765072943attach img {border:none;padding-right:5px;}#yiv2765072943 .yiv2765072943attach label {display:block;margin-bottom:5px;}#yiv2765072943 .yiv2765072943attach label a {text-decoration:none;}#yiv2765072943 blockquote {margin:0 0 0 4px;}#yiv2765072943 .yiv2765072943bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2765072943 .yiv2765072943bold a {text-decoration:none;}#yiv2765072943 dd.yiv2765072943last p a {font-family:Verdana;font-weight:700;}#yiv2765072943 dd.yiv2765072943last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2765072943 dd.yiv2765072943last p span.yiv2765072943yshortcuts {margin-right:0;}#yiv2765072943 div.yiv2765072943attach-table div div a {text-decoration:none;}#yiv2765072943 div.yiv2765072943attach-table {width:400px;}#yiv2765072943 div.yiv2765072943file-title a, #yiv2765072943 div.yiv2765072943file-title a:active, #yiv2765072943 div.yiv2765072943file-title a:hover, #yiv2765072943 div.yiv2765072943file-title a:visited {text-decoration:none;}#yiv2765072943 div.yiv2765072943photo-title a, #yiv2765072943 div.yiv2765072943photo-title a:active, #yiv2765072943 div.yiv2765072943photo-title a:hover, #yiv2765072943 div.yiv2765072943photo-title a:visited {text-decoration:none;}#yiv2765072943 div#yiv2765072943ygrp-mlmsg #yiv2765072943ygrp-msg p a span.yiv2765072943yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2765072943 .yiv2765072943green {color:#628c2a;}#yiv2765072943 .yiv2765072943MsoNormal {margin:0 0 0 0;}#yiv2765072943 o {font-size:0;}#yiv2765072943 #yiv2765072943photos div {float:left;width:72px;}#yiv2765072943 #yiv2765072943photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2765072943 #yiv2765072943photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2765072943 #yiv2765072943reco-category {font-size:77%;}#yiv2765072943 #yiv2765072943reco-desc {font-size:77%;}#yiv2765072943 .yiv2765072943replbq {margin:4px;}#yiv2765072943 #yiv2765072943ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2765072943 #yiv2765072943ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2765072943 #yiv2765072943ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2765072943 #yiv2765072943ygrp-mlmsg select, #yiv2765072943 input, #yiv2765072943 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2765072943 #yiv2765072943ygrp-mlmsg pre, #yiv2765072943 code {font:115% monospace;}#yiv2765072943 #yiv2765072943ygrp-mlmsg * {line-height:1.22em;}#yiv2765072943 #yiv2765072943ygrp-mlmsg #yiv2765072943logo {padding-bottom:10px;}#yiv2765072943 #yiv2765072943ygrp-msg p a {font-family:Verdana;}#yiv2765072943 #yiv2765072943ygrp-msg p#yiv2765072943attach-count span {color:#1E66AE;font-weight:700;}#yiv2765072943 #yiv2765072943ygrp-reco #yiv2765072943reco-head {color:#ff7900;font-weight:700;}#yiv2765072943 #yiv2765072943ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ov li a {font-size:130%;text-decoration:none;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2765072943 #yiv2765072943ygrp-sponsor #yiv2765072943ov ul {margin:0;padding:0 0 0 8px;}#yiv2765072943 #yiv2765072943ygrp-text {font-family:Georgia;}#yiv2765072943 #yiv2765072943ygrp-text p {margin:0 0 1em 0;}#yiv2765072943 #yiv2765072943ygrp-text tt {font-size:120%;}#yiv2765072943 #yiv2765072943ygrp-vital ul li:last-child {border-right:none !important;}#yiv2765072943
klik di sini
Sebelum dijalankan, download dulu filenya ke suatu directory, mis. D
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 10:31
Subject: Re: Fw: [belajar-excel] mohon solusi : VBA loading gambar
yak betul Pak HK
harusnya :
sheets("nama sheetnya").imgY.picture=loadpicture(blabla)
Thanks
Kid.
On Thu, Jan 15, 2015 at 2:30 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Boleh ikutan kan ?Kalau sheetnya beda mungkin di depan imgY perlu ditambahkan nama sheetnya, sesuai petunjuk Mr. Kid mengenai hierarchi object.
Salam,HK
----- Forwarded Message -----
From: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, 15 January 2015, 8:48
Subject: Re: [belajar-excel] mohon solusi : VBA loading gambar
Wa'alaikumussalam wr wb
Berhubung ndak ada contoh filenya, maka hal berikut adalah perkiraan saja.
1. di sheet X ada activex control berupa image (misal bernama imgX), command button, dan spin button
2. proses memasukkan gambar dari suatu file di sheet X sudah berhasil dengan proses LoadPicture ke control image imgX
3. ada sheet Y yang juga memiliki activex control berupa image (anggap saja namanya imgY)
4. pada proses di sheet X yang scriptnya memiliki baris LoadPicture terhadap image imgX ditambahkan dibawahnya proses loadpicture ke image imgY.
Jadi, yang tadinya ada bunyi :
imgX.picture=loadpicture(blabla)
ditambahkan dibawahnya untuk ke imgY menjadi :
imgX.picture=loadpicture(blabla)
imgY.picture=loadpicture(blabla)
Kira-kira demikian.
Wassalamu'alaikum wr wb
Kid.
2015-01-15 6:22 GMT+11:00 Muhaimin Shidiq shidiq92@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum,
mohon solusi untuk persoalan yang saya hadapi,
saya memasukkan gambar (dari folder gambar) ke excel dengan activeX control menggunakan command button dan spin button, berhasil untuk sheet yang berisi spin button. tetapi saya gagal memasukkan gambar yang sama otomatis ke sheet yang lain.
mohon solusi para master.
terimakasih
#yiv2765072943 #yiv2765072943 -- #yiv2765072943ygrp-
Thu Jan 15, 2015 2:26 am (PST) . Posted by:
"ibnu susilo"
Hai Krisan
Saya menggunakan pembatasan tanggal yang dibuat, dengan rumus berikut:
Ketik di kolom F4
=IF(AND(F$3>=$A4,F$3<=$B4),1,0)
Kemudian copy ke semua kolom yang ada
Monggo dicoba. Terima kasih
Pada 9 Januari 2015 17.19, Krisan Flower krisan_flower@rocketmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> Kepada Para Master Excell,
>
> saya bingung untuk mengisi secara otomatis angka satu pada excel worksheet
> saya,
>
> saya lampirkan contoh filenya,
>
> semoga para master ada yang tau caranya.
>
> Terimakasih,
>
> Krisan
>
>
>
Saya menggunakan pembatasan tanggal yang dibuat, dengan rumus berikut:
Ketik di kolom F4
=IF(AND(F$3>=$A4,F$3<=$B4),1,0)
Kemudian copy ke semua kolom yang ada
Monggo dicoba. Terima kasih
Pada 9 Januari 2015 17.19, Krisan Flower krisan_flower@rocketmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> Kepada Para Master Excell,
>
> saya bingung untuk mengisi secara otomatis angka satu pada excel worksheet
> saya,
>
> saya lampirkan contoh filenya,
>
> semoga para master ada yang tau caranya.
>
> Terimakasih,
>
> Krisan
>
>
>
Thu Jan 15, 2015 2:26 am (PST) . Posted by:
"Winov X" winovx
usahakan ada tabel nama nama kota
__Winarno__
Pada Senin, 12 Januari 2015 3:42, "Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Murni,Pada prinsipnya bisa namun harus jelas kriterianya..setelah atau sebelum kata apa....
Salam,HK
Sent from Samsung Mobile
-------- Original message --------From: "Murni Always murnialways_smile@yahoo.co.id [belajar-excel]" Date:12/01/2015 17:25 (GMT+07:00) To: belajar-excel@yahoogroups.com Subject: [belajar-excel] Rumus Memisahkan kata dalam sebuah kalimat
Dear Para Master,
Mohon bantuanya untuk bagaimana cara memisahkan kata dalam sebuah kalimat.contoh :
| Row 1 | Row 2 |
| Tujuan Ke Jakarta adalah untuk jalan - jalan | Jakarta |
| Saya berasal dari Jombang surabaya | Jombang |
bagaimana rumus memindahkan Kata Jakarta dan jombang di Row 2 tanpa harus melakukan ketik manual ?
Mohon sangat bantuanya para master..
Terima kasihSalamMurni
#yiv0086473033 #yiv0086473033 -- #yiv0086473033ygrp-
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar