Jumat, 12 Juni 2015

[belajar-excel] Digest Number 3470

14 Messages

Digest #3470
1a
Re: Do Case atau select Case by "Mr. Kid" nmkid.family@ymail.com
3
Menjumlah Kategori berupa format tanggal dan text by "Tjahya Hartono" tjahyahartono
4a
Menaikan Baris Bawah Ke Atas by "Zerlinda Seismica" seismica
4b
Re: Menaikan Baris Bawah Ke Atas [1 Attachment] by "Fajar Fatahillah" fajar.fatahillah
5a
Data yang sekali muncul by "wxwxtit" wxwxtit
5b
Re: Data yang sekali muncul by "Tio Adi Bayu Adjie"
5c
Re: Data yang sekali muncul by "wxwxtit" wxwxtit
5d
Re: Data yang sekali muncul by "Tio Adi Bayu Adjie"
5e
Re: Data yang sekali muncul by "Tio Adi Bayu Adjie"
5f
Re: Data yang sekali muncul by "hendrik karnadi" hendrikkarnadi
6b
Re: Membatasi inputan koma by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Jun 11, 2015 6:44 pm (PDT) . Posted by:

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

hmmm...

0. Panjang juga bunyi formula untuk 1 item kode kolom C yang berisi CC301.

1. Kalau melihat text file berisi script yang Anda buat, tampaknya seluruh
kolom dikomputasi ulang.
> Apakah sumber datanya berubah setiap waktu, sehingga seluruh kolom harus
dikomputasi ulang?
> Apakah tidak memungkinkan dibuatkan satu template untuk mengkomputasi 1
kolom data quarter (triwulan) terbaru saja, yang hasil komputasi template
ini lalu di-copy ke sheet series quarter-an tersebut ?

2. Jika dilihat dari rumusan komputasi di kolom i, ada nilai-nilai kode
kolom C yang sudah menjadi bawaan sumber data (kolom i tidak berisi
misalnya [bisa jadi ada kriteria lain, but it's ok]) dan ada nilai-nilai
kode kolom C yang harus dikomputasi.
> Berarti, ada kemungkinan bahwa isi kolom C akan selalu tetap atau
setidaknya di-set selalu tetap, walau sumber datanya hanya menyediakan
baris-baris nilai yang tidak butuh hitungan saja. Iya gak ?

3. kembali ke contoh formula nomor 0, yang berbunyi :
*CC301* :
=IF($C51="CC301";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)<>0);
IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2);
IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")

> Bisa jadi dengan mengubahnya agar menggunakan vLookUp akan menjadi lebih
singkat, contohnya :
=IF($C51="CC301";IFERROR(IF(RIGHT(M$1)-1;IF(N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0))*N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+10;0));VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0)-VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+10;0);"");IF(
N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0));VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0);""));"");"SalahJalur")

[bisa jadi formula lain juga masih ada yang bisa disederhanakan]

> Dengan mencoba formulasi di atas yang diterapkan dalam bentuk VBA, bisa
jadi akan cukup mempersingkat proses

4. tentang 'kecuali untuk LK th fiscal yg berbeda', jika dikaitkan dengan
beberapa baris kode terkait yang ada dalam text file berisi script Anda
> Formulasi seperti CC301 di atas yang tadinya berdasar bunyi periode Q di
baris 1 [seperti RIGHT(M$1], akan menjadi dipengaruhi bunyi periode Q di
baris yang kolom C nya berisi kode berbunyi 'aa0'
> Berarti, andaikan ada emiten (kolom A) yang tidak menyediakan data kolom
C bernilai 'aa0' akan menggunakan bunyi Q di baris 1. Hal ini
mengindikasikan bahwa komputasi CC301 dan sebangsanya yang lain, yang
dipengaruhi oleh bunyi Q di 'aa0' akan memiliki nilai qtr,qtQ, qtY, dsb
yang berasal dari baris 'aa0'.
> Bisa jadi, formula di nomor 3 (termasuk yang di-VBA-ken) cukup
disesuaikan untuk bagian cek bunyi Q oleh Right(M1 menjadi
=Right( if( kalau ada aa0 di emiten tersebut, ambil bunyi q nya , M1 )
***ambil dari kanan dari suatu teks di :
yang kalau ada kode aa0 di emiten itu, ambil dari baris itu di
kolom yang sama (misal di m40)
,kalau tidak ada kode aa0 di emiten itu, ambil dari baris 1 di
kolom yang sama (m1)

5. beberapa pengkondisi script yang ada, sebaiknya diperbaiki lagi. Contoh :
ada blok pengkondisian IF yang berbunyi :
If Len(qtk) = 0 Then
'blablablabla banyak sekali barisnya
elseif len(qtk)>0 then
'blublublublu yang juga banyak sekali barisnya, dan ada
yang berupa beda penggunaan qtk atau qtka qtkq dsb
endif

> bisa diubah menjadi seperti :
if len(qtk)<>0 then
'blublublublu yang juga banyak sekali barisnya, dan ada
yang berupa beda penggunaan qtk atau qtka qtkq dsb
else
'blablablabla banyak sekali barisnya
end
> blok ini menghemat 1 proses perbandingan, yaitu tidak perlu cek Len(qtk)
= 0
> proses perbandingan dengan operator <> lebih cepat dibanding operator =

6. Script menunjukkan bahwa proses komputasi selalu dimulai dari kode 'aa0'
sampai yang terbawah. Artinya, data memang memiliki urutan kode 'aa0' dst
yang tetap.
> Berarti, Select Case bisa digunakan
> Misal :
select case acc
case "aa0"
script kerjaannya
case "ba2=","ba3=","ba6=","be1=","be3=","be5=","bg5="
'proses universal untuk kode-kode acc diatas
Cells(rc, cc).Value = .Index(Dtlk, .Match(Tic & "a"
& mid(acc,2) , Vlk, False), cc) * Kurs
case dst

end select

btw,
Andai yang diproses bisa 1 kolom per datangnya data baru di quarter baru
yang masuk ke sheet input, maka dengan template berupa 1 sheet terpisah
lalu hasilnya disalin ke sheet output yang berisi series yang pakai script
Anda tersebut, maka seluruh proses bisa jadi lebih cepat.

Apalagi kalau mau mulai mengerjakan dengan konsep cara kerja database
mengolah data. Excel dengan fitur Get External Data dan susunan tabel yang
baik dalam sheet Excel, bisa melakukan hal itu, meskipun ndak punya MS
Access, MS SQL Server, Oracle, MySQL dsb sekalipun. Mestinya, dengan fitur
get external data, untuk record yang masih sekitar 5 jutaan sih masih bisa
sekitar beberapa menit malah bisa beberapa detik saja.

Moga-moga ada manfaatnya...

Wassalam,
Kid

2015-06-11 17:55 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> ini kalau pakai formula biasa :
>
> *CC301* :
> =IF($C51="CC301";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)<>0);
> IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2);
> IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
>
>
> CC301 = menghitung pendapatan hanya 3 bulan saja .
> CC302. CC303, CC304 -- rumus nya mirip -- yg dihitung , laba kotor , laba
> usaha, laba bersih hanya 3 bulan saja.
>
> *CC302* =
> =IF($C52="CC302";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)<>0);IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2);IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
>
>
> *CC220* = =IF($C50="CC220";IF(
> AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
> Q4";$M$1:$AX$1;0))));IF(AND(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
> Q4";$M$1:$AX$1;0))<>0);INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)+INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
> Q4";$M$1:$AX$1;0));"");"");"Salah Jalur")
>
>
> diatas 3 macam dari semuanya ada 46 macam formula -- dan bisa di pakai
> untuk semua column atau row .
>
>
> kecuali untuk LK th fiscal yg berbeda -
>
>
>
> Salam
>
> Lukman
>
>
>
>
>
>
>
>
>
> 2015-06-11 14:30 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
>
>> contoh : I56 : be1= - be1=-1Q berapa pendapatan dalam 3 bulan .
>>
>> Q56 = Q51 Karena kolom Q adalah Q1
>> R56 = Q51 - S51 : kolom R adalah Q4 untuk mendapatkan data
>> dari Okt ~ des
>> S56 = S51 - T51 : Kolom S adalah Q3 untuk mendapatkan data
>> dari Jul ~ sep
>> T56 = T51 - U51 : Kolom T adalah Q2 untuk mendapatkan data
>> dari april ~ jun
>>
>> Q51 = adalah pendapat dari jan ~ maret 2015
>> R51 = adalah pendapatan dari jan ~ des 2014
>> S51 = adalah pendapatan dari jan ~ sep 2014
>> T51 = adalah pendapatan dari jan ~ juni 2014
>>
>>
>> Salam
>>
>> Lukman
>>
>>
>> 2015-06-11 13:43 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Jadi, untuk semua rumusan di kolom i, pasti mengambil nilai (yang
>>> ditambah kurang bagi dsb) hanya dari 1 kolom saja ?
>>> Kalau sedang menghitung q1 tahun 2000 (yang ditambah kurang bagi dsb),
>>> apakah hanya pakai data q1 tahun 2000 saja ?
>>> Bagaimana dengan menghitung q2,q3,q4 ?
>>>
>>>
>>>
>>>
>>> 2015-06-11 16:37 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka
>>>> nilainya tetap apa adanya dari sumber data ?
>>>> : Ya
>>>> kecuali data dalam USD -- akan di konversikan dalam IDR.
>>>>
>>>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang sama
>>>> ? kebanyakan mengunakan column yg sama
>>>>
>>>> bila masih mengunakan formula di dalam excel :
>>>> baris untuk bantu untuk vertical : columns E,F,G,H (match
>>>> vertical)
>>>> baris untuk bantu untuk horizontal : Row 2. (match
>>>> horizontal)
>>>>
>>>> jadi : = Index (data, match vertical, match horizontal)
>>>>
>>>> sedangkan untuk tahun fiscal yg berbeda di hitung secara manual .
>>>>
>>>> Kolom I : ini hanya catatan rumus nya saja . berisi No Acc yg akan
>>>> digunakan untuk menghitung . (dari pada saya catat di file yg berbeda)
>>>> sebagai dan dasar pembuatan formula
>>>>
>>>>
>>>> Salam
>>>>
>>>>
>>>> Lukman
>>>>
>>>>
>>>>
>>>>
>>>> 2015-06-11 12:10 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka
>>>>> nilainya tetap apa adanya dari sumber data ?
>>>>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang sama
>>>>> ?
>>>>> Maksudnya, ketika rumusan kolom i akan diimplementasi di kolom q1
>>>>> tahun x, maka akan menggunakan semua nilai di kolom tersebut juga berdasar
>>>>> kode-kode dalam rumusan kolom i ?
>>>>>
>>>>>
>>>>> 2015-06-11 14:46 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Pak Kid.
>>>>>>
>>>>>> Data nya : ada yg mengunakan USD dan IDR
>>>>>> sedangkan Harga sahamnya mengunakan IDR
>>>>>> Tahun fiscalnya ada ada yg berbeda:
>>>>>> Kebanyakan : dari jan ~ des , atau dari april 2014 ~ maret
>>>>>> 2015 (jepang)
>>>>>>
>>>>>> No Acc ---- di kolom C
>>>>>> Ticker --- di kolom A
>>>>>>
>>>>>> Data awal nya . dari aa0 sampai AT100 jumlah row nya bisa
>>>>>> tidak sama. disini ada formula yg di letakan di dalam excel.
>>>>>>
>>>>>> Data Inti nya dari ba2= sampai bg5= disini . semua data
>>>>>> di seragamkan dengan mata uang rupiah.
>>>>>> qtr, qtrQ, qtrY, qtrA --- tahun fiscalnya dari jan ~ des row 1.
>>>>>> qtk, qtrkQ, qttkY, qtkA --- tahun fiscalnya berbeda.
>>>>>>
>>>>>> qtr, qtk -- quater saat ini.
>>>>>> qtrQ , qtkQ ---- quater sebelumnya . digunakan untuk mencari hasil
>>>>>> 3 bulan terakhir ---- Q to Q.
>>>>>> qtrY , qtkY ---- setahun yg lalu . digunakan untuk menghitung
>>>>>> Y to Y
>>>>>> qtrA, qtkA ---- untuk mencari hasil 12 bulan terakhir. contoh
>>>>>> : = 2014 Q2 + 2013 Q4 - 2013 Q2
>>>>>>
>>>>>> sebuah template formula :
>>>>>> sebenarnya ada sheet tambahan . dinamai sheet rumus . .
>>>>>>
>>>>>> Sub copy_formula()
>>>>>> Application.Calculation = xlCalculationAutomatic
>>>>>> Sheets("rumus").Range("R38:R83").Copy
>>>>>>
>>>>>> Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,
>>>>>> _
>>>>>> SkipBlanks:=False, Transpose:=False
>>>>>>
>>>>>> Selection.Copy
>>>>>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>>>>>> SkipBlanks _
>>>>>> :=False, Transpose:=False
>>>>>> Application.CutCopyMode = False
>>>>>> With Selection.Interior
>>>>>> .Pattern = xlNone
>>>>>> .TintAndShade = 0
>>>>>> .PatternTintAndShade = 0
>>>>>> End With
>>>>>> Selection.Replace What:="False", Replacement:="", LookAt:=xlPart,
>>>>>> _
>>>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
>>>>>> _
>>>>>> ReplaceFormat:=False
>>>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart, _
>>>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
>>>>>> _
>>>>>> ReplaceFormat:=False
>>>>>> Selection.Replace What:="#VALUE!", Replacement:="",
>>>>>> LookAt:=xlPart, _
>>>>>> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
>>>>>> _
>>>>>> ReplaceFormat:=False
>>>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart,
>>>>>> SearchOrder _
>>>>>> :=xlByRows, MatchCase:=False, SearchFormat:=False,
>>>>>> ReplaceFormat:=False
>>>>>>
>>>>>> Application.Calculation = xlCalculationManual
>>>>>>
>>>>>> End Sub
>>>>>>
>>>>>> di kolom I ada rumus nya
>>>>>>
>>>>>> total row sekitar 47.800 baris dengan columns 30
>>>>>>
>>>>>> kalau di hitung dengan VBA komplit_1 waktunya sekitar 22 ~ 23
>>>>>> menit.
>>>>>> VBA Komplit_2 sekitar 15 ~ 16 menit.
>>>>>>
>>>>>> Salam
>>>>>>
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-11 10:06 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Hai Lukman,
>>>>>>>
>>>>>>> Data awalnya seperti apa dan hasilnya seperti apa ya ?
>>>>>>> Tampaknya tidak semua record adalah hitungan. Record hasil hitungan
>>>>>>> pun sebenarnya akan selalu tetap per kode di kolom C, walau hitungannya
>>>>>>> membutuhkan kode kolom C lainnya.
>>>>>>>
>>>>>>> Bolehkah dijabarkan kapan menggunakan :
>>>>>>> qtr,qtrq,qtrY,qtrA ?
>>>>>>>
>>>>>>>> Dim qtr As String, qtrQ As String, qtrY As String, qtrA As String
>>>>>>>> Dim qtk As String, qtkQ As String, qtkY As String, qtkA As String
>>>>>>>>
>>>>>>>
>>>>>>> Sepertinya sebuah template formula yang diletakkan pada sebuah kolom
>>>>>>> bisa mempercepat proses daripada menghitung setiap cells dengan loop
>>>>>>> terhadap M baris x N kolom.
>>>>>>>
>>>>>>> Wassalam,
>>>>>>> Kid.
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-08 12:00 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> lebih sering -- hanya di hitung 1 column saja .
>>>>>>>>
>>>>>>>> contoh file terlampir :
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Salam
>>>>>>>>
>>>>>>>> Lukman
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2015-06-07 18:58 GMT+07:00 Toby kenzo tobykenzo@yahoo.co.id
>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Dear Lukman,
>>>>>>>>>
>>>>>>>>> Menurut saya masih bisa di simplfy programnya dgn tidak terlalu
>>>>>>>>> banyak menggunakan "kondisi".
>>>>>>>>> Jika memungkinkan,anda bisa menggunakan formula excel dalam suatu
>>>>>>>>> sheet untuk melakukan kalkulasi,jadi tidak semua fungsi kalkulasi di
>>>>>>>>> lakukan di dalam vba,sebisa mungkin tugas vba hanya memanggil resultnya
>>>>>>>>> saja, itu akan lebih cepat.
>>>>>>>>>
>>>>>>>>> TerimaKasih.
>>>>>>>>>
>>>>>>>>> Sent from Yahoo Mail on Android
>>>>>>>>> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>>>>>>>>>
>>>>>>>>> ------------------------------
>>>>>>>>> * From: * lkm jktind lkmjktind@gmail.com [belajar-excel] <
>>>>>>>>> belajar-excel@yahoogroups.com>;
>>>>>>>>> * To: * belajar-excel@yahoogroups com <
>>>>>>>>> belajar-excel@yahoogroups.com>;
>>>>>>>>> * Subject: * [belajar-excel] Do Case atau select Case [2
>>>>>>>>> Attachments]
>>>>>>>>> * Sent: * Sun, Jun 7, 2015 6:15:17 AM
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Saya telah membuat VBA (seperti terlampir di email ini.)
>>>>>>>>>
>>>>>>>>> Tapi rasanya lambat dalam memproses data.
>>>>>>>>>
>>>>>>>>> bila mengunakan do case atau select case apakah akan lebih cepat
>>>>>>>>> ?
>>>>>>>>>
>>>>>>>>> bagaimana cara merubahnya . bila hendak mengunakan do case.
>>>>>>>>> /select case.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Salam
>>>>>>>>>
>>>>>>>>> Lukman
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> NB :
>>>>>>>>> 1. Komplit_1 -- ini lambat
>>>>>>>>> 2. Komplit_2 -- ini lebih cepat daripada yang diatas.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Thu Jun 11, 2015 10:05 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

gratis,download di microsoft support

Sent from Yahoo Mail on Android

Thu Jun 11, 2015 11:08 pm (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

ID Nama  Tanggal (Format Date) Tanggal (Format text) Hari Schedule  Base on Check lock Time Kategori JM JP CI CO 1023 Ari 25-Feb 2/25/2015 Rabu 10:00 18:00 10:30 22:45 Terlambat Masuk 1023 Ari 26-Feb 2/26/2015 Kamis 10:00 18:00 10:00 18:20   1023 Ari 27-Feb 2/27/2015 Jumat 10:00 18:00 7:51 18:12   1023 Ari 28-Feb 2/28/2015 Sabtu 8:00 13:00 10:45 13:05 Terlambat Masuk 1023 Ari 2-Mar 3/2/2015 Senin 10:00 18:00     Ijin Sakit 1023 Ari 3-Mar 3/3/2015 Selasa 10:00 18:00 8:08 17:10 Pulang Lebih Cepat 1023 Ari 4-Mar 3/4/2015 Rabu 10:00 18:00     Ijin Sakit 1023 Ari 5-Mar 3/5/2015 Kamis 10:00 18:00 9:55 18:21   1023 Ari 6-Mar 3/6/2015 Jumat 10:00 18:00 7:45 18:15      
Pertanyaan?Bagaimana caranya supaya tanggal yang masuk dalam kategori, bisa tertulis dengan format tanggal dan bulan saja?
Misal:Kategori Terlambat Masuk 25/2, 28/2 Pulang Lebih Cepat 3/3 Ijin Sakit 2/3,4/3

TerimakasihTjahya

Thu Jun 11, 2015 11:12 pm (PDT) . Posted by:

"Zerlinda Seismica" seismica

Assalamualaikum wrwb

Selamat siang para expert dan sesepuh.
Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini

Salam
Seismica

Fri Jun 12, 2015 1:55 am (PDT) . Posted by:

"Fajar Fatahillah" fajar.fatahillah

Wa'alaikumsalam,dear Mba Zerlinda,menurut saya caranya,blok A4:B14Pencet tombol F5Klik Specialklik Blank > klik Oklalu tekan ctrl+(-)Lalu pilih Shift cells updonesemoga berhasil
 Best Regards,
Fajar Fatahillah

On Friday, June 12, 2015 1:12 PM, "Zerlinda Seismica seismica@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Assalamualaikum wrwb

Selamat siang para expert dan sesepuh.
Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini

Salam
Seismica

#yiv6475282303 #yiv6475282303 -- #yiv6475282303ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6475282303 #yiv6475282303ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6475282303 #yiv6475282303ygrp-mkp #yiv6475282303hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6475282303 #yiv6475282303ygrp-mkp #yiv6475282303ads {margin-bottom:10px;}#yiv6475282303 #yiv6475282303ygrp-mkp .yiv6475282303ad {padding:0 0;}#yiv6475282303 #yiv6475282303ygrp-mkp .yiv6475282303ad p {margin:0;}#yiv6475282303 #yiv6475282303ygrp-mkp .yiv6475282303ad a {color:#0000ff;text-decoration:none;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ygrp-lc {font-family:Arial;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ygrp-lc #yiv6475282303hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ygrp-lc .yiv6475282303ad {margin-bottom:10px;padding:0 0;}#yiv6475282303 #yiv6475282303actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6475282303 #yiv6475282303activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6475282303 #yiv6475282303activity span {font-weight:700;}#yiv6475282303 #yiv6475282303activity span:first-child {text-transform:uppercase;}#yiv6475282303 #yiv6475282303activity span a {color:#5085b6;text-decoration:none;}#yiv6475282303 #yiv6475282303activity span span {color:#ff7900;}#yiv6475282303 #yiv6475282303activity span .yiv6475282303underline {text-decoration:underline;}#yiv6475282303 .yiv6475282303attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6475282303 .yiv6475282303attach div a {text-decoration:none;}#yiv6475282303 .yiv6475282303attach img {border:none;padding-right:5px;}#yiv6475282303 .yiv6475282303attach label {display:block;margin-bottom:5px;}#yiv6475282303 .yiv6475282303attach label a {text-decoration:none;}#yiv6475282303 blockquote {margin:0 0 0 4px;}#yiv6475282303 .yiv6475282303bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6475282303 .yiv6475282303bold a {text-decoration:none;}#yiv6475282303 dd.yiv6475282303last p a {font-family:Verdana;font-weight:700;}#yiv6475282303 dd.yiv6475282303last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6475282303 dd.yiv6475282303last p span.yiv6475282303yshortcuts {margin-right:0;}#yiv6475282303 div.yiv6475282303attach-table div div a {text-decoration:none;}#yiv6475282303 div.yiv6475282303attach-table {width:400px;}#yiv6475282303 div.yiv6475282303file-title a, #yiv6475282303 div.yiv6475282303file-title a:active, #yiv6475282303 div.yiv6475282303file-title a:hover, #yiv6475282303 div.yiv6475282303file-title a:visited {text-decoration:none;}#yiv6475282303 div.yiv6475282303photo-title a, #yiv6475282303 div.yiv6475282303photo-title a:active, #yiv6475282303 div.yiv6475282303photo-title a:hover, #yiv6475282303 div.yiv6475282303photo-title a:visited {text-decoration:none;}#yiv6475282303 div#yiv6475282303ygrp-mlmsg #yiv6475282303ygrp-msg p a span.yiv6475282303yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6475282303 .yiv6475282303green {color:#628c2a;}#yiv6475282303 .yiv6475282303MsoNormal {margin:0 0 0 0;}#yiv6475282303 o {font-size:0;}#yiv6475282303 #yiv6475282303photos div {float:left;width:72px;}#yiv6475282303 #yiv6475282303photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6475282303 #yiv6475282303photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6475282303 #yiv6475282303reco-category {font-size:77%;}#yiv6475282303 #yiv6475282303reco-desc {font-size:77%;}#yiv6475282303 .yiv6475282303replbq {margin:4px;}#yiv6475282303 #yiv6475282303ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6475282303 #yiv6475282303ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6475282303 #yiv6475282303ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6475282303 #yiv6475282303ygrp-mlmsg select, #yiv6475282303 input, #yiv6475282303 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6475282303 #yiv6475282303ygrp-mlmsg pre, #yiv6475282303 code {font:115% monospace;}#yiv6475282303 #yiv6475282303ygrp-mlmsg * {line-height:1.22em;}#yiv6475282303 #yiv6475282303ygrp-mlmsg #yiv6475282303logo {padding-bottom:10px;}#yiv6475282303 #yiv6475282303ygrp-msg p a {font-family:Verdana;}#yiv6475282303 #yiv6475282303ygrp-msg p#yiv6475282303attach-count span {color:#1E66AE;font-weight:700;}#yiv6475282303 #yiv6475282303ygrp-reco #yiv6475282303reco-head {color:#ff7900;font-weight:700;}#yiv6475282303 #yiv6475282303ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ov li a {font-size:130%;text-decoration:none;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6475282303 #yiv6475282303ygrp-sponsor #yiv6475282303ov ul {margin:0;padding:0 0 0 8px;}#yiv6475282303 #yiv6475282303ygrp-text {font-family:Georgia;}#yiv6475282303 #yiv6475282303ygrp-text p {margin:0 0 1em 0;}#yiv6475282303 #yiv6475282303ygrp-text tt {font-size:120%;}#yiv6475282303 #yiv6475282303ygrp-vital ul li:last-child {border-right:none !important;}#yiv6475282303

Thu Jun 11, 2015 11:15 pm (PDT) . Posted by:

"wxwxtit" wxwxtit

Selamat siang semuanya
Mohon sharingnya 
Saya punya data 
Di kolom a 
1
2
3
4
4
3
Hasil yg di inginkan 
1
2
Klo ada data yg double di hapus
Jd hanya data yg tunggal, 

Terima kasih atas sarannya

Thu Jun 11, 2015 11:25 pm (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Salam.
Terlampir di bawah.
[cid:image001.jpg@01D0A512.ED038690]

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, June 12, 2015 1:08 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Data yang sekali muncul



Selamat siang semuanya
Mohon sharingnya
Saya punya data
Di kolom a
1
2
3
4
4
3
Hasil yg di inginkan
1
2
Klo ada data yg double di hapus
Jd hanya data yg tunggal,


Terima kasih atas sarannya

Fri Jun 12, 2015 1:47 am (PDT) . Posted by:

"wxwxtit" wxwxtit

Terima kasih mas tio atas masukannya

Tp data yang di munculkan hanya 
1
2

Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu

Sent from Samsung Mobile

Fri Jun 12, 2015 1:56 am (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Lho, khan soalnya ada 3 data unik. Coba lihat di email awal.
Ini data awalnya.
1
2
3
4
4
3

Best Regards,
Tio Adi Bayu Adjie
Technical Support Business Services
PT. SANGGAR SARANA BAJA
THE GARDEN CENTRE LT. 5 Suite #.519
Cilandak Commercial Estate
Jl. Raya Cilandak KKO Jakarta 12560
Telp : (021) 29976830 ext. 5254
Fax : Telp : (021) 29976835
Mobile : 082125577485

[Think Green]

[Foto all unit]

[Logo SSB]



________________________________
Phone:
Fax:
Mobile:
Email:

+6221 4682 7927
+6221 4682 7925
+6282125 577 485
tio.adjie@ptssb.co.id<mailto:stefany.muller@ptssb.co.id>

Address:


Website:

Pulogadung Industrial Estate
Jl. Rawa Sumur No. 10
Jakarta 13930
www.ptssb.co.id<http://www.ptssb.co.id>



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, June 12, 2015 3:22 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Data yang sekali muncul


Terima kasih mas tio atas masukannya

Tp data yang di munculkan hanya
1
2

Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu


Sent from Samsung Mobile

Fri Jun 12, 2015 2:09 am (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Maksud saya data uniknya ada 4.

Best Regards,
Tio Adi Bayu Adjie
Technical Support Business Services
PT. SANGGAR SARANA BAJA
THE GARDEN CENTRE LT. 5 Suite #.519
Cilandak Commercial Estate
Jl. Raya Cilandak KKO Jakarta 12560
Telp : (021) 29976830 ext. 5254
Fax : Telp : (021) 29976835
Mobile : 082125577485





Phone:
Fax:
Mobile:
Email:
+6221 4682 7927
+6221 4682 7925
+6282125 577 485
tio.adjie@ptssb.co.id mailto:stefany.muller@ptssb.co.id
Address:


Website:
Pulogadung Industrial Estate
Jl. Rawa Sumur No. 10
Jakarta 13930
www.ptssb.co.id http://www.ptssb.co.id


From: Tio Adi Bayu Adjie
Sent: Friday, June 12, 2015 3:54 PM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] Data yang sekali muncul



Lho, khan soalnya ada 3 data unik. Coba lihat di email awal.
Ini data awalnya.
1
2
3
4
4
3

Best Regards,
Tio Adi Bayu Adjie
Technical Support Business Services
PT. SANGGAR SARANA BAJA
THE GARDEN CENTRE LT. 5 Suite #.519
Cilandak Commercial Estate
Jl. Raya Cilandak KKO Jakarta 12560
Telp : (021) 29976830 ext. 5254
Fax : Telp : (021) 29976835
Mobile : 082125577485





Phone:
Fax:
Mobile:
Email:
+6221 4682 7927
+6221 4682 7925
+6282125 577 485
tio.adjie@ptssb.co.id mailto:stefany.muller@ptssb.co.id
Address:


Website:
Pulogadung Industrial Estate
Jl. Rawa Sumur No. 10
Jakarta 13930
www.ptssb.co.id http://www.ptssb.co.id


From: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com]
Sent: Friday, June 12, 2015 3:22 PM
To: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Data yang sekali muncul




Terima kasih mas tio atas masukannya



Tp data yang di munculkan hanya

1

2



Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu





Sent from Samsung Mobile











Fri Jun 12, 2015 2:25 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba copas warisan si mbah yang sdh saya modifikasi sedikit di Module VBE Sheet
Function LOUV(D As Range)   '----------------------------------------------------------   ' membuat daftar unique value berdasarkan range data   ' coded by siti Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt   '----------------------------------------------------------   Dim A(), X(), v, n As Integer, p As Integer, q As Integer, r As Integer   ReDim A(1 To D.Cells.Count)   For n = 1 To UBound(A): A(n) = D.Cells(n): Next n   For n = 1 To UBound(A) - 1      For q = UBound(A) To n + 1 Step -1         p = q - 1         If A(p) > A(q) Then            v = A(p): A(p) = A(q): A(q) = v         Else            If A(p) = A(q) Then                A(p) = "" 'modifikasi dari HK (yang double hapus semua)                A(q) = ""            End If 'modifikasi dari HK (yang double hapus semua)         End If      Next q   Next n   For n = 1 To UBound(A)      If Not A(n) = "" Then         r = r + 1: ReDim Preserve X(1 To r): X(r) = A(n)      End If   Next n   LOUV = WorksheetFunction.Transpose(X)End Function
Salam,HK

From: "wxwxtit wxwxtit@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 12 June 2015, 15:22
Subject: RE: [belajar-excel] Data yang sekali muncul

  Terima kasih mas tio atas masukannya
Tp data yang di munculkan hanya 12
Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu

Sent from Samsung Mobile #yiv8236635205 #yiv8236635205 -- #yiv8236635205ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8236635205 #yiv8236635205ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8236635205 #yiv8236635205ygrp-mkp #yiv8236635205hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8236635205 #yiv8236635205ygrp-mkp #yiv8236635205ads {margin-bottom:10px;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad {padding:0 0;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad p {margin:0;}#yiv8236635205 #yiv8236635205ygrp-mkp .yiv8236635205ad a {color:#0000ff;text-decoration:none;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ygrp-lc {font-family:Arial;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ygrp-lc #yiv8236635205hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ygrp-lc .yiv8236635205ad {margin-bottom:10px;padding:0 0;}#yiv8236635205 #yiv8236635205actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8236635205 #yiv8236635205activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8236635205 #yiv8236635205activity span {font-weight:700;}#yiv8236635205 #yiv8236635205activity span:first-child {text-transform:uppercase;}#yiv8236635205 #yiv8236635205activity span a {color:#5085b6;text-decoration:none;}#yiv8236635205 #yiv8236635205activity span span {color:#ff7900;}#yiv8236635205 #yiv8236635205activity span .yiv8236635205underline {text-decoration:underline;}#yiv8236635205 .yiv8236635205attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8236635205 .yiv8236635205attach div a {text-decoration:none;}#yiv8236635205 .yiv8236635205attach img {border:none;padding-right:5px;}#yiv8236635205 .yiv8236635205attach label {display:block;margin-bottom:5px;}#yiv8236635205 .yiv8236635205attach label a {text-decoration:none;}#yiv8236635205 blockquote {margin:0 0 0 4px;}#yiv8236635205 .yiv8236635205bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8236635205 .yiv8236635205bold a {text-decoration:none;}#yiv8236635205 dd.yiv8236635205last p a {font-family:Verdana;font-weight:700;}#yiv8236635205 dd.yiv8236635205last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8236635205 dd.yiv8236635205last p span.yiv8236635205yshortcuts {margin-right:0;}#yiv8236635205 div.yiv8236635205attach-table div div a {text-decoration:none;}#yiv8236635205 div.yiv8236635205attach-table {width:400px;}#yiv8236635205 div.yiv8236635205file-title a, #yiv8236635205 div.yiv8236635205file-title a:active, #yiv8236635205 div.yiv8236635205file-title a:hover, #yiv8236635205 div.yiv8236635205file-title a:visited {text-decoration:none;}#yiv8236635205 div.yiv8236635205photo-title a, #yiv8236635205 div.yiv8236635205photo-title a:active, #yiv8236635205 div.yiv8236635205photo-title a:hover, #yiv8236635205 div.yiv8236635205photo-title a:visited {text-decoration:none;}#yiv8236635205 div#yiv8236635205ygrp-mlmsg #yiv8236635205ygrp-msg p a span.yiv8236635205yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8236635205 .yiv8236635205green {color:#628c2a;}#yiv8236635205 .yiv8236635205MsoNormal {margin:0 0 0 0;}#yiv8236635205 o {font-size:0;}#yiv8236635205 #yiv8236635205photos div {float:left;width:72px;}#yiv8236635205 #yiv8236635205photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8236635205 #yiv8236635205photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8236635205 #yiv8236635205reco-category {font-size:77%;}#yiv8236635205 #yiv8236635205reco-desc {font-size:77%;}#yiv8236635205 .yiv8236635205replbq {margin:4px;}#yiv8236635205 #yiv8236635205ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8236635205 #yiv8236635205ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8236635205 #yiv8236635205ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8236635205 #yiv8236635205ygrp-mlmsg select, #yiv8236635205 input, #yiv8236635205 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8236635205 #yiv8236635205ygrp-mlmsg pre, #yiv8236635205 code {font:115% monospace;}#yiv8236635205 #yiv8236635205ygrp-mlmsg * {line-height:1.22em;}#yiv8236635205 #yiv8236635205ygrp-mlmsg #yiv8236635205logo {padding-bottom:10px;}#yiv8236635205 #yiv8236635205ygrp-msg p a {font-family:Verdana;}#yiv8236635205 #yiv8236635205ygrp-msg p#yiv8236635205attach-count span {color:#1E66AE;font-weight:700;}#yiv8236635205 #yiv8236635205ygrp-reco #yiv8236635205reco-head {color:#ff7900;font-weight:700;}#yiv8236635205 #yiv8236635205ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ov li a {font-size:130%;text-decoration:none;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8236635205 #yiv8236635205ygrp-sponsor #yiv8236635205ov ul {margin:0;padding:0 0 0 8px;}#yiv8236635205 #yiv8236635205ygrp-text {font-family:Georgia;}#yiv8236635205 #yiv8236635205ygrp-text p {margin:0 0 1em 0;}#yiv8236635205 #yiv8236635205ygrp-text tt {font-size:120%;}#yiv8236635205 #yiv8236635205ygrp-vital ul li:last-child {border-right:none !important;}#yiv8236635205

Fri Jun 12, 2015 1:55 am (PDT) . Posted by:

"Emilia Yulisita"

Selamat sore,

Maaf saya ingin bertanya lagi. Saya sudah mencoba cara membatasi inputan
yang telah diberikan sebelumnya. Kemudian saya ingin agar karakter koma
bisa diinputkan pada textbox.
Saya edit dengan menambahkan code 44, tapi kenapa tidak berfungsi ya?
Terimakasih atas tanggapannya. :)
Pada 30 Mei 2015 00.50, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Dear Emilia,
>
> Mungkin file ini bisa membantu.
>
> TerimaKasih.
>
> Sent from Yahoo Mail on Android
> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>
> ------------------------------
> * From: * Emilia Yulisita emilia.yulisita@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>;
> * To: * <belajar-excel@yahoogroups.com>;
> * Subject: * [belajar-excel] Membatasi inputan koma [1 Attachment]
> * Sent: * Fri, May 29, 2015 3:53:34 AM
>
>
>
> Selamat siang,
>
> Saya baru saja belajar VB dan masih kebingungan.
> Saya ingin menanyakan bagaimana agar inputan berupa karakter koma (,)
> tidak dapat diproses dan muncul pop up pemberitahuan. Saya menggunakan
> function isNumeric agar karakter selain angka tidak bisa diproses,
> tetapi angka dengan tanda koma ternyata masih bisa diproses. berikut
> saya lampirkan sourcode yang saya maksud.

>
> Terima kasih atas tanggapannya. :)
>
>
>

Fri Jun 12, 2015 2:26 am (PDT) . Posted by:

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

Hai Emilia,

Karakter koma memiliki kode ASCII 44
Jika menggunakan event KeyPress, maka yang digunakan adalah KeyASCII yang
berupa kode ASCII.

Jika menggunakan event KeyDown, maka yang dibutuhkan adalah KeyCode (bukan
KeyASCII) yang berupa kode tombol (Key).
Karakter koma memiliki KeyCode 188

Jadi, KeyASCII dalam event KeyPress akan mendapatkan kode ASCII setiap
karakter, sedang KeyCode dalam event KeyDown akan mendapatkan kode keyboard.

KeyCode sulit (bukannya tidak mungkin) membedakan huruf kapital dan huruf
kecil, tapi bisa tahu setiap tombol yang ditekan oleh user, seperti tombol
shift, caps lock, dsb
KeyASCII mudah membedakan huruf kapital dan huruf kecil karena memang kode
ASCII nya berbeda, tetapi tidak dapat (bukan sekedar sulit loh ya)
mengetahui tombol yang jika ditekan tidak memberi suatu karakter tertentu.

Jadi, silakan dimanfaatkan sesuai kebutuhan. Jika yang dibutuhkan adalah
karakter saja, maka gunakan KeyASCII dalam event KeyPress.

2015-06-12 18:53 GMT+10:00 Emilia Yulisita emilia.yulisita@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat sore,
>
> Maaf saya ingin bertanya lagi. Saya sudah mencoba cara membatasi inputan
> yang telah diberikan sebelumnya. Kemudian saya ingin agar karakter koma
> bisa diinputkan pada textbox.
> Saya edit dengan menambahkan code 44, tapi kenapa tidak berfungsi ya?
> Terimakasih atas tanggapannya. :)
> Pada 30 Mei 2015 00.50, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Dear Emilia,
>>
>> Mungkin file ini bisa membantu.
>>
>> TerimaKasih.
>>
>> Sent from Yahoo Mail on Android
>> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> ------------------------------
>> * From: * Emilia Yulisita emilia.yulisita@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>;
>> * To: * <belajar-excel@yahoogroups.com>;
>> * Subject: * [belajar-excel] Membatasi inputan koma [1 Attachment]
>> * Sent: * Fri, May 29, 2015 3:53:34 AM
>>
>>
>>
>> Selamat siang,
>>
>> Saya baru saja belajar VB dan masih kebingungan.
>> Saya ingin menanyakan bagaimana agar inputan berupa karakter koma (,)
>> tidak dapat diproses dan muncul pop up pemberitahuan. Saya menggunakan
>> function isNumeric agar karakter selain angka tidak bisa diproses,
>> tetapi angka dengan tanda koma ternyata masih bisa diproses. berikut
>> saya lampirkan sourcode yang saya maksud.
>>
>> Terima kasih atas tanggapannya. :)
>>
>>
>
>

