Terima kasih untuk semua teman, rekan dan master excel yang telah memberikan masukkan dan bantuannya. Sangat berguna dan bermanfaat untuk menyelesaikan kendala yang saya alami.
>________________________________ > Dari: Mr. Kid <[email protected]> >Kepada: [email protected] >Dikirim: Sabtu, 12 Januari 2013 7:01 >Judul: Re: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses >copy. > > > >Andai dari sheet problem (area input) di save ke sheet data yang berkaidah >database, maka output di sheet mdata bisa disusun dengan pivot table. > >Terlepas dari masalah data berkaidah database, topiknya adalah tentang >penyederhanaan proses. >Untuk proses menyalin hasil inputan ke sheet mdata seperti yang ada saat ini >membutuhkan perulangan. >Proses perulangan yang ada dapat disederhanakan menjadi sebuah prosedur >tersendiri seperti : >Private Sub Salin(rngSource As Range, lOffsetNIS As Long, rngAnchor As Range, >lKolom As Long) > Dim rng As Range, lOffsetKolom As Long > > lOffsetKolom = -1 > For Each rng In rngSource > lOffsetKolom = lOffsetKolom + 1 > rng.Resize(1, lKolom).Copy rngAnchor.Resize(1, 1).Offset(lOffsetNIS, >lOffsetKolom * lKolom) > Next rng >End Sub > >Dengan prosedur perulangan di atas, maka proses save dalam event click bisa >disusun menjadi : >Private Sub CmdMM_Click() > Dim lOffNis As Long > > With Application > .ScreenUpdating = False > .Calculation = xlCalculationManual > > lOffNis = Range("o2").Value > With Sheets("Mdata") > 'copas > Salin Range("F4:f8"), lOffNis, .Range("e11"), 5 >'Normatif > Salin Range("F10:f17"), lOffNis, .Range("ad11"), 5 >'Adaptif > Salin Range("F20:f22"), lOffNis, .Range("br11"), 5 >'Produktif1 > Salin Range("F24:f40"), lOffNis, .Range("cg11"), 5 >'Produktif2 > Salin Range("F42:f43"), lOffNis, .Range("fs11"), 5 >'Muatan lokal > > 'finishing > .Range("fi11").ClearOutline > Range("F4:K61").ClearContents > End With > > .Calculation = xlCalculationAutomatic > .ScreenUpdating = True > End With >End Sub > >Wassalam, >Kid. > > >2013/1/11 Jan Raisin <[email protected]> > > >> >>Jan setuju dengan pendapat dari master Hendrik, >>untuk memudahkan proses perhitungan dan pembuatan report seharusnya data >>dibuat berdasarkan kaidah database yang baik, akan sedikit repot di awal >>tetapi untuk melakukan perhitungan akan lebih mudah, begitu pula saat akan >>membuat sebuah report. >> >> >>Konsep pembuatan database yang baik dan benar sudah berkali kali diterangkan >>oleh alm mbak Siti dan mr Kid. >> >> >>Wassalam, >> >> >>-Ms. Jan Raisin- >> >> >>Pada 11 Januari 2013 09.26, hendrik karnadi <[email protected]> >>menulis: >> >> >> >>> >>>Kelihatannya agak sulit, karena jumlah kolom input (sheet problem) dan >>>output (sheet mdata) tidak sama, dan pada sheet problem ada baris2 judul >>>(Normatif, Adaptif...) >>> >>> >>> >>> >>>Salam, >>>Hendrik Karnadi >>> >>> >>> >>>________________________________ >>> From: Md Switra <[email protected]> >>>To: "[email protected]" <[email protected]> >>>Sent: Thursday, 10 January 2013, 18:30 >>>Subject: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses >>>copy. >>> >>> >>> >>> >>> >>> >>> >>> >>> >>>>________________________________ >>>>Terima Kasih atas bantuannya sangat bermanfaat. >>>>Ternyata berkedipnya hilang dan proses copynya juga begitu cepat. >>>>Saya ada pertanyaan lagi, Apakah bisa membuat formula dibawah ini menjadi >>>>lebih sederhan tanpa pengulangan? Mohon petunjuknya lagi... >>>> >>>>Private Sub CmdMM_Click() >>>> 'Normatif >>>> Range("F4:j4").Copy >>>> Sheets("Mdata").Range("e11").Offset(Range("o2").Value).PasteSpecial xlPasteAll >>>> Range("F5:j5").Copy >>>> Sheets("Mdata").Range("j11").Offset(Range("o2").Value).PasteSpecial xlPasteAll >>>> Range("F6:j6").Copy dan seterusnya seperti dalam lampiran... >>>>End Sub >>>> >>>> >>>> >>>> >>>> >>>>Coba tambahan Application.ScreenUpdating = False danApplication.Calculation >>>>= xlCalculationManual setelah Private Sub >>>>dan Application.ScreenUpdating = True dan Application.Calculation = >>>>xlCalculationAutomatic sebelum End Sub. >>>> >>>> >>>>Salam, >>>>Hendrik Karnadi >>>> >>>> >>>> >>>> >>>> >>>>________________________________ >>>> >>>> >>>>Mohon bantuannya untuk problem saya. >>>>Saya memiliki problem dalam menyederhanakan proses mengcopy data karena setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip. >>>> >>>>Dimana data pada "F4: J43" Ingin saya copy ke sheet (Mdata) sesuai dengan >>>>urutannya. >>>>Mohon Bantuannya untuk membuat proses ini lebih cepat dan ndak berkedip. >>>>Makasih atas bantuannya. >>>> >>>> >>>>saya juga sertakan filenya... >>>> >>>> >>>> >>>> >>>> >>> >>> >> > > > >
