Bisa diceritakan bagaimana proses yang dilakukan, mulai dapat file sumber, diapakan, lalu di copy atau disalin per cell atau per kolom atau per banyak kolom ? Semua cell atau hanya sebagian cell ?
Jika file sumber berisi data untuk waktu tertentu lalu di input (entry atau copas) per waktu alias bertambah kekanan, maka penyusunan data seperti ini kurang efisien. btw, secara umum, untuk keadaan tersebut biasanya dengan sebuah tombol lalu lakukan proses copy dari sheet atau workbook lain yang berisi sumber data, kemudian paste ke lokasi tujuan di file penyimpanan data. Artinya, selalu diusahakan mendapatkan suatu file sumber yang sebisa mungkin berupa excel workbook (seapesnya, bisa berupa text file). Wassalam, Kid. 2013/5/5 lkm jktind <[email protected]> > ** > > > Pak Kid. > > Bagaimana cara pakai nya ? > dengan contoh file (terlampir) > > Salam > > Lukman > > Nb: sumber data dari file PDF . > Kalau digit nya banyak ---pakai copy , paste . > Kalau digitnya dikit diketik. > > Kalau bisa di ubah di kalikan --- berarti bisa juga langsung di > kalikan dengan kurs nya -- rows 3. > untuk disama kan mata uangnya. > > > > > > 2013/5/4 Mr. Kid <[email protected]> > > ** >> >> >> hohoho.... >> ada kalimat berbunyi : >> >> nb : biar nga tiap hari . ketik ribuan angka 0. >> artinya boleh berubah saat dilakukan input, maka bisa juga dengan VBA >> pada event worksheet change yang diisi begini : >> >> with target 'pada range yang berubah isinya >> if .count=1 then 'cek jumlah cell yang berubah cuma 1 bijik >> if isnumeric(.value) then 'cek isi yang berubah bisa jadi >> bertipe numerik >> application.enableevents=FALSE 'opken eksekusi >> ipen >> select case >> .column 'pilih berdasar nomor >> indeks kolom >> case >> 1 >> 'kolom A (indeks 1) ditambah 6 bijik 0 >> >> .value=.value*1000000 'nilai >> di range itu diisi dengan nilai dirange itu juga yang dikali sejuta >> case >> 2 >> 'kolom B (indeks 2) ditambah 3 bijik 0 >> >> .value=.value*1000 >> 'nilai di range itu diisi dengan nilai dirange itu juga yang dikali seribu >> end >> select >> 'selesai pilih-pilih berdasar indeks kolom >> application.enableevents=TRUE 'onken eksekusi >> ipen >> endif 'selesai cek bisa jadi >> tipe numerik >> endif 'selesai cek jumlah cell yang >> berubah isi >> end with 'selesai kerja di range yang berubah isi >> >> jadi ndak perlu pencet ctrl w dan ctrl lainnya. tulis saja dan sim >> salabim dibantu yak... cling... >> >> nah... kalau mengabaikan kalimat n.b. tadi... bisa juga dengan copasspec >> misal data di kolom A (pencet ctrl w katanya) dikali sejuta >> >> dim sHead as string >> with sheets("namasheetnya").range("a1").currentregion.resize(,1) >> shead=.resize(1,1).value >> .resize(1,1).value=1000000 >> .resize(1,1).copy >> .pastespecial xlpastevalues,xlpastespecialoperationmultiply,true >> .resize(1,1).value=shead >> end with >> >> yang ctrl lainnya untuk dikali seribu bisa dibuat sendiri ya >> >> Wassalam, >> Kid. >> >> >> >> >> >> 2013/5/4 lkm jktind <[email protected]> >> >>> ** >>> >>> >>> Terima kasih . Pak Wiranata. >>> >>> Sudah bisa . >>> >>> Cuma Kalau saya rubah menjadi : apa akibatnya ? >>> >>> >>> If IsEmpty(ActiveCell) = False Then >>> For Each cell In Selection >>> cell.Value = cell * 1000000 >>> Next cell >>> End If >>> >>> jadi hasil nya langsung di kolom A . >>> >>> >>> Salam >>> >>> Lukman >>> >>> nb : biar nga tiap hari . ketik ribuan angka 0. >>> >>> >>> On Sat, May 4, 2013 at 12:53 PM, WIRAnata Kemala Deng < >>> [email protected]> wrote: >>> >>>> ** >>>> >>>> >>>> bisa dicoba VBA di bawah ini : >>>> >>>> Sub columnA() >>>> >>>> Dim cell As Range >>>> >>>> 'Range("A2").Activate >>>> >>>> If IsEmpty(ActiveCell) = False Then >>>> For Each cell In Selection >>>> cell.Offset(0, 1).Value = cell * 1000000 >>>> Next cell >>>> End If >>>> >>>> End Sub >>>> >>>> >>>> >>>> Sub columnD() >>>> >>>> Dim cell As Range >>>> >>>> 'Range("D2").Activate >>>> >>>> If IsEmpty(ActiveCell) = False Then >>>> For Each cell In Selection >>>> cell.Offset(0, 1).Value = cell * 1000 >>>> Next cell >>>> End If >>>> >>>> >>>> End Sub >>>> >>>> >>>> xlm attached. >>>> >>>> select rows column A, lalu ctrl+w >>>> yang satu lagi, select rows column D, lalu ctrl+q >>>> >>>> semoga membantu , maap kalo coding nya kurang rapih or canggih :) >>>> >>>> regards, Wira >>>> >>>> >>>> 2013/5/4 lkm jktind <[email protected]> >>>> >>>>> ** >>>>> >>>>> >>>>> Maaf . contoh file, ketinggalan >>>>> >>>>> >>>>> 2013/5/4 lkm jktind <[email protected]> >>>>> >>>>>> Data di kolom A : hendak di kalikan dengan 1.000.000 >>>>>> Data di kolom D : hendak di kalikan dengan 1.000 >>>>>> >>>>>> Hasil yg di kehendaki : >>>>>> data di A1:A5 diblok manual ---> tekan ctrl+w -- hasilnya * >>>>>> 1.juta >>>>>> data di B1:B5 diblok manual ----> tekan ctrl+q --- hasilnya * >>>>>> 1.ribu >>>>>> dengan macro >>>>>> >>>>>> Mohon bantuannya . >>>>>> >>>>>> Salam >>>>>> >>>>>> Lukman >>>>>> >>>>> >>>>> >>>> >>> >> > >
