Re: [belajar-excel] Public Variable

2017-12-26 Terurut Topik 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
Wa'alaikumussalam wr wb

Hai Tio,

Baris kode selain deklarasi diletakkan di dalam prosedur. Variabel perlu
diisi lebih dulu.
Jadi, ada yang kurang pas dari kasus ini...

Urutannya begini :
1. Saya ada kasus mau buat public variable berupa nilai di cell tertentu
> Siapa yang bertugas mengisi variabel yang ber-scope public tersebut
dengan nilai dari suatu cells ?
> Kapan si variabel itu diisi ?

2. dan dipanggil di semua procedure.
> Bagaimana memastikan bahwa variabel ber-scope public itu sudah terisi
atau belum ?
> Kalau belum terisi, siapa yang bertugas mengisi ? Kok bisa si prosedur
ini bekerja, padahal variabel belum diisi ?

Sila dijawab sendiri dan dibuat alur prosesnya. Contoh mengisi variabel
seperti baris-baris kode di bawah ini, tetapi baris-baris kode di bawah ini
tidak akan sesuai dengan kebutuhan setempat karena alur prosesnya bisa jadi
tidak sesuai. Baris kode di bawah sekadar contoh saja.

Contoh 1 :

Public angka As Integer, angka2 As Integer, angka3 As Integer

'button1 sebagai pengisi nilai variabel agar bisa dipakai oleh prosedur
lainnya

Sub Button1_Click()

   angka = Cells(2, 2).Value

   angka2=worksheets("Sheet2").Cells(6,2).value

   angka3=worksheets("Sheet2").Cells(8,2).value

   MsgBox angka

   MsgBox angka2

   MsgBox angka3
End Sub

'misal ada form2 button control ke-2, jika Button1 pernah di klik, maka
Button2 yang diklik akan menampilkan nilai angka2 :
public Sub Button2_Click()
   MsgBox angka2
end sub

Atau Contoh 2 :

Public angka As Integer, angka2 As Integer, angka3 As Integer

public sub PengisiVariabel()

   angka = Cells(2, 2).Value

   angka2=worksheets("Sheet2").Cells(6,2).value

   angka3=worksheets("Sheet2").Cells(8,2).value
end sub

Sub Button1_Click()

   MsgBox angka

   MsgBox angka2

   MsgBox angka3
End Sub

public Sub Button2_Click()
   MsgBox angka2
end sub

Cara menjalankan macro-nya : jalankan PengisiVariabel, baru user boleh klik
button1 atau button2


Atau Contoh 3 :

Public angka As Integer, angka2 As Integer, angka3 As Integer

public sub PengisiVariabel()

   angka = Cells(2, 2).Value

   angka2=worksheets("Sheet2").Cells(6,2).value

   angka3=worksheets("Sheet2").Cells(8,2).value
end sub

Sub Button1_Click()
   PengisiVariabel

   MsgBox angka

   MsgBox angka2

   MsgBox angka3
End Sub

public Sub Button2_Click()
PengisiVariabel
   MsgBox angka2
end sub

Masih banyak cara lainnya.
Tapi, bukan banyak jalan menuju Roma, tetapi rombongan apa yang akan
diantar ke Roma ?


Wassalamu'alaikum wr wb
Kid



2017-12-26 9:18 GMT+07:00 Tio Adi Bayu Adjie tio.ad...@ptssb.co.id
[belajar-excel] :

>
>
> Assalamu Alaikum Wr. Wb.
>
>
>
> Salam Be-Exceller,
>
> Saya ada kasus mau buat public variable berupa nilai di cell tertentu dan
> dipanggil di semua procedure. Saya sudah coba berhari-hari, gak berhasil.
>
> Adakah Be-Exceller punya pencerahan ?
>
>
>
> Coding ini yang bermasalah :
>
>
>
> Public angka As Integer, angka2 As Integer, angka3 As Integer
>
> ‘angka = Cells(2, 2).Value
>
> ‘angka2=worksheets("Sheet2").Cells(6,2)
>
> ‘angka3=worksheets("Sheet2").Cells(8,2)
>
>
>
> Sub Button1_Click()
>
> MsgBox angka
>
> MsgBox angka2
>
> MsgBox angka3
>
> End Sub
>
>
>
> File terlampir
>
>
>
> *Terima kasih bantuannya…*
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
> 
>