Fri Jun 12, 2015 2:11 am (PDT) . Posted by:

"Nisa Khairunnisa"

Iya mr.kid 

1. ketika di masukan periode peramalan, misal 10 maka yg terisi di kolom penjualan 10, 

maka x otomatis terisi juga dari 0 - 9

trs isian ini semua otomatis tercopy di 3 sheets.

tambhan u/ di sheet yg kedua ada input otomatis X^2  

Jadi yg terisi kolom d9,e9 di 3 sheets

Dan f9 khusus di satu sheet 

2. di form yg berbeda ada proses perhitungan forecast, dan errornya

Dikirim dari Yahoo Mail pada Android

Dari:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Tanggal:Jum, 12 Jun 2015 pada 7:42
Judul:Re: [belajar-excel] Copy data range antar sheet VBA Excel

 

hehehe....

mbak Nisa punya gak catatan urutan prosesnya seperti apa ? Di shared dimari dong urutan proses tersebut... (kalo boleh n mau)

Contoh catatan urutan proses :

1. hapus area input data di sheet A, sheet B, dan sheet C

2. tulis isian user tentang nilai sesuatu ke range beralamat di A1 di masing-masing sheet, yaitu sheet A, B, C

3. dst

4. dst

Supaya jadi mudah gitu...

Wassalam,

Kid

On Fri, Jun 12, 2015 at 5:32 AM, Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Mohon bantuannya, seharian utak atik masih belum ketemu errornya kenapa. Kadang yang tercopy hanya sebagian kadang sama sekali tidak tercopy, itu kenapa ya ?? :(

Private Sub InputData_Click()

                outRow = 5

        

                 ' Membersihkan bagian output pada worksheet

                Rows(outRow + 4 & ":" & outRow + 30).Select

                Selection.Clear

                Selection.ClearContents

            

                outSheet = "Forecast Linier"

                Worksheets(outSheet).Activate

                   

                    lRow = Cells(1, 1)

    

                    

            

                    Cells(1, 1) = TxtPeriode.Text

                  

                    

       Sheets("Forecast Linier").Range("A1").Resize(lRow, 1).Copy Sheets("Forecast Kuadrat").Range("A1")

                        

      Sheets("Forecast Linier").Range("A1").Resize(lRow, 1).Copy Sheets("Forecast Eksponensial").Range("A1")

                    

                       

          For rowNum = 1 To Cells(1, 1).Value

                    

                    

                        

           Cells(outRow + rowNum + 3, 3).Value = rowNum

                        

      Sheets("Forecast Linier").Range("c9").Resize(lRow, 1).Copy Sheets("Forecast Kuadrat").Range("c9")

                        

                       

       Sheets("Forecast Linier").Range("c9").Resize(lRow, 1).Copy Sheets("Forecast Eksponensial").Range("c9")

                        

         

                        Cells(8 + rowNum, 4) = InputBox("masukkan nilai")

                        Cells(8 + rowNum, 4).Select

                        

                        

       Sheets("Forecast Linier").Range("D9").Resize(lRow, 1).Copy Sheets("Forecast Kuadrat").Range("D9")

                        

                        

   Sheets("Forecast Linier").Range("D9").Resize(lRow, 1).Copy Sheets("Forecast Eksponensial").Range("D9")

                        

                        

                       

                        

                        X = rowNum - 1

                        Cells(outRow + rowNum + 3, 5).Value = X

                        

                        

  Sheets("Forecast Linier").Range("e9").Resize(lRow, 1).Copy Sheets("Forecast Eksponensial").Range("e9")

                        

                        

                        

  Sheets("Forecast Linier").Range("e9").Resize(lRow, 1).Copy Sheets("Forecast Kuadrat").Range("e9")

                        

                        

  Sheets("Forecast Kuadrat").Cells(outRow + rowNum + 3, 6).Value = X ^ 2

                        

                    Next rowNum

                        

                                                

                         MsgBox " Data yang anda masukkan sudah terpenuhi", vbOKOnly

                         Peramalan.Show

                         

                         

End Sub

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