Messages In This Digest (17 Messages)
- 1a.
- Re: Belajar istilah vb From: tjahyahartono@yahoo.co.id
- 1b.
- Re: Belajar istilah vb From: Mr. Kid
- 2a.
- Bls: [belajar-excel] Mencari Data Terakhir yang Diinput From: ghozi alkatiri
- 3a.
- Re: module - Belajar Penggunaan Sintax Me dalam VBA From: yusajing_ehm@yahoo.com
- 3b.
- Re: module - Belajar Penggunaan Sintax Me dalam VBA From: STDEV(i)
- 4a.
- Prorate From: Budhi Cahyanto
- 4b.
- Re: Prorate From: STDEV(i)
- 4c.
- Re: Prorate From: Budhi Cahyanto
- 4d.
- Re: Prorate From: Mr. Kid
- 5a.
- Pemahaman rumus Prorate From: Tjahya Hartono
- 5b.
- Re: Pemahaman rumus Prorate From: Mr. Kid
- 5c.
- Re: Pemahaman rumus Prorate From: Haps
- 5d.
- Re: Pemahaman rumus Prorate From: tjahyahartono@yahoo.co.id
- 6a.
- Mengelompokkan Deret Kode From: andri apriyadi
- 6b.
- Re: Mengelompokkan Deret Kode From: Mr. Kid
- 6c.
- Re: Mengelompokkan Deret Kode From: Haps
- 7.
- umur From: Agus Waluyo
Messages
- 1a.
-
Re: Belajar istilah vb
Posted by: "tjahyahartono@yahoo.co.id" tjahyahartono@yahoo.co.id tjahyahartono
Sun Aug 7, 2011 12:39 am (PDT)
Dear master x-cel,
Saya sbnrnya awam banget dgn vb,karna itu minta tlong.tapi stlh tahu,melajari sndri g bs karna g tahu bahasanya. Kalo berkenan bisa g jelasin bahasa vb dbwh in terutama u/ bahasa currentregion,offset dan resize serta angka dalam kurung.
Maaf ngerepoti trus,terutama mbak paling baik sedunia,mbak siti.
Private sub user form_initialize()
Dim I as long
Set datakrywn = sheet. ("datakaryawan").range(" a3").current region.offset( 1,0)
With datakrywn
Set datakrywn = .resize(rows.count -1, .columns.count)
End with
Set tblabsens = sheets("saving data").cells(1).currentregion
Tbnewrow = tblabsens.rows.count + 1
With Cbokaryawan
.Columncount = 2
.Boundcolumns = 1
.Columnwidths = "40,100"
.Clear
For I = 1 to datakrywn.rows.count
.Add item
.Column(0, I - 1) = datakrywn (I, 1)
.Column(1, I - 1) = datakrywn (I, 2)
Next
End with
Tblabsens.parent.activate
End sub
Thank's
Tjahya
Sent from my BlackBerry®
-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Sun, 7 Aug 2011 13:47:29
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Belajar istilah vb
Kita sedang membicarakan bahasa VBA.
*
*
*Variable *
A named storage location that can contain data that can be modified during
program execution.
Each variable has a name that uniquely identifies it within its scope. A
data type can be specified or not.
Variable names must begin with an alphabetic character, must be unique
within the same scope,
can't be longer than 255 characters, and can't contain an embedded period or
type-declaration character.
Sebelum digunakan, variable sebaiknya dideklarasikan (ditentukan namanya,
scope-nya, type data nya)
Salah satu statement untuk mendeklarasikan Variable adalah Dim (mungkin
dari kata Dimension)
Dim MyVar As Long
mendeklarasikan variable bernama MyVal dengan type data = Bilangan
LongInteger
Dim KolomNIK As Range
mendeklarasikan variable bernama KolomNIK, type datanya Object Range
Public R As Integer
mendeklarasikan variable bernama Rl dengan type data = Bilangan Integer
dengan scope (daerah berlaku dan umur) yg lebih luas.
MyVar = 65536
Menginisialisasi /mengisi *Variable data* bernama dengan nilai 65536
*Set* KolomNIK = Sheet1.Range("H2:H78")
Menantukan / mengisi* variable OBJECT* Range bernama KolomNIK untuk
mewakili
Range("H2:H78") yg ada di Sheet1
Untuk hal hal lain pak Tjahya dapat membuka VBE, klik Aikon TandaTanya
(HELP)
isikan keyword yg ingin diketahui.
[image: VBE help.GIF]
Kembali saya menyatakan (untuk kesekian kalinya) : balajar pemrograman tanpa
pegang buku text-nya
akan sama dengan Nakoda yg berlayar tanpa membawa kompas dan peta...
*Pertanyaan:*
Apakah yg berbeda dalam menginisialisasi *variable data* dan* variable
object ?*
*
*
2011/8/7 <tjahyahartono@yahoo.co. >id
> Saya seringkali liat istilah *'dim' ...'as'.*.. Dan juga 'set' ...=...
Terus istilah* 'for' *...=....
> *Apaan* ya itu, seringkali kalo aq amati kalo pake vb mesti awalannya itu.
> sekalian tanya karna tadi ada yg tanya syntax me, aq tanya lainnya.
>
> Thank's
> Tjahya
- 1b.
-
Re: Belajar istilah vb
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Aug 7, 2011 1:50 am (PDT)
ubah deklarasi dim l as Long, menjadi : (supaya lebih mudah dipahami)
dim datakrywn as range, tblabsens as range
dim tbnewrow as long, l as long
---
currentregion adalah methods suatu range untuk memblok *satu *area range
yang bersinggungan
offset untuk merujuk ke suatu cell berdasar jarak dari cell patokan
(anchor), seperti dalam fungsi Offset input parameter pertama dan kedua
resize untuk mengubah luasan range yang dirujuk berdasar tinggi (jumlah
baris) dan lebar (jumlah kolom) seperti fungsi Offset input parameter 3 dan
4
angka dalam kurung adalah input parameter yang dibutuhkan oleh method
tersebut.
Coba di worksheet buat satu blok angka-angka acak yang unik. Misal di c3
sampai e5
kemudian di a1
mulai dengan :
=offset(c3,1,1)
sama saja dengan VBA
range("c3").offset(1, 1)
cell berikut :
=rows(offset(c3,1,0,2, 1)) -> apa arti formula ini ?
di vbakan jadi :
range("c3").offset(1, 0).resize( 2,1).rows. count
di worksheet coba klik c3 lalu (di xl2007) goto special pilih current region
tekan OK
VBA-nya :
range("c3").currentregion
Kid.
2011/8/7 <tjahyahartono@yahoo.co. >id
> **
>
>
> ** Dear master x-cel,
>
> Saya sbnrnya awam banget dgn vb,karna itu minta tlong.tapi stlh
> tahu,melajari sndri g bs karna g tahu bahasanya. Kalo berkenan bisa g
> jelasin bahasa vb dbwh in terutama u/ bahasa currentregion,offset dan resize
> serta angka dalam kurung.
> Maaf ngerepoti trus,terutama mbak paling baik sedunia,mbak siti.
>
> Private sub user form_initialize()
> Dim I as long
>
> Set datakrywn = sheet. ("datakaryawan").range(" a3").current
> region.offset(1,0)
> With datakrywn
> Set datakrywn = .resize(rows.count -1, .columns.count)
> End with
>
> Set tblabsens = sheets("saving data").cells(1).currentregion
> Tbnewrow = tblabsens.rows.count + 1
> With Cbokaryawan
> .Columncount = 2
> .Boundcolumns = 1
> .Columnwidths = "40,100"
> .Clear
> For I = 1 to datakrywn.rows.count
> .Add item
> .Column(0, I - 1) = datakrywn (I, 1)
> .Column(1, I - 1) = datakrywn (I, 2)
> Next
> End with
> Tblabsens.parent.activate
> End sub
>
>
>
> Thank's
>
>
>
> Tjahya
>
> Sent from my BlackBerry�
> --------------------- ---------
> *From: * "STDEV(i)" <setiyowati.devi@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Sun, 7 Aug 2011 13:47:29 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] Belajar istilah vb
>
> Kita sedang membicarakan bahasa VBA.
> *
> *
> *Variable *
> A named storage location that can contain data that can be modified during
> program execution.
> Each variable has a name that uniquely identifies it within its scope. A
> data type can be specified or not.
> Variable names must begin with an alphabetic character, must be unique
> within the same scope,
> can't be longer than 255 characters, and can't contain an embedded period
> or type-declaration character.
>
> Sebelum digunakan, variable sebaiknya dideklarasikan (ditentukan namanya,
> scope-nya, type data nya)
> Salah satu statement untuk mendeklarasikan Variable adalah Dim (mungkin
> dari kata Dimension)
>
> Dim MyVar As Long
> mendeklarasikan variable bernama MyVal dengan type data = Bilangan
> LongInteger
>
> Dim KolomNIK As Range
> mendeklarasikan variable bernama KolomNIK, type datanya Object Range
>
> Public R As Integer
> mendeklarasikan variable bernama Rl dengan type data = Bilangan Integer
> dengan scope (daerah berlaku dan umur) yg lebih luas.
>
> MyVar = 65536
> Menginisialisasi /mengisi *Variable data* bernama dengan nilai 65536
>
> *Set* KolomNIK = Sheet1.Range("H2:H78")
> Menantukan / mengisi* variable OBJECT* Range bernama KolomNIK untuk
> mewakili
> Range("H2:H78") yg ada di Sheet1
>
> Untuk hal hal lain pak Tjahya dapat membuka VBE, klik Aikon TandaTanya
> (HELP)
> isikan keyword yg ingin diketahui.
> [image: VBE help.GIF]
>
> Kembali saya menyatakan (untuk kesekian kalinya) : balajar pemrograman
> tanpa pegang buku text-nya
> akan sama dengan Nakoda yg berlayar tanpa membawa kompas dan peta...
>
> *Pertanyaan:*
> Apakah yg berbeda dalam menginisialisasi *variable data* dan* variable
> object ?*
> *
> *
>
> 2011/8/7 <tjahyahartono@yahoo.co. >id
> > Saya seringkali liat istilah *'dim' ...'as'.*.. Dan juga 'set' ...=...
> Terus istilah* 'for' *...=....
> > *Apaan* ya itu, seringkali kalo aq amati kalo pake vb mesti awalannya
> itu.
> > sekalian tanya karna tadi ada yg tanya syntax me, aq tanya lainnya.
> >
> > Thank's
> > Tjahya
>
>
>
- 2a.
-
Bls: [belajar-excel] Mencari Data Terakhir yang Diinput
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Sun Aug 7, 2011 1:51 am (PDT)
PENJELASAN
=ROW($A$5:$A$36 :> tidak berubah tetep nilai 5 meski kita input ampe bawah (mungkin penanda mulai dari baris 5).====> karena ini adalah formula array maka yang dimaksudkan oleh formula adalah baris secara keseluruhan dari A5 sampai A36 apalagi dalam referensinya diberi tanda $ (absolut )maka akan berlaku mutlak.=LEN( $A$5:$A$36)
:> pake CSE , ini juga gak pernah rubah nilai 1 saja (terus terang
saya gak ngerti penjelasanya neh, saya baca help fungsinya buat hitung
jumlah karakter, gimana critanya kok munculnya cuma 1 angka) yang
bingung juga apa manfaatnya kita jumlah hitung karakter =====>len dalam hal ini dimaksudkan untuk menguji apakah sebuah cell berisi data atau tidak. jika sebuah cell berisi data fungsi ini akan menghasilkan panjang karakter dari data yang ada di cell tersebut. jika cell kosong fungsi ini akan menghasilkan nilai 0 dan akan menghsilkan False. pada kasus ini fungsi len di sini memastikan pada baris mana saja dari A5 sampai A36 yang berisi data=IF(LEN($A$5:$A$36) ;ROW($A$5: $A$36)) :> sudah jelas mucul angka 5 =====>sambungan dari fasal 3 di atas jika baris dari A5 sampai dengan A36 berisi data maka tampilkan nomer barisnya. sebenarnya seandainya dipreteli satu satu fungsi ini akan menghasilkan nomer baris dari A5 sampai A36 yang berisi data,akan tetapi karena ini formula array ketika diterapkan secara parsial maka yang muncul hanya angka dari baris pertama dari range A5 sampai A36(yaitu 5).padahal hakikatnya adalah seluruh nomer baris yang ada datanya
hanya saja yang lain disimpan di otak komputer menunggu perintah lanjutan.=MAX(IF(LEN($A$ 5:$A$36); ROW($A$5: $A$36))) :> CSE muncul
angka 32 , gimana critanya muncul 32 padahal nilai =IF(LEN($A$5:$A$36);ROW( $A$5:$A$36) ) adalah 5 meski pake Enter atau CSE=====> nah di sinilah cerita kelanjutan dari fasal 4 di atas. ketika ditambahkan fungsi MAX maksud verbal dari keseluruhan formula kurang lebih adalah keluarkan nilai maksimal baris A5 sampai A36 yang berisi data. karena baris yang berisi data hanya sampai A32 maka nilai maksimal yang muncul 32.{=INDEX(A: A;MAX(IF( LEN($A$5: $A$36);ROW( $A$5:$A$36) )))} =====>penulisan refernsi A:A untuk kepraktisan penulisan saja walaupun konsekuensinya butuh memori lebih besar (fatwa mbak siti) untuk penyebutan seluruh kolom A jadi maksud formula secara keseluruahan adalah mengindeks Kolom A pada baris terakhir yang berisi data . karena pada kasus ini baris terakhir yang berisi data adalah 32 maka akan menghasilkan nilai data yang ada di cell A2.
wassalam
Ghozi Alkatiri
--- Pada Ming, 7/8/11, Zerlinda Seismica <seismica@yahoo.com > menulis:
Dari: Zerlinda Seismica <seismica@yahoo.com >
Judul: Bls: [belajar-excel] Mencari Data Terakhir yang Diinput
Kepada: belajar-excel@yahoogroups. com
Tanggal: Minggu, 7 Agustus, 2011, 11:35 AM
Salam
Thx bgt bang ghozi teramat sangat membantu dan memang itu yang saya inginkan.
supaya lebih afdol pemahaman saya sekaligus mungkin bisa dipakai kasus yang mungkin sama, saya coba2 belajar dengan formula yang diberikan mas Ghozi (dipreteli satu-persatu formulanya)
Mohon dikoreksi sama pakar2 XL lainnya:
=ROW($A$5:$A$36 :> tidak berubah tetep nilai 5 meski kita input ampe bawah (mungkin penanda mulai dari baris 5).
=LEN($A$5:$A$36) :> pake CSE , ini juga gak pernah rubah nilai 1 saja (terus terang saya gak ngerti penjelasanya neh, saya baca help fungsinya buat hitung jumlah karakter, gimana critanya kok munculnya cuma 1 angka) yang bingung juga apa manfaatnya kita jumlah hitung karakter.
=IF(LEN($A$5:$A$36);ROW( $A$5:$A$36) ) :> sudah jelas mucul angka 5
=MAX(IF(LEN($A$5:$A$36) ;ROW($A$5: $A$36))) :> CSE muncul
angka 32 , gimana critanya muncul 32 padahal nilai =IF(LEN($A$5:$A$36);ROW( $A$5:$A$36) ) adalah 5 meski pake Enter atau CSE
{=INDEX(A:A;MAX(IF(LEN( $A$5:$A$36) ;ROW($A$5: $A$36)))) } :> sudah paham jika crita max nya paham heheh..
Mohon dibantu ya...ya..
Sekali lagi THX bgt buat bang ghozi..
Salam
--- Pada Ming, 7/8/11, ghozi alkatiri <ghozialkatiri@yahoo.co. > menulis:id
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co. >id
Judul: Bls: [belajar-excel] Mencari Data Terakhir yang Diinput
Kepada: belajar-excel@yahoogroups. com
Tanggal: Minggu, 7 Agustus, 2011, 2:44 AM
gunakan formula array
{=INDEX(A:A;MAX(IF(LEN( $A$5:$A$36) ;ROW($A$5: $A$36)))) }
wassalam
Ghozi Alkatiri
--- Pada Ming, 7/8/11, Zerlinda Seismica <seismica@yahoo.com > menulis:
Dari: Zerlinda Seismica <seismica@yahoo.com >
Judul: [belajar-excel] Mencari Data Terakhir yang Diinput
Kepada: belajar-excel@yahoogroups. com
Tanggal: Minggu, 7 Agustus, 2011, 9:01 AM
Salam Excel
Mohon maaf kalo ternyata repost, sudah saya cari difile lama tapi belum bisa saya pakai. Saya hanya mau mencari data yang terakhir dinput. Saya lampirkan contoh kasus
Thx
Salam
Seismica
- 3a.
-
Re: module - Belajar Penggunaan Sintax Me dalam VBA
Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm
Sun Aug 7, 2011 2:49 pm (PDT)
Terimakasih sebelumnya utk mbak siti,,
Jika sintax tersebut ditaruh di module jdinya sperti apa ? Yg menjadi wadahnya apakah module tersebut atau activesheet ?
Dan bagaimana jika sintax me tsb digunakan pada userform ? Apakah yg mnjadi wadahnya ?
Terimakasih,,
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Sun, 7 Aug 2011 12:23:22
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Belajar Penggunaan Sintax Me dalam VBA
*Me*. adalah *mewakili Object* yg menjadi wadah dimana Procedures yg
dituliskan
misal 1:
=====
anda menuloiskan Makro (prosedur-prosedur) di module milik Sheet1
maka jika dikatakan
*Me.TextBox1 = 120*
sama dengan
*Sheets("Sheet1").TextBox1 = 120*
maksudnya adalah mengisi value 120 ke TextBox1 yg berada (milik) Sheet1
Sheet1 Sendiri sebagai Object Worksheet dlm statement di atas di
expresikan dengan Me.
*Me.Range("F16").EntireColum. Delete*
*
*
Sebetulnya Me di atas (sebg wakil Object Sheet1) tidak perlu ditulis,
karena prosedur sudah berada di MOdule milik Sheet1
misal 2:
=====
Anda menulis prosedur-prosedur pada Module UserForm1
*Me.Top = 500*
mengeSET Top milik USERFORM menjadi 500
*Me.BackColor = RGB(100, 155, 256)*
sama nilainya dengan
UserForm1.BackColor = RGB(100.155.256)
*Unload Me*
mengUnload UserForm1 (dari keadaan tertayang menjadi hilang)
*Me.Hide*
meyembunyikan (me non aktifkan ) Userform1
mudah mudahan yang hanya sekelumit ini cukup dapat difahami
~siti
2011/8/7 Kurei recca <yusajing_ehm@yahoo.com >
> **
>
>
> Salam Para Master Excel,
>
> Sebelumnya mohon maaf karena tidak melampirkan file karena memang belum ada
> kasus penggunaan me-nya.
> Saya sering melihat penggunaan me dalam coding vba macro. Me.*Expression * akan
> tetapi saya belum memahami bagaimana cara kerja / proses me ini ?
> Mohon pencerahan penggunaan *me.expression *tersebut.
> (Tolong dengan bahasa yang mudah dimengerti ya.. heeehee karena sudah baca
> help pun masih belum paham)
>
> Kalo boleh bisa pake contoh kasuss
>
> Terimakasih yang sebesar besarnya
>
> Best Regards,
> Ridwan SH
>
- 3b.
-
Re: module - Belajar Penggunaan Sintax Me dalam VBA
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sun Aug 7, 2011 3:50 pm (PDT)
*Semua *code pemograman VBA ditulisnya selalu di MODULE
(module = A set of declarations followed by procedures.)
Tidak ada VBA Coding (yg akan operatif) ditulis di sheet.
Di VBA Excel, ada beberapa macam MODULE
[image: VBA Modules.PNG]
1.
*Moule Standard / Module Umum*
tidak mengkhususkan Object tertentu
** jadi di module ini tidak ada object yg dapat diwakli dengan statement Me
2.
*Module Object*,
Module milik Object tertentu misalnya
*Module UserForm*,
dimana dituliskan coding untuk obejct2 yg ada didalam userform dan
prosedur yg berhubungan dengan Userform serta anggotanya
** di dalam Module ini Me adalah object USERRFORM tsb
*Module Workbook* (thisworkbook)
tempat memuliskan coding yg langsung berhbungan dengan workbook
** di dalam Module ini, Me adalah Workbook tsb
*Module Worksheet*
dimana dituliskan coding untuk sheet tertentu (misal Sheet1) dan objects
yg ada di sheet tsb
** di dalam Module ini, Me adalah Sheet1 tsb
kita tidak membicarakan Class Module dulu..
Contoh penulisannya di Module
[image: me userform.PNG]
2011/8/8 <yusajing_ehm@yahoo.com >
> Terimakasih sebelumnya utk mbak siti,,
> Jika sintax tersebut ditaruh di module jdinya sperti apa ? Yg menjadi
wadahnya apakah module tersebut atau activesheet ?
> Dan bagaimana jika sintax me tsb digunakan pada userform ? Apakah yg
mnjadi wadahnya ?
> Terimakasih,,
*From: * "STDEV(i)" <setiyowati.devi@gmail.com >
> *Date: *Sun, 7 Aug 2011 12:23:22 +0700
> *Me*. adalah *mewakili Object* yg menjadi wadah dimana Procedures yg
> dituliskan
> misal 1:
> =====
> anda menuloiskan Makro (prosedur-prosedur) di module milik Sheet1
> maka jika dikatakan
> *Me.TextBox1 = 120*
> sama dengan
> *Sheets("Sheet1").TextBox1 = 120*
> maksudnya adalah mengisi value 120 ke TextBox1 yg berada (milik) Sheet1
> Sheet1 Sendiri sebagai Object Worksheet dlm statement di atas di
> expresikan dengan Me.
>
> *Me.Range("F16").EntireColum. Delete*
> Sebetulnya Me di atas (sebg wakil Object Sheet1) tidak perlu ditulis,
> karena prosedur sudah berada di MOdule milik Sheet1
>
> misal 2:
> =====
> Anda menulis prosedur-prosedur pada Module UserForm1
> *Me.Top = 500*
> mengeSET Top milik USERFORM menjadi 500
>
> *Me.BackColor = RGB(100, 155, 256)*
> sama nilainya dengan
> UserForm1.BackColor = RGB(100.155.256)
>
> *Unload Me*
> mengUnload UserForm1 (dari keadaan tertayang menjadi hilang)
>
> *Me.Hide*
> meyembunyikan (me non aktifkan ) Userform1
>
> mudah mudahan yang hanya sekelumit ini cukup dapat difahami
>
> ~siti
>
----------
VBA Help
Me
The Me keyword behaves like an implicitly declared variable. It is automatically available to every procedure in a class module. When a class can have more than one instance, Me provides a way to refer to the specific instance of the class where the code is executing. Using Me is particularly useful for passing information about the currently executing instance of a class to a procedure in another module. For example, suppose you have the following procedure in a module:
Sub ChangeFormColor(FormName As Form)
FormName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
You can call this procedure and pass the current instance of the Form class as an argument using the following statement:
ChangeFormColor Me
===================== ========= ========= ========= ========= ======
What is a VBA Module?
VBA code is typed in the VBA Editor in what are called modules (pictured to the right).
A VBA module resembles a Word document in both organization and typing
You type commands in these modules then run them to control Microsoft Excel. Can you read the commands in the picture and figure out what Excel element is being commanded?
The VBA modules themselves are organized in what is called a VBA project
A VBA project is defined as a collection of VBA modules and other programming elements
When a new workbook file is created in Microsoft Excel, a new VBA project is automatically created and associated with that workbook
A workbook can contain only 1 VBA project
You add VBA modules, code and other elements to a VBA project when you need them
You run your macros from the workbook they were created in. You need the workbook open in Excel to run its code.
===================== ========= =========
- 4a.
-
Prorate
Posted by: "Budhi Cahyanto" budhi.cahyanto@id.certissecurity.com
Sun Aug 7, 2011 8:02 pm (PDT)
Pakar XLs,
Mohon bantuannya donk formula mencari nilai prorate seperti contoh
terlampir.
Yang mau dicari nilai kolom "F", dengan acuan kolom "C".
1. Apabila di atas / sama dengan 1 tahun, maka nilai pada kolom "F"
hanya dikalikan 1 (satu) dari penjumlahan kolom "D" dan "E".
2. Apabila di bawah 1 tahun, maka nilai pada kolom "F" diprorate dari
penjumlahan kolom "D" dan "E".
Thanks untuk ilmunya.
Rgrds,
Budhi
- 4b.
-
Re: Prorate
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sun Aug 7, 2011 8:32 pm (PDT)
=IF(--LEFT(C2,FIND("-", C2)-1)>=1,
(D2+E2),
(D2+E2)*--SUBSTITUTE(MID(C2, FIND(",", C2)+2,LEN( C2)),"-bulan" ,"")/12)
formula klasik, mudah mudhan tidak salah
2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurit >y.com
> **
>
> Pakar XLs, ****
>
> Mohon bantuannya donk formula mencari nilai prorate seperti contoh
> terlampir.
>
> Yang mau dicari nilai kolom "F", dengan acuan kolom "C". ****
>
> **1. **Apabila di atas / sama dengan 1 tahun, maka nilai pada kolom
> "F" hanya dikalikan 1 (satu) dari penjumlahan kolom "D" dan "E". ****
>
> **2. **Apabila di bawah 1 tahun, maka nilai pada kolom "F" diprorate
> dari penjumlahan kolom "D" dan "E". ****
>
> ** **
>
> Thanks untuk ilmunya. ****
>
> ** **
>
> Rgrds, ****
>
> Budhi****
>
>
>
- 4c.
-
Re: Prorate
Posted by: "Budhi Cahyanto" budhi.cahyanto@id.certissecurity.com
Sun Aug 7, 2011 8:51 pm (PDT)
Dashyat .. :-)
Thanks mba' Siti.
_____
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of STDEV(i)
Sent: Monday, August 08, 2011 10:32 AM
=IF(--LEFT(C2,FIND("-", C2)-1)>=1,
(D2+E2),
(D2+E2)*--SUBSTITUTE(MID(C2, FIND(",", C2)+2,LEN( C2)),"-bulan" ,"")/12)
formula klasik, mudah mudhan tidak salah
2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurit >y.com
Pakar XLs,
Mohon bantuannya donk formula mencari nilai prorate seperti contoh
terlampir.
Yang mau dicari nilai kolom "F", dengan acuan kolom "C".
1. Apabila di atas / sama dengan 1 tahun, maka nilai pada kolom "F"
hanya dikalikan 1 (satu) dari penjumlahan kolom "D" dan "E".
2. Apabila di bawah 1 tahun, maka nilai pada kolom "F" diprorate dari
penjumlahan kolom "D" dan "E".
Thanks untuk ilmunya.
Rgrds,
Budhi
- 4d.
-
Re: Prorate
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Aug 7, 2011 10:51 pm (PDT)
Mungkin juga bisa :
=(D2+E2)*IF(-LEFT(C2) <0,1,MID( LEFT(C2,LEN( C2)-6),FIND( ",",C2)+1, 99)/12)
Kid.
2011/8/8 Budhi Cahyanto <budhi.cahyanto@id.certissecurit >y.com
> **
>
>
> Pakar XLs, ****
>
> ** **
>
> Mohon bantuannya donk formula mencari nilai prorate seperti contoh
> terlampir. ****
>
> Yang mau dicari nilai kolom �F�, dengan acuan kolom �C�. ****
>
> **1. **Apabila di atas / sama dengan 1 tahun, maka nilai pada kolom
> �F� hanya dikalikan 1 (satu) dari penjumlahan kolom �D� dan �E�. ****
>
> **2. **Apabila di bawah 1 tahun, maka nilai pada kolom �F� diprorate
> dari penjumlahan kolom �D� dan �E�. ****
>
> ** **
>
> Thanks untuk ilmunya. ****
>
> ** **
>
> Rgrds, ****
>
> Budhi****
>
>
>
- 5a.
-
Pemahaman rumus Prorate
Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id tjahyahartono
Sun Aug 7, 2011 9:51 pm (PDT)
Dear master ex-cel,
saya melihat penjelasan mbak siti saya kurang paham mengenai penggunaan "--" pada rumusnya, dan satu lagi bagaimana ya cara membuat custom tanggal seperti yang dibuat bapak Budhi cahyanto?
harap pencerahan master x-cel?
Regard
Tjahya - 5b.
-
Re: Pemahaman rumus Prorate
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Aug 7, 2011 10:19 pm (PDT)
Hai Pak Tjahya,
1. penggunaan -- dalam formula adalah untuk mengkonversi teks berisi angka
menjadi data ber-type numerik. Jadi seluruh data angka yang typenya masih
teks bisa berubah menjadi sesuai fitrahnya sebagai data numerik. Hal ini
sudah dijelaskan mbak Siti dikolom-kolom kanannya tabel
Silakan coba : (hilangkan setting alignment (perataan teks kanan tengah atau
kiri) dari cell a1 dan b1 )
cell A1 tulis ="123" (jangan lupa tanda petiknya)
hasilnya adalah data angka yang typenya teks.
di B1 tulis =--A1
lihat bedanya. A1 fitrahnya rata kiri, dan b1 fitrahnya rata kanan. Jadi
numerik fitrahnya rata kanan.
2. itu bukan custom tanggal. Itu benar-benar data teks yang bunyinya as it
is demikian itu. Mungkin yang ditanya adalah cara hitung supaya bisa dapat
data seperti itu.
Yang jelas, butuh 2 data, yaitu data waktu (type datetime) mulainya dan data
waktu (type datetime) akhirnya.
Dari 2 data datetime, bisa dihitung selisihnya dengan banyak cara. Misal
dengan fungsi DateDif. Biasanya hitung dulu selisih tahun lalu gandengkan
dengan tulisan '-tahun,' kemudian hitung selisih bulan dan digandeng dengan
teks '-bulan'
Ada juga yang hasil perhitungan selisih disusun sebagai digit angka. Misal
YYMM (selalu minimal 4 digit). 2 digit terakhir adalah selisih bulan, dan
digit didepannya adalah selisih tahun. Jadi untuk nilai 1 tahun 6 bulan,
berupa angka 106
Misalnya saja di c1 isinya 106,
maka bisa diformat number custom :
#0"-tahun, "00"-bulan"
Hal ini, tetap menjaga dat sebagai nilai bertype numerik.
Kid.
2011/8/8 Tjahya Hartono <tjahyahartono@yahoo.co. >id
> **
>
>
> Dear master ex-cel,
>
>
> saya melihat penjelasan mbak siti saya kurang paham mengenai penggunaan
> "--" pada rumusnya, dan satu lagi bagaimana ya cara membuat custom tanggal
> seperti yang dibuat bapak Budhi cahyanto?
> harap pencerahan master x-cel?
>
>
> Regard
>
>
> Tjahya
>
>
>
- 5c.
-
Re: Pemahaman rumus Prorate
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Sun Aug 7, 2011 10:48 pm (PDT)
Sementara mbak siti sedang 'suibuukk beratt..',
Mohon dicoba : RUMUS penjelasan yg ada di kolom L dan M dihilangkan Dobel_Minus-nya.
Maka hasilnya walaupun berupa KARAKTER ANGKA, tetapi bukan BILANGAN.
(type datanya tetap string / text)
Untuk diketahui: hasil fungsi pengolah text (Left, Right, Mid, Replace, Substitute dst), walaupun data yg di-olah berupa bilangan, outputnya pasti berupa data type text).
=LEFT(125) hasilnya bukan 1 melainkan "1". Jika ingin hasil 1 rumusnya dapat dimodifikasi menjadi =--LEFT(125)
Dengan demikian dapat disimpulkan bahwa -- (Double-Negation) adalah operator untuk mengkonversi Text_Karakter_Angka menjadi Bilangan.
Pemahaman TYPE-DATA dalam menggunakan formula-formula di sheet Excel adalah sangat penting, supaya kita tidak terlalu sering terkaget-kaget, dan terheran-heran (lho.. rumusku kok masih salah ya...).
Di kalangan pemakai excel, mengkonversi KarakterAngka menjadi Bilangan ada beberapa cara:
1. data dimasukkan kedalam Fungsi VALUE
2 data ditambah atau dikurangi dengan 0 (Nol)
3. data dikalikan aau dibagi dengan 1 (satu)
4. data diberi Double-Nagasi di depannya
dan mungkin masih ada lagi...
Demikian, modah-mudahan dapat difahami.
@haps
--- In belajar-excel@yahoogroups. , Tjahya Hartono <tjahyahartono@com ...> wrote:
>
> Dear master ex-cel,
> saya melihat penjelasan mbak siti saya kurang paham mengenai penggunaan "--" pada rumusnya, dan satu lagi bagaimana ya cara membuat custom tanggal seperti yang dibuat bapak Budhi cahyanto?
> harap pencerahan master x-cel?
>
> Regard
> Tjahya
- 5d.
-
Re: Pemahaman rumus Prorate
Posted by: "tjahyahartono@yahoo.co.id" tjahyahartono@yahoo.co.id tjahyahartono
Sun Aug 7, 2011 11:16 pm (PDT)
Terima kasih untuk mbak Haps dan Mr.Kid. Cukup jelas
Sent from my BlackBerry�
-----Original Message-----
From: "Haps" <hapsari.stlizbeth@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Mon, 08 Aug 2011 05:48:23
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] Re: Pemahaman rumus Prorate
Sementara mbak siti sedang 'suibuukk beratt..',
Mohon dicoba : RUMUS penjelasan yg ada di kolom L dan M dihilangkan Dobel_Minus-nya.
Maka hasilnya walaupun berupa KARAKTER ANGKA, tetapi bukan BILANGAN.
(type datanya tetap string / text)
Untuk diketahui: hasil fungsi pengolah text (Left, Right, Mid, Replace, Substitute dst), walaupun data yg di-olah berupa bilangan, outputnya pasti berupa data type text).
=LEFT(125) hasilnya bukan 1 melainkan "1". Jika ingin hasil 1 rumusnya dapat dimodifikasi menjadi =--LEFT(125)
Dengan demikian dapat disimpulkan bahwa -- (Double-Negation) adalah operator untuk mengkonversi Text_Karakter_Angka menjadi Bilangan.
Pemahaman TYPE-DATA dalam menggunakan formula-formula di sheet Excel adalah sangat penting, supaya kita tidak terlalu sering terkaget-kaget, dan terheran-heran (lho.. rumusku kok masih salah ya...).
Di kalangan pemakai excel, mengkonversi KarakterAngka menjadi Bilangan ada beberapa cara:
1. data dimasukkan kedalam Fungsi VALUE
2 data ditambah atau dikurangi dengan 0 (Nol)
3. data dikalikan aau dibagi dengan 1 (satu)
4. data diberi Double-Nagasi di depannya
dan mungkin masih ada lagi...
Demikian, modah-mudahan dapat difahami.
@haps
--- In belajar-excel@yahoogroups. , Tjahya Hartono <tjahyahartono@com ...> wrote:
>
> Dear master ex-cel,
> saya melihat penjelasan mbak siti saya kurang paham mengenai penggunaan "--" pada rumusnya, dan satu lagi bagaimana ya cara membuat custom tanggal seperti yang dibuat bapak Budhi cahyanto?
> harap pencerahan master x-cel?
>
> Regard
> Tjahya
- 6a.
-
Mengelompokkan Deret Kode
Posted by: "andri apriyadi" andreemobile@yahoo.co.id andreemobile
Sun Aug 7, 2011 10:28 pm (PDT)
Dear para Pakar Excel,
Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada rumus untuk mengotomatisasi agar deret Kode ini dapat berkelompok dengan ada spasi (blank cell) yang memisahkan antara kelompok kode yang satu dengan kelompok kode lainnya.
(Contoh terlampir).
Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini berderet sesuai kelompok yang saya inginkan?
Thx before
Regards
Andree
- 6b.
-
Re: Mengelompokkan Deret Kode
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Aug 7, 2011 10:43 pm (PDT)
Hai Andri,
Coba pakai Pivot Table.
Langkahnya :
1. Tambahkan header tabel
2. buat 1 kolom yang berisi nilai grup (misal headernya diberi nama 'Grup'
di cell B1, sedangkan data yang di kolom A diberi nama data), dan B2
menggunakan formula :
=int( a2/100 )
3. copy formula di B2 ke seluruh baris data.
4. blok tabel (dari a1 sampai b baris terkahir data)
5. (optional) buat nama range dengan klik kanan pilih name a range, misal
diberi nama mydata
6. insert -> pivot table
7. pada data source diisi mydata atau blok range data (termasuk header) lalu
ok
8. letakkan (drag) field grup dibagian row
9. letakkan juga field data dibagian row juga, dibawah field grup
10. klik panah kecil -> field setting -> layout -> centang insert blank line
after each item label -> ok
Jika data diubah-ubah, termasuk tambah atau susut recordnya, ubah refers to
di nama range (mydata) dengan sebuah formula offset
=Offset( $a$1,0,0,counta( $a:$a ) )
Setelah itu, tambah dan kurangi data sesukanya dilanjutkan dengan tekan
refresh data atau refresh all.
Kid.
2011/8/8 andri apriyadi <andreemobile@yahoo.co. >id
> **
>
>
> Dear para Pakar Excel,
>
> Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada
> rumus untuk mengotomatisasi agar deret Kode ini dapat berkelompok dengan ada
> spasi (blank cell) yang memisahkan antara kelompok kode yang satu dengan
> kelompok kode lainnya.
> (Contoh terlampir).
>
> Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini
> berderet sesuai kelompok yang saya inginkan?
>
> Thx before
>
> Regards
>
> Andree
>
>
>
- 6c.
-
Re: Mengelompokkan Deret Kode
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Mon Aug 8, 2011 12:08 am (PDT)
Kalau* HARUS dengan formula* kayaknya gak bisa, karena formula* bukan* alat
untuk melakukan aksi (*menginsert baris*, menulis data di baris lain dst)
Formula, katanya, hanya mengembalikan data dan itupun hanya ditampilkan
di cell dimana dia ditulis.
Dengan permainan VBA dan SpinButton mungkin bisa..
Spinbutton untuk mengatur cell (G1) sbg cell kendali (digit ke berapa yg
dianggap
pembedanya).
Sedangkan VBA nya untuk mengotomatiskan penulisan data terkelompok - nya
'----------------
Private Sub CommandButton1_Click()
' Haps ( Aug 08, 2011 )
Dim vDat As Range, vOut As Range
Dim i As Long, n As Long, Pos As Integer
Set vDat = Cells(1).CurrentRegion
Set vOut = Cells(1, 3)
Pos = Len(vDat(1, 1)) - Me.SpinButton1.Value + 1
vOut.EntireColumn.ClearContents
n = 1
For i = 1 To vDat.Rows.Count
vOut(n, 1) = vDat(i, 1)
n = n + 1
If Not Mid(vDat(i + 1, 1), Pos, 1) = Mid(vDat(i, 1), Pos, 1) _
Then n = n + 1
Next i
End Sub
'----------------
cara memainkannya:
1. klik Spinbutton untuk mengubah angka di cell G1
angka ini akan dipakai sebagai penunjuk [POSISI DIGIT KE X] pada data di
kolom A
hanya saja dihitungnya dari belakang (dari kanan)
2. Klik Tombol OK
Sebelum makro menyusun data yg dikelompokkan *berdasarkan perbedaan nilai*
*pada digit Ke X tadi*, dia akan menghapus dulu data di kolom C
Mohon maaf kalau tidak berkenan dengan adanya pemrograman VBA; dihapus
saja..
2011/8/8 andri apriyadi <andreemobile@yahoo.co. >id
>
> Saya punya deretan Kode yang panjang dalam satu kolom dan berharap ada
rumus untuk mengotomatisasi
> agar deret Kode ini dapat berkelompok dengan ada spasi (blank cell) yang
memisahkan antara kelompok kode
> yang satu dengan kelompok kode lainnya.
> (Contoh terlampir).
>
> Mohon bantuan para master, bagaimana rumus/formulanya agar kode-kode ini
berderet sesuai kelompok
> yang saya inginkan?
> Thx before
>
> Regards
> Andree
- 7.
-
umur
Posted by: "Agus Waluyo" gusta_w@yahoo.co.id gusta_w
Mon Aug 8, 2011 12:27 am (PDT)
Dear Para suhu Excell
mohon maaf seblm emang sudah pernah di bahas di milis tapi saya cari ga ada ketemu
bagaimana untuk mengetahui berapa umurnya
berapa Tahun, berapa bulan , berapa minggu dan berapa hari
file terlampir
Regards,
Agus Waluyo| PT. Selim Elektro |0267-8617844-45
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar