15 New Messages
Digest #2524
Messages
Mon Sep 9, 2013 5:00 am (PDT) . Posted by:
"Kurniawan Tufail" kurniawan_tufail@ymail.com
terimakasih banyak Mr. Kid atas link,,
ini memudahkan bagi saya untuk belajar VBA,,
Wassalam,
Kurniawan
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 9 September 2013 15:45
Judul: Re: [belajar-excel] Edit data
Coba ke blog milis di http://b-excel.blogspot.com/
Bahasan tentang BelajarVBA dimulai disini.
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@ymail.com>
>
>terimakasih Mr.Kid, saya sudah membaca dan berusaha untuk mempelajari cara penulisan perintah2nya, tapi banyak perintah yang tidak saya mengerti seperti as boelan, as integrer, dkk. adakah situs rekomendasi atau buku rekomendasi dari Mr.Kid untuk saya pelajari msalah penulisan perintah2 pada VBA dan penjelasan mengenai vba.
>Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: BeExcel <belajar-excel@yahoogroups.com>
>Dikirim: Senin, 9 September 2013 14:46
>Judul: Re: [belajar-excel] Edit data
>
>
>
>
>Mungkin file yang ada disini bisa menjadi bahan wacana tambahan.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/9/7 Kurniawan Tufail <kurniawan_tufail@ymail.com>
>
>
>>
>>Dear Exeler semuanya, mohon bantuannya,,
>>saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
>> tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya.
>>
>>
>>berikut saya lampirkan file kasus saya.
>>
>>
>>terimakasih banyak sebelumnya, mohon pencerahannya.
>>
>>
>>regrads,
>>kurniawan eka putra tufail
>
>
>
ini memudahkan bagi saya untuk belajar VBA,,
Wassalam,
Kurniawan
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Senin, 9 September 2013 15:45
Judul: Re: [belajar-excel] Edit data
Coba ke blog milis di http://b-excel.
Bahasan tentang BelajarVBA dimulai disini.
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@
>
>terimakasih Mr.Kid, saya sudah membaca dan berusaha untuk mempelajari cara penulisan perintah2nya, tapi banyak perintah yang tidak saya mengerti seperti as boelan, as integrer, dkk. adakah situs rekomendasi atau buku rekomendasi dari Mr.Kid untuk saya pelajari msalah penulisan perintah2 pada VBA dan penjelasan mengenai vba.
>Terimakasih banyak sebelumnya Mr.Kid atas bantuannya.
>
>
>
>________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: BeExcel <belajar-excel@
>Dikirim: Senin, 9 September 2013 14:46
>Judul: Re: [belajar-excel] Edit data
>
>
>
>
>Mungkin file yang ada disini bisa menjadi bahan wacana tambahan.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/9/7 Kurniawan Tufail <kurniawan_tufail@
>
>
>>
>>Dear Exeler semuanya, mohon bantuannya,,
>>saya ada problem, saya sedang membuat form pengimputan data, untuk penginputannya saya sudah selesai, yang menjadi masalah ketika saya ingin mengedit data yang sudah terinput tetapi dengan bentuk userform yang sama dengan penginputan data. saya sudah belajar kiri kanan, tpi terkendala dengan pemahaman dengan penulisan perintah vba, masih banyak bentuk penulisan perintah vba yang masih belum saya mengerti. sekedar informasi, saya orang yang baru saja belajar vba excel.
>> tujuannya saya, ketika saya memilih salah satu cell yang berisi data, maka baris dari cell tersebut yang berisi data muncul di userform edit yang kemudian dapat saya tambahkan informasinya atau saya edit informasinya.
>>
>>
>>berikut saya lampirkan file kasus saya.
>>
>>
>>terimakasih banyak sebelumnya, mohon pencerahannya.
>>
>>
>>regrads,
>>kurniawan eka putra tufail
>
>
>
Mon Sep 9, 2013 6:32 am (PDT) . Posted by:
"Mekar Wijaya" mekar.wijaya
=IF(D2="";B2-A2;D2-A2)
supaya tidak keluar name atau pagar tulis atau perintah untuk mngosongkan cell tulis "" (kutip dua kali) artinya "kosong"
________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Sunday, September 8, 2013 7:55 AM
Subject: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
supaya tidak keluar name atau pagar tulis atau perintah untuk mngosongkan cell tulis "" (kutip dua kali) artinya "kosong"
____________
From: "hartini_80@yahoo.
To: belajar-excel@
Sent: Sunday, September 8, 2013 7:55 AM
Subject: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Mon Sep 9, 2013 9:07 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga alternatif input dengan fungsi Match.
Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2 baca termasuk tanda petik "
Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
Terima kasih.
Salam,
HK
________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 11:25
Subject: Re: [belajar-excel] rumus yang tidak running
Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("=MATCH(U5,A5:T5,0)")
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2
MILIH DATANYA, MUTER2 :D)
Set Data = Range(Cells(6, iCol), Cells(6,
1).End(xlDown).Offset(, iCol - 1).Address)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" &
Evaluate("=COUNTIF(" & Cells(6, iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")")
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" & lCel & ",B" & lCel & ")")
> Next cel
Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2 baca termasuk tanda petik "
Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
Terima kasih.
Salam,
HK
____________
From: De Premor <de@premor.net>
To: belajar-excel@
Sent: Monday, 9 September 2013, 11:25
Subject: Re: [belajar-excel] rumus yang tidak running
Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2
MILIH DATANYA, MUTER2 :D)
Set Data = Range(Cells(
1).End(xlDown)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" &
Evaluate("
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
> Next cel
Mon Sep 9, 2013 10:36 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba jalan-jalan
kesini<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>.
Ndak usah lihat yang aneh-aneh
disana<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>.
Cukup fokus pada bagaimana cara menyusun sebuah teks (data string). Ndak
usah pengen yang singkat, pakai sebanyak mungkin variabel supaya bisa
melihat secara jelas layaknya sedang naik helikopter. Kalau sudah dapat
terlihat jelas dan bisa memetakannya dengan nyaman, barulah bersibuk ria
untuk menyederhanakan agar tidak pakai variabel yang begitu banyak.
Wassalam,
Kid.
2013/9/9 hendrik karnadi <hendrikkarnadi@yahoo.com>
> **
>
>
> Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga
> alternatif input dengan fungsi Match.
> Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2
> baca termasuk tanda petik "
>
> Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal
> dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
>
> Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
>
> Terima kasih.
>
> Salam,
> HK
>
> ------------------------------
> *From:* De Premor <de@premor.net>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 9 September 2013, 11:25
>
> *Subject:* Re: [belajar-excel] rumus yang tidak running
>
>
> Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO
> atau No. PR
>
> Sub xxx()
> Dim Data As Range, Rng As Range
> Dim iCol As Integer, lRow As Long
>
> 'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
> iCol = Evaluate("=MATCH(U5,A5:T5,0)")
>
> 'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH
> DATANYA, MUTER2 :D)
> Set Data = Range(Cells(6, iCol), Cells(6, 1).End(xlDown).Offset(, iCol
> - 1).Address)
>
> For Each Rng In Data
> Cells(Rng.Row, 22) = Rng & "-" & Evaluate("=COUNTIF(" & Cells(6,
> iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")")
> Next
> End Sub
>
>
> On 09-09-2013 11:06, dwint ruswanto wrote:
>
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B"
> & lCel & ",B" & lCel & ")")
> Next cel
>
>
>
>
>
>
kesini<http://b-excel.
Ndak usah lihat yang aneh-aneh
disana<http://b-excel.
Cukup fokus pada bagaimana cara menyusun sebuah teks (data string). Ndak
usah pengen yang singkat, pakai sebanyak mungkin variabel supaya bisa
melihat secara jelas layaknya sedang naik helikopter. Kalau sudah dapat
terlihat jelas dan bisa memetakannya dengan nyaman, barulah bersibuk ria
untuk menyederhanakan agar tidak pakai variabel yang begitu banyak.
Wassalam,
Kid.
2013/9/9 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga
> alternatif input dengan fungsi Match.
> Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2
> baca termasuk tanda petik "
>
> Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal
> dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
>
> Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
>
> Terima kasih.
>
> Salam,
> HK
>
> ------------
> *From:* De Premor <de@premor.net>
> *To:* belajar-excel@
> *Sent:* Monday, 9 September 2013, 11:25
>
> *Subject:* Re: [belajar-excel] rumus yang tidak running
>
>
> Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO
> atau No. PR
>
> Sub xxx()
> Dim Data As Range, Rng As Range
> Dim iCol As Integer, lRow As Long
>
> 'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
> iCol = Evaluate("
>
> 'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH
> DATANYA, MUTER2 :D)
> Set Data = Range(Cells(
> - 1).Address)
>
> For Each Rng In Data
> Cells(Rng.Row, 22) = Rng & "-" & Evaluate("
> iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")"
> Next
> End Sub
>
>
> On 09-09-2013 11:06, dwint ruswanto wrote:
>
> Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
> & lCel & ",B" & lCel & ")"
> Next cel
>
>
>
>
>
>
Mon Sep 9, 2013 6:51 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
ikutan bingung.... TS
Neza
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 10 September 2013 0:07
Judul: Re: [belajar-excel] rumus yang tidak running
Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga alternatif input dengan fungsi Match.
Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2 baca termasuk tanda petik "
Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
Terima kasih.
Salam,
HK
________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 11:25
Subject: Re: [belajar-excel] rumus yang tidak running
Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("=MATCH(U5,A5:T5,0)")
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2
MILIH DATANYA, MUTER2 :D)
Set Data = Range(Cells(6, iCol), Cells(6,
1).End(xlDown).Offset(, iCol - 1).Address)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" &
Evaluate("=COUNTIF(" & Cells(6, iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")")
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp).Row
> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" & lCel & ",B" & lCel & ")")
> Next cel
Neza
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Selasa, 10 September 2013 0:07
Judul: Re: [belajar-excel] rumus yang tidak running
Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga alternatif input dengan fungsi Match.
Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2 baca termasuk tanda petik "
Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal dan akhir sedangkan versi Pak Dwint hanya pada akhir saja.
Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya.
Terima kasih.
Salam,
HK
____________
From: De Premor <de@premor.net>
To: belajar-excel@
Sent: Monday, 9 September 2013, 11:25
Subject: Re: [belajar-excel] rumus yang tidak running
Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO atau No. PR
Sub xxx()
Dim Data As Range, Rng As Range
Dim iCol As Integer, lRow As Long
'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER
iCol = Evaluate("
'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2
MILIH DATANYA, MUTER2 :D)
Set Data = Range(Cells(
1).End(xlDown)
For Each Rng In Data
Cells(Rng.Row, 22) = Rng & "-" &
Evaluate("
Next
End Sub
On 09-09-2013 11:06, dwint ruswanto wrote:
Dim rgNpb As Range, cel As Range
> Dim lRow As Long, lCel As Long
>
> lRow = Cells(Rows.Count, 2).End(xlUp)
> Set rgNpb = Range(Cells(
> For Each cel In rgNpb
> lCel = cel.Row
> cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("
> Next cel
Mon Sep 9, 2013 10:33 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Permasalahan dasar para pengguna mula VBA umumnya adalah dalam hal merujuk
suatu range. Saking sudah ngebetnya pengen yang tampak ajib, termasuk
menggunakan GUI userform, malah lupa kalau belum paham cara merujuk suatu
range yang dibutuhkan.
Alhasil, membanjirlah pertanyaan ke milis yang tadinya tampak seperti suatu
permasalahan yang rumit, malah menjadi seperti permasalahan ingin dibuatkan
kode VBA-nya. Sungguh 2 hal yang memiliki derajat bergitu berbeda.
Nah, bagaimana jika sekarang menyisihkan waktu untuk membaca dongeng gak
jelas tentang merujuk range yang ada
disini<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>.
Siapa tahu (siapa tahu loh ya) nanti bisa menyelesaikan beberapa
permasalahan mendasar dalam VBA masing-masing.
Setidaknya, akan ada jeda barang sebentar bagi milis untuk dibanjiri
permasalahan VBA yang diakibatkan karena ndak bisa merujuk range yang
dibutuhkan (soale lagi pada sibuk berpuyeng ria menerjemahkan dongeng gak
jelas).
Ndak usah kuatir tersesat untuk bisa sampai ke lokasi dongengnya. Linknya
disini<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>
.
Regards,
Kid.
Permasalahan dasar para pengguna mula VBA umumnya adalah dalam hal merujuk
suatu range. Saking sudah ngebetnya pengen yang tampak ajib, termasuk
menggunakan GUI userform, malah lupa kalau belum paham cara merujuk suatu
range yang dibutuhkan.
Alhasil, membanjirlah pertanyaan ke milis yang tadinya tampak seperti suatu
permasalahan yang rumit, malah menjadi seperti permasalahan ingin dibuatkan
kode VBA-nya. Sungguh 2 hal yang memiliki derajat bergitu berbeda.
Nah, bagaimana jika sekarang menyisihkan waktu untuk membaca dongeng gak
jelas tentang merujuk range yang ada
disini<http://b-excel.
Siapa tahu (siapa tahu loh ya) nanti bisa menyelesaikan beberapa
permasalahan mendasar dalam VBA masing-masing.
Setidaknya, akan ada jeda barang sebentar bagi milis untuk dibanjiri
permasalahan VBA yang diakibatkan karena ndak bisa merujuk range yang
dibutuhkan (soale lagi pada sibuk berpuyeng ria menerjemahkan dongeng gak
jelas).
Ndak usah kuatir tersesat untuk bisa sampai ke lokasi dongengnya. Linknya
disini<http://b-excel.
.
Regards,
Kid.
Mon Sep 9, 2013 11:15 am (PDT) . Posted by:
"Kurniawan Tufail" kurniawan_tufail@ymail.com
dear all excel-ler,,
mau tanya, gmna cara melakukan pengurangan waktu?? untuk pengurangan tanggal saya sudah bisa dengan menggunakan argument "as date" untuk menyatakan value sebagai tanggal. pertanyaan saya apakah untuk menyatakan value sebagai waktu, misal (text 08:00) sebagai waktu, juga menggunakan argument "as date" atau "as time" (jika ada) (maaf jika salah).
kira seperti ini yang telah saya lakukan
privet sub hitung_click()
dim ws as date, wl as date, ws as date
dim hasil as long
ws = textwaktustart.value 'pada bagian ini terjadi error
wl = textwaktulapor.value
wf = textwaktufinish.value
hasil = wf-wl
waktubd.caption = hasil
end sub
mohon pencerahannya........
mau tanya, gmna cara melakukan pengurangan waktu?? untuk pengurangan tanggal saya sudah bisa dengan menggunakan argument "as date" untuk menyatakan value sebagai tanggal. pertanyaan saya apakah untuk menyatakan value sebagai waktu, misal (text 08:00) sebagai waktu, juga menggunakan argument "as date" atau "as time" (jika ada) (maaf jika salah).
kira seperti ini yang telah saya lakukan
privet sub hitung_click(
dim ws as date, wl as date, ws as date
dim hasil as long
ws = textwaktustart.
wl = textwaktulapor.
wf = textwaktufinish.
hasil = wf-wl
waktubd.caption = hasil
end sub
mohon pencerahannya.
Mon Sep 9, 2013 5:49 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin seperti ini :
privet sub hitung_click()
dim ws as date, wl as date, ws as date
dim hasil as date
ws = cdate(textwaktustart.text) 'pada bagian ini terjadi error
wl = cdate(textwaktulapor.text)
wf = cdate(textwaktufinish.text)
hasil = wf-wl
waktubd.caption = format$(hasil , "HH:MM:SS")
end sub
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@ymail.com>
> **
>
>
> dear all excel-ler,,
>
> mau tanya, gmna cara melakukan pengurangan waktu?? untuk pengurangan
> tanggal saya sudah bisa dengan menggunakan argument "as date" untuk
> menyatakan value sebagai tanggal. pertanyaan saya apakah untuk menyatakan
> value sebagai waktu, misal (text 08:00) sebagai waktu, juga menggunakan
> argument "as date" atau "as time" (jika ada) (maaf jika salah).
> kira seperti ini yang telah saya lakukan
>
> privet sub hitung_click()
> dim ws as date, wl as date, ws as date
> dim hasil as long
>
> ws = textwaktustart.value 'pada bagian ini terjadi error
> wl = textwaktulapor.value
> wf = textwaktufinish.value
>
> hasil = wf-wl
>
> waktubd.caption = hasil
>
> end sub
>
> mohon pencerahannya........
>
>
>
privet sub hitung_click(
dim ws as date, wl as date, ws as date
dim hasil as date
ws = cdate(textwaktustar
wl = cdate(textwaktulapo
wf = cdate(textwaktufini
hasil = wf-wl
waktubd.caption = format$(hasil , "HH:MM:
end sub
Wassalam,
Kid.
2013/9/9 Kurniawan Tufail <kurniawan_tufail@
> **
>
>
> dear all excel-ler,,
>
> mau tanya, gmna cara melakukan pengurangan waktu?? untuk pengurangan
> tanggal saya sudah bisa dengan menggunakan argument "as date" untuk
> menyatakan value sebagai tanggal. pertanyaan saya apakah untuk menyatakan
> value sebagai waktu, misal (text 08:00) sebagai waktu, juga menggunakan
> argument "as date" atau "as time" (jika ada) (maaf jika salah).
> kira seperti ini yang telah saya lakukan
>
> privet sub hitung_click(
> dim ws as date, wl as date, ws as date
> dim hasil as long
>
> ws = textwaktustart.
> wl = textwaktulapor.
> wf = textwaktufinish.
>
> hasil = wf-wl
>
> waktubd.caption = hasil
>
> end sub
>
> mohon pencerahannya.
>
>
>
Mon Sep 9, 2013 2:58 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
Dear All Master,
Tak henti-hentinya saya bertanya,
case nya seperti ini...
"saya punya combobox(perintah save ke sheet1) di sheet3....,
di sheet1 yang dideklarasi Private sub Worksheet_SelectionChange(.....) yg VBAnya running jika kita bekerja di cell dalam sheetya"
ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan combobox(save), script di sheet1 baru bekerja
Salam
Neza
Tak henti-hentinya saya bertanya,
case nya seperti ini...
"saya punya combobox(perintah save ke sheet1) di sheet3....,
di sheet1 yang dideklarasi Private sub Worksheet_Selection
ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan combobox(save)
Salam
Neza
Mon Sep 9, 2013 5:47 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sebaiknya ada contoh workbooknya.
Wassalam,
Kid.
2013/9/9 neza ibaneza <nezaibaneza@yahoo.co.id>
> **
>
>
> Dear All Master,
> Tak henti-hentinya saya bertanya,
> case nya seperti ini...
> "saya punya combobox(perintah save ke sheet1) di sheet3....,
> di sheet1 yang dideklarasi Private sub Worksheet_SelectionChange(.....)
> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>
> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
> combobox(save), script di sheet1 baru bekerja
>
>
> Salam
> Neza
>
>
>
>
>
Wassalam,
Kid.
2013/9/9 neza ibaneza <nezaibaneza@
> **
>
>
> Dear All Master,
> Tak henti-hentinya saya bertanya,
> case nya seperti ini...
> "saya punya combobox(perintah save ke sheet1) di sheet3....,
> di sheet1 yang dideklarasi Private sub Worksheet_Selection
> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>
> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
> combobox(save)
>
>
> Salam
> Neza
>
>
>
>
>
Mon Sep 9, 2013 6:34 pm (PDT) . Posted by:
"Jan Raisin"
hai Neza..
berikut cara-cara yang Jan ketahui..
1. tulis scriptnya dalam sebuah modul lalu panggil script tersebut melalui
tombol yang sudah ada
atau
2. pada saat melakukan proses save data ke sheet yang lain gunakan blok
With - End With
contohnya adalah
With Sheet1
*.*range("a1").value = range("a1").value
End With
perhatikan tanda titik berwarna merah dalam blok kuning itu menunjukkan
bahwa range("a1") yang berwarna hijau adalah milik dari sheet1
sedangkan range("a1") yang berwarna biru tanpa didahului tanda titik
berarti adalah milik dari sheet yang aktif, dalam kasus ini adalah sheet3
Harus dipahami.. bahwa setiap object dalam sebuah sheet adalah anggota
keluarga di dalam sheet tersebut.. tentunya untuk memberi perintah kepada
anggota di keluarga sebelah harus ada sopan santunnya.. yaitu dimulai dari
minta izin kepada kepala keluarganya dulu yang memiliki hierarki lebih
tinggi
kalo sudah diizinkan baru bisa minta tolong ke anaknya yang anggota
keluarga di sheet1
Salam,
-Miss Jan Raisin-
Pada 9 September 2013 15.04, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
> **
>
>
> Dear All Master,
> Tak henti-hentinya saya bertanya,
> case nya seperti ini...
> "saya punya combobox(perintah save ke sheet1) di sheet3....,
> di sheet1 yang dideklarasi Private sub Worksheet_SelectionChange(.....)
> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>
> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
> combobox(save), script di sheet1 baru bekerja
>
>
> Salam
> Neza
>
>
>
berikut cara-cara yang Jan ketahui..
1. tulis scriptnya dalam sebuah modul lalu panggil script tersebut melalui
tombol yang sudah ada
atau
2. pada saat melakukan proses save data ke sheet yang lain gunakan blok
With - End With
contohnya adalah
With Sheet1
*.*range("
End With
perhatikan tanda titik berwarna merah dalam blok kuning itu menunjukkan
bahwa range("
sedangkan range("
berarti adalah milik dari sheet yang aktif, dalam kasus ini adalah sheet3
Harus dipahami.. bahwa setiap object dalam sebuah sheet adalah anggota
keluarga di dalam sheet tersebut.. tentunya untuk memberi perintah kepada
anggota di keluarga sebelah harus ada sopan santunnya.. yaitu dimulai dari
minta izin kepada kepala keluarganya dulu yang memiliki hierarki lebih
tinggi
kalo sudah diizinkan baru bisa minta tolong ke anaknya yang anggota
keluarga di sheet1
Salam,
-Miss Jan Raisin-
Pada 9 September 2013 15.04, neza ibaneza <nezaibaneza@
> **
>
>
> Dear All Master,
> Tak henti-hentinya saya bertanya,
> case nya seperti ini...
> "saya punya combobox(perintah save ke sheet1) di sheet3....,
> di sheet1 yang dideklarasi Private sub Worksheet_Selection
> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>
> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
> combobox(save)
>
>
> Salam
> Neza
>
>
>
Mon Sep 9, 2013 6:38 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba jalan-jalan ke blog milis untuk lihat-lihat dongeng BelajarVBA di :
http://b-excel.blogspot.com/2013/07/belajarvba-006-object-dalam-excel.html
pada bagian Cara menggunakan object.
Disana ada cara memproses range di sheet lain dari sheet liannya.
Wassalam,
Kid.
2013/9/10 Jan Raisin <miss.jan.raisin@gmail.com>
> **
>
>
> hai Neza..
>
> berikut cara-cara yang Jan ketahui..
>
> 1. tulis scriptnya dalam sebuah modul lalu panggil script tersebut melalui
> tombol yang sudah ada
>
> atau
>
> 2. pada saat melakukan proses save data ke sheet yang lain gunakan blok
> With - End With
>
> contohnya adalah
>
> With Sheet1
> *.*range("a1").value = range("a1").value
> End With
>
> perhatikan tanda titik berwarna merah dalam blok kuning itu menunjukkan
> bahwa range("a1") yang berwarna hijau adalah milik dari sheet1
> sedangkan range("a1") yang berwarna biru tanpa didahului tanda titik
> berarti adalah milik dari sheet yang aktif, dalam kasus ini adalah sheet3
>
> Harus dipahami.. bahwa setiap object dalam sebuah sheet adalah anggota
> keluarga di dalam sheet tersebut.. tentunya untuk memberi perintah kepada
> anggota di keluarga sebelah harus ada sopan santunnya.. yaitu dimulai dari
> minta izin kepada kepala keluarganya dulu yang memiliki hierarki lebih
> tinggi
> kalo sudah diizinkan baru bisa minta tolong ke anaknya yang anggota
> keluarga di sheet1
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 9 September 2013 15.04, neza ibaneza <nezaibaneza@yahoo.co.id>menulis:
>
> **
>>
>>
>> Dear All Master,
>> Tak henti-hentinya saya bertanya,
>> case nya seperti ini...
>> "saya punya combobox(perintah save ke sheet1) di sheet3....,
>> di sheet1 yang dideklarasi Private sub Worksheet_SelectionChange(.....)
>> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>>
>> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
>> combobox(save), script di sheet1 baru bekerja
>>
>>
>> Salam
>> Neza
>>
>>
>>
>
>
http://b-excel.
pada bagian Cara menggunakan object.
Disana ada cara memproses range di sheet lain dari sheet liannya.
Wassalam,
Kid.
2013/9/10 Jan Raisin <miss.jan.raisin@
> **
>
>
> hai Neza..
>
> berikut cara-cara yang Jan ketahui..
>
> 1. tulis scriptnya dalam sebuah modul lalu panggil script tersebut melalui
> tombol yang sudah ada
>
> atau
>
> 2. pada saat melakukan proses save data ke sheet yang lain gunakan blok
> With - End With
>
> contohnya adalah
>
> With Sheet1
> *.*range("
> End With
>
> perhatikan tanda titik berwarna merah dalam blok kuning itu menunjukkan
> bahwa range("
> sedangkan range("
> berarti adalah milik dari sheet yang aktif, dalam kasus ini adalah sheet3
>
> Harus dipahami.. bahwa setiap object dalam sebuah sheet adalah anggota
> keluarga di dalam sheet tersebut.. tentunya untuk memberi perintah kepada
> anggota di keluarga sebelah harus ada sopan santunnya.. yaitu dimulai dari
> minta izin kepada kepala keluarganya dulu yang memiliki hierarki lebih
> tinggi
> kalo sudah diizinkan baru bisa minta tolong ke anaknya yang anggota
> keluarga di sheet1
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 9 September 2013 15.04, neza ibaneza <nezaibaneza@
>
> **
>>
>>
>> Dear All Master,
>> Tak henti-hentinya saya bertanya,
>> case nya seperti ini...
>> "saya punya combobox(perintah save ke sheet1) di sheet3....,
>> di sheet1 yang dideklarasi Private sub Worksheet_Selection
>> yg VBAnya running jika kita bekerja di cell dalam sheetya"
>>
>> ask : gimana caranya saya tetap bekerja di sheet3, dan saat saya tekan
>> combobox(save)
>>
>>
>> Salam
>> Neza
>>
>>
>>
>
>
Mon Sep 9, 2013 5:46 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Untuk bisa menggunakan control DTPicker, maka komputer harus memiliki file
library mscomct2.ocx yang teregister.
Coba lihat posting
http://tech.groups.yahoo.com/group/belajar-excel/message/22874 untuk
penjelasan lebih lanjut.
Wassalam,
Kid.
2013/9/9 nangAgus <nangagoez@yahoo.co.id>
> **
>
>
> Kepada pakar Excel
>
> Saya memiliki sebuah file dengan ActiveX Date and Time Picker seperti
> terlampir.
> namaun file tersebut jika dibuka lagi, Date and time picker tersebut
> menjadi tanda silang merah.
> Saya minta tolong bagaimana cara memeunculkan time picker tersebut
> dengan office saya?
>
> Terima kasih
>
> NangAgus.
>
>
library mscomct2.ocx yang teregister.
Coba lihat posting
http://tech.
penjelasan lebih lanjut.
Wassalam,
Kid.
2013/9/9 nangAgus <nangagoez@yahoo.
> **
>
>
> Kepada pakar Excel
>
> Saya memiliki sebuah file dengan ActiveX Date and Time Picker seperti
> terlampir.
> namaun file tersebut jika dibuka lagi, Date and time picker tersebut
> menjadi tanda silang merah.
> Saya minta tolong bagaimana cara memeunculkan time picker tersebut
> dengan office saya?
>
> Terima kasih
>
> NangAgus.
>
>
Mon Sep 9, 2013 6:02 pm (PDT) . Posted by:
"PRAZT" praztmath
Tiada hari tanpa belajar, tiada pencerahan tanpa bertanya...dear master
excel, bagaimana cara menjumlahkan data pada userform? Dan apakah pakai
textBox atau Label? Mohon petunjuknya.
Wassalam...
PRAZTMATH T
Mon Sep 9, 2013 7:00 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Bisa.
Pindahin "Exit Sub" nya ke bawah "Sheet1.Select" (diatas "X:")
Salam,
HK
________________________________
From: Dede Suparman <dede_suparman111@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 September 2013, 12:08
Subject: [belajar-excel] On Error GoTo
Assalamu'alaikum...
Dear Master dan rekan-rekan Be-Excel,
Mohon bantuannya, saya membuat tombol untuk memilih sheet
saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
muncul error.
Sub Macro7(control As IRibbonControl)
On Error GoTo X
Sheet1.Select
X:
MsgBox "sheet hide"
Exit Sub
End Sub
Error atau tidak error msgbox nya tetap muncul,
bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
Demikian semoga penjelasan maslah nya bisa difahami.
terimakasih
salam,
del
Pindahin "Exit Sub" nya ke bawah "Sheet1.
Salam,
HK
____________
From: Dede Suparman <dede_suparman111@
To: belajar-excel@
Sent: Monday, 9 September 2013, 12:08
Subject: [belajar-excel] On Error GoTo
Assalamu'
Dear Master dan rekan-rekan Be-Excel,
Mohon bantuannya, saya membuat tombol untuk memilih sheet
saya protect sheet dengan hide, kan klo sheet hide pas tekan tombol
muncul error.
Sub Macro7(control As IRibbonControl)
On Error GoTo X
Sheet1.Select
X:
MsgBox "sheet hide"
Exit Sub
End Sub
Error atau tidak error msgbox nya tetap muncul,
bisa ga yaa klo kondisi tdk error msg nya tdk muncul.
Demikian semoga penjelasan maslah nya bisa difahami.
terimakasih
salam,
del
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar