Minggu, 29 November 2015

[belajar-excel] Digest Number 3665

15 Messages

Digest #3665
1a
Re: VBA format cell otomatis by "Toby kenzo" tobykenzo
1b
Re: VBA format cell otomatis by "Mr. Kid" nmkid.family@ymail.com
1c
Re: VBA format cell otomatis by "Edo Hanggoro" edo_hanggoro
1d
Re: VBA format cell otomatis by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Daftar cicilan by "Nang Agus"
4c
Re: Fwd: menghasil kan level persen by "Mr. Kid" nmkid.family@ymail.com
5a
Re: entry data dengan user form by "imam cahyo yuwono"
6a
Re: rekap data, auto copi sort by "imam cahyo yuwono"
8b

Messages

Sun Nov 29, 2015 4:53 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Hai Edo,

Apakah transformCodenya sudah di buatkan ke dalam suatu Module..?

Sent from Yahoo Mail on Android

Sun Nov 29, 2015 5:35 am (PST) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Edo,

Prosedur TransformCode nya sudah dibuat ya. Sebaiknya diletakkan di general
module agar bisa digunakan oleh prosedur lainnya, termasuk
prosedur-prosedur events milik sheet manapun dan sebagainya.

Kemudian, cara memanggil prosedur nya diperbaiki. Kalau sempet,
jalan-jalanlah ke blog milis tentang hal ini disini
<http://b-excel.blogspot.co.id/2013/07/belajarvba-005-procedure-seri-1.html>,
yang ada bagian tentang cara memanggil prosedur lain dari sebuah prosedur.

Pada kasus Anda,
berikut ini yang Anda buat :
Cells(lRow, 3).Value = TransformCode.Cells(lRow, 3).Offset(0,
-1).Resize(1, 2)
ini yang ada diimil saya tempo lalu :
transformcode cells(lrow,3).offset(0,-1).resize(1,2)

dan saya rasa jelas bahwa :

> tapi, ganti *bagian yang merah *dengan

menunjukkan bahwa bagian yang berbunyi :
cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value
'isi kolom D
if err.number=0 then 'kolom D terisi dengan baik ?

cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value
'isi kolom B
endif 'selesai cek kolom D terisi dengan baik
harus diganti alias HAPUS bagian merah tersebut dan tulis baris kode
berikut :
transformcode cells(lrow,3).offset(0,-1).resize(1,2)

Ada baiknya jika tidak langsung terfokus kepada baris-baris kode nya saja,
tetapi runut dari awal imil sampai akhir imil disempatkan ditelaah dengan
tartil.

Wassalamu'alaikum wr wb
Kid

2015-11-29 8:59 GMT+07:00 Edo Hanggoro Edo_Hanggoro@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Mr. Kid,
> Assalamuallaikum Wr.Wb.
>
> Terima kasih banyak atas bantuanya, tetapi saya masih mendapatkan
> kesulitan dalam melakukan proses pemanggilan transform code-nya dan selalu
> error.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim rng As Range, lRow As Long
> If Not Intersect(Target, Range("C:C")) Is Nothing Then 'cek yang
> berubah beririsan dengan kolom C
> Application.EnableEvents = False 'cegah Excel untuk responsif
> terhadap perilaku
> On Error Resume Next 'lewati error yang terjadi
> For Each rng In Intersect(Target, Range("C:C")) 'di setiap cells
> yang berubah di kolom C
> lRow = rng.Row 'simpan baris
> Cells(lRow, 3).Value = TransformCode.Cells(lRow,
> 3).Offset(0, -1).Resize(1, 2)
> Next rng 'ke range yang berubah berikutnya
> On Error GoTo 0 'kembalikan setting trap error ke
> default
> Application.EnableEvents = True 'excel boleh responsif lagi
> End If 'selesai cek
> End Sub
>
> Saya dapatkan error di bagian yang merah tersebut. Kira-kira kesalahannya
> ada dimana ya?
> Mohon bantuannya sekali lagi.
>
> Terima kasih
>
> Edo
>
>
>
>
> On Saturday, November 28, 2015 10:00 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Edo,
>
> *** sesuaikan dengan keadaan setempat jika berbeda dengan preview file
> lampiran milik Pak Edo
> Pada sebuah general module, buat prosedur berikut : (misal diberi nama
> TransformCode)
> public sub TransformCode( rngProc as range )
> dim lChar as long, sDate as string, sCode as string
>
> with rngproc 'kerja di range inputan rngProc
> sdate=.cells(1).value2 'simpan nilai asli tanggal inputan
> ke sdate
> scode=.cells(2).value2 'simpan nilai asli kode inputan ke
> scode
> lchar=1 'karakter ke-1 -> mulainya
> proses loop
>
> 'dapatkan angka pertama (max di karakter ke-6 alias ada ruang
> max 5 karakter untuk header kode)
> do until isnumeric( mid( scode , lchar , 1 ) ) or lchar>6
> 'cek dah nemu angka belum atau karakter diproses dah lebih dari 6
> lchar=lchar+1 'pindah ke karakter berikutnya
> loop 'ke proses loop dengan nilai karakter yang baru
>
> 'tulis ke cells ke-2 dari inputan (posisi cell kode)
> 'diawali petik satu ( ' )
> 'disambung hasil vlookup untuk ambil dari kolom H tabel
> yang atas (kode barang)
> 'disambung format tahun YY didahului delimiter dash ( - )
> 'disambung hasil vlookup untuk ambil dari kolom i tabel
> yang bawah (kode tanggal)
> 'disambung format kode digit dengan struktur format hasil
> vlookup untuk ambil dari kolom i tabel yang atas (kode digit)
> 'didahului delimiter dash ( - )
> .cells(2).value= "'" _
> & evaluate( "=vlookup(""" & left(scode,lchar-1) &
> """,g3:h8,2,0)" ) _
> & format( sdate , "-YY" ) _
> & evaluate( "=vlookup(" & sdate & ", h12:i18 , 2 , 0
> )" ) _
> & format( mid( scode , lchar , 9 ) , "-" & evaluate(
> "=vlookup(""" & left(scode,lchar-1) & """,g3:i8,3,0)" ) )
> end with
> end sub
>
> Kemudian, pada event change milik worksheet terkait, diisi baris kode
> seperti di-imil yang lalu, yang bunyinya begini :
> dim rng as range,lRow as long
> if not intersect( target,range("c:c") ) is nothing then 'cek yang
> berubah beririsan dengan kolom C
> application.enableevents=false 'cegah Excel untuk responsif
> terhadap perilaku
> on error resume next 'lewati error yang terjadi
> for each rng in intersect( target,range("c:c") ) 'di setiap
> cells yang berubah di kolom C
> lrow=rng.row 'simpan baris
> cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value
> 'isi kolom D
> if err.number=0 then 'kolom D terisi dengan baik ?
> cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value
> 'isi kolom B
> endif 'selesai cek kolom D terisi dengan baik
> err.clear 'hapus error yang terjadi
> next rng 'ke range yang berubah berikutnya
> on error goto 0 'kembalikan setting trap error ke
> default
> application.enableevents=true 'excel boleh responsif lagi
> endif 'selesai cek
>
> tapi, ganti *bagian yang merah *dengan baris kode memanggil prosedur
> TransformCode dengan menyertakan range yang diproses, yaitu range tanggal
> inputan dan kode inputan (1 baris x 2 kolom) seperti bergini :
> transformcode cells(lrow,3).offset(0,-1).resize(1,2)
> yang bahasa manusianya :
> "bi pibi, suruh anak buahmu si transformcode kerja ye. bi, kamu bawa
> range yang bisa kamu ambil sendiri ngikutin arahanku ini,
> 1. kamu ke kolom C lalu jalan sampe baris yang kuproses ini (sambil
> nyerahin nota ke pibi yang isinya nomer baris Excel)
> [ cells(lrow,3) ] (lrow adalah lembaran nota yang diserahkan)
> 2. kalo dah nemu, kamu pindah ke kolom sebelumnya (berarti geser ke kiri
> 1 kolom) tapi tetep dibaris itu ya
> [ .offset( 0 , -1 ) ] (kalau kolom, ke kanan itu ples, dan ke kiri
> itu min)
> 3. terus, karungin tuh range, mulai tempatmu itu, sampai kamu dapetin 2
> kolom. Tapi cuman sebaris tempatmu doink ya
> [ .resize( 1 , 2 ) ]
> nah.. kalo dah penuh tuh karung, segera ke tempatnya si transformcode.
> Dia bakal minta syarat tuh kalo disuruh.
> Kalo dia minta syarat, kasihin tuh karung. Kamu harus nungguin dia sampai
> selesai ya. Kalo dah selesai, lapor kesini."
>
> Catatan :
> a. kode barang baru diset untuk maksimal diawali oleh 5 karakter bukan
> angka. Silakan dikembangkan dan disesuaikan sendiri.
> b. pencegahan kesalahan input tanggal (tidak bertipe datetime dan tidak
> bisa dijadikan datetime yang benar) ditambahkan sendiri.
> c. inputan tanggal (bertipe datetime) atau kode yang tidak ada dalam
> daftar, silakan dicegah atau diberi proses sendiri.
> d. pengubahan letak daftar-daftar, penambahan atau pengurangan isi dalam
> daftar, dan kesesuaian tipe data dalam daftar, silakan dilakukan
> penyesuaian di dalam baris-baris kode di atas secara mandiri.
> e. proses yang dipicu bukan oleh pengubahan nilai kolom C atau beserta
> kolom lainnya, silakan disesuaikan sendiri baris kodenya.
> f. pengembangkan dan penyesuaian dengan permasalahan yang mirip tetapi
> tidak sama datanya atau strukturnya, silakan dilakukan secara setahap demi
> setahap secara mandiri.
>
> Moga-moga gak error ya..
> Kalo error, silakan dilacak dan dicari solusinya per penyebab error.
>
>
> btw,
> kenapa kasusnya selalu mengganti nilai inputan user ? kok gak ditulis di
> kolom lain saja ? bukankah malah akan ada informasi dan bukti bahwa user
> pernah mengisi kurang tepat (salah ketik atau seklian struktur isiannya
> keliru) kalau hasil diletakkan di kolom lain.
> Dan juga, bisa tanpa VBA.
> Moga-moga bukan karena pengen tampak keren dengan begitu di-input langsung
> ganti... Soale, dikuatirkan malah nanti jadi masalah...
> Kalo jadi menimbulkan masalah, jadi gak keren lagi dah...
> Moga-moga...
>
> Wa'alaikumussalam wr wb
> Kid
>
>
>
>
> 2015-11-28 14:49 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr.Wb.
>
> Dear All,
> Saya sedang mencoba untuk membuat kode VBA dan mohon bantuannya untuk
> dapat membuat kode VBA untuk format cell secara otomatis dimana jika
> seandainya pada kolom Tanggal terdapat tanggal 1 jan 2016 dan pada kolom
> Nomer Kode diketikan "SD1", maka akan secara otomatis menjadi
> "SD002-1601-0001" (SD002 = Kode Barang, 16 =Kode Tahun , 02=Kode Tanggal,
> 0001 =Kode Digit).
>
> Dan untuk lebih jelasnya saya lampirkan filenya.
> Terima Kasih sebelumnya.
>
> Salam
>
> Edo
>
>
>
>
>
>

Sun Nov 29, 2015 9:44 pm (PST) . Posted by:

"Edo Hanggoro" edo_hanggoro

Dear All,
Terima kasih atas bantuannya dan saya sudah coba dan tidak ada masalah.Ada beberapa hal yang ingin saya ketahui yaitu :

- Di awal format terdapat tanda petik satu ('),apa fungsi dari tanda tersebut?
- Saya mencoba untuk menghilangkan  tanda petik satu (') dengan menghapus bagian " ' " tetapi mengapa hasilnya masih tetap ada tanda (').

- .cells(2).value= "'" _
                     & evaluate( "=vlookup(""" & left(scode,lchar-1) & """,g3:h8,2,0)"    ) _
                     & format( sdate , "-YY" ) _
                     & evaluate( "=vlookup(" & sdate & ", h12:i18 , 2 , 0 )" ) _
                     & format( mid( scode , lchar , 9 ) , "-" & evaluate( "=vlookup(""" & left(scode,lchar-1) & """,g3:i8,3,0)"  ) )     end with

- Jika seandainya untuk table array dari fungsi vlookup tersebut akan diambil dari worksheet lain (misal dari Sheet 2) bagaimana penulisannya di kodenya?

Terima kasihSalam

Edo


On Sunday, November 29, 2015 8:35 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Hai Edo,

Prosedur TransformCode nya sudah dibuat ya. Sebaiknya diletakkan di general module agar bisa digunakan oleh prosedur lainnya, termasuk prosedur-prosedur events milik sheet manapun dan sebagainya.

Kemudian, cara memanggil prosedur nya diperbaiki. Kalau sempet, jalan-jalanlah ke blog milis tentang hal ini disini, yang ada bagian tentang cara memanggil prosedur lain dari sebuah prosedur.

Pada kasus Anda,
berikut ini yang Anda buat :
  Cells(lRow, 3).Value = TransformCode.Cells(lRow, 3).Offset(0, -1).Resize(1, 2)
ini yang ada diimil saya tempo lalu :
    transformcode cells(lrow,3).offset(0,-1).resize(1,2)

dan saya rasa jelas bahwa :

tapi, ganti bagian yang merah dengan
menunjukkan bahwa bagian yang berbunyi :
               cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value       'isi kolom D
               if err.number=0 then         'kolom D terisi dengan baik ?
                   cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value    'isi kolom B
               endif    'selesai cek kolom D terisi dengan baik
harus diganti alias HAPUS bagian merah tersebut dan tulis baris kode berikut :
    transformcode cells(lrow,3).offset(0,-1).resize(1,2)

Ada baiknya jika tidak langsung terfokus kepada baris-baris kode nya saja, tetapi runut dari awal imil sampai akhir imil disempatkan ditelaah dengan tartil.

Wassalamu'alaikum wr wb
Kid

2015-11-29 8:59 GMT+07:00 Edo Hanggoro Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Mr. Kid,Assalamuallaikum Wr.Wb.
Terima kasih banyak atas bantuanya, tetapi saya masih mendapatkan kesulitan dalam melakukan proses pemanggilan transform code-nya dan selalu error.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range, lRow As Long
    If Not Intersect(Target, Range("C:C")) Is Nothing Then      'cek yang berubah beririsan dengan kolom C
        Application.EnableEvents = False   'cegah Excel untuk responsif terhadap perilaku
        On Error Resume Next           'lewati error yang terjadi
        For Each rng In Intersect(Target, Range("C:C"))   'di setiap cells yang berubah di kolom C
               lRow = rng.Row      'simpan baris
                 Cells(lRow, 3).Value = TransformCode.Cells(lRow, 3).Offset(0, -1).Resize(1, 2)
        Next rng    'ke range yang berubah berikutnya
        On Error GoTo 0            'kembalikan setting trap error ke default
        Application.EnableEvents = True   'excel boleh responsif lagi
    End If  'selesai cek
End Sub

Saya dapatkan error di bagian yang merah tersebut. Kira-kira kesalahannya ada dimana ya?
Mohon bantuannya sekali lagi.
Terima kasih
Edo

On Saturday, November 28, 2015 10:00 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Hai Edo,

*** sesuaikan dengan keadaan setempat jika berbeda dengan preview file lampiran milik Pak Edo
Pada sebuah general module, buat prosedur berikut : (misal diberi nama TransformCode)
public sub TransformCode( rngProc as range )
    dim lChar as long, sDate as string, sCode as string

    with rngproc    'kerja di range inputan rngProc
          sdate=.cells(1).value2      'simpan nilai asli tanggal inputan ke sdate
          scode=.cells(2).value2     'simpan nilai asli kode inputan ke scode
          lchar=1                          'karakter ke-1   -> mulainya proses loop

          'dapatkan angka pertama (max di karakter ke-6 alias ada ruang max 5 karakter untuk header kode)
          do until isnumeric( mid( scode , lchar , 1 ) ) or lchar>6    'cek dah nemu angka belum atau karakter diproses dah lebih dari 6     
                  lchar=lchar+1        'pindah ke karakter berikutnya
          loop    'ke proses loop dengan nilai karakter yang baru
         
          'tulis ke cells ke-2 dari inputan (posisi cell kode)
               'diawali petik satu ( ' )
               'disambung hasil vlookup untuk ambil dari kolom H tabel yang atas (kode barang)
               'disambung format tahun YY didahului delimiter dash ( - )
               'disambung hasil vlookup untuk ambil dari kolom i tabel yang bawah (kode tanggal)
               'disambung format kode digit dengan struktur format hasil vlookup untuk ambil dari kolom i tabel yang atas (kode digit)
                            'didahului delimiter dash ( - )
          .cells(2).value= "'" _
                     & evaluate( "=vlookup(""" & left(scode,lchar-1) & """,g3:h8,2,0)"    ) _
                     & format( sdate , "-YY" ) _
                     & evaluate( "=vlookup(" & sdate & ", h12:i18 , 2 , 0 )" ) _
                     & format( mid( scode , lchar , 9 ) , "-" & evaluate( "=vlookup(""" & left(scode,lchar-1) & """,g3:i8,3,0)"  ) )     end with

end sub

Kemudian, pada event change milik worksheet terkait, diisi baris kode seperti di-imil yang lalu, yang bunyinya begini :
    dim rng as range,lRow as long
    if not intersect( target,range("c:c") ) is nothing then     'cek yang berubah beririsan dengan kolom C
        application.enableevents=false     'cegah Excel untuk responsif terhadap perilaku
        on error resume next           'lewati error yang terjadi
        for each rng in intersect( target,range("c:c") )  'di setiap cells yang berubah di kolom C
               lrow=rng.row        'simpan baris
               cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value       'isi kolom D
               if err.number=0 then         'kolom D terisi dengan baik ?
                   cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value    'isi kolom B
               endif    'selesai cek kolom D terisi dengan baik
               err.clear   'hapus error yang terjadi
        next rng    'ke range yang berubah berikutnya
        on error goto 0            'kembalikan setting trap error ke default
        application.enableevents=true     'excel boleh responsif lagi
    endif   'selesai cek

tapi, ganti bagian yang merah dengan baris kode memanggil prosedur TransformCode dengan menyertakan range yang diproses, yaitu range tanggal inputan dan kode inputan (1 baris x 2 kolom) seperti bergini :
       transformcode cells(lrow,3).offset(0,-1).resize(1,2)
yang bahasa manusianya :
"bi pibi, suruh anak buahmu si transformcode kerja ye. bi, kamu bawa range yang bisa kamu ambil sendiri ngikutin arahanku ini,
 1. kamu ke kolom C lalu jalan sampe baris yang kuproses ini (sambil nyerahin nota ke pibi yang isinya nomer baris Excel)
     [ cells(lrow,3) ]  (lrow adalah lembaran nota yang diserahkan)
 2. kalo dah nemu, kamu pindah ke kolom sebelumnya (berarti geser ke kiri 1 kolom) tapi tetep dibaris itu ya
     [ .offset( 0 , -1 ) ] (kalau kolom, ke kanan itu ples, dan ke kiri itu min)
 3. terus, karungin tuh range, mulai tempatmu itu, sampai kamu dapetin 2 kolom. Tapi cuman sebaris tempatmu doink ya
     [ .resize( 1 , 2 ) ]
 nah.. kalo dah penuh tuh karung, segera ke tempatnya si transformcode. Dia bakal minta syarat tuh kalo disuruh.
 Kalo dia minta syarat, kasihin tuh karung. Kamu harus nungguin dia sampai selesai ya. Kalo dah selesai, lapor kesini."

Catatan :
a. kode barang baru diset untuk maksimal diawali oleh 5 karakter bukan angka. Silakan dikembangkan dan disesuaikan sendiri.
b. pencegahan kesalahan input tanggal (tidak bertipe datetime dan tidak bisa dijadikan datetime yang benar) ditambahkan sendiri.
c. inputan tanggal (bertipe datetime) atau kode yang tidak ada dalam daftar, silakan dicegah atau diberi proses sendiri.
d. pengubahan letak daftar-daftar, penambahan atau pengurangan isi dalam daftar, dan kesesuaian tipe data dalam daftar, silakan dilakukan penyesuaian di dalam baris-baris kode di atas secara mandiri.
e. proses yang dipicu bukan oleh pengubahan nilai kolom C atau beserta kolom lainnya, silakan disesuaikan sendiri baris kodenya.
f. pengembangkan dan penyesuaian dengan permasalahan yang mirip tetapi tidak sama datanya atau strukturnya, silakan dilakukan secara setahap demi setahap secara mandiri.

Moga-moga gak error ya..
Kalo error, silakan dilacak dan dicari solusinya per penyebab error.

btw,
kenapa kasusnya selalu mengganti nilai inputan user ? kok gak ditulis di kolom lain saja ? bukankah malah akan ada informasi dan bukti bahwa user pernah mengisi kurang tepat (salah ketik atau seklian struktur isiannya keliru) kalau hasil diletakkan di kolom lain.
Dan juga, bisa tanpa VBA.
Moga-moga bukan karena pengen tampak keren dengan begitu di-input langsung ganti... Soale, dikuatirkan malah nanti jadi masalah...
Kalo jadi menimbulkan masalah, jadi gak keren lagi dah...
Moga-moga...

Wa'alaikumussalam wr wb
Kid

2015-11-28 14:49 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalamualaikum Wr.Wb.

Dear All,Saya sedang mencoba untuk membuat kodeVBA dan mohon bantuannya untuk dapat membuat kode VBA untuk formatcell secara otomatis dimana jika seandainya pada kolom Tanggal terdapat tanggal1 jan 2016 dan pada kolom Nomer Kode diketikan "SD1", maka akansecara otomatis menjadi "SD002-1601-0001" (SD002 = Kode Barang, 16=Kode Tahun , 02=Kode Tanggal, 0001 =Kode Digit).

Dan untuk lebih jelasnya saya lampirkan filenya.
Terima Kasih sebelumnya.

Salam

Edo


#yiv4592230432 #yiv4592230432 -- #yiv4592230432ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4592230432 #yiv4592230432ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4592230432 #yiv4592230432ygrp-mkp #yiv4592230432hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4592230432 #yiv4592230432ygrp-mkp #yiv4592230432ads {margin-bottom:10px;}#yiv4592230432 #yiv4592230432ygrp-mkp .yiv4592230432ad {padding:0 0;}#yiv4592230432 #yiv4592230432ygrp-mkp .yiv4592230432ad p {margin:0;}#yiv4592230432 #yiv4592230432ygrp-mkp .yiv4592230432ad a {color:#0000ff;text-decoration:none;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ygrp-lc {font-family:Arial;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ygrp-lc #yiv4592230432hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ygrp-lc .yiv4592230432ad {margin-bottom:10px;padding:0 0;}#yiv4592230432 #yiv4592230432actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4592230432 #yiv4592230432activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4592230432 #yiv4592230432activity span {font-weight:700;}#yiv4592230432 #yiv4592230432activity span:first-child {text-transform:uppercase;}#yiv4592230432 #yiv4592230432activity span a {color:#5085b6;text-decoration:none;}#yiv4592230432 #yiv4592230432activity span span {color:#ff7900;}#yiv4592230432 #yiv4592230432activity span .yiv4592230432underline {text-decoration:underline;}#yiv4592230432 .yiv4592230432attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4592230432 .yiv4592230432attach div a {text-decoration:none;}#yiv4592230432 .yiv4592230432attach img {border:none;padding-right:5px;}#yiv4592230432 .yiv4592230432attach label {display:block;margin-bottom:5px;}#yiv4592230432 .yiv4592230432attach label a {text-decoration:none;}#yiv4592230432 blockquote {margin:0 0 0 4px;}#yiv4592230432 .yiv4592230432bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4592230432 .yiv4592230432bold a {text-decoration:none;}#yiv4592230432 dd.yiv4592230432last p a {font-family:Verdana;font-weight:700;}#yiv4592230432 dd.yiv4592230432last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4592230432 dd.yiv4592230432last p span.yiv4592230432yshortcuts {margin-right:0;}#yiv4592230432 div.yiv4592230432attach-table div div a {text-decoration:none;}#yiv4592230432 div.yiv4592230432attach-table {width:400px;}#yiv4592230432 div.yiv4592230432file-title a, #yiv4592230432 div.yiv4592230432file-title a:active, #yiv4592230432 div.yiv4592230432file-title a:hover, #yiv4592230432 div.yiv4592230432file-title a:visited {text-decoration:none;}#yiv4592230432 div.yiv4592230432photo-title a, #yiv4592230432 div.yiv4592230432photo-title a:active, #yiv4592230432 div.yiv4592230432photo-title a:hover, #yiv4592230432 div.yiv4592230432photo-title a:visited {text-decoration:none;}#yiv4592230432 div#yiv4592230432ygrp-mlmsg #yiv4592230432ygrp-msg p a span.yiv4592230432yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4592230432 .yiv4592230432green {color:#628c2a;}#yiv4592230432 .yiv4592230432MsoNormal {margin:0 0 0 0;}#yiv4592230432 o {font-size:0;}#yiv4592230432 #yiv4592230432photos div {float:left;width:72px;}#yiv4592230432 #yiv4592230432photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4592230432 #yiv4592230432photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4592230432 #yiv4592230432reco-category {font-size:77%;}#yiv4592230432 #yiv4592230432reco-desc {font-size:77%;}#yiv4592230432 .yiv4592230432replbq {margin:4px;}#yiv4592230432 #yiv4592230432ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4592230432 #yiv4592230432ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4592230432 #yiv4592230432ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4592230432 #yiv4592230432ygrp-mlmsg select, #yiv4592230432 input, #yiv4592230432 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4592230432 #yiv4592230432ygrp-mlmsg pre, #yiv4592230432 code {font:115% monospace;}#yiv4592230432 #yiv4592230432ygrp-mlmsg * {line-height:1.22em;}#yiv4592230432 #yiv4592230432ygrp-mlmsg #yiv4592230432logo {padding-bottom:10px;}#yiv4592230432 #yiv4592230432ygrp-msg p a {font-family:Verdana;}#yiv4592230432 #yiv4592230432ygrp-msg p#yiv4592230432attach-count span {color:#1E66AE;font-weight:700;}#yiv4592230432 #yiv4592230432ygrp-reco #yiv4592230432reco-head {color:#ff7900;font-weight:700;}#yiv4592230432 #yiv4592230432ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ov li a {font-size:130%;text-decoration:none;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4592230432 #yiv4592230432ygrp-sponsor #yiv4592230432ov ul {margin:0;padding:0 0 0 8px;}#yiv4592230432 #yiv4592230432ygrp-text {font-family:Georgia;}#yiv4592230432 #yiv4592230432ygrp-text p {margin:0 0 1em 0;}#yiv4592230432 #yiv4592230432ygrp-text tt {font-size:120%;}#yiv4592230432 #yiv4592230432ygrp-vital ul li:last-child {border-right:none !important;}#yiv4592230432

Sun Nov 29, 2015 10:19 pm (PST) . Posted by:

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

Hai Edo,

Pembarian tanda petik satu ( ' ) dalam penulisan suatu nilai ke sebuah
cells dimaksudkan agar nilai yang ditulis ke cells tersebut akan
diperlakukan cells Excel sebagai data bertipe text.

Merujuk ke sheet lain, tambahkan nama sheet dengan struktur 'nama sheetnya'!
sebelum alamat range yang dirujuk.

Wassalam,
Kid

2015-11-30 12:22 GMT+07:00 Edo Hanggoro Edo_Hanggoro@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear All,
>
> Terima kasih atas bantuannya dan saya sudah coba dan tidak ada masalah.
> Ada beberapa hal yang ingin saya ketahui yaitu :
>
> - Di awal format terdapat tanda petik satu ('),apa fungsi dari tanda
> tersebut?
> - Saya mencoba untuk menghilangkan tanda petik satu (') dengan
> menghapus bagian " ' " tetapi mengapa hasilnya masih tetap ada tanda (').
> - .cells(2).value= "'" _
> & evaluate( "=vlookup(""" &
> left(scode,lchar-1) & """,g3:h8,2,0)" ) _
> & format( sdate , "-YY" ) _
> & evaluate( "=vlookup(" & sdate & ", h12:i18 ,
> 2 , 0 )" ) _
> & format( mid( scode , lchar , 9 ) , "-" &
> evaluate( "=vlookup(""" & left(scode,lchar-1) & """,g3:i8,3,0)" ) )
> end with
> - Jika seandainya untuk table array dari fungsi vlookup tersebut
> akan diambil dari worksheet lain (misal dari Sheet 2) bagaimana
> penulisannya di kodenya?
>
>
> Terima kasih
> Salam
>
> Edo
>
>
>
> On Sunday, November 29, 2015 8:35 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Edo,
>
> Prosedur TransformCode nya sudah dibuat ya. Sebaiknya diletakkan di
> general module agar bisa digunakan oleh prosedur lainnya, termasuk
> prosedur-prosedur events milik sheet manapun dan sebagainya.
>
> Kemudian, cara memanggil prosedur nya diperbaiki. Kalau sempet,
> jalan-jalanlah ke blog milis tentang hal ini disini
> <http://b-excel.blogspot.co.id/2013/07/belajarvba-005-procedure-seri-1.html>,
> yang ada bagian tentang cara memanggil prosedur lain dari sebuah prosedur.
>
> Pada kasus Anda,
> berikut ini yang Anda buat :
> Cells(lRow, 3).Value = TransformCode.Cells(lRow, 3).Offset(0,
> -1).Resize(1, 2)
> ini yang ada diimil saya tempo lalu :
> transformcode cells(lrow,3).offset(0,-1).resize(1,2)
>
> dan saya rasa jelas bahwa :
>
> tapi, ganti *bagian yang merah *dengan
>
> menunjukkan bahwa bagian yang berbunyi :
> cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value
> 'isi kolom D
> if err.number=0 then 'kolom D terisi dengan baik ?
> cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value
> 'isi kolom B
> endif 'selesai cek kolom D terisi dengan baik
> harus diganti alias HAPUS bagian merah tersebut dan tulis baris kode
> berikut :
> transformcode cells(lrow,3).offset(0,-1).resize(1,2)
>
> Ada baiknya jika tidak langsung terfokus kepada baris-baris kode nya saja,
> tetapi runut dari awal imil sampai akhir imil disempatkan ditelaah dengan
> tartil.
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2015-11-29 8:59 GMT+07:00 Edo Hanggoro Edo_Hanggoro@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr. Kid,
> Assalamuallaikum Wr.Wb.
>
> Terima kasih banyak atas bantuanya, tetapi saya masih mendapatkan
> kesulitan dalam melakukan proses pemanggilan transform code-nya dan selalu
> error.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim rng As Range, lRow As Long
> If Not Intersect(Target, Range("C:C")) Is Nothing Then 'cek yang
> berubah beririsan dengan kolom C
> Application.EnableEvents = False 'cegah Excel untuk responsif
> terhadap perilaku
> On Error Resume Next 'lewati error yang terjadi
> For Each rng In Intersect(Target, Range("C:C")) 'di setiap cells
> yang berubah di kolom C
> lRow = rng.Row 'simpan baris
> Cells(lRow, 3).Value = TransformCode.Cells(lRow,
> 3).Offset(0, -1).Resize(1, 2)
> Next rng 'ke range yang berubah berikutnya
> On Error GoTo 0 'kembalikan setting trap error ke
> default
> Application.EnableEvents = True 'excel boleh responsif lagi
> End If 'selesai cek
> End Sub
>
> Saya dapatkan error di bagian yang merah tersebut. Kira-kira kesalahannya
> ada dimana ya?
> Mohon bantuannya sekali lagi.
>
> Terima kasih
>
> Edo
>
>
>
>
> On Saturday, November 28, 2015 10:00 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Edo,
>
> *** sesuaikan dengan keadaan setempat jika berbeda dengan preview file
> lampiran milik Pak Edo
> Pada sebuah general module, buat prosedur berikut : (misal diberi nama
> TransformCode)
> public sub TransformCode( rngProc as range )
> dim lChar as long, sDate as string, sCode as string
>
> with rngproc 'kerja di range inputan rngProc
> sdate=.cells(1).value2 'simpan nilai asli tanggal inputan
> ke sdate
> scode=.cells(2).value2 'simpan nilai asli kode inputan ke
> scode
> lchar=1 'karakter ke-1 -> mulainya
> proses loop
>
> 'dapatkan angka pertama (max di karakter ke-6 alias ada ruang
> max 5 karakter untuk header kode)
> do until isnumeric( mid( scode , lchar , 1 ) ) or lchar>6
> 'cek dah nemu angka belum atau karakter diproses dah lebih dari 6
> lchar=lchar+1 'pindah ke karakter berikutnya
> loop 'ke proses loop dengan nilai karakter yang baru
>
> 'tulis ke cells ke-2 dari inputan (posisi cell kode)
> 'diawali petik satu ( ' )
> 'disambung hasil vlookup untuk ambil dari kolom H tabel
> yang atas (kode barang)
> 'disambung format tahun YY didahului delimiter dash ( - )
> 'disambung hasil vlookup untuk ambil dari kolom i tabel
> yang bawah (kode tanggal)
> 'disambung format kode digit dengan struktur format hasil
> vlookup untuk ambil dari kolom i tabel yang atas (kode digit)
> 'didahului delimiter dash ( - )
> .cells(2).value= "'" _
> & evaluate( "=vlookup(""" & left(scode,lchar-1) &
> """,g3:h8,2,0)" ) _
> & format( sdate , "-YY" ) _
> & evaluate( "=vlookup(" & sdate & ", h12:i18 , 2 , 0
> )" ) _
> & format( mid( scode , lchar , 9 ) , "-" & evaluate(
> "=vlookup(""" & left(scode,lchar-1) & """,g3:i8,3,0)" ) )
> end with
> end sub
>
> Kemudian, pada event change milik worksheet terkait, diisi baris kode
> seperti di-imil yang lalu, yang bunyinya begini :
> dim rng as range,lRow as long
> if not intersect( target,range("c:c") ) is nothing then 'cek yang
> berubah beririsan dengan kolom C
> application.enableevents=false 'cegah Excel untuk responsif
> terhadap perilaku
> on error resume next 'lewati error yang terjadi
> for each rng in intersect( target,range("c:c") ) 'di setiap
> cells yang berubah di kolom C
> lrow=rng.row 'simpan baris
> cells(lrow,4).value=cells(lrow,2).value*cells(lrow,3).value
> 'isi kolom D
> if err.number=0 then 'kolom D terisi dengan baik ?
> cells(lrow,2).value=cells(lrow,2).value-cells(lrow,4).value
> 'isi kolom B
> endif 'selesai cek kolom D terisi dengan baik
> err.clear 'hapus error yang terjadi
> next rng 'ke range yang berubah berikutnya
> on error goto 0 'kembalikan setting trap error ke
> default
> application.enableevents=true 'excel boleh responsif lagi
> endif 'selesai cek
>
> tapi, ganti *bagian yang merah *dengan baris kode memanggil prosedur
> TransformCode dengan menyertakan range yang diproses, yaitu range tanggal
> inputan dan kode inputan (1 baris x 2 kolom) seperti bergini :
> transformcode cells(lrow,3).offset(0,-1).resize(1,2)
> yang bahasa manusianya :
> "bi pibi, suruh anak buahmu si transformcode kerja ye. bi, kamu bawa
> range yang bisa kamu ambil sendiri ngikutin arahanku ini,
> 1. kamu ke kolom C lalu jalan sampe baris yang kuproses ini (sambil
> nyerahin nota ke pibi yang isinya nomer baris Excel)
> [ cells(lrow,3) ] (lrow adalah lembaran nota yang diserahkan)
> 2. kalo dah nemu, kamu pindah ke kolom sebelumnya (berarti geser ke kiri
> 1 kolom) tapi tetep dibaris itu ya
> [ .offset( 0 , -1 ) ] (kalau kolom, ke kanan itu ples, dan ke kiri
> itu min)
> 3. terus, karungin tuh range, mulai tempatmu itu, sampai kamu dapetin 2
> kolom. Tapi cuman sebaris tempatmu doink ya
> [ .resize( 1 , 2 ) ]
> nah.. kalo dah penuh tuh karung, segera ke tempatnya si transformcode.
> Dia bakal minta syarat tuh kalo disuruh.
> Kalo dia minta syarat, kasihin tuh karung. Kamu harus nungguin dia sampai
> selesai ya. Kalo dah selesai, lapor kesini."
>
> Catatan :
> a. kode barang baru diset untuk maksimal diawali oleh 5 karakter bukan
> angka. Silakan dikembangkan dan disesuaikan sendiri.
> b. pencegahan kesalahan input tanggal (tidak bertipe datetime dan tidak
> bisa dijadikan datetime yang benar) ditambahkan sendiri.
> c. inputan tanggal (bertipe datetime) atau kode yang tidak ada dalam
> daftar, silakan dicegah atau diberi proses sendiri.
> d. pengubahan letak daftar-daftar, penambahan atau pengurangan isi dalam
> daftar, dan kesesuaian tipe data dalam daftar, silakan dilakukan
> penyesuaian di dalam baris-baris kode di atas secara mandiri.
> e. proses yang dipicu bukan oleh pengubahan nilai kolom C atau beserta
> kolom lainnya, silakan disesuaikan sendiri baris kodenya.
> f. pengembangkan dan penyesuaian dengan permasalahan yang mirip tetapi
> tidak sama datanya atau strukturnya, silakan dilakukan secara setahap demi
> setahap secara mandiri.
>
> Moga-moga gak error ya..
> Kalo error, silakan dilacak dan dicari solusinya per penyebab error.
>
>
> btw,
> kenapa kasusnya selalu mengganti nilai inputan user ? kok gak ditulis di
> kolom lain saja ? bukankah malah akan ada informasi dan bukti bahwa user
> pernah mengisi kurang tepat (salah ketik atau seklian struktur isiannya
> keliru) kalau hasil diletakkan di kolom lain.
> Dan juga, bisa tanpa VBA.
> Moga-moga bukan karena pengen tampak keren dengan begitu di-input langsung
> ganti... Soale, dikuatirkan malah nanti jadi masalah...
> Kalo jadi menimbulkan masalah, jadi gak keren lagi dah...
> Moga-moga...
>
> Wa'alaikumussalam wr wb
> Kid
>
>
>
>
> 2015-11-28 14:49 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum Wr.Wb.
>
> Dear All,
> Saya sedang mencoba untuk membuat kode VBA dan mohon bantuannya untuk
> dapat membuat kode VBA untuk format cell secara otomatis dimana jika
> seandainya pada kolom Tanggal terdapat tanggal 1 jan 2016 dan pada kolom
> Nomer Kode diketikan "SD1", maka akan secara otomatis menjadi
> "SD002-1601-0001" (SD002 = Kode Barang, 16 =Kode Tahun , 02=Kode Tanggal,
> 0001 =Kode Digit).
>
> Dan untuk lebih jelasnya saya lampirkan filenya.
> Terima Kasih sebelumnya.
>
> Salam
>
> Edo
>
>
>
>
>
>
>
>
>

Sun Nov 29, 2015 11:09 am (PST) . Posted by:

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

Wa'alaikumussalam wr wb

Sambil menunggu file lampiran kirimannya mas Dody...

Proses entry data yang dituntut unique bisa diperoleh dengan banyak cara.
Salah satunya adalah dengan memanfaatkan data validation list. Data
validation list patut dipertimbangkan sebagai salah satu opsi untuk kasus
semacam ini, walaupun fitur ini memiliki banyak keterbatasan, karena :
a. dapat menampilkan daftar pilihan kepada user, sehingga nilai yang
di-entry bisa lebih standar.
b. cukup sederhana dan mudah untuk dipelajari dan disusun.

Data validation list pada kasus seperti ini dituntut untuk menampilkan
daftar pilihan yang belum pernah digunakan oleh user pada records lain.
Jika ingin mengetahui bagaimana cara memanfaatkan data validation list pada
kasus seperti ini, silakan jalan-jalan kesini
<http://excel-mr-kid.blogspot.co.id/2015/11/data-validation-list-unique-input.html>
.

Selamat mencoba...

Wassalamu'alaikum wr wb
Kid

2015-11-28 10:44 GMT+07:00 Dody Irawan dodyirawan84@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum wr. wb.
>
>
> Mohon bantuan kepada semua master excel.
>
> bagaimana cara menghindari dobel input (misalnya NIP) pada form yang sudah
> saya buat ini.
>
> terimakasih.
>
> Semoga ilmunya semakin bermanfaat....
>
>
> Wassalamualaikum wr. wb.
>
> --- Mods ---
> File lampiran yang melebihi 250KB dilepas dari email. Penanya silakan
> melampirkan ulang file lampiran yang berisi contoh data dan telah
> diusahakan maksimal 250KB dengan cara me-reply email ini.
> ----------------
>
>
>

Sun Nov 29, 2015 3:42 pm (PST) . Posted by:

"Nang Agus"

Mungkinkah seperti ini?



2015-11-29 12:52 GMT+07:00 'jhony.excel' jhony.excel@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat siang semua,
>
> Saya mau tanya cara membuat daftar cicilan.
>
> Contoh
>
> harga mobil alphard cash Rp 1.500.000.000
> Yg ditanyakan bagaimana membuat daftar cicilan memakai dp dan beeapa
> besarnya dp yg dicicil serta berapa cicilan sisanya setelah dikurangi dp
>
> Harga cash 1.500.000.000
> Kredit selama (tenor) 36 bulan dgn Dp 10 % dicicil selama 10 x
>
>
> Harga = Rp ..........
> Dp 10% = Rp .........
>
> Cicilan Dp 1 = Rp ........
>
> S/d
>
> Cicilan Dp 10 = Rp .........
>
>
> Harga setelah Dp = Rp .............
>
> Diangsur selama 36 x
>
> Angsuran 1 = Rp ............
>
> S/d
>
> Angsuran 36 = Rp ............
>
>
> Mohon pencerahannya untuk pembuatan daftar cicilan dan angsurannya.
>
> Ditunggu pencerahannya
> Terima kasih sebelumnya
>
>
>

Sun Nov 29, 2015 5:33 pm (PST) . Posted by:

"Yudi Dwiyono"

Dear Mr Kid,

Boleh saya tahu fungsi sumproduct dan mengapa di kali 1. Biar tambah ilmu
saja nih...
Thanks
Regards,
Yudi
---------- Forwarded message ----------
From: Yudi Dwiyono <yudidwiyono@gmail.com>
Date: 2015-11-28 9:29 GMT+07:00
Subject: Re: menghasil kan level persen
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>

Its working .....thanks a lot mr kid
Regards
Yudi

On Friday, November 27, 2015, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Hai Yudi,
>
> Coba begini :
> =SumProduct( (d9:d11>=b9:b11) * 1 ) / CountA( a9:a11 )
>
> Regards

> Kid
>
>
>
>
> 2015-11-27 11:19 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Dear Masters,
>>
>> Mohon bantuan untuk formula aga dapa menghasil kan service level yang
benar
>>
>> saya mempunyai contoh seperti terlampir
>> sekali lagi mohon bantuannya ya para master.
>> Thanks.
>>
>> Regards,
>> Yudi
>>
>
>

Sun Nov 29, 2015 9:42 pm (PST) . Posted by:

"Yudi Dwiyono"

Dear Para Master,

Case pertama sudah selesai tetapi ada yang ke dua , Mohon bantu solusi
formula tanpa row bantuan, contoh yang di inginkan terlampir...
Thanks.

Regards,
Yudi
---------- Forwarded message ----------
From: Yudi Dwiyono <yudidwiyono@gmail.com>
Date: 2015-11-30 8:18 GMT+07:00
Subject: Fwd: menghasil kan level persen
To: belajar-excel@yahoogroups.com

Dear Mr Kid,

Boleh saya tahu fungsi sumproduct dan mengapa di kali 1. Biar tambah ilmu
saja nih...
Thanks
Regards,
Yudi
---------- Forwarded message ----------
From: Yudi Dwiyono <yudidwiyono@gmail.com>
Date: 2015-11-28 9:29 GMT+07:00
Subject: Re: menghasil kan level persen
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>

Its working .....thanks a lot mr kid
Regards
Yudi

On Friday, November 27, 2015, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Hai Yudi,
>
> Coba begini :
> =SumProduct( (d9:d11>=b9:b11) * 1 ) / CountA( a9:a11 )
>
> Regards

> Kid
>
>
>
>
> 2015-11-27 11:19 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Dear Masters,
>>
>> Mohon bantuan untuk formula aga dapa menghasil kan service level yang
benar
>>
>> saya mempunyai contoh seperti terlampir
>> sekali lagi mohon bantuannya ya para master.
>> Thanks.
>>
>> Regards,
>> Yudi
>>
>
>

Sun Nov 29, 2015 10:40 pm (PST) . Posted by:

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

Hai Yudi,

1. SumProduct
SumProduct : melakukan Sum hasil dari Product alias di-product barulah
di-sum
Sum : menjumlahkan (total) seluruh nilai bertipe numerik yang di-inputkan
Product : mengalikan seluruh nilai bertipe numerik yang di-inputkan

Contoh : ada 2 bijik nilai 4 dan 6 mengisi 2 bijik area input fungsi-fungsi
di bawah ini
kalau Sum doink :
=Sum( 4 , 6 ) hasilnya 10

kalau SumProduct :
=SumProduct( 4 , 6 ) hasilnya 24
karena prosesnya adalah di-product dulu
Product( 4 , 6 ) hasilnya 24
barulah di-Sum
Sum( 24 ) hasilnya 24

Pada kasus Anda, penggunaan SumProduct hanya mengisi 1 bijik area input
alias tidak pakai koma-koma-an. Jadi, hal itu setara dengan contoh berikut :
=Sum( 4 ) hasilnya 4
dan
=SumProduct( 4 ) juga menghasilkan 4
karena Product( 4 ) hasilnya 4 lalu di-sum-ken dengan Sum( hasil product )
alias Sum( 4 ), maka hasilnya 4 sebagai hasil sumproduct

2. ada perkalian dengan 1
Karena :
a. SumProduct bekerja dengan data bertipe numerik.
b. nilai yang dimasukkan sebagai inputan dalam kasus Anda adalah suatu
proses perbandingan yang hasilnya bertipe boolean (true/false)
c. berhubung sumproduct minta syarat poin a, maka poin b harus diubah jadi
numerik, yaitu dengan mengkonversi tipe boolean menjadi numerik.
d. proses konversi tipe data di cells Excel bisa dengan dilakukan operasi
matematis.
e. operasi matematis yang tidak mengubah nilai asli data adalah : (urut
rekomendasi penggunaan)
- perkalian dengan 1
- penjumlahan dengan 0
- pengurangan dengan 0
- pembagian dengan 1
f. direkomendasikan menggunakan perkalian dengan 1 atau penjumlahan dengan
0 karena potensi berubahnya nilai asli data akibat kecenderungan properties
values dari object range akan menggunakan tipe double dibanding decimal.
g. hindari penggunaan konversi melalui pembagian dengan 0 kecuali tidak
dibutuhkan nilai data asli yang exact tetap.

Wassalam,
Kid

2015-11-30 8:18 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Mr Kid,
>
> Boleh saya tahu fungsi sumproduct dan mengapa di kali 1. Biar tambah ilmu
> saja nih...
> Thanks
> Regards,
> Yudi
> ---------- Forwarded message ----------
> From: Yudi Dwiyono <yudidwiyono@gmail.com>
> Date: 2015-11-28 9:29 GMT+07:00
> Subject: Re: menghasil kan level persen
> To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>
>
> Its working .....thanks a lot mr kid
> Regards
> Yudi
>
> On Friday, November 27, 2015, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
> >
> >
> > Hai Yudi,
> >
> > Coba begini :
> > =SumProduct( (d9:d11>=b9:b11) * 1 ) / CountA( a9:a11 )
> >
> > Regards
>
> > Kid
> >
> >
> >
> >
> > 2015-11-27 11:19 GMT+07:00 Yudi Dwiyono yudidwiyono@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
> >>
> >>
> >>
> >> Dear Masters,
> >>
> >> Mohon bantuan untuk formula aga dapa menghasil kan service level yang
> benar
> >>
> >> saya mempunyai contoh seperti terlampir
> >> sekali lagi mohon bantuannya ya para master.
> >> Thanks.
> >>
> >> Regards,
> >> Yudi
> >>
> >
> >
>
>
>

Sun Nov 29, 2015 9:40 pm (PST) . Posted by:

"imam cahyo yuwono"



Assalamu'alaikum wr wbDear Mr Kid
Terima Kasih sekali masukannya dan sudah saya coba namun masih ada kendala1. nomor urut masih belum berjalan, lagi di coba-coba sambil belajar memahami script nya, nomor urut yang tampil di TB 1 merupakan namor lanjutan dari data yang sudah di input
2. tanggal sudah sukses sama link antar text box3. listbox masih belum bisa dan terus diusahakan mungkin ada yang kelewat he.. he...4. yang saya maksud SS FORM File (SCREEN SHOT) format PNG, message box kadang muncul (maklum nyebut SS mantan Gamer).5. niru nya asli ikhlas seikhlas-ikhlasnyanya bukan penuh lagi Mister dah luber kemana-mana tapi tau yang nge upload file yang saya contoh he.. he... he... , saya meniru karena ada kemiripan dengan form yang saya buat
6. ketika tombol simpan di klik not responding masih muncul di tunggu lama banget kalau dipaksa berhenti make task manager yang di input masuk termasuk nomor urut, tapi ga tampil di TB 1 Nomor nya, saya memang menulis script di sheet itu untuk otomatisasi membaca tanggal menjadi bulan dalam bentuk text, dan border otomatis, untuk otomatisasi bulan sih sukses tapi untuk border gagal.7. saya pernah mencoba membuat script otomatasi tanggal jadi text bulan ada dua yanggal yang di coba di rubah tapi ga jalan kalo cuma satu jalan ini scriptnya seklian sama yang bordernya :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
      If Target.Cells.Count = 1 Then
         If Len(Target.Value) > 0 Then
            Target(1, 9).Value = Format(Range("B4").End(xlDown).Value, "mmmm")
         Else
            Target(1, 9).ClearContents
        End If
End If
End If
End Sub

Sub kasihBorder(baris As Integer)

Application.EnableEvents = False
    Dim strCells As String
    strCells = "a" & baris & ":j" & baris
    Sheet3.Activate
    Range(strCells).Select
    Selection.Borders(xlDiagonalDown).linestyle = xlNone
    Selection.Borders(xlDiagonalUp).linestyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .linestyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .linestyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .linestyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .linestyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .linestyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub
mungkin itu masalahnya kalo dipiondah ke module gimana atau di tambah apa scriptnya
maaaf banyak nanya maklum newbie otodidak lagi, kalo punya kamus bahasa VBA untuk excel minta dong he.. he..
terima kasih
Wassalamu'alaikum wr wb

On Friday, November 27, 2015 1:13 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

yaa.... mas Toby lagi gak mau atau gak sempet membuatkan script nya....

0. saya sedang mencoba membuat form input data namun ketika di coba menjadi not responding kesalahannya dimana ya ?
>> coba periksa semua prosedur di dalam workbook, jika ada proses menulis ke suatu worksheet yang worksheet tersebut dipasangi event change, maka proses menulisnya harus berbentuk begini :
application.enableevents=false
'baris-baris untuk menulis ke worksheets
application.enableevents=true

1. no urut otomatis dan tampil ti TB1

>> Asumsinya nomor baris adalah nomor record baru di suatu tabel (misal di sheet Rekap), dan header tabelnya hanya 1 baris, serta tidak ada baris kosong diantara dua record data, buat jadi begini :
a. hapus semua cells diatas header, dikanan tabel, dan di bawah tabel
b. periksa semua script dalam userform, dan hapus semua baris yang tujuan menulis suatu nilai ke TB1
c. buat event initialize di userform, kemudian tambahkan baris ini : (header tabel di sheet rekap mulai di A4)
       tb1.text=sheets("rekap").range("a4").currentregion.rows.count
d. jika diuserform ada tombol save atau new form atau clear form atau yang semacamnya, tambahkan juga baris poin c di event click setiap tombol-tombol itu (di preview tidak bisa lihat VBA, jadi ada userform namanya apa juga tidak tahu. Ada userform apa saja juga tidak tahu).

2. tanggal muncul di TB2
>> Jika tanggalnya pasti tanggal hari ini, maka lakukan hal ini :
    a1. periksa semua script dalam userform, dan hapus semua baris yang tujuan menulis suatu nilai ke TB2
    b1. di event initialize userform, event click tombol save, new form, atau clear form beri baris kode :
           tb2.text=format(date , "YYYY-MM-DD")

>> Jika tanggalnya tidak pasti hari ini, berarti butuh control seperti calendar. Di event click si calendar diisi begini : (pilih salah satu kondisi yang sesuai keadaan setempat, dan sesuaikan nama objectnya juga)
     a2. ketika calendar (misal bernama oCalendar) menjadi object di dalam userform yang sama dengan TB2 :
            tb2.text = format(oCalendar.value, "YYYY-MM-DD")
     b2. ketika calendar (misal bernama oCalendar) berada di userform yang berbeda dengan TB2 (misal di klik sesuatu muncul userform berisi calendar) dan userform yang berisi TB2 bernama myForm, maka di event click si calendar diisi begini :
            myForm.TB2.text = format(oCalendar.value, "YYYY-MM-DD")
      *** jika ada event lain di dalam userform yang menulis ke TB2 dengan nilai dari calendar, ubah juga menjadi seperti a2 atau b2

3. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu
>> untuk TB9 yang nilainya sama dengan TB2, bisa dengan salah satu cara berikut : (pilih salah satu)
     a. di nomor 2 di atas, tambahkan baris yang sama, tetapi untuk menulis ke TB9  (yang di nomor 2 itu kan baru nulis ke TB2 doink)
     b. di event change milik TB2, beri baris kode berikut :
             tb9.text=tb2.text
>> untuk TB10 yang nilainya sama dengan TB3, di event change milik TB3 diberi baris kode :
         tb10.text=tb3.text

4. tampilan listbox gagal terus begitu dengan nomor urut
>> jika listbox menampilkan record yang ada di sheet rekap, begini :
a. set properti listbox supaya bisa menerima banyak kolom. Bila perlu properti columnheads di set true
b. di event initialize userform, event click tombol save, new form, atau clear form beri baris kode : (misal listbox bernama lstRekap)
     dim rng as range
     lstrekap.rowsource=vbnullstring
     set rng=sheets("rekap").range("a4").currentregion.offset(1)
     if rng.rows.count>1 then
         set rng=rng.resize(rng.rows.count-1)
         rng.name="_dtRekap_"    'buat nama range
         lstrekap.rowsource="_dtRekap_"     endif

5. ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di user form
>> ya dibuat saja... kalau mau diletakkan dalam worksheet, insert activex control commandbutton atau insert shape atau insert form2 control button, lalu isi dengan script untuk memanggil userform edit datanya.
 
6. kadang muncul pesan seperti di SS FORM

>> wuah... apalagi ini SS FORM... saya ndak mudeng... mungkin bisa lebih jelas...
>> kalau form error yang biasanya ada tulisannya error runtime, berarti ada baris kode yang kliru atau masih ada object yang aktif bekerja saat akan ditutup. Mungkin form
>> minta disave, silakan tekan yes kalau mau di-save
>> security macro, silakan di enable supaya bisa jalan
>> data connection, silakan di enable supaya data connection bisa dijalankan
>> circular references, silakan diperbaiki cells berformula yang merujuk ke dirinya sendiri secara langsung atau tidak langsung
>> update links, silakan diupdate kalau memang sumber data yang di-link ada
>> gagal refresh query table atau connections, silakan diperbaiki bunyi query ataupun malah definisi connection nya
>> minta password, sila diisi passwordnya
>> tidak bisa di-save, ya jangan disave atau save as jadi file lain
>> pesan di shared dan script VBA tidak bisa dijalankan, ya terima saja, atau jangan di shared workbook
>> file corrupt, dicoba repair, moga-moga tidak apes
>> peringatan adanya personal data, ya di cancel dulu, terus ke Excel options -> trust center -> klik trust center -> privacy atau semacamnya -> hilangkan centang dari remove doc blabla on save gitu -> terus ok sampai ke worksheet dan coba save lagi

>> peringatan bahwa status file sudah tidak read only lagi, bisa pilih write atau apa saja yang ada disitu

apa lagi ya formnya... setelah diingat-ingat kok gak ada yang SS FORM ya...
embuh lah... moga-moga ada di salah satu diatas, yang menjadi si Excel terkesan cerewet...
 
7. file ini saya tiru dari download-an file yang saya contoh berjalan baik tapi punya saya error terus>> hmmm... mungkin nirunya tidak ikhlas sepenuh hati kale.... kalo sepenuh hati, biasanya akan diawali memahami setiap baris kode dari yang ditiru, sehingga bisa meniru dengan pas sesuai kebutuhan.

;)

maap ya kalo ada kliru-klirunya...
selamat mencoba

Wassalamu'alaikum wr wb
Kid

2015-11-26 8:45 GMT+07:00 imam cahyo yuwono chyywn@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalamualaikum Wr. Wb.dear para expert.saya sedang mencoba membuat form input data namun ketika di coba menjadi not responding kesalahannya dimana ya ? adapun keinginan saya yang belum dapat saya pecahkan adalah :1. no urut otomatis dan tampil ti TB12. tanggal muncul di TB23. TB9 nilainya sama dengan TB2 dan TB10 sama dengan TB3 seperti link gitu4. tampilan listbox gagal terus begitu dengan nomor urut5 ingin buat tombol edit agar kalo ada kesalahan bisa di edit langsung di user form6. kadang muncul pesan seperti di SS FORM
file ini saya tiru dari download-an file yang saya contoh berjalan baik tapi punya saya error terus mohon bantuan solusinyaterima kasihWasallamualaikum Wr. Wb.


#yiv5607413381 #yiv5607413381 -- #yiv5607413381ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5607413381 #yiv5607413381ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5607413381 #yiv5607413381ygrp-mkp #yiv5607413381hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5607413381 #yiv5607413381ygrp-mkp #yiv5607413381ads {margin-bottom:10px;}#yiv5607413381 #yiv5607413381ygrp-mkp .yiv5607413381ad {padding:0 0;}#yiv5607413381 #yiv5607413381ygrp-mkp .yiv5607413381ad p {margin:0;}#yiv5607413381 #yiv5607413381ygrp-mkp .yiv5607413381ad a {color:#0000ff;text-decoration:none;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ygrp-lc {font-family:Arial;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ygrp-lc #yiv5607413381hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ygrp-lc .yiv5607413381ad {margin-bottom:10px;padding:0 0;}#yiv5607413381 #yiv5607413381actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5607413381 #yiv5607413381activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5607413381 #yiv5607413381activity span {font-weight:700;}#yiv5607413381 #yiv5607413381activity span:first-child {text-transform:uppercase;}#yiv5607413381 #yiv5607413381activity span a {color:#5085b6;text-decoration:none;}#yiv5607413381 #yiv5607413381activity span span {color:#ff7900;}#yiv5607413381 #yiv5607413381activity span .yiv5607413381underline {text-decoration:underline;}#yiv5607413381 .yiv5607413381attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5607413381 .yiv5607413381attach div a {text-decoration:none;}#yiv5607413381 .yiv5607413381attach img {border:none;padding-right:5px;}#yiv5607413381 .yiv5607413381attach label {display:block;margin-bottom:5px;}#yiv5607413381 .yiv5607413381attach label a {text-decoration:none;}#yiv5607413381 blockquote {margin:0 0 0 4px;}#yiv5607413381 .yiv5607413381bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5607413381 .yiv5607413381bold a {text-decoration:none;}#yiv5607413381 dd.yiv5607413381last p a {font-family:Verdana;font-weight:700;}#yiv5607413381 dd.yiv5607413381last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5607413381 dd.yiv5607413381last p span.yiv5607413381yshortcuts {margin-right:0;}#yiv5607413381 div.yiv5607413381attach-table div div a {text-decoration:none;}#yiv5607413381 div.yiv5607413381attach-table {width:400px;}#yiv5607413381 div.yiv5607413381file-title a, #yiv5607413381 div.yiv5607413381file-title a:active, #yiv5607413381 div.yiv5607413381file-title a:hover, #yiv5607413381 div.yiv5607413381file-title a:visited {text-decoration:none;}#yiv5607413381 div.yiv5607413381photo-title a, #yiv5607413381 div.yiv5607413381photo-title a:active, #yiv5607413381 div.yiv5607413381photo-title a:hover, #yiv5607413381 div.yiv5607413381photo-title a:visited {text-decoration:none;}#yiv5607413381 div#yiv5607413381ygrp-mlmsg #yiv5607413381ygrp-msg p a span.yiv5607413381yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5607413381 .yiv5607413381green {color:#628c2a;}#yiv5607413381 .yiv5607413381MsoNormal {margin:0 0 0 0;}#yiv5607413381 o {font-size:0;}#yiv5607413381 #yiv5607413381photos div {float:left;width:72px;}#yiv5607413381 #yiv5607413381photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5607413381 #yiv5607413381photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5607413381 #yiv5607413381reco-category {font-size:77%;}#yiv5607413381 #yiv5607413381reco-desc {font-size:77%;}#yiv5607413381 .yiv5607413381replbq {margin:4px;}#yiv5607413381 #yiv5607413381ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5607413381 #yiv5607413381ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5607413381 #yiv5607413381ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5607413381 #yiv5607413381ygrp-mlmsg select, #yiv5607413381 input, #yiv5607413381 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5607413381 #yiv5607413381ygrp-mlmsg pre, #yiv5607413381 code {font:115% monospace;}#yiv5607413381 #yiv5607413381ygrp-mlmsg * {line-height:1.22em;}#yiv5607413381 #yiv5607413381ygrp-mlmsg #yiv5607413381logo {padding-bottom:10px;}#yiv5607413381 #yiv5607413381ygrp-msg p a {font-family:Verdana;}#yiv5607413381 #yiv5607413381ygrp-msg p#yiv5607413381attach-count span {color:#1E66AE;font-weight:700;}#yiv5607413381 #yiv5607413381ygrp-reco #yiv5607413381reco-head {color:#ff7900;font-weight:700;}#yiv5607413381 #yiv5607413381ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ov li a {font-size:130%;text-decoration:none;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5607413381 #yiv5607413381ygrp-sponsor #yiv5607413381ov ul {margin:0;padding:0 0 0 8px;}#yiv5607413381 #yiv5607413381ygrp-text {font-family:Georgia;}#yiv5607413381 #yiv5607413381ygrp-text p {margin:0 0 1em 0;}#yiv5607413381 #yiv5607413381ygrp-text tt {font-size:120%;}#yiv5607413381 #yiv5607413381ygrp-vital ul li:last-child {border-right:none !important;}#yiv5607413381

Sun Nov 29, 2015 9:41 pm (PST) . Posted by:

"imam cahyo yuwono"

Assalamu'alaikum wr wbMr Kidmaksud saya saya ingin membuat rekap di file berbeda sheet seperti difilter berdasarkan dua kriteria misal nama tempat dan bulan di copy ke sheet selnjutnya dan di remove duplikanya tapi menggunakna macro
begitu mister, .... ini lanjuatn dari email saya yang tanggal 27 maret 2015 sudah di jawab oleh Mister Kid tapi masih ada kendala.terima kasih
Wassalamu'alaikum wr wb

On Wednesday, November 18, 2015 4:21 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Maaf, tidak mudeng apa yang Anda maksudkan.

Menghapus record yang membuatnya ter-duplicate bisa dengan fitur Remove Duplicate.

Wassalamu'alaikum wr wb
Kid

On Wed, Nov 18, 2015 at 8:36 AM, imam cahyo yuwono chyywn@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Assalammualaikum Wr. Wb.
dear BeExceller,saya sudah mencoba beberapa contoh tentang macro ahkan mencoba menggabung dua contoh tentang menyalin dan menghapus data ganda belum di sort itu juga tapi yang berfungsi hanya sastu saja gimana ya cara nya
ini contoh yang saya gabungPrivate Sub CommandButton1_Click()Dim Z As LongDim iPaKolom As LongSet ipaone = Sheets("Sheet1")Set iPaFace = Sheets("Sheet2")Set UpaOne = ipaone.Range("A1:Z1000")iPaKolom = Range("B1000").End(xlUp).RowFor Z = iPaKolom To 1 Step -1IfApplication.WorksheetFunction.CountIf(Range("B1:B" Z),Range("B" Z).Text) > 1 ThenRange("B" Z).EntireRow.DeleteActiveSheet.Unprotectipaone.Range("A1:Z1").Copy   iPaFace.Range("A1").PasteSpecial Paste:=xlPasteColumnWidthsUpaOne.SpecialCells _       (xlCellTypeVisible).Copy Destination:=iPaFace.Range("A1")End IfNext ZEnd Sub
sebaiknya bagai mana menggabung perintah perintah tersebutterima kasihWassalammualaikum Wr. Wb.

#yiv5112773708 -- #yiv5112773708ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5112773708 #yiv5112773708ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5112773708 #yiv5112773708ygrp-mkp #yiv5112773708hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5112773708 #yiv5112773708ygrp-mkp #yiv5112773708ads {margin-bottom:10px;}#yiv5112773708 #yiv5112773708ygrp-mkp .yiv5112773708ad {padding:0 0;}#yiv5112773708 #yiv5112773708ygrp-mkp .yiv5112773708ad p {margin:0;}#yiv5112773708 #yiv5112773708ygrp-mkp .yiv5112773708ad a {color:#0000ff;text-decoration:none;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ygrp-lc {font-family:Arial;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ygrp-lc #yiv5112773708hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ygrp-lc .yiv5112773708ad {margin-bottom:10px;padding:0 0;}#yiv5112773708 #yiv5112773708actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5112773708 #yiv5112773708activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5112773708 #yiv5112773708activity span {font-weight:700;}#yiv5112773708 #yiv5112773708activity span:first-child {text-transform:uppercase;}#yiv5112773708 #yiv5112773708activity span a {color:#5085b6;text-decoration:none;}#yiv5112773708 #yiv5112773708activity span span {color:#ff7900;}#yiv5112773708 #yiv5112773708activity span .yiv5112773708underline {text-decoration:underline;}#yiv5112773708 .yiv5112773708attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5112773708 .yiv5112773708attach div a {text-decoration:none;}#yiv5112773708 .yiv5112773708attach img {border:none;padding-right:5px;}#yiv5112773708 .yiv5112773708attach label {display:block;margin-bottom:5px;}#yiv5112773708 .yiv5112773708attach label a {text-decoration:none;}#yiv5112773708 blockquote {margin:0 0 0 4px;}#yiv5112773708 .yiv5112773708bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5112773708 .yiv5112773708bold a {text-decoration:none;}#yiv5112773708 dd.yiv5112773708last p a {font-family:Verdana;font-weight:700;}#yiv5112773708 dd.yiv5112773708last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5112773708 dd.yiv5112773708last p span.yiv5112773708yshortcuts {margin-right:0;}#yiv5112773708 div.yiv5112773708attach-table div div a {text-decoration:none;}#yiv5112773708 div.yiv5112773708attach-table {width:400px;}#yiv5112773708 div.yiv5112773708file-title a, #yiv5112773708 div.yiv5112773708file-title a:active, #yiv5112773708 div.yiv5112773708file-title a:hover, #yiv5112773708 div.yiv5112773708file-title a:visited {text-decoration:none;}#yiv5112773708 div.yiv5112773708photo-title a, #yiv5112773708 div.yiv5112773708photo-title a:active, #yiv5112773708 div.yiv5112773708photo-title a:hover, #yiv5112773708 div.yiv5112773708photo-title a:visited {text-decoration:none;}#yiv5112773708 div#yiv5112773708ygrp-mlmsg #yiv5112773708ygrp-msg p a span.yiv5112773708yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5112773708 .yiv5112773708green {color:#628c2a;}#yiv5112773708 .yiv5112773708MsoNormal {margin:0 0 0 0;}#yiv5112773708 o {font-size:0;}#yiv5112773708 #yiv5112773708photos div {float:left;width:72px;}#yiv5112773708 #yiv5112773708photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5112773708 #yiv5112773708photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5112773708 #yiv5112773708reco-category {font-size:77%;}#yiv5112773708 #yiv5112773708reco-desc {font-size:77%;}#yiv5112773708 .yiv5112773708replbq {margin:4px;}#yiv5112773708 #yiv5112773708ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5112773708 #yiv5112773708ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5112773708 #yiv5112773708ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5112773708 #yiv5112773708ygrp-mlmsg select, #yiv5112773708 input, #yiv5112773708 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5112773708 #yiv5112773708ygrp-mlmsg pre, #yiv5112773708 code {font:115% monospace;}#yiv5112773708 #yiv5112773708ygrp-mlmsg * {line-height:1.22em;}#yiv5112773708 #yiv5112773708ygrp-mlmsg #yiv5112773708logo {padding-bottom:10px;}#yiv5112773708 #yiv5112773708ygrp-msg p a {font-family:Verdana;}#yiv5112773708 #yiv5112773708ygrp-msg p#yiv5112773708attach-count span {color:#1E66AE;font-weight:700;}#yiv5112773708 #yiv5112773708ygrp-reco #yiv5112773708reco-head {color:#ff7900;font-weight:700;}#yiv5112773708 #yiv5112773708ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ov li a {font-size:130%;text-decoration:none;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5112773708 #yiv5112773708ygrp-sponsor #yiv5112773708ov ul {margin:0;padding:0 0 0 8px;}#yiv5112773708 #yiv5112773708ygrp-text {font-family:Georgia;}#yiv5112773708 #yiv5112773708ygrp-text p {margin:0 0 1em 0;}#yiv5112773708 #yiv5112773708ygrp-text tt {font-size:120%;}#yiv5112773708 #yiv5112773708ygrp-vital ul li:last-child {border-right:none !important;}#yiv5112773708

Sun Nov 29, 2015 9:41 pm (PST) . Posted by:

"Salim Jenggot"

Dear para master Excel,

mohon bantuannya, apakah ada formula yg lebih simple dari lifetime yg saya
buat.
dan untuk cell lifetime yang saya block kuning seharusnya jika hasil
pengurangan jam adalah dibawah/kurang dari 1 jam maka pembulatan menjadi 1
jam.

demikian, mohon ilmunya.

terima kasih,
SJ

Sun Nov 29, 2015 11:10 pm (PST) . Posted by:

"Riki" ricky45chiesa

Iya Master Kid,

Entah ane oon apa bingung, kok saya otak-atik ga bisa kaya gitu ya, master.

Kalo avenya dikasih garis jadi:

Kalo Max & Min nya kasih garis jadi

Haduhh, help…

Riki

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, November 27, 2015 5:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

Hehehe...

Saking penasarannya,

Kaya gitu bukan...

Soale yang bikin juga bukan saya.

Kid
Sent from my smart enough phone

On Nov 27, 2015, at 16:45, 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> > wrote:

Yo Mas Kid,

Sudah hampir sama persis dengan yang diharapkan, sedikit bedanya, chart type yang digunakan beda, yang Mas Kid rekomen type line, sementara yang ane perlukan type stock, jadi pas garis dimunculin type line nyambungin garis ke data sampingnya, (kalo data max nyambung sama data max lainnya), type stock garisnya vertical (max-min-ave 1 tanggal).

Thanks Mas Kid, responnya. Mudah-mudahan ada solusi lain, (ane jg bisa ngulik nih, 2 hari libur soalnya)

Dari

Riki

Note : met weekend all.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, November 27, 2015 4:35 PM
To: BeExcel
Subject: Re: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

Semuanya sudah dilakukan dengan persis ?

Kalau sudah, berarti memang sayanya yang udah rada kesulitan membayangkan sesuatu...

Nanti kalau dah bisa buka Excel, saya coba ya...

hehehe...

soalnya belum punya ide cara lainnya nih... Sekalian saya cari cara lainnya juga ya...

Maaf ya kalau ndak pas...

Best Regards,

Kid

2015-11-27 16:26 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:

Mas Kid,

Jadinya begini, monggo ning lampiran,

Ada solusi lain mas kid?

Btw, Thanks ane udah belajar banyak neh sama Mas Kid.

Dari

Riki

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> ]
Sent: Friday, November 27, 2015 4:08 PM

To: BeExcel
Subject: Re: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

Loh...

di nomor 2 yang bagian menampilkan high-end lines tidak menghasilkan apa-apa ya ?

2015-11-27 16:05 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:

Yo Mas Kid, makasih respondnya sangat membantu ane.

Maksudnya kalo line nya dimunculin, bukan garis yang nyambung ke max-min-ave (seperti chart tipe stock), tapi nyambungnya malah ke angka max-min-ave yang lain, sementara yang diinginkan, garis yang vertical, nyambungin max-min-ave dalam 1 tanggal.

Trim mas kid,

Riki

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> ]
Sent: Friday, November 27, 2015 3:59 PM

To: BeExcel
Subject: Re: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

Ya diatur line color dan marker nya sampai sesuai dengan kebutuhan.

2015-11-27 15:55 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:

Master Kid,

Udah coba tapi kurang sempurna, tinggal garis max-min-ave, jadi Cuma ada marker ave aja, kalo max & min jg kasih marker, Cuma titik-titik doang,

Nah garisnya pie Mas Kid.

Dari

Riki

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> ]
Sent: Friday, November 27, 2015 1:25 PM
To: BeExcel
Subject: Re: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

hmmm....

chart tipe stock bisa dibuat kesetaraannya dengan 2 series tipe (max dan min) lalu di beri high-low line.

Kalau dilihat dari previewnya, data ada max, min, dan average. Jadi dari data ini akan terbentuk 3 series bertipe Line.

Kalau dilihat dari hasil yang diinginkan, ada 4 garis yang diskontinyu. Bagian ini berkaitan dengan kolom Up Limit dan Low Limit di data kan ya. Karena ada 4 garis yang dikontinyu, berarti butuh 4 series. Karena butuh 4 series, berarti butuh 4 area data.

Kira-kira begini urutan pembuatannya :

1. menata sumber data chart

> data max, min, average, dan tanggal sudah ok, jadi dibiarkan saja.

> data Up limit butuh 2 garis diskontinyu, jadi buat kolom baru dengan header Up85 dan Up80

di preview hanya tampak 85 dan 80 loh ya, kalau ada lagi nilai lainnya yang membuat diskontinyu, maka setiap potongan yang dikontinyu harus jadi kolom tersendiri. Contoh, data berurutan 85,85,90,90,85,85,90,90

akan membentuk 4 garis diskontinyu, maka butuh 4 kolom, misal up85a, up90a, up85b, up90b

> data Low limit juga dibuat seperti up limit, butuh 2 kolom baru, yaitu Low75 dan Low70

> mulai dari record pertama Up Limit, blok angka yang sama (85 misalnya), sampai 85 terakhir yang berurutan sebelum ganti jadi angka lainnya. Nilai ini di Cut dan paste di Up85 record pertama. (misal yang 85 pertama ini dari record 1 sampai 100), jadi up85 berisi 100 record pertama saja, dan sisanya kosong

> di Up Limit, mulai yang ada angkanya (karena tadi sudah di-cut), blok lagi sampai ketemu angka yang beda, lalu cut dan paste ke Up80 di baris yang sama dengan blok yang di-cut.

> lakukan juga untuk kolom Low Limit.

2. membuat chart mirip tipe stck dengan menggunakan tipe Line.

> klik sebuah cell diluar data -> ribbon Insert -> groups Charts -> pilih Line (jangan yang stacked line)

> klik kanan area chart -> select data

a. series max :

klik add -> di data series : blok data di kolom Max (dari record pertama sampai terakhir, misal 500 baris) -> OK

b. series min :

klik add -> di data series : blok data di kolom Min (dari record pertama sampai terakhir, misal 500 baris) -> OK

c. series average

klik add -> di data series : blok data di kolom Average (dari record pertama sampai terakhir, misal 500 baris) -> OK

> klik OK untuk kembali ke worksheet

> klik chart -> menu chart tools -> ribbon layout -> group analysis kalo ndak salah -> klik segitiha Lines -> pilih high-end lines

> atur series max dan min supaya line color nya none dan markernya juga none.

> atur series average supaya line colornya none, tetapi markernya dibiarkan atau ubah dengan simbol lainnya.

3. membuat line up limit dan low limit via up85, up80, low75, low70

a. up85
klik kanan area chart -> select data -> klik add
-> di data series : blok data di kolom up85 dari record pertama sampai terakhir, misal 500 baris (sama tingginya dengan series Max, Min, Average)
-> OK -> OK sampai kembali ke worksheet

-> klik chart -> menu chart tools -> ribbon layout -> group selection atau apa gitu -> pilih di combobox -> nama seriesnya si up85 tadi -> klik format atau apa gitu dibawahnya combo tersebut -> muncul dialognya data series

-> series : pilih secondary axis -> line color : pilih yang bukan none -> markernya : pilih none -> OK atau close gitu

b. up80, low75, low70

klik kanan area chart -> select data
-> klik nama series up85 -> klik add (buat yang up80)

-> di data series : blok data di kolom up80 (setinggi series yang lainnya) -> OK
-> klik nama series up80 -> klik add (buat yang low75)
-> di data series : blok data di kolom up75 (setinggi series yang lainnya) -> OK
-> klik nama series up80 -> klik add (buat yang low70)
-> di data series : blok data di kolom up75 (setinggi series yang lainnya) -> OK -> OK sampai kembali ke worksheet
> klik chart -> menu chart tools -> ribbon layout -> group selection atau apa gitu -> pilih di combobox
-> nama series up80 -> klik format -> atur line color dan marker -> cek series nya sudah di secondary axis -> close
> lakukan untuk series low75 dan low70

4. atur axis

klik axis yang kiri -> atur minimum dan maksimumnya dengan nilai tertentu -> terapkan nilai ini di axis yang kanan

*** kalau axis kanan sudah disamakan intervalnya dengan axis yang kiri, axis yang kanan bisa di hapus (ndak perlu tampak)

5. save terus minum obat puyeng

Regards,

Kid

2015-11-27 9:28 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id <mailto:ricky45chiesa@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >:

Maaf Mods, Lampiran kegedean :D

Ta' Lampirkan lagi

Trims

Riki

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> ]
Sent: Friday, November 27, 2015 9:20 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: [belajar-excel] Gabungkan Chart Line type dengan Chart Stock type

Dear Masters,

Mohon solusi, gabungkan grafik tipe stock dengan tipe line, karena keterangan dari excel sendiri tidak bisa digabung.

Coba pakai line manual tapi sering geser sendiri, terlebih datanya bila di buka di PC berbeda.

Kira-kira ada solusi lain?

Contoh terlampir, monggo

Trims

Riki

--- Mods ---

File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya melampirkan ulang file lampiran yang diusahakan berisi data contoh maksimal 250KB dengan cara me-reply email ini.

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

Sun Nov 29, 2015 11:22 pm (PST) . Posted by:

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

Hai Riki,

Setelah bertemu di rumah dengan yang ngirimin gambar tersebut, katanya,
Anda belum menjalankan bagian perintah yang ada 'pilih high-end lines',
'seriesnya di set secondary axis'
Dugaan saya, baris-baris ini :
2. membuat chart mirip tipe stck dengan menggunakan tipe Line.
> klik chart -> menu chart tools -> ribbon layout -> group analysis
kalo ndak salah -> klik segitiha Lines -> *pilih high-end lines*
lalu :

3. membuat line up limit dan low limit via up85, up80, low75, low70
a. up85
-> *series : pilih secondary axis* -> line color : pilih yang
bukan none -> markernya : pilih none -> OK atau close gitu
kemudian :
3. membuat line up limit dan low limit via up85, up80, low75, low70
b. up80, low75, low70
> klik chart -> menu chart tools -> ribbon layout -> group
selection atau apa gitu -> pilih di combobox
-> nama series up80 -> klik format -> atur line color dan
marker -> *cek series nya sudah di secondary axis* -> close

Wassalam,
Kid

2015-11-30 14:08 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Iya Master Kid,
>
> Entah ane oon apa bingung, kok saya otak-atik ga bisa kaya gitu ya, master.
>
>
>
> Kalo avenya dikasih garis jadi:
>
> Kalo Max & Min nya kasih garis jadi
>
>
>
> Haduhh, help…
>
>
>
> Riki
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, November 27, 2015 5:25 PM
> *To:* belajar-excel@yahoogroups.com
>
> *Subject:* Re: [belajar-excel] Gabungkan Chart Line type dengan Chart
> Stock type
>
>
>
>
>
> Hehehe...
>
> Saking penasarannya,
>
>
>
>
>
>
>
> Kaya gitu bukan...
>
> Soale yang bikin juga bukan saya.
>
>
> Kid
> Sent from my smart enough phone
>
>
> On Nov 27, 2015, at 16:45, 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Yo Mas Kid,
>
> Sudah hampir sama persis dengan yang diharapkan, sedikit bedanya, chart
> type yang digunakan beda, yang Mas Kid rekomen type line, sementara yang
> ane perlukan type stock, jadi pas garis dimunculin type line nyambungin
> garis ke data sampingnya, (kalo data max nyambung sama data max lainnya),
> type stock garisnya vertical (max-min-ave 1 tanggal).
>
> Thanks Mas Kid, responnya. Mudah-mudahan ada solusi lain, (ane jg bisa
> ngulik nih, 2 hari libur soalnya)
>
>
>
> Dari
>
> Riki
>
> Note : met weekend all.
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Friday, November 27, 2015 4:35 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Gabungkan Chart Line type dengan Chart
> Stock type
>
>
>
>
>
> Semuanya sudah dilakukan dengan persis ?
>
> Kalau sudah, berarti memang sayanya yang udah rada kesulitan membayangkan
> sesuatu...
>
> Nanti kalau dah bisa buka Excel, saya coba ya...
>
> hehehe...
>
> soalnya belum punya ide cara lainnya nih... Sekalian saya cari cara
> lainnya juga ya...
>
> Maaf ya kalau ndak pas...
>
>
>
> Best Regards,
>
> Kid
>
>
>
>
>
>
>
> 2015-11-27 16:26 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Mas Kid,
>
> Jadinya begini, monggo ning lampiran,
>
> Ada solusi lain mas kid?
>
> Btw, Thanks ane udah belajar banyak neh sama Mas Kid.
>
> Dari
>
> Riki
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, November 27, 2015 4:08 PM
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Gabungkan Chart Line type dengan Chart
> Stock type
>
>
>
>
>
> Loh...
>
> di nomor 2 yang bagian menampilkan high-end lines tidak menghasilkan
> apa-apa ya ?
>
>
>
> 2015-11-27 16:05 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Yo Mas Kid, makasih respondnya sangat membantu ane.
>
> Maksudnya kalo line nya dimunculin, bukan garis yang nyambung ke
> max-min-ave (seperti chart tipe stock), tapi nyambungnya malah ke angka
> max-min-ave yang lain, sementara yang diinginkan, garis yang vertical,
> nyambungin max-min-ave dalam 1 tanggal.
>
>
>
> Trim mas kid,
>
> Riki
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, November 27, 2015 3:59 PM
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Gabungkan Chart Line type dengan Chart
> Stock type
>
>
>
>
>
> Ya diatur line color dan marker nya sampai sesuai dengan kebutuhan.
>
>
>
> 2015-11-27 15:55 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Master Kid,
>
>
>
> Udah coba tapi kurang sempurna, tinggal garis max-min-ave, jadi Cuma ada
> marker ave aja, kalo max & min jg kasih marker, Cuma titik-titik doang,
>
> Nah garisnya pie Mas Kid.
>
>
>
> Dari
>
> Riki
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, November 27, 2015 1:25 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Gabungkan Chart Line type dengan Chart
> Stock type
>
>
>
>
>
> hmmm....
>
> chart tipe stock bisa dibuat kesetaraannya dengan 2 series tipe (max dan
> min) lalu di beri high-low line.
>
> Kalau dilihat dari previewnya, data ada max, min, dan average. Jadi dari
> data ini akan terbentuk 3 series bertipe Line.
>
> Kalau dilihat dari hasil yang diinginkan, ada 4 garis yang diskontinyu.
> Bagian ini berkaitan dengan kolom Up Limit dan Low Limit di data kan ya.
> Karena ada 4 garis yang dikontinyu, berarti butuh 4 series. Karena butuh 4
> series, berarti butuh 4 area data.
>
> Kira-kira begini urutan pembuatannya :
>
> 1. menata sumber data chart
>
> > data max, min, average, dan tanggal sudah ok, jadi dibiarkan saja.
>
> > data Up limit butuh 2 garis diskontinyu, jadi buat kolom baru dengan
> header Up85 dan Up80
>
> di preview hanya tampak 85 dan 80 loh ya, kalau ada lagi nilai lainnya
> yang membuat diskontinyu, maka setiap potongan yang dikontinyu harus jadi
> kolom tersendiri. Contoh, data berurutan 85,85,90,90,85,85,90,90
>
> akan membentuk 4 garis diskontinyu, maka butuh 4 kolom, misal up85a,
> up90a, up85b, up90b
>
>
>
> > data Low limit juga dibuat seperti up limit, butuh 2 kolom baru,
> yaitu Low75 dan Low70
>
> > mulai dari record pertama Up Limit, blok angka yang sama (85
> misalnya), sampai 85 terakhir yang berurutan sebelum ganti jadi angka
> lainnya. Nilai ini di Cut dan paste di Up85 record pertama. (misal yang 85
> pertama ini dari record 1 sampai 100), jadi up85 berisi 100 record pertama
> saja, dan sisanya kosong
>
> > di Up Limit, mulai yang ada angkanya (karena tadi sudah di-cut),
> blok lagi sampai ketemu angka yang beda, lalu cut dan paste ke Up80 di
> baris yang sama dengan blok yang di-cut.
>
> > lakukan juga untuk kolom Low Limit.
>
> 2. membuat chart mirip tipe stck dengan menggunakan tipe Line.
>
> > klik sebuah cell diluar data -> ribbon Insert -> groups Charts ->
> pilih Line (jangan yang stacked line)
>
> > klik kanan area chart -> select data
>
> a. series max :
>
> klik add -> di data series : blok data di kolom Max (dari
> record pertama sampai terakhir, misal 500 baris) -> OK
>
> b. series min :
>
> klik add -> di data series : blok data di kolom Min (dari
> record pertama sampai terakhir, misal 500 baris) -> OK
>
> c. series average
>
> klik add -> di data series : blok data di kolom Average (dari
> record pertama sampai terakhir, misal 500 baris) -> OK
>
> > klik OK untuk kembali ke worksheet
>
> > klik chart -> menu chart tools -> ribbon layout -> group analysis
> kalo ndak salah -> klik segitiha Lines -> pilih high-end lines
>
> > atur series max dan min supaya line color nya none dan markernya
> juga none.
>
> > atur series average supaya line colornya none, tetapi markernya
> dibiarkan atau ubah dengan simbol lainnya.
>
>
>
> 3. membuat line up limit dan low limit via up85, up80, low75, low70
>
> a. up85
> klik kanan area chart -> select data -> klik add
> -> di data series : blok data di kolom up85 dari record
> pertama sampai terakhir, misal 500 baris (sama tingginya dengan series Max,
> Min, Average)
> -> OK -> OK sampai kembali ke worksheet
>
> -> klik chart -> menu chart tools -> ribbon layout -> group
> selection atau apa gitu -> pilih di combobox -> nama seriesnya si up85 tadi
> -> klik format atau apa gitu dibawahnya combo tersebut -> muncul dialognya
> data series
>
> -> series : pilih secondary axis -> line color : pilih yang
> bukan none -> markernya : pilih none -> OK atau close gitu
>
> b. up80, low75, low70
>
> klik kanan area chart -> select data
> *-> klik nama series up85* -> klik add (buat yang up80)
>
> -> di data series : blok data di kolom up80 (setinggi series
> yang lainnya) -> OK
> *-> klik nama series up80* -> klik add (buat yang low75)
> -> di data series : blok data di kolom up75 (setinggi series
> yang lainnya) -> OK
> *-> klik nama series up80* -> klik add (buat yang low70)
> -> di data series : blok data di kolom up75 (setinggi series
> yang lainnya) -> OK -> OK sampai kembali ke worksheet
> > klik chart -> menu chart tools -> ribbon layout -> group
> selection atau apa gitu -> pilih di combobox
> -> nama series up80 -> klik format -> atur line color dan
> marker -> cek series nya sudah di secondary axis -> close
> > lakukan untuk series low75 dan low70
>
> 4. atur axis
>
> klik axis yang kiri -> atur minimum dan maksimumnya dengan nilai
> tertentu -> terapkan nilai ini di axis yang kanan
>
> *** kalau axis kanan sudah disamakan intervalnya dengan axis yang
> kiri, axis yang kanan bisa di hapus (ndak perlu tampak)
>
>
>
> 5. save terus minum obat puyeng
>
> Regards,
>
> Kid
>
>
>
>
>
> 2015-11-27 9:28 GMT+07:00 'Riki' ricky45chiesa@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Maaf Mods, Lampiran kegedean :D
>
> Ta' Lampirkan lagi
>
>
>
> Trims
>
> Riki
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, November 27, 2015 9:20 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Gabungkan Chart Line type dengan Chart Stock
> type
>
>
>
>
>
> Dear Masters,
>
>
>
> Mohon solusi, gabungkan grafik tipe stock dengan tipe line, karena
> keterangan dari excel sendiri tidak bisa digabung.
>
> Coba pakai line manual tapi sering geser sendiri, terlebih datanya bila di
> buka di PC berbeda.
>
> Kira-kira ada solusi lain?
>
>
>
> Contoh terlampir, monggo
>
>
>
> Trims
>
> Riki
>
>
>
> --- Mods ---
>
> File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya
> melampirkan ulang file lampiran yang diusahakan berisi data contoh maksimal
> 250KB dengan cara me-reply email ini.
>
> ----------------
>
>
>
>
>
>
>
>
>
>
>

Sun Nov 29, 2015 11:21 pm (PST) . Posted by:

angga_113

Assalamualikum WR WB..


Selamat siang,


mohon bantuannya.. mungkin tidak mengkonversi file PDF terlampir menjadi Excel, dan kemudian bisa difilter berdasarkan kolom?? Apakah bisa benar2 sama baris dan kolom tidak ada kesalahan2 di cellnya?


Saya sudah mencoba tetapi hasilnya seperti terlampir xls.. berantakan dan ada yg miss di cell2nya..


Apakah ada cara agar betul2 sama spt file di PDF?


Terima kasih..


Wassalamu'alaikum wr wb.


--- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan penanya melampirkan ulang file lampiran yang totalnya maksimal 250KB atau menyediakan link untuk mengunduh file tersebut.
----------------








============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar