Re: ]] XL-mania [[ 3 Curah Hujan Yang Tertinggi

 

Kebetulan di Bluewater juga banyak hujan, makanya sawahnya subur..

di sana kami menghitung "itungan" seperti yg pak his inginkan itu dengan 

fungsi MaxCurHuj3D

mirip-mirip dengan Curhat ya...

misal untuk kasus bapak itu, cara menulisnya begini:

** select cell AM6:AP6

   (4 cells (sebuah range) dipilih / diblok sekaligus)

** dlm keadaan AM6:AP6 masih terselected, klik FormulaBar dan tuliskan Rumus sederhana ini

   =MaxCurHuj3d($C6:$AG6,$C$5:$AG$5)

** jangan buru buru Main Enter saja, 

   karena anda harus mengenternya dengan Ctrl + Shift + ENTER 

** select lagi 4 cell tsb, di COPY lalu ditularkan ke cells dibawahnya

** selesai;  yah cuma begitu saja...

Kata orang-orang Bluewater,  misalnya, seandainya, jika  fungsi MaxCurHuj3D itu dibuat orang, 

maka kira-kira codingnya akan seperti ini...

Function MaxCurHuj3D(BarDat As Range, BarTgl As Range)

   Dim Curah_Tgl(1 To 4) 'As Variant

   Dim Max3D As Long

   Dim Sum3D As Long

   Dim c As Integer

   ' mencari rangkaiaan 3 Tgl beruntun yg Jumlah nilai curahnya tertinggi

   For c = 1 To BarDat.Columns.Count - 2

      Sum3D = BarDat(1, c + 0) + BarDat(1, c + 1) + BarDat(1, c + 2)

      If BarDat(1, c + 0) > 0 And _

         BarDat(1, c + 1) > 0 And _

         BarDat(1, c + 2) > 0 Then

         If Sum3D > Max3D Then

            Max3D = Sum3D

            ' temuan (dinamis) dicatat pda array 4 elemen

            Curah_Tgl(1) = BarDat(1, c + 0)

            Curah_Tgl(2) = BarDat(1, c + 1)

            Curah_Tgl(3) = BarDat(1, c + 2)

            Curah_Tgl(4) = BarTgl(1, c + 0) & ", " _

                         & BarTgl(1, c + 1) & ", " & BarTgl(1, c + 2)

         End If

      End If

   Next c

   ' Jika Max3D gagal ditemukan, 4 elemen arttay Curah_Tgl di kosong"in"

   If Max3D = 0 Then

      Curah_Tgl(1) = vbNullString

      Curah_Tgl(2) = vbNullString

      Curah_Tgl(3) = vbNullString

      Curah_Tgl(4) = vbNullString

   End If

   MaxCurHuj3D = Curah_Tgl()

End Function

ada juga ersi yg ditulis dengan memanfaatkan Loop (kalang) dengan tujuWan agar 

jumlah baris perintah drastis memendek

tetapi belum perlu lah, biar bgini saja asal mudah difahami (kalau mau..)

2011/3/14 his jam <hisjam1@gmail.com>

Dear pakar Excel

Saya punya tabel yang berisikan daftar curah hujan per masing2 stasiun pencatatan. Dalam 1 bulan tidak selalu terjadi hujan 3 hari berturut2 untuk masing2 stasiun. Tetapi juga yang mengalami hujan lebih dari 3 hari dalam 1 bulan. Bagaimana caranya mengetahui 3 hari curah hujan tertinggi dalam 1 bulan dan tanggal terjadinya tanpa harus manual? Saya lampirkan file datanya beserta contoh hasil yang diinginkan

Terima kasih atas bantuannya

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 96

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sorry... moderasi super lemot... momods lagi sakit parah...       |
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku  |
| aplikasi bisnis dan buku komputer. isinya tidak biasa!            |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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

.

__,_._,___