Senin, 04 Agustus 2014

Re: [ExcelVBA] Re: File - GroupInfo.txt

 

First of all,
when asking a question from the group, you should start a new discussion thread.
repsonding to the GroupInfo email makes it look like you're giving advice on how to run a discussion group or commenting on the rules for the group.
(which I usually delete)
 
As far as your problem being "because you're running 32-bit excel on a 64-bit operating system":
I don't think that's the issue.
I've been doing this for quite some time and have nearly 100,000 lines of VBA code running without seeing this type of error.
 
 
I copied your declaration into one of my code modules
(in a "standard" module, outside of a macro)
and ran another macro, and it didn't give me a compilation error.
 
I don't know what you're doing with this sub, or what parameters need to be supplied, so I cannot test it.
 
However, I DID see an article that implied that you need to use a different syntax depending on your version:
 
The Microsoft article suggests using something like:
#If VBA7 Then
Private Declare PtrSafe Sub hmemcpy Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
#Else
Private Declare Sub hmemcpy Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
#End If
 
hope this helps.
 
Paul
-----------------------------------------
"Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can." - John Wesley
-----------------------------------------

From: "gabizata@yahoo.com.br [ExcelVBA]" <ExcelVBA@yahoogroups.com>
To: ExcelVBA@yahoogroups.com
Sent: Sunday, August 3, 2014 9:58 PM
Subject: [ExcelVBA] Re: File - GroupInfo.txt

 
Guys, I need some help with excel because I`m trying to use an old version (32bits) and my windows runs 64, then a problem "compilation error" appears to correct or complete this sentence "Declare Sub hmemcpy Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)"...
any suggestions?


__._,_.___

Posted by: Paul Schreiner <schreiner_paul@att.net>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (92)

Yahoo Groups
New - View Group Photos by Time or Location
Enjoy your group's photos beautifully arranged by date or place

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

.

__,_._,___
READ MORE....

[belajar-excel] Digest Number 3024

8 Messages

Digest #3024

Messages

Sun Aug 3, 2014 3:14 am (PDT) . Posted by:

ihyakulumudin77

msh bahas postingan lama(penasaran sih) setelah berkali kali nyoba perkiran saya jika dlm satu kolom terdapat teks dan angka maka kasus apostrof ini muncul, tp klo kolomnya hanya berisi angka hasil copinya ttp angka. (copy pastenya bkn copy paste yg biasanya, tp script copy yg dibuat Pak AgungFull). mudah-mudahan ada manfaatnya. Minal 'aidin wal faizin. Mohon maaf lahir&batin.

Sun Aug 3, 2014 5:07 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum Pak Ihyak;

Mohon maaf, saya hanya memberi saran, keenam obyek yang akan anda
sembunyikan, lebih baik diganti menjadi sebuah objek (sebuah tombol, atau
sebuah activeX) yang dapat berubah namanya sesuai dengan kreteria yang
diberikan.
Jika mau belajar hal tersebut, coba intip di sini
<http://b-excel.blogspot.com/2014/08/tombol-multi-guna.html>

Salam
NangAgus

On Sat, Jul 26, 2014 at 12:41 PM, Nang Agus nangagus@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Asalamualaikum pak Ihyak,
>
> Saya bukan master coba membantu ya...
>
> Coba scriptnya diganti seperti di bawah ini:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim no As Integer
> Dim myCell As Long
> Dim myCell2 As String
> If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
> myCell = Range("a1").Value
> myCell2 = Range("a2").Value
> For no = 1 To 4
> ActiveSheet.Shapes.Range(Array("Rectangle " & no - 0)).Visible
> = msoFalse
> Next no
> For no = 5 To 6
> ActiveSheet.Shapes.Range(Array("Rectangle " & no + 2)).Visible =
> msoFalse
> Next no
>
> If myCell2 = "ganjil" Then
> ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 6)).Visible =
> msoTrue
> End If
> If myCell2 = "genap" And myCell > 7 Then
> ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 1)).Visible =
> msoTrue
> End If
> If myCell2 = "genap" And myCell = 7 Then
> ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 3)).Visible =
> msoTrue
> End If
> End If
> End Sub
>
>
> Semoga sesuai keinginan.
> Wasalamualaikum
> NangAgus
>
>
> 2014-07-26 10:28 GMT+07:00 ihyakulumudin77@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Mr. Kid & para master sy udh coba buat tp hasilnya kok lucu ya? file
>> terlampir
>>
>
>
>

Sun Aug 3, 2014 7:45 pm (PDT) . Posted by:

"Haer Talib" haery

Dear All Sahabat Access & Excel.

Walaupun sudah lewat, saya ingin mengucapkan:
"Selamat Idul Fitri 1435H, Mohon Maaf Lahir & Batin".

Bagi yang kemarin mudik dan sudah tiba kembali saya ucapkan:
"Welcome back!"

Selamat beraktivitas kembali, mudah-mudahan di bulan Syawal ini
produktivitas dan rezeki kita meningkat semuanya, aamin.

Salam

Haer Talib

Blog​: http://Haer.RumahAccess.com

*RumahAccess Indonesia* <http://www.rumahaccess.com>
*Tempatnya Belajar Microsoft Access*
Artikel | Forum | Milis | Download | Training | Links | Blog | Event

Sun Aug 3, 2014 10:30 pm (PDT) . Posted by:

"Tony Bexcel"

Dear Pakar yang Budiman,

Ternyata memang saya yang salah dalam menempatkan rumusan nya..hehehehe..tapi saya masih belum bisa bagaimana cara atau hasilnya bila pembulatan kebawah..Misal nya 6.7 menjadi 6.
Terimakasih ya Mr.Kids dan temans sudah memberikan solusi yang luar biasa..

Salam,
Tony B

Pada Jumat, 1 Agustus 2014 18:09, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Oh masih ndak pas ya...
hehehe...
mungkin formulanya salah atau jangan-jangan karena kurang teliti saja waktu pasang formulanya.

gimana kalau Anda cek lagi formulanya, dan saya juga cek lagi formulanya. Sama-sama ngecek kan ya...

;)

Wassalam,
Kid.

2014-08-01 13:49 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:


>Dear Pakar yang Budiman..
>Terimakasih atas jawaban Mr.Kid..cukup lama juga saya mencermati guiden nya tapi tidak maksimal..maklum udah uzur..hehehehe..
>Namun kenapa pada total poin ada yang tidak tepat hasil nya ya temans..?
>Berikut saya lampirkan lagi ya..
>
>
>Salam,
>Tony Bexcel
>
>
>
>Pada Jumat, 1 Agustus 2014 1:39, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>

>Hai Tony,
>
>
>Kasus 0 : Persentase nilai Achive (kolom E)
>
>Untuk data di baris 5, nilai achieve (Actual / Target) bisa diperoleh dengan formula berbunyi :
>
>= ( D5 / C5 )
>
>karena C5 bisa jadi 0 atau masih kosong, maka kemungkinan akan menghasilkan error value #DIV/0! sehingga dibutuhkan trap error dengan pengecekan nilai C5 seperti yang ada dalam formula di E5 yang berbunyi :
>=IF(C5<>0,D5/C5,"") 
>sebaiknya bunyi "" diganti dengan 0 menjadi :
>=IF(C5<>0,D5/C5,0)   
>atau jika "" dimaksudkan untuk membedakan antara yang actual-nya 0 harus bernilai achieve 0 dan yang target kosong atau 0 tampak kosong (bukan 0), maka bagian "" dalam formula diganti menjadi -1 sehingga formula berbunyi :
>=IF(C5<>0,D5/C5,0)
>
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>
>0%;;0%
>lalu tekan OK
>
>
>
>atau dengan IFError (xl2007 ke atas) yang berbunyi :
>
>=IFError( D5 / C5 , -1 )
>
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0%;;0%
>lalu tekan OK
>
>
>Misal, untuk data di baris 5, cell E5 bisa juga diberi formula :
>=IFError( D5 / C5 , -1 )
>
>dan sudah di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0%;;0%
>lalu tekan OK
>
>Kasus 1 : Status dari nilai Achieve (kolom K)  [jika butuh ditampilkan]
>Sepertinya status achieved tercapai jika Actual >= Target kan ya. Karena nilai achieve sudah dihitung pada kolom E, maka status Achieved diperoleh jika nilai kolom E >= 1, sehingga formula di baris 5 pada kolom K berbunyi : (cell K5)
>=( E5 >= 1 ) * 1

>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>"Achieved";;
>lalu tekan OK
>
>Kasus 2 : Poin dari achieve (kolom H)  [jika butuh ditampilkan]
>Dengan kriteria jika status-nya Achieved (kolom E >= 1), maka poin dihitung dengan Target / 155juta alias kolom C dibagi 155juta.
>Untuk data di baris 5, formula berbunyi :
>
=( E5 >= 1 ) * C5 / 155000000
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0.00;;
>lalu tekan OK
>
>Kasus 3 : Poin dari Extra (kolom i)  [jika butuh ditampilkan]
>Dengan kriteria jika status-nya Achieved (kolom E >= 1) dan Partisipasi Extra adalah 'YES'  (kolom F = "YES"), maka poin extra dihitung dengan (Actual - Target) / 100juta alias ( kolom D - kolom C ) / 100juta
>Untuk data di baris 5, formula berbunyi :
>=( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0.00;;
>lalu tekan OK
>
>
>
>Kasus 4 : Total poin (kolom J)
>
>> jika kasus 2 dan 3 ditampilkan, maka sudah ada nilai poin achieve di kolom H dan nilai poin Extra di kolom i, dan formula menghitung total poin untuk data di baris 5 akan berbunyi :
>
>=H5+i5
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0.00;;-
>lalu tekan OK
>
>
>> jika kasus 2 dan 3 tidak ditampilkan (alias langsung hitung nilai totalnya tanpa bantuan kolom H dan kolom i), maka formula untuk data di baris 5 akan berbunyi :
>=( E5 >= 1 ) * C5 / 155000000         +     ( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000
>
>yang dapat disederhanakan (masih ingat pelajaran matematika SD kan ya kalo ndak salah komutatif, asosiatif dsb gitu deh)
>
>=( E5 >= 1 ) * ( C5 / 155000000 + ( F5 = "YES" ) * ( D5 - C5 ) / 100000000 )
>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>0.00;;-
>lalu tekan OK
>
>
>;)
>
>
>gitu kali ya
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-07-31 13:21 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>> 
>>Dear Para Pakar yang Budiman dan teman2 Excel Mania,
>>
>>
>>Mohon maaf pada email sebelum nya lupa diberikan Judul..
>>Sebelumnya saya mengucapkan Selamat Hari Raya Iedul Fitri ya temans...mohon maaf Lahir dan Bathin..
>>Kalau diberikan kesempatan bertanya hari ini,saya ingin menanyakan mengenai rumusan mencari nilai poin dan tambahanan nya sesuai kebijakan.

>>Agar lebih memudahkan yg dimaksud,saya lampirkan contoh pada file terlampir.
>>Terimakasih atas segala bantuan dan waktunya ya temans...
>>
>>
>>
>>
>>Tony B
>
>
>

Sun Aug 3, 2014 10:34 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Fungsi untuk membulatkan ke bawah adalah RoundDown.

=RoundDown( -1.2 , 0 ) hasilnya -1 :: bulatkan kebawah nilai -1.2 menjadi 0
digit dibelakang koma.

nilai -1.2 bisa diganti dengan alamat cell, nama range, atau bunyi formula.
Contoh :
=RoundDown( A1 , 0 )
=RoundDown( pilihan , 0 ) :: pilihan adalah sebuah nama range yang merujuk
ke sebuah cell tertentu
=RoundDown( IF(x1="",-1.2,3.5) , 0 )

Wassalam,
Kid.

2014-08-04 14:31 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Pakar yang Budiman,
>
> Ternyata memang saya yang salah dalam menempatkan rumusan
> nya..hehehehe..tapi saya masih belum bisa bagaimana cara atau hasilnya bila
> pembulatan kebawah..Misal nya 6.7 menjadi 6.
> Terimakasih ya Mr.Kids dan temans sudah memberikan solusi yang luar biasa..
>
> Salam,
> Tony B
>
>
> Pada Jumat, 1 Agustus 2014 18:09, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Oh masih ndak pas ya...
> hehehe...
> mungkin formulanya salah atau jangan-jangan karena kurang teliti saja
> waktu pasang formulanya.
>
> gimana kalau Anda cek lagi formulanya, dan saya juga cek lagi formulanya.
> Sama-sama ngecek kan ya...
>
> ;)
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2014-08-01 13:49 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Pakar yang Budiman..
> Terimakasih atas jawaban Mr.Kid..cukup lama juga saya mencermati guiden
> nya tapi tidak maksimal..maklum udah uzur..hehehehe..
> Namun kenapa pada total poin ada yang tidak tepat hasil nya ya temans..?
> Berikut saya lampirkan lagi ya..
>
> Salam,
> Tony Bexcel
>
>
> Pada Jumat, 1 Agustus 2014 1:39, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Tony,
>
> Kasus 0 : Persentase nilai Achive (kolom E)
> Untuk data di baris 5, nilai achieve (Actual / Target) bisa diperoleh
> dengan formula berbunyi :
> = ( D5 / C5 )
> karena C5 bisa jadi 0 atau masih kosong, maka kemungkinan akan
> menghasilkan error value #DIV/0! sehingga dibutuhkan trap error dengan
> pengecekan nilai C5 seperti yang ada dalam formula di E5 yang berbunyi :
> =IF(C5<>0,D5/C5,"")
> sebaiknya bunyi "" diganti dengan 0 menjadi :
> =IF(C5<>0,D5/C5,0)
> atau jika "" dimaksudkan untuk membedakan antara yang actual-nya 0 harus
> bernilai achieve 0 dan yang target kosong atau 0 tampak kosong (bukan 0),
> maka bagian "" dalam formula diganti menjadi -1 sehingga formula berbunyi :
> =IF(C5<>0,D5/C5,0)
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0%;;0%
> lalu tekan OK
>
> atau dengan IFError (xl2007 ke atas) yang berbunyi :
> =IFError( D5 / C5 , -1 )
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0%;;0%
> lalu tekan OK
>
> Misal, untuk data di baris 5, cell E5 bisa juga diberi formula :
> =IFError( D5 / C5 , -1 )
> dan sudah di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0%;;0%
> lalu tekan OK
>
> Kasus 1 : Status dari nilai Achieve (kolom K) [jika butuh ditampilkan]
> Sepertinya status achieved tercapai jika Actual >= Target kan ya. Karena
> nilai achieve sudah dihitung pada kolom E, maka status Achieved diperoleh
> jika nilai kolom E >= 1, sehingga formula di baris 5 pada kolom K berbunyi
> : (cell K5)
> =( E5 >= 1 ) * 1
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> "Achieved";;
> lalu tekan OK
>
> Kasus 2 : Poin dari achieve (kolom H) [jika butuh ditampilkan]
> Dengan kriteria jika status-nya Achieved (kolom E >= 1), maka poin
> dihitung dengan Target / 155juta alias kolom C dibagi 155juta.
> Untuk data di baris 5, formula berbunyi :
> =( E5 >= 1 ) * C5 / 155000000
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0.00;;
> lalu tekan OK
>
> Kasus 3 : Poin dari Extra (kolom i) [jika butuh ditampilkan]
> Dengan kriteria jika status-nya Achieved (kolom E >= 1) *dan *Partisipasi
> Extra adalah 'YES' (kolom F = "YES"), maka poin extra dihitung dengan
> (Actual - Target) / 100juta alias ( kolom D - kolom C ) / 100juta
> Untuk data di baris 5, formula berbunyi :
> =( E5 >= 1 ) *** ( F5 = "YES" ) *** ( D5 - C5 ) / 100000000
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0.00;;
> lalu tekan OK
>
> Kasus 4 : Total poin (kolom J)
> > jika kasus 2 dan 3 ditampilkan, maka sudah ada nilai poin achieve di
> kolom H dan nilai poin Extra di kolom i, dan formula menghitung total poin
> untuk data di baris 5 akan berbunyi :
> =H5+i5
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0.00;;-
> lalu tekan OK
>
> > jika kasus 2 dan 3 tidak ditampilkan (alias langsung hitung nilai
> totalnya tanpa bantuan kolom H dan kolom i), maka formula untuk data di
> baris 5 akan berbunyi :
> =( E5 >= 1 ) * *C5 / 155000000* + ( E5 >= 1 ) *** ( F5 =
> "YES" ) *** ( D5 - C5 ) / 100000000
> yang dapat disederhanakan (masih ingat pelajaran matematika SD kan ya kalo
> ndak salah komutatif, asosiatif dsb gitu deh)
> =( E5 >= 1 ) * ( *C5 / 155000000* + ( F5 = "YES" ) *** ( D5 - C5 ) /
> 100000000 )
> kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox
> bunyi :
> 0.00;;-
> lalu tekan OK
>
> ;)
>
> gitu kali ya
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-07-31 13:21 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Para Pakar yang Budiman dan teman2 Excel Mania,
>
> Mohon maaf pada email sebelum nya lupa diberikan Judul..
> Sebelumnya saya mengucapkan Selamat Hari Raya Iedul Fitri ya
> temans...mohon maaf Lahir dan Bathin..
> Kalau diberikan kesempatan bertanya hari ini,saya ingin menanyakan
> mengenai rumusan mencari nilai poin dan tambahanan nya sesuai kebijakan.
> Agar lebih memudahkan yg dimaksud,saya lampirkan contoh pada file
> terlampir.
> Terimakasih atas segala bantuan dan waktunya ya temans...
>
>
> Tony B
>
>
>
>
>
>
>
>
>

Mon Aug 4, 2014 12:30 am (PDT) . Posted by:

"Tony Bexcel"

Dear Pakar yang Budiman,

Terimakasih Mr.Kids dan temans semua..yang dimaksud rounddown apabila langsung menghitung dari rumusan yang sudah Mr.kids berikan, bukan Rounddown setelah hasil dari rumusan.
Seperti Contoh : '=(E8>=1)*(C8/155000000+(F8="YES")*(D8-C8)/100000000) dimanakah harus meletakan rounddown nya karena saya coba sisipkan didepan malah error.
Terimakasih atas pencerahan nya ya temans...

Salam,
Tony B

Pada Senin, 4 Agustus 2014 12:34, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Fungsi untuk membulatkan ke bawah adalah RoundDown.

=RoundDown( -1.2 , 0 ) hasilnya -1 :: bulatkan kebawah nilai -1.2 menjadi 0 digit dibelakang koma.

nilai -1.2 bisa diganti dengan alamat cell, nama range, atau bunyi formula. Contoh :
=RoundDown( A1 , 0 )
=RoundDown( pilihan , 0 )  :: pilihan adalah sebuah nama range yang merujuk ke sebuah cell tertentu
=RoundDown( IF(x1="",-1.2,3.5) , 0 )

Wassalam,
Kid.

2014-08-04 14:31 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:


>Dear Pakar yang Budiman,
>
>
>Ternyata memang saya yang salah dalam menempatkan rumusan nya..hehehehe..tapi saya masih belum bisa bagaimana cara atau hasilnya bila pembulatan kebawah..Misal nya 6.7 menjadi 6.
>Terimakasih ya Mr.Kids dan temans sudah memberikan solusi yang luar biasa..
>
>
>Salam,

>Tony B
>
>
>
>Pada Jumat, 1 Agustus 2014 18:09, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>

>Oh masih ndak pas ya...
>hehehe...
>mungkin formulanya salah atau jangan-jangan karena kurang teliti saja waktu pasang formulanya.
>
>gimana kalau Anda cek lagi formulanya, dan saya juga cek lagi formulanya. Sama-sama ngecek kan ya...
>
>;)
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>
>2014-08-01 13:49 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>> 
>>Dear Pakar yang Budiman..
>>Terimakasih atas jawaban Mr.Kid..cukup lama juga saya mencermati guiden nya tapi tidak maksimal..maklum udah uzur..hehehehe..
>>Namun kenapa pada total poin ada yang tidak tepat hasil nya ya temans..?
>>Berikut saya lampirkan lagi ya..
>>
>>
>>Salam,
>>Tony Bexcel
>>
>>
>>
>>Pada Jumat, 1 Agustus 2014 1:39, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>> 
>>Hai Tony,
>>
>>
>>Kasus 0 : Persentase nilai Achive (kolom E)
>>
>>Untuk data di baris 5, nilai achieve (Actual / Target) bisa diperoleh dengan formula berbunyi :
>>
>>= ( D5 / C5 )
>>
>>karena C5 bisa jadi 0 atau masih kosong, maka kemungkinan akan menghasilkan error value #DIV/0! sehingga dibutuhkan trap error dengan pengecekan nilai C5 seperti yang ada dalam formula di E5 yang berbunyi :
>>=IF(C5<>0,D5/C5,"") 
>>sebaiknya bunyi "" diganti dengan 0 menjadi :
>>=IF(C5<>0,D5/C5,0)   
>>atau jika "" dimaksudkan untuk membedakan antara yang actual-nya 0 harus bernilai achieve 0 dan yang target kosong atau 0 tampak kosong (bukan 0), maka bagian "" dalam formula diganti menjadi -1 sehingga formula berbunyi :
>>=IF(C5<>0,D5/C5,0)
>>
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>
>>0%;;0%
>>lalu tekan OK
>>
>>
>>
>>atau dengan IFError (xl2007 ke atas) yang berbunyi :
>>
>>=IFError( D5 / C5 , -1 )
>>
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0%;;0%
>>lalu tekan OK

>>
>>
>>Misal, untuk data di baris 5, cell E5 bisa juga diberi formula :
>>=IFError( D5 / C5 , -1 )
>>
>>dan sudah di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0%;;0%
>>lalu tekan OK
>>
>>Kasus 1 : Status dari nilai Achieve (kolom K)  [jika butuh ditampilkan]
>>Sepertinya status achieved tercapai jika Actual >= Target kan ya. Karena nilai achieve sudah dihitung pada kolom E, maka status Achieved diperoleh jika nilai kolom E >= 1, sehingga formula di baris 5 pada kolom K berbunyi : (cell K5)
>>=( E5 >= 1 ) * 1
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>"Achieved";;
>>lalu tekan OK
>>

>>Kasus 2 : Poin dari achieve (kolom H)  [jika butuh ditampilkan]
>>Dengan kriteria jika status-nya Achieved (kolom E >= 1), maka poin dihitung dengan Target / 155juta alias kolom C dibagi 155juta.
>>Untuk data di baris 5, formula berbunyi :
>>
=( E5 >= 1 ) * C5 / 155000000
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0.00;;
>>lalu tekan OK
>>
>>Kasus 3 : Poin dari Extra (kolom i)  [jika butuh ditampilkan]
>>Dengan kriteria jika status-nya Achieved (kolom E >= 1) dan Partisipasi Extra adalah 'YES'  (kolom F = "YES"), maka poin extra dihitung dengan (Actual - Target) / 100juta alias ( kolom D - kolom C ) / 100juta
>>Untuk data di baris 5, formula berbunyi :
>>=( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0.00;;
>>lalu tekan OK

>>
>>
>>
>>Kasus 4 : Total poin (kolom J)
>>
>>> jika kasus 2 dan 3 ditampilkan, maka sudah ada nilai poin achieve di kolom H dan nilai poin Extra di kolom i, dan formula menghitung total poin untuk data di baris 5 akan berbunyi :
>>
>>=H5+i5
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0.00;;-
>>lalu tekan OK
>>
>>
>>> jika kasus 2 dan 3 tidak ditampilkan (alias langsung hitung nilai totalnya tanpa bantuan kolom H dan kolom i), maka formula untuk data di baris 5 akan berbunyi :

>>=( E5 >= 1 ) * C5 / 155000000         +     ( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000
>>
>>yang dapat disederhanakan (masih ingat pelajaran matematika SD kan ya kalo ndak salah komutatif, asosiatif dsb gitu deh)

>>
>>=( E5 >= 1 ) * ( C5 / 155000000 + ( F5 = "YES" ) * ( D5 - C5 ) / 100000000 )
>>kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
>>0.00;;-
>>lalu tekan OK
>>
>>
>>;)
>>
>>
>>gitu kali ya
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>2014-07-31 13:21 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>> 
>>>Dear Para Pakar yang Budiman dan teman2 Excel Mania,
>>>
>>>
>>>Mohon maaf pada email sebelum nya lupa diberikan Judul..
>>>Sebelumnya saya mengucapkan Selamat Hari Raya Iedul Fitri ya temans...mohon maaf Lahir dan Bathin..
>>>Kalau diberikan kesempatan bertanya hari ini,saya ingin menanyakan mengenai rumusan mencari nilai poin dan tambahanan nya sesuai kebijakan.
>>>Agar lebih memudahkan yg dimaksud,saya lampirkan contoh pada file terlampir.
>>>Terimakasih atas segala bantuan dan waktunya ya temans...
>>>
>>>
>>>
>>>
>>>Tony B
>>
>>
>>
>
>
>

Mon Aug 4, 2014 12:51 am (PDT) . Posted by:

"Bagus" bagus4bls

Pak Tony;
Saya coba bisa koq pak..

Coba pada J5:
=ROUNDDOWN((E5>=1)*(C5/155000000+(F5="YES")*(D5-C5)/100000000),0)
copas kebawah

Wassalam

~ Bagus ~

----- Original Message -----
From: Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Monday, August 04, 2014 1:32 PM
Subject: Bls: [belajar-excel] Mencari Nilai Poin dan tambahan nya. [1 Attachment]

Dear Pakar yang Budiman,

Terimakasih Mr.Kids dan temans semua..yang dimaksud rounddown apabila langsung menghitung dari rumusan yang sudah Mr.kids berikan, bukan Rounddown setelah hasil dari rumusan.
Seperti Contoh : '=(E8>=1)*(C8/155000000+(F8="YES")*(D8-C8)/100000000) dimanakah harus meletakan rounddown nya karena saya coba sisipkan didepan malah error.
Terimakasih atas pencerahan nya ya temans...

Salam,
Tony B

Pada Senin, 4 Agustus 2014 12:34, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Fungsi untuk membulatkan ke bawah adalah RoundDown.

=RoundDown( -1.2 , 0 ) hasilnya -1 :: bulatkan kebawah nilai -1.2 menjadi 0 digit dibelakang koma.

nilai -1.2 bisa diganti dengan alamat cell, nama range, atau bunyi formula. Contoh :

=RoundDown( A1 , 0 )

=RoundDown( pilihan , 0 ) :: pilihan adalah sebuah nama range yang merujuk ke sebuah cell tertentu

=RoundDown( IF(x1="",-1.2,3.5) , 0 )

Wassalam,

Kid.

2014-08-04 14:31 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Pakar yang Budiman,

Ternyata memang saya yang salah dalam menempatkan rumusan nya..hehehehe..tapi saya masih belum bisa bagaimana cara atau hasilnya bila pembulatan kebawah..Misal nya 6.7 menjadi 6.
Terimakasih ya Mr.Kids dan temans sudah memberikan solusi yang luar biasa..

Salam,
Tony B

Pada Jumat, 1 Agustus 2014 18:09, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Oh masih ndak pas ya...

hehehe...

mungkin formulanya salah atau jangan-jangan karena kurang teliti saja waktu pasang formulanya.

gimana kalau Anda cek lagi formulanya, dan saya juga cek lagi formulanya. Sama-sama ngecek kan ya...

;)

Wassalam,

Kid.

2014-08-01 13:49 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Pakar yang Budiman..
Terimakasih atas jawaban Mr.Kid..cukup lama juga saya mencermati guiden nya tapi tidak maksimal..maklum udah uzur..hehehehe..
Namun kenapa pada total poin ada yang tidak tepat hasil nya ya temans..?
Berikut saya lampirkan lagi ya..

Salam,
Tony Bexcel

Pada Jumat, 1 Agustus 2014 1:39, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Hai Tony,

Kasus 0 : Persentase nilai Achive (kolom E)

Untuk data di baris 5, nilai achieve (Actual / Target) bisa diperoleh dengan formula berbunyi :

= ( D5 / C5 )

karena C5 bisa jadi 0 atau masih kosong, maka kemungkinan akan menghasilkan error value #DIV/0! sehingga dibutuhkan trap error dengan pengecekan nilai C5 seperti yang ada dalam formula di E5 yang berbunyi :
=IF(C5<>0,D5/C5,"")
sebaiknya bunyi "" diganti dengan 0 menjadi :
=IF(C5<>0,D5/C5,0)
atau jika "" dimaksudkan untuk membedakan antara yang actual-nya 0 harus bernilai achieve 0 dan yang target kosong atau 0 tampak kosong (bukan 0), maka bagian "" dalam formula diganti menjadi -1 sehingga formula berbunyi :
=IF(C5<>0,D5/C5,0)

kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :

0%;;0%
lalu tekan OK

atau dengan IFError (xl2007 ke atas) yang berbunyi :

=IFError( D5 / C5 , -1 )

kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :

0%;;0%
lalu tekan OK

Misal, untuk data di baris 5, cell E5 bisa juga diberi formula :
=IFError( D5 / C5 , -1 )

dan sudah di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
0%;;0%
lalu tekan OK

Kasus 1 : Status dari nilai Achieve (kolom K) [jika butuh ditampilkan]

Sepertinya status achieved tercapai jika Actual >= Target kan ya. Karena nilai achieve sudah dihitung pada kolom E, maka status Achieved diperoleh jika nilai kolom E >= 1, sehingga formula di baris 5 pada kolom K berbunyi : (cell K5)

=( E5 >= 1 ) * 1

kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :

"Achieved";;

lalu tekan OK

Kasus 2 : Poin dari achieve (kolom H) [jika butuh ditampilkan]

Dengan kriteria jika status-nya Achieved (kolom E >= 1), maka poin dihitung dengan Target / 155juta alias kolom C dibagi 155juta.

Untuk data di baris 5, formula berbunyi :

=( E5 >= 1 ) * C5 / 155000000

kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :

0.00;;

lalu tekan OK

Kasus 3 : Poin dari Extra (kolom i) [jika butuh ditampilkan]

Dengan kriteria jika status-nya Achieved (kolom E >= 1) dan Partisipasi Extra adalah 'YES' (kolom F = "YES"), maka poin extra dihitung dengan (Actual - Target) / 100juta alias ( kolom D - kolom C ) / 100juta

Untuk data di baris 5, formula berbunyi :
=( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000
kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
0.00;;
lalu tekan OK

Kasus 4 : Total poin (kolom J)

> jika kasus 2 dan 3 ditampilkan, maka sudah ada nilai poin achieve di kolom H dan nilai poin Extra di kolom i, dan formula menghitung total poin untuk data di baris 5 akan berbunyi :

=H5+i5
kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
0.00;;-
lalu tekan OK

> jika kasus 2 dan 3 tidak ditampilkan (alias langsung hitung nilai totalnya tanpa bantuan kolom H dan kolom i), maka formula untuk data di baris 5 akan berbunyi :
=( E5 >= 1 ) * C5 / 155000000 + ( E5 >= 1 ) * ( F5 = "YES" ) * ( D5 - C5 ) / 100000000

yang dapat disederhanakan (masih ingat pelajaran matematika SD kan ya kalo ndak salah komutatif, asosiatif dsb gitu deh)

=( E5 >= 1 ) * ( C5 / 155000000 + ( F5 = "YES" ) * ( D5 - C5 ) / 100000000 )
kemudian di format cells -> tab Number -> opsi Custom -> isi di textbox bunyi :
0.00;;-
lalu tekan OK

;)

gitu kali ya

Wassalam,
Kid.

2014-07-31 13:21 GMT+10:00 Tony Bexcel tonybexcel@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Para Pakar yang Budiman dan teman2 Excel Mania,

Mohon maaf pada email sebelum nya lupa diberikan Judul..
Sebelumnya saya mengucapkan Selamat Hari Raya Iedul Fitri ya temans...mohon maaf Lahir dan Bathin..
Kalau diberikan kesempatan bertanya hari ini,saya ingin menanyakan mengenai rumusan mencari nilai poin dan tambahanan nya sesuai kebijakan.
Agar lebih memudahkan yg dimaksud,saya lampirkan contoh pada file terlampir.
Terimakasih atas segala bantuan dan waktunya ya temans...

Tony B

=====================================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html

Posting lowongan kerja : ke link tersebut dan klik New Topic
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
READ MORE....