Bls: Re: [belajar-excel] pilih dengan kriteria dan delete entire up

2017-12-26 Terurut Topik Fahmi Syaifullah fahmisyaifulla...@yahoo.com [belajar-excel] 
Wa'alaikumsalam wr.wb
Okee om kidd terima kasih banyakk.
work..
salah nnya saya. Itu sheet belom saya pisahkan berdasarkan header (agar menjadi 
satu kolom jan - des)berdasarkan kriteria yang disamping kanan om.  saya sudah 
pisahkaN satu2 om kid (tidak pake makro boring juga)tadinya mau tnya masalah 
itu dipisahkan pakai makro tapi tidak sopan rasanya. Hehe
Jadi harus di clear filter dlu yaa baru bisa ada pilihan shif upnya. Oke om kid 
terima kasih hehee.. 
Sehat selalu untuk beexcellerditunggu kopdarnyaterima kasihWassalamu'alaikum 
wr.wb
fahmi 
Dikirim dari Yahoo Mail di Android 
 
  Pada Sel, 26 Des 2017 pada 12:42, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] menulis:       

wa'alaikumussalam wr wb

Hai Fahmi,

Coba begini :
1.. buat baris header dilengkapi nama kolom header
2. klik sebuah cells header -> aktifkan autofilter
3. blok records (semua kolom berheader, semua records tanpa baris header) -> 
lakukan filter pada autofilter yang telah aktif tadi
4. goto special visible only
5. clear filter (BUKAN turnoff autofilter) -> klik kanan cells yang terpilih 
(terblok) -> pilih delete -> pilih shift up

Sebaiknya data bulan berikutnya disambung dibawah, bukan dikanan.

Wassalamu'alaikum wr wb,Kid



2017-12-25 14:36 GMT+07:00 Fahmi Syaifullah fahmisyaifulla...@yahoo.com 
[belajar-excel] :

     

assalamu'alaikum wr.wb
selamat liburan para  Be Exeler. semoga waktu yang pas juga untuk memberikan 
penjelasan kepada saya tentang masalah yang akan saya lampirkandi file 
lampiran. saya ingin menanyakan untuk pemilihan cell yang sama (disini saya mau 
pilih bank dan tanggal) jadi data berkelanjutan dari januari sampai november 
.saya sudah melakukan filter dengan memilih data setelah terpilih saya ke go to 
spesial visible cell only. tapi setelah saya klik kananpilihan delete entire 
row up tidak tersedia malah delete row yang tersedia. data selanjutnya ada 
disampingnya soalnya. khawatir terdelete juga,mohon bantuannya om om master 
excel sekalian
terima kasih.wassalamu'alaikum wr.wb
fahmi

   

  #yiv3506127204 #yiv3506127204 -- #yiv3506127204ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3506127204 
