12 New Messages
Digest #2327
2a
Bls: [belajar-excel] Penjumlahan dengan kriteria lebih dari satu (mo by "ghozi alkatiri" ghozialkatiri
Messages
Sat Jun 1, 2013 2:03 pm (PDT) . Posted by:
"Imam Sinurat" sin.ur4t
Yth. Para pakar dan rekan2 excellers..
Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn tabel2 input maupun output.
Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya pelajari sbg pemula?
Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti apa yg saya maksudkan.
Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
Wassalam
Imam Sinurat
Sat Jun 1, 2013 4:55 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
untuk yang sumproduct
=SUMPRODUCT(($C$5:$C$11140=I5)*($G$5:$G$11140>0)*$E$5:$E$11140)
untuk yang sumifs
=SUMIFS($E$5:$E$11140;$C$5:$C$11140;I5;$G$5:$G$11140;"<>")
wassalam
Ghozi Alkatiri
________________________________
Dari: supri anto <supriantohdl@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 1 Juni 2013 19:17
Judul: [belajar-excel] Penjumlahan dengan kriteria lebih dari satu (mods)
Dear Para Pakar Excel�
Beberapa hari yang lalu saya pernah menanyakan
tentang penjumlahan dengan kriteria tertentu (Data Penjumlahan1,File
Terlampir) dan telah terjawab oleh Mr. Kid. (yaitu dengan SUMPRODUCT &
SUMIFS)
Dan kali ini bagaimana jika ada 2 kriteria.
Misal :
Saya punya data terdiri dari kolom C, E dan G.
Pertanyaannya: jika kolom G terisi sembarang angka,maka otomatis akan
menghasilkan hasil penjumlahan dari kolom E dengan kunci kolom C
Untuk lebih jelasnya,mohon para suhu excel melihat file terlampir (Data
Penjumlahan2).
Sebelum dan sesudahnya saya ucapkan terima kasih�
Hormat Saya,
Suprianto
--- Mods ---
Dimohon, pada posting topik baru disertai subject email yang akan menjadi judul topik.
------------
=SUMPRODUCT(
untuk yang sumifs
=SUMIFS($E$5:
wassalam
Ghozi Alkatiri
____________
Dari: supri anto <supriantohdl@
Kepada: belajar-excel@
Dikirim: Sabtu, 1 Juni 2013 19:17
Judul: [belajar-excel] Penjumlahan dengan kriteria lebih dari satu (mods)
Dear Para Pakar Excel�
Beberapa hari yang lalu saya pernah menanyakan
tentang penjumlahan dengan kriteria tertentu (Data Penjumlahan1,
Terlampir) dan telah terjawab oleh Mr. Kid. (yaitu dengan SUMPRODUCT &
SUMIFS)
Dan kali ini bagaimana jika ada 2 kriteria.
Misal :
Saya punya data terdiri dari kolom C, E dan G.
Pertanyaannya: jika kolom G terisi sembarang angka,maka otomatis akan
menghasilkan hasil penjumlahan dari kolom E dengan kunci kolom C
Untuk lebih jelasnya,mohon para suhu excel melihat file terlampir (Data
Penjumlahan2)
Sebelum dan sesudahnya saya ucapkan terima kasih�
Hormat Saya,
Suprianto
--- Mods ---
Dimohon, pada posting topik baru disertai subject email yang akan menjadi judul topik.
------------
Sat Jun 1, 2013 8:40 pm (PDT) . Posted by:
"supri anto"
Kepada Mods...Sekali lagi Mohon Maaf,dan terima kasih atas Peringatannya..
Kepada Mr. Kid, terima kasih telah memberi penjelasan,Maaf saya benar-benar
awam dengan SUMPRODUCT dan SUMIFS (yang saya tahu hanya SUM),sekali lagi
maaf ya Mr. Kid karena saya nda faham-faham...
Kepada Mas Ghozi Alkatiri, terima kasih banyak atas Rumusnya,karena sudah
berhasil dengan sempurna...
Untuk semuanya,Mohon maaf jika saya selalu membuat kesalahan dalam mengirim
pertanyaan,dan selalu bertanya serta terima kasih atas bantuan saudara
sekalian...
Hormat saya,
Suprianto
2013/6/2 ghozi alkatiri <ghozialkatiri@yahoo.co.id >
> **
>
>
> untuk yang sumproduct
> =SUMPRODUCT(($C$5:$C$11140=I5)*($G$5:$G$11140>0)*$E$5:$E$11140)
>
>
> untuk yang sumifs
> =SUMIFS($E$5:$E$11140;$C$5:$C$11140;I5;$G$5:$G$11140;"<>")
>
> wassalam
>
> Ghozi Alkatiri
> ------------------------------
> *Dari:* supri anto <supriantohdl@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 1 Juni 2013 19:17
> *Judul:* [belajar-excel] Penjumlahan dengan kriteria lebih dari satu
> (mods)
>
>
> Dear Para Pakar Excel�
>
> Beberapa hari yang lalu saya pernah menanyakan
>
> tentang penjumlahan dengan kriteria tertentu (Data Penjumlahan1,File
> Terlampir) dan telah terjawab oleh Mr. Kid. (yaitu dengan SUMPRODUCT &
> SUMIFS)
>
> Dan kali ini bagaimana jika ada 2 kriteria.
>
> Misal :
>
> Saya punya data terdiri dari kolom C, E dan G.
>
> Pertanyaannya: jika kolom G terisi sembarang angka,maka otomatis akan
> menghasilkan hasil penjumlahan dari kolom E dengan kunci kolom C
>
> Untuk lebih jelasnya,mohon para suhu excel melihat file terlampir (Data
> Penjumlahan2).
>
> Sebelum dan sesudahnya saya ucapkan terima kasih�
>
> Hormat Saya,
>
> Suprianto
>
> --- Mods ---
> Dimohon, pada posting topik baru disertai subject email yang akan menjadi
> judul topik.
> ------------
>
>
>
>
>
Kepada Mr. Kid, terima kasih telah memberi penjelasan,Maaf saya benar-benar
awam dengan SUMPRODUCT dan SUMIFS (yang saya tahu hanya SUM),sekali lagi
maaf ya Mr. Kid karena saya nda faham-faham.
Kepada Mas Ghozi Alkatiri, terima kasih banyak atas Rumusnya,karena sudah
berhasil dengan sempurna...
Untuk semuanya,Mohon maaf jika saya selalu membuat kesalahan dalam mengirim
pertanyaan,dan selalu bertanya serta terima kasih atas bantuan saudara
sekalian...
Hormat saya,
Suprianto
2013/6/2 ghozi alkatiri <ghozialkatiri@
> **
>
>
> untuk yang sumproduct
> =SUMPRODUCT(
>
>
> untuk yang sumifs
> =SUMIFS($E$5:
>
> wassalam
>
> Ghozi Alkatiri
> ------------
> *Dari:* supri anto <supriantohdl@
> *Kepada:* belajar-excel@
> *Dikirim:* Sabtu, 1 Juni 2013 19:17
> *Judul:* [belajar-excel] Penjumlahan dengan kriteria lebih dari satu
> (mods)
>
>
> Dear Para Pakar Excel�
>
> Beberapa hari yang lalu saya pernah menanyakan
>
> tentang penjumlahan dengan kriteria tertentu (Data Penjumlahan1,
> Terlampir) dan telah terjawab oleh Mr. Kid. (yaitu dengan SUMPRODUCT &
> SUMIFS)
>
> Dan kali ini bagaimana jika ada 2 kriteria.
>
> Misal :
>
> Saya punya data terdiri dari kolom C, E dan G.
>
> Pertanyaannya: jika kolom G terisi sembarang angka,maka otomatis akan
> menghasilkan hasil penjumlahan dari kolom E dengan kunci kolom C
>
> Untuk lebih jelasnya,mohon para suhu excel melihat file terlampir (Data
> Penjumlahan2)
>
> Sebelum dan sesudahnya saya ucapkan terima kasih�
>
> Hormat Saya,
>
> Suprianto
>
> --- Mods ---
> Dimohon, pada posting topik baru disertai subject email yang akan menjadi
> judul topik.
> ------------
>
>
>
>
>
Sun Jun 2, 2013 2:49 am (PDT) . Posted by:
"Yusril Ramadani" yusril_rmd
Selamat siang para pakar
Mohon bantuannya untuk case terlampir
Saya ingin menggunakan perintah �check box� untuk memunculkan sheet
Misalnya saya centang di check box 1 mak sheet�1� akan visible dan jika
dilepas maka akan hidden
Bagaimana perintah yang dapat dilakukan di macronya
Terima kasih sebelumnya
Salam
YR
Mohon bantuannya untuk case terlampir
Saya ingin menggunakan perintah �check box� untuk memunculkan sheet
Misalnya saya centang di check box 1 mak sheet�1� akan visible dan jika
dilepas maka akan hidden
Bagaimana perintah yang dapat dilakukan di macronya
Terima kasih sebelumnya
Salam
YR
Sun Jun 2, 2013 3:16 am (PDT) . Posted by:
"WIRAnata Kemala 鄧又銘" kwiranata
begini boleh gak ? :)
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Worksheets("1").Visible = True
If CheckBox1.Value = False Then Worksheets("1").Visible = False
End Sub
Private Sub CheckBox2_Click()
If CheckBox1.Value = True Then Worksheets("2").Visible = True
If CheckBox1.Value = False Then Worksheets("2").Visible = False
End Sub
Private Sub CheckBox3_Click()
If CheckBox1.Value = True Then Worksheets("3").Visible = True
If CheckBox1.Value = False Then Worksheets("3").Visible = False
End Sub
2013/6/2 Yusril Ramadani <yusrilramadani@gmail.com >
> **
>
>
> Selamat siang para pakar
>
>
>
> Mohon bantuannya untuk case terlampir
>
> Saya ingin menggunakan perintah �check box� untuk memunculkan sheet
>
>
>
> Misalnya saya centang di check box 1 mak sheet�1� akan visible dan jika
> dilepas maka akan hidden
>
> Bagaimana perintah yang dapat dilakukan di macronya
>
>
>
> Terima kasih sebelumnya
>
>
>
> Salam
> YR
>
>
>
Private Sub CheckBox1_Click(
If CheckBox1.Value = True Then Worksheets("
If CheckBox1.Value = False Then Worksheets("
End Sub
Private Sub CheckBox2_Click(
If CheckBox1.Value = True Then Worksheets("
If CheckBox1.Value = False Then Worksheets("
End Sub
Private Sub CheckBox3_Click(
If CheckBox1.Value = True Then Worksheets("
If CheckBox1.Value = False Then Worksheets("
End Sub
2013/6/2 Yusril Ramadani <yusrilramadani@
> **
>
>
> Selamat siang para pakar
>
>
>
> Mohon bantuannya untuk case terlampir
>
> Saya ingin menggunakan perintah �check box� untuk memunculkan sheet
>
>
>
> Misalnya saya centang di check box 1 mak sheet�1� akan visible dan jika
> dilepas maka akan hidden
>
> Bagaimana perintah yang dapat dilakukan di macronya
>
>
>
> Terima kasih sebelumnya
>
>
>
> Salam
> YR
>
>
>
Sun Jun 2, 2013 3:20 am (PDT) . Posted by:
"WIRAnata Kemala 鄧又銘" kwiranata
eh salah deng : utk checkbox2 dan 3 nya lupa diganti :)
di bawah ini kudunya bener deh :)
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Worksheets("1").Visible = True
If CheckBox1.Value = False Then Worksheets("1").Visible = False
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then Worksheets("2").Visible = True
If CheckBox2.Value = False Then Worksheets("2").Visible = False
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then Worksheets("3").Visible = True
If CheckBox3.Value = False Then Worksheets("3").Visible = False
End Sub
2013/6/2 WIRAnata Kemala 鄧又銘 <kwiranata@gmail.com >
> begini boleh gak ? :)
>
> Private Sub CheckBox1_Click()
> If CheckBox1.Value = True Then Worksheets("1").Visible = True
> If CheckBox1.Value = False Then Worksheets("1").Visible = False
> End Sub
>
> Private Sub CheckBox2_Click()
> If CheckBox1.Value = True Then Worksheets("2").Visible = True
> If CheckBox1.Value = False Then Worksheets("2").Visible = False
> End Sub
>
> Private Sub CheckBox3_Click()
> If CheckBox1.Value = True Then Worksheets("3").Visible = True
> If CheckBox1.Value = False Then Worksheets("3").Visible = False
> End Sub
>
>
>
> 2013/6/2 Yusril Ramadani <yusrilramadani@gmail.com >
>
>> **
>>
>>
>> Selamat siang para pakar
>>
>>
>>
>> Mohon bantuannya untuk case terlampir
>>
>> Saya ingin menggunakan perintah "check box" untuk memunculkan sheet
>>
>>
>>
>> Misalnya saya centang di check box 1 mak sheet"1" akan visible dan jika
>> dilepas maka akan hidden
>>
>> Bagaimana perintah yang dapat dilakukan di macronya
>>
>>
>>
>> Terima kasih sebelumnya
>>
>>
>>
>> Salam
>> YR
>>
>>
>>
>
>
di bawah ini kudunya bener deh :)
Private Sub CheckBox1_Click(
If CheckBox1.Value = True Then Worksheets("
If CheckBox1.Value = False Then Worksheets("
End Sub
Private Sub CheckBox2_Click(
If CheckBox2.Value = True Then Worksheets("
If CheckBox2.Value = False Then Worksheets("
End Sub
Private Sub CheckBox3_Click(
If CheckBox3.Value = True Then Worksheets("
If CheckBox3.Value = False Then Worksheets("
End Sub
2013/6/2 WIRAnata Kemala 鄧又銘 <kwiranata@gmail.
> begini boleh gak ? :)
>
> Private Sub CheckBox1_Click(
> If CheckBox1.Value = True Then Worksheets("
> If CheckBox1.Value = False Then Worksheets("
> End Sub
>
> Private Sub CheckBox2_Click(
> If CheckBox1.Value = True Then Worksheets("
> If CheckBox1.Value = False Then Worksheets("
> End Sub
>
> Private Sub CheckBox3_Click(
> If CheckBox1.Value = True Then Worksheets("
> If CheckBox1.Value = False Then Worksheets("
> End Sub
>
>
>
> 2013/6/2 Yusril Ramadani <yusrilramadani@
>
>> **
>>
>>
>> Selamat siang para pakar
>>
>>
>>
>> Mohon bantuannya untuk case terlampir
>>
>> Saya ingin menggunakan perintah "check box" untuk memunculkan sheet
>>
>>
>>
>> Misalnya saya centang di check box 1 mak sheet"1" akan visible dan jika
>> dilepas maka akan hidden
>>
>> Bagaimana perintah yang dapat dilakukan di macronya
>>
>>
>>
>> Terima kasih sebelumnya
>>
>>
>>
>> Salam
>> YR
>>
>>
>>
>
>
Sun Jun 2, 2013 6:14 am (PDT) . Posted by:
"Fahmi" pahmi_2301
Sun Jun 2, 2013 8:27 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
ndongeng bentar ah....
mas Wira, pinjem scriptnya ya.
Dongeng sebelum tidur berjudul :
*IF ngumpetin sheet dengan ActiveX Control CheckBox dan Form Control
CheckBox*
**** Blok script mas Wira berikut : (khusus untuk penggunaan ActiveX
Control CheckBox)*
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Worksheets("1").Visible =
True
If CheckBox1.Value = False Then Worksheets("1").Visible = False
End Sub
memiliki pokok bahasan :
1. Jika nilai checkbox (control msform) tercentang (TRUE), maka worksheet
yang di tab sheet bernama '1' diubah status visible-nya jadi TRUE
If CheckBox1.Value = True Then Worksheets("1").Visible =
True
2. Jika nilai checkbox tak tercentang (FALSE), maka worksheet yang di tab
sheet bernama '1' diubah status visible-nya jadi FALSE
If CheckBox1.Value = False Then Worksheets("1").Visible = False
dua baris ini bisa disederhanakan menjadi :
If CheckBox1.Value = True Then
Worksheets("1").Visible = True
Else
Worksheets("1").Visible = False
endif
atau
If CheckBox1.Value Then
Worksheets("1").Visible = True
Else
Worksheets("1").Visible = False
endif
*Blok conditional pada dasarnya berbentuk :*
IF kondisi1 THEN
'perintah jika kondisi1 terpenuhi
ELSEIF kondisi2 THEN
'perintah jika kondisi2 terpenuhi
ELSE
'perintah jika tidak ada kondisi yang terpenuhi
END IF
Bagian ELSEIF bisa disusun untuk kondisi3 dst
Pada dasarnya (*berarti ada keadaan yang ndak dasar lagi*), nilai checkbox
berisi 2 nilai saja, yaitu TRUE atau FALSE
Jadi kondisi1 adalah pernyataan berbunyi :
jika nilai checkbox adalah TRUE
Ketika kondisi1 terpenuhi (karena nilainya TRUE) maka perintah jika
kondisi1 terpenuhi akan dikerjakan
Kondisi1 jika tidak bernilai TRUE, pastilah FALSE. Oleh sebab itu bagian
ELSEIF blabla THEN tidak diperlukan dan langsung lompat ke bagian ELSE dan
lengkapnya akan berbentuk :
IF kondisi1 THEN
'perintah jika kondisi1 terpenuhi
ELSE
'perintah jika tidak ada kondisi yang terpenuhi
END IF
Menyusun script pengkondisian dengan bentuk inline (sebaris) akan menjadi :
IF kondisi1 THEN 'satu baris perintah jika kondisi1 terpenuhi ELSE
'satu baris perintah jika kondisi1 tidak terpenuhi
dan script akan menjadi : (tidak ada END IF)
If CheckBox1.Value = True Then Worksheets("1").Visible = True
Else Worksheets("1").Visible
= False
Penyusunan inline seperti ini memang akan terkesan simpel, tetapi
sebenarnya bagi orang lain (selain pembuat script tersebut) relatif lebih
butuh ketelitian dalam membaca script demikian. Oleh sebab itu, disarankan
untuk tetap menggunakan bentuk :
If CheckBox1.Value = True Then
Worksheets("1").Visible = True
Else
Worksheets("1").Visible = False
endif
Jika ingin menjadi inline, maka blok di atas bisa menjadi :
Worksheets("1").Visible = CheckBox1.Value
**** Properti visible si worksheet yang diumpetin*
Properti Visible milik Worksheet sebenarnya memiliki 3 nilai, yaitu :
>> TRUE atau -1 atau enum konstanta xlSheetVisible untuk kondisi sheet
tampak oleh mata user
>> FALSE atau 0 atau enum konstanta xlSheetHidden untuk kondisi sheet
tersembunyi tapi bisa di-unhide melalui tab sheet
>> 2 atau enum konstanta xlSheetVeryHidden untuk kondisi sheet tersembunyi
dan tidak bisa di-unhide melalui tab sheet
Nilai TRUE di VB/VBA akan bernilai -1 jika dikonversi menjadi bertipe
numerik seperti LONG atau INT
Nilai FALSE akan bernilai 0.
Perbedaannya dengan di Excel fungsi builtin IF, TRUE adalah selain 0 dan
FALSE adalah 0.
Pada kasus ingin mengatur worksheet terset veryhidden supaya tidak bisa
di-unhide user melalui tab sheet, maka harus ada pengubahan nilai yang
tadinya mewakili nilai FALSE atau 0 menjadi nilai 2 atau xlSheetVeryHidden,
sedang nilai TRUE tetap bernilai -1 atau xlSheetVisible.
maka script menjadi :
Worksheets("1").Visible = 2 + 3 * CheckBox1.Value 'dan bisa juga
dengan ekspresi matematika lainnya.
yang jika dengan blok conditional akan berbentuk :
If CheckBox1.Value = True Then
Worksheets("1").Visible = xlsheetvisible
Else
Worksheets("1").Visible = xlsheetveryhidden
endif
atau berbentuk :
If CheckBox1.Value Then
Worksheets("1").Visible = xlsheetvisible
Else
Worksheets("1").Visible = xlsheetveryhidden
endif
**** Bagaimana jika menggunakan checkbox dari Form Control (bukan ActiveX
Control) ?*
Misal, sheet bernama myInterface berisi form control checkbox bernama check
box 1
Untuk mendapatkan benda checkbox form control bernama check box 1 adalah
dengan :
Sheets("nama sheetnya").shapes("nama controlnya")
jadi untuk form control checkbox bernama check box 1 yang ada di sheet
myInterface bisa didapat dengan :
Sheets("myInterface";).shapes("Check Box 1")
Untuk mengambil nilainya, maka harus mengambil nilai properti bernama Value
milik properti bernama ControlFormat, sehingga susunannya :
Sheets("nama sheetnya").shapes("nama controlnya").controlformat.value
dan nilai checkbox untuk form control checkbox bernama check box 1 yang ada
di sheet myInterface bisa didapat dengan :
Sheets("myInterface";).shapes("Check Box 1").controlformat.value
Properti bernama Value untuk form control CheckBox memiliki nilai :
>> 1 atau xlOn untuk kondisi checkbox tercentang
>> -4146 atau xlOff untuk kondisi checkbox tidak tercentang
Artinya,
>> Boolean TRUE setara Value yang lebih dari 0 [ properti Value > 0 ]
>> Boolean FALSE setara Value yang kurang dari 0 [ properti Value < 0 ]
Maka bentuk blok conditional akan menjadi :
If Sheets("myInterface";).shapes("Check Box 1").controlformat.value > 0Then
Worksheets("1").Visible = xlsheetvisible
Else
Worksheets("1").Visible = xlsheetveryhidden 'bisa diganti
dengan xlSheetHidden jika memilih bisa di-unhide melalui tab sheet
endif
yang jika dibuat menjadi inline akan menjadi :
Worksheets("1").Visible = 2 + 3 * ( Sheets("myInterface";).shapes("Check
Box 1").controlformat.value > 0 )
Segituh ajah duluh...
kuatir tambah banyak isi dongengan yang keliru kalau dipanjang-panjangken
jalan cerita dongengannya.
Wassalam,
Kid.
mas Wira, pinjem scriptnya ya.
Dongeng sebelum tidur berjudul :
*IF ngumpetin sheet dengan ActiveX Control CheckBox dan Form Control
CheckBox*
**** Blok script mas Wira berikut : (khusus untuk penggunaan ActiveX
Control CheckBox)*
Private Sub CheckBox1_Click(
If CheckBox1.Value = True Then Worksheets("
True
If CheckBox1.Value = False Then Worksheets("
End Sub
memiliki pokok bahasan :
1. Jika nilai checkbox (control msform) tercentang (TRUE), maka worksheet
yang di tab sheet bernama '1' diubah status visible-nya jadi TRUE
If CheckBox1.Value = True Then Worksheets("
True
2. Jika nilai checkbox tak tercentang (FALSE), maka worksheet yang di tab
sheet bernama '1' diubah status visible-nya jadi FALSE
If CheckBox1.Value = False Then Worksheets("
dua baris ini bisa disederhanakan menjadi :
If CheckBox1.Value = True Then
Worksheets("
Else
Worksheets("
endif
atau
If CheckBox1.Value Then
Worksheets("
Else
Worksheets("
endif
*Blok conditional pada dasarnya berbentuk :*
IF kondisi1 THEN
'perintah jika kondisi1 terpenuhi
ELSEIF kondisi2 THEN
'perintah jika kondisi2 terpenuhi
ELSE
'perintah jika tidak ada kondisi yang terpenuhi
END IF
Bagian ELSEIF bisa disusun untuk kondisi3 dst
Pada dasarnya (*berarti ada keadaan yang ndak dasar lagi*), nilai checkbox
berisi 2 nilai saja, yaitu TRUE atau FALSE
Jadi kondisi1 adalah pernyataan berbunyi :
jika nilai checkbox adalah TRUE
Ketika kondisi1 terpenuhi (karena nilainya TRUE) maka perintah jika
kondisi1 terpenuhi akan dikerjakan
Kondisi1 jika tidak bernilai TRUE, pastilah FALSE. Oleh sebab itu bagian
ELSEIF blabla THEN tidak diperlukan dan langsung lompat ke bagian ELSE dan
lengkapnya akan berbentuk :
IF kondisi1 THEN
'perintah jika kondisi1 terpenuhi
ELSE
'perintah jika tidak ada kondisi yang terpenuhi
END IF
Menyusun script pengkondisian dengan bentuk inline (sebaris) akan menjadi :
IF kondisi1 THEN 'satu baris perintah jika kondisi1 terpenuhi ELSE
'satu baris perintah jika kondisi1 tidak terpenuhi
dan script akan menjadi : (tidak ada END IF)
If CheckBox1.Value = True Then Worksheets("
Else Worksheets("
= False
Penyusunan inline seperti ini memang akan terkesan simpel, tetapi
sebenarnya bagi orang lain (selain pembuat script tersebut) relatif lebih
butuh ketelitian dalam membaca script demikian. Oleh sebab itu, disarankan
untuk tetap menggunakan bentuk :
If CheckBox1.Value = True Then
Worksheets("
Else
Worksheets("
endif
Jika ingin menjadi inline, maka blok di atas bisa menjadi :
Worksheets("
**** Properti visible si worksheet yang diumpetin*
Properti Visible milik Worksheet sebenarnya memiliki 3 nilai, yaitu :
>> TRUE atau -1 atau enum konstanta xlSheetVisible untuk kondisi sheet
tampak oleh mata user
>> FALSE atau 0 atau enum konstanta xlSheetHidden untuk kondisi sheet
tersembunyi tapi bisa di-unhide melalui tab sheet
>> 2 atau enum konstanta xlSheetVeryHidden untuk kondisi sheet tersembunyi
dan tidak bisa di-unhide melalui tab sheet
Nilai TRUE di VB/VBA akan bernilai -1 jika dikonversi menjadi bertipe
numerik seperti LONG atau INT
Nilai FALSE akan bernilai 0.
Perbedaannya dengan di Excel fungsi builtin IF, TRUE adalah selain 0 dan
FALSE adalah 0.
Pada kasus ingin mengatur worksheet terset veryhidden supaya tidak bisa
di-unhide user melalui tab sheet, maka harus ada pengubahan nilai yang
tadinya mewakili nilai FALSE atau 0 menjadi nilai 2 atau xlSheetVeryHidden,
sedang nilai TRUE tetap bernilai -1 atau xlSheetVisible.
maka script menjadi :
Worksheets("
dengan ekspresi matematika lainnya.
yang jika dengan blok conditional akan berbentuk :
If CheckBox1.Value = True Then
Worksheets("
Else
Worksheets("
endif
atau berbentuk :
If CheckBox1.Value Then
Worksheets("
Else
Worksheets("
endif
**** Bagaimana jika menggunakan checkbox dari Form Control (bukan ActiveX
Control) ?*
Misal, sheet bernama myInterface berisi form control checkbox bernama check
box 1
Untuk mendapatkan benda checkbox form control bernama check box 1 adalah
dengan :
Sheets("
jadi untuk form control checkbox bernama check box 1 yang ada di sheet
myInterface bisa didapat dengan :
Sheets("
Untuk mengambil nilainya, maka harus mengambil nilai properti bernama Value
milik properti bernama ControlFormat, sehingga susunannya :
Sheets("
dan nilai checkbox untuk form control checkbox bernama check box 1 yang ada
di sheet myInterface bisa didapat dengan :
Sheets("
Properti bernama Value untuk form control CheckBox memiliki nilai :
>> 1 atau xlOn untuk kondisi checkbox tercentang
>> -4146 atau xlOff untuk kondisi checkbox tidak tercentang
Artinya,
>> Boolean TRUE setara Value yang lebih dari 0 [ properti Value > 0 ]
>> Boolean FALSE setara Value yang kurang dari 0 [ properti Value < 0 ]
Maka bentuk blok conditional akan menjadi :
If Sheets("
Worksheets("
Else
Worksheets("
dengan xlSheetHidden jika memilih bisa di-unhide melalui tab sheet
endif
yang jika dibuat menjadi inline akan menjadi :
Worksheets("
Box 1").controlfor
Segituh ajah duluh...
kuatir tambah banyak isi dongengan yang keliru kalau dipanjang-panjangke
jalan cerita dongengannya.
Wassalam,
Kid.
Sun Jun 2, 2013 2:50 am (PDT) . Posted by:
"Harry" hariansyahptk
Dear Mr. Kid.
Terima kasih atas penjelasannya.
Wassalam,
Harry
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: BeExcel <belajar-excel@yahoogroups.com >
Dikirim: Sabtu, 25 Mei 2013 7:01
Judul: Re: [belajar-excel] Program / Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet atau Iphone
Hai Harry,
Mohon di cek kembali kalau tulisan berikut ini ada yang salah atau ndak update.
1. Saya ingin menanyakan pertanyaan mengenai Excel Macro. Bisakah Program /
Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet
atau Iphone...???
>> beberapa saat lalu, aplikasi CloudOn bisa menjalankan Macro. Sekarang sudah tidak bisa lagi atau sementara ini ditutup dulu, dengan alasan keamanan.
>> jadi, sepertinya dunia gadget kembali tidak ada yang bisa running macro melalui tablet.
>> untuk cloud computing pun ndak bisa run VBA on server. Jadi semua VBA hanya bisa di-run di desktop masing-masing. Entah nanti kalau pembuatnya Excel mau buka harga fasilitas bisa run VBA on cloud.
2. Mungkinkah Program /
Aplikasi Excel yang ada Macro di koneksikan ke Internet atau Intranet
ataupun WiFi sebagaimana Program / Aplikasi yang dijalankan pada salah
satu Resto yang relatif cukup terkenal di Jakarta.
>> Membuat aplikasi demikian dengan Excel ?
>> mungkin bisa kali ya, tapi interface yang dipegang pelanggan ndak ada VBA nya.
ini mungkin loh ya...
kira-kira alurnya :
1. jika intranet nya berani mengijinkan bisa diakses dengan wifi, maka cukup dengan komputer desktop yang selalu on excelnya berisi VBA untuk baca semua file pesanan (menggunakan timer untuk cek ada pesanan baru atau tidak).
2. jika ndak bisa, maka file pesanan disimpan di net drive seperti google drive atau skydrive. Kemudian aplikasi Excel ber VBA di desktop deket server yang selalu terkoneksi bisa unduh file dari net drive tersebut dan mulai dibaca pesanannya (pakai timer untuk cek ada pesanan baru atau tidak).
3. disediakan file template pesanan tanpa VBA, lalu disave difolder pesanan agar bisa dibaca oleh aplikasi ber-vba di desktop.
4. semua proses VBA dilakukan disebuah file di desktop yang kemudian menyusun data yang bisa dibuka oleh gadget di dapur, dsb.
Bisa jadi juga, membuat sebuah apk gadget untuk menu pesanan, dan mengirimkan hasil pesanan ke server komputer (entah dalam format bagaimana), kemudian aplikasi Excel di desktop membaca data kiriman dari apk tersebut.
hehehe... saya ndak tahu, nanti bentuk real-nya seperti apa. Bisa jadi lebih ruwet dari perkiraan di atas, bisa jadi lebih simple. Sepertinya, jika tidak terpaku pada VBA doang akan jadi lebih simple.
Wassalam,
Kid.
2013/5/24 Harry <hariansyahptk@yahoo.com >
>
>Dear BeExceller,
>
>
>Apa kabar rekan-rekan BeExceller semua. Saya sudah lumayan lama tidak mampir ke milis untuk belajar Excel. Kali ini saya coba belajar lagi dari rekan-rekan BeExceller sekalian.
>
>
>Saya ingin menanyakan pertanyaan mengenai Excel Macro. Bisakah Program / Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet atau Iphone...???
>Mungkinkah Program /
Aplikasi Excel yang ada Macro di koneksikan ke Internet atau Intranet ataupun WiFi sebagaimana Program / Aplikasi yang dijalankan pada salah satu Resto yang relatif cukup terkenal di Jakarta.
>
>Pada program yang sudah dijakankan di salah satu Resto tersebut, sistemnya adalah: setiap indifidu (pelanggan) bisa mengakses macam-macam pilihan menu yang ada di tablet yang telah disediakan oleh Resto tersebut. Dari tablet tersebut, palanggan dapat memilih menu dan meng-order menu yang mereka inginkan hanya dengan menyentuh macam pilihan menu yang ada di tablet. selelah mereka memilih, otomatis apa yang telah mereka pilih terprint dan langsung dapat di sediakan oleh bagian dapur.
>
>Berarti, resto tersebut tidak menyediakan buku menu melainkan beberapa Handphone Tablet / Iphone.
>
>Mohon berkenan informasi dari rekan-rekan Be-Exceller sekalian.
>
>Terima kasih - Wassalam,
>
>
>Harry
>
Terima kasih atas penjelasannya.
Wassalam,
Harry
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Sabtu, 25 Mei 2013 7:01
Judul: Re: [belajar-excel] Program / Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet atau Iphone
Hai Harry,
Mohon di cek kembali kalau tulisan berikut ini ada yang salah atau ndak update.
1. Saya ingin menanyakan pertanyaan mengenai Excel Macro. Bisakah Program /
Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet
atau Iphone...???
>> beberapa saat lalu, aplikasi CloudOn bisa menjalankan Macro. Sekarang sudah tidak bisa lagi atau sementara ini ditutup dulu, dengan alasan keamanan.
>> jadi, sepertinya dunia gadget kembali tidak ada yang bisa running macro melalui tablet.
>> untuk cloud computing pun ndak bisa run VBA on server. Jadi semua VBA hanya bisa di-run di desktop masing-masing. Entah nanti kalau pembuatnya Excel mau buka harga fasilitas bisa run VBA on cloud.
2. Mungkinkah Program /
Aplikasi Excel yang ada Macro di koneksikan ke Internet atau Intranet
ataupun WiFi sebagaimana Program / Aplikasi yang dijalankan pada salah
satu Resto yang relatif cukup terkenal di Jakarta.
>> Membuat aplikasi demikian dengan Excel ?
>> mungkin bisa kali ya, tapi interface yang dipegang pelanggan ndak ada VBA nya.
ini mungkin loh ya...
kira-kira alurnya :
1. jika intranet nya berani mengijinkan bisa diakses dengan wifi, maka cukup dengan komputer desktop yang selalu on excelnya berisi VBA untuk baca semua file pesanan (menggunakan timer untuk cek ada pesanan baru atau tidak).
2. jika ndak bisa, maka file pesanan disimpan di net drive seperti google drive atau skydrive. Kemudian aplikasi Excel ber VBA di desktop deket server yang selalu terkoneksi bisa unduh file dari net drive tersebut dan mulai dibaca pesanannya (pakai timer untuk cek ada pesanan baru atau tidak).
3. disediakan file template pesanan tanpa VBA, lalu disave difolder pesanan agar bisa dibaca oleh aplikasi ber-vba di desktop.
4. semua proses VBA dilakukan disebuah file di desktop yang kemudian menyusun data yang bisa dibuka oleh gadget di dapur, dsb.
Bisa jadi juga, membuat sebuah apk gadget untuk menu pesanan, dan mengirimkan hasil pesanan ke server komputer (entah dalam format bagaimana), kemudian aplikasi Excel di desktop membaca data kiriman dari apk tersebut.
hehehe... saya ndak tahu, nanti bentuk real-nya seperti apa. Bisa jadi lebih ruwet dari perkiraan di atas, bisa jadi lebih simple. Sepertinya, jika tidak terpaku pada VBA doang akan jadi lebih simple.
Wassalam,
Kid.
2013/5/24 Harry <hariansyahptk@
>
>Dear BeExceller,
>
>
>Apa kabar rekan-rekan BeExceller semua. Saya sudah lumayan lama tidak mampir ke milis untuk belajar Excel. Kali ini saya coba belajar lagi dari rekan-rekan BeExceller sekalian.
>
>
>Saya ingin menanyakan pertanyaan mengenai Excel Macro. Bisakah Program / Aplikasi Excel yang ada Macronya di operasikan pada handphone Tablet atau Iphone...???
>Mungkinkah Program /
Aplikasi Excel yang ada Macro di koneksikan ke Internet atau Intranet ataupun WiFi sebagaimana Program / Aplikasi yang dijalankan pada salah satu Resto yang relatif cukup terkenal di Jakarta.
>
>Pada program yang sudah dijakankan di salah satu Resto tersebut, sistemnya adalah: setiap indifidu (pelanggan) bisa mengakses macam-macam pilihan menu yang ada di tablet yang telah disediakan oleh Resto tersebut. Dari tablet tersebut, palanggan dapat memilih menu dan meng-order menu yang mereka inginkan hanya dengan menyentuh macam pilihan menu yang ada di tablet. selelah mereka memilih, otomatis apa yang telah mereka pilih terprint dan langsung dapat di sediakan oleh bagian dapur.
>
>Berarti, resto tersebut tidak menyediakan buku menu melainkan beberapa Handphone Tablet / Iphone.
>
>Mohon berkenan informasi dari rekan-rekan Be-Exceller sekalian.
>
>Terima kasih - Wassalam,
>
>
>Harry
>
Sun Jun 2, 2013 2:50 am (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon informasi bagaimana cara dan rumusnya untuk dapat melakukan pengkalian pada UserForm dan menentukan tujuan pengisian kolom sebagaimana file terlampir.
Mohon berkenan informasi dan penjelasannya.
Terima kasih & wassalam,
Harry
Mohon informasi bagaimana cara dan rumusnya untuk dapat melakukan pengkalian pada UserForm dan menentukan tujuan pengisian kolom sebagaimana file terlampir.
Mohon berkenan informasi dan penjelasannya.
Terima kasih & wassalam,
Harry
Sun Jun 2, 2013 6:54 am (PDT) . Posted by:
"rere Rua" rererua
gimana caranya melakukan seleiksi contoh terlampir saya pernah tes pake if maka datanya akan bernilai 0�
--- Mods ---
Dimohon untuk memberi subject email ketika melakukan posting baru. Subject email akan menjadi topik.
------------
--- Mods ---
Dimohon untuk memberi subject email ketika melakukan posting baru. Subject email akan menjadi topik.
------------
Sun Jun 2, 2013 6:55 am (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon berkenan penjelasan dan informasi dari teman-teman BeExceller akan pertanyaan saya sbb:
1. Saya kesulitan dalam mengisi UserForm pada format Text. Misalnya saya menulis APRIL 2013 maka yang keluar pada database saya adalah Apr-13, jika saya menulis SEPTEMBER 2013, maka yang muncul adalah Sep-13 dan jika saya menginput NOVEMBER 2013, maka hasilnya Nov-13.
Bagaimana caranya supaya yang terisi pada database tetap sebagaimana yang saya input...???
2. Saya kesulitan dalam mengisi UserForm pada kolom isian No. KTP. Misalnya yang saya input adalah 3172456853790007 maka yang akan terisi pada database adalah 3172456853790000. atau terkadang yang saya input pada userForm misalnya 3125478103790009 maka yang akan terisi di database adalah 3.17246E+15
Bagaimana cara menyiasati hal tersebut diatas.
Terima kasih,
Harry
N/B: Terlampir Studi Kasus
Mohon berkenan penjelasan dan informasi dari teman-teman BeExceller akan pertanyaan saya sbb:
1. Saya kesulitan dalam mengisi UserForm pada format Text. Misalnya saya menulis APRIL 2013 maka yang keluar pada database saya adalah Apr-13, jika saya menulis SEPTEMBER 2013, maka yang muncul adalah Sep-13 dan jika saya menginput NOVEMBER 2013, maka hasilnya Nov-13.
Bagaimana caranya supaya yang terisi pada database tetap sebagaimana yang saya input...???
2. Saya kesulitan dalam mengisi UserForm pada kolom isian No. KTP. Misalnya yang saya input adalah 3172456853790007 maka yang akan terisi pada database adalah 3172456853790000. atau terkadang yang saya input pada userForm misalnya 3125478103790009 maka yang akan terisi di database adalah 3.17246E+15
Bagaimana cara menyiasati hal tersebut diatas.
Terima kasih,
Harry
N/B: Terlampir Studi Kasus
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