Re: ]] XL-mania [[ Loop yg berulang

 

Makro tanpa ada aksi menSelect cells

Mohon di test apakah terasa lebih CEPAT

Sub Sum2()

   ' Hapsari / Penjumlahan beruntun, lewati baris kosong

   Dim zR As Long, r As Long

   Application.Calculation = xlCalculationManual

   With ActiveCell

      zR = Cells.Find(What:="*", SearchDirection:=xlPrevious, _

           SearchOrder:=xlByRows).Row

      For r = 1 To zR

         If Len(.Cells(r, 0)) > 0 Then

            If Len(.Cells(r, -1)) > 0 Then

               .Cells(r, 1).FormulaR1C1 = "=SUM(RC[-1],RC[-2])"

            End If

         End If

      Next r

   End With

   Application.Calculation = xlCalculationAutomatic

End Sub

'--------------------

2011/8/25 Haps <hapsari.stlizbeth@gmail.com>

'----

Sebetulnya Menselect cell itu, kata mbak siti, memperlama proses; 

terutama jika di setiap Step dalam loop terjadi range / cell selection.  dan jumlah

baris yg akan "diurusin" sudah dlm ordo ribuan.

Makro ini masih bisa dipercepat dengan menghilangkan Method Select  dan

mengganti  proses test tiap cell bukan dengan cara menSELECT dulu setiap cell 

(agar menjadi activecell) tetapi merujuk alamatnya dimana indexRow-nya

setiap step dinaikkan;  dengan misalnya  

hapsari

2011/8/25 Novan Dwiascahyo <novan.dwiascahyo@leighton.co.id>

Dear XL-mania,

Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop, sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan sekali running macro dan baru akan berhenti setelah menghitung data yg paling bawah.

Perintah yg saya gunakan adalah sbb:

 

Sub sum()

' sum

' penjumlahan biasa

    Do

    If IsEmpty(ActiveCell) Then

        If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then

            ActiveCell.Value = ""

        Else

            ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])"

        End If

    End If

    ActiveCell.Offset(1, 0).Select

    Loop Until IsEmpty(ActiveCell.Offset(-1, -1))

End Sub

 

Kasus lengkapnya mohon disimak file terlampir. Thanks berat.

Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama sepertinya tidak sampai dengan slamet.

Salam,

ND

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 56

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum libur:                                        |
| - add XL-mania di linkedin www.linkedin.com/company/xl-mania      |
| - pesan buku "mengapa boss benci chart anda"  :D :D :D            |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___