#yiv3506127204ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3506127204 
#yiv3506127204ygrp-mkp #yiv3506127204hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv3506127204 #yiv3506127204ygrp-mkp #yiv3506127204ads 
{margin-bottom:10px;}#yiv3506127204 #yiv3506127204ygrp-mkp .yiv3506127204ad 
{padding:0 0;}#yiv3506127204 #yiv3506127204ygrp-mkp .yiv3506127204ad p 
{margin:0;}#yiv3506127204 #yiv3506127204ygrp-mkp .yiv3506127204ad a 
{color:#ff;text-decoration:none;}#yiv3506127204 #yiv3506127204ygrp-sponsor 
#yiv3506127204ygrp-lc {font-family:Arial;}#yiv3506127204 
#yiv3506127204ygrp-sponsor #yiv3506127204ygrp-lc #yiv3506127204hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3506127204 
#yiv3506127204ygrp-sponsor #yiv3506127204ygrp-lc .yiv3506127204ad 
{margin-bottom:10px;padding:0 0;}#yiv3506127204 #yiv3506127204actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3506127204 
#yiv3506127204activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3506127204
 #yiv3506127204activity span {font-weight:700;}#yiv3506127204 
#yiv3506127204activity span:first-child 
{text-transform:uppercase;}#yiv3506127204 #yiv3506127204activity span a 
{color:#5085b6;text-decoration:none;}#yiv3506127204 #yiv3506127204activity span 
span {color:#ff7900;}#yiv3506127204 #yiv3506127204activity span 
.yiv3506127204underline {text-decoration:underline;}#yiv3506127204 
.yiv3506127204attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv3506127204 .yiv3506127204attach div a 
{text-decoration:none;}#yiv3506127204 .yiv3506127204attach img 
{border:none;padding-right:5px;}#yiv3506127204 .yiv3506127204attach label 
{display:block;margin-bottom:5px;}#yiv3506127204 .yiv3506127204attach label a 
{text-decoration:none;}#yiv3506127204 blockquote {margin:0 0 0 
4px;}#yiv3506127204 .yiv3506127204bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3506127204 
.yiv3506127204bold a {text-decoration:none;}#yiv3506127204 dd.yiv3506127204last 
p a {font-family:Verdana;font-weight:700;}#yiv3506127204 dd.yiv3506127204last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3506127204 
dd.yiv3506127204last p span.yiv3506127204yshortcuts 
{margin-right:0;}#yiv3506127204 div.yiv3506127204attach-table div div a 
{text-decoration:none;}#yiv3506127204 div.yiv3506127204attach-table 
{width:400px;}#yiv3506127204 div.yiv3506127204file-title a, #yiv3506127204 
div.yiv3506127204file-title a:active, #yiv3506127204 
div.yiv3506127204file-title a:hover, #yiv3506127204 div.yiv3506127204file-title 
a:visited {text-decoration:none;}#yiv3506127204 div.yiv3506127204photo-title a, 
#yiv3506127204

Re: [belajar-excel] Fungsi Countifs dengan banyak Range

2017-12-26 Terurut Topik uharyanto uharya...@gmail.com [belajar-excel] 

Coba pakai ini :
=SUM(($A13=$A$5:$A$8)*($B13=$B$5:$B$8)*(C$12=$C$5:$N$8))



On 27/12/2017 12:17 AM, Salim Jenggot salim.jeng...@gmail.com 
[belajar-excel] wrote:

Dear master Excel,

Mohon bantuannya, saya ada contoh problem dalam menghitung Countifs 
dengan banyak Criteria Range seperti file terlampir.


Jika fungsi countifs tidak dapat digunakan untuk menghitung count 
dalam banyak range, lalu bagaimanakah formula yg seharusnya?


Demikian, atas bantuannya diucapkan terima kasih.

Salam,
SJ





Copy of Contoh Problem.xlsx
Description: MS-Excel 2007 spreadsheet

[belajar-excel] Public Variable

2017-12-26 Terurut Topik Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel] 
Assalamu Alaikum Wr. Wb.

Salam Be-Exceller,
Saya ada kasus mau buat public variable berupa nilai di cell tertentu dan 
dipanggil di semua procedure. Saya sudah coba berhari-hari, gak berhasil.
Adakah Be-Exceller punya pencerahan ?

Coding ini yang bermasalah :

Public angka As Integer, angka2 As Integer, angka3 As Integer
‘angka = Cells(2, 2).Value
‘angka2=worksheets("Sheet2").Cells(6,2)
‘angka3=worksheets("Sheet2").Cells(8,2)

Sub Button1_Click()
MsgBox angka
MsgBox angka2
MsgBox angka3
End Sub

File terlampir

Terima kasih bantuannya…

Best Regards,
Tio Adi Bayu Adjie



Problem Public_Variable.xlsm
Description: Problem Public_Variable.xlsm

[belajar-excel] Fungsi Countifs dengan banyak Range

2017-12-26 Terurut Topik Salim Jenggot salim.jeng...@gmail.com [belajar-excel] 
Dear master Excel,

Mohon bantuannya, saya ada contoh problem dalam menghitung Countifs dengan
banyak Criteria Range seperti file terlampir.

Jika fungsi countifs tidak dapat digunakan untuk menghitung count dalam
banyak range, lalu bagaimanakah formula yg seharusnya?

Demikian, atas bantuannya diucapkan terima kasih.

Salam,
SJ


Contoh Problem.xlsx
Description: MS-Excel 2007 spreadsheet