Re: ]] XL-mania [[ std aplikasi

Bgmana ya cara mengetahui maksud pertanyaan ini?

Di email: pertanyaan hanya ada 1 baris pendek (dari 6 baris yg ada)

"  mohon bantuanya untuk pembuatan std aplikasi  "

Di sheets ada pertanyaan juga (terima kasih pak boyok); plus sedikit penjelasan sambil lalu.

Dalam sekali tarikan nafas mengandung pertanyaan sekaligus penjelasan yg minim, seakan ditulis sambil menahan "penderitaan hebat skala 10: karena menulis & menjelaskan", sehingga ingin cepat selesai..

" Bagaimana caranya dalam 1 bulan, jika 1 lokasi aplikasi 2x atau lebih bisa muncul seperti diatas dengan basic dari sheet std"

Yg kami tangkap adalah istilah "aplikasi" itu adalah istilah yg dilihat / dipahami secara sepihak oleh pak penanya, bukan "aplikasi" yg kita pahami pada umumnya di dunia komputer khususnya Excel.

Setelah merenung sekitar 3 windu, barulah saya agak merasa tahu: sepertinya yg dimaksud dengan "aplikasi std" (yg dimintakan agar kita membuatkannya) adalah: 

" pengotomatisan Jadwal atqu Tabel Tindakan /Treatment terhadap se area tanaman(?) setiap 10 hari sekali sesuai jadwal dan tabel Std (standard?) yg tersedia ".

Jadwal (tabel hasil) yg diinginkan, sepertinya adalah tabel yg bisa berUbah-Ubah sesuai VARIABLE Tanggal_Tanam dan VARIABLE "lamanya/waktu yg tersedia/diminta (dlm satuan BULAN).

Jadwal / Tabel itulah, sepertinya, yg dimintakan bantuan pembuatannya kepada sodara-sodara XL-maniawan / XL-maniawati sekalian...

Setuju / ndak setuju, suka / ndak suka, definisi itulah yg akan kita pakai untuk membuat pengotomatisannya, dng risiko "ternyata kita SALAH DUGA".

Sebenarnya ada satu procedur kecil agar kita tidak terlalu salah duga, yaitu bertanya dulu kepada penanya; tetapi prosedur spt itu sudah sering terbukti macet, berkat perilaku-mulia para-pihak terkait yaitu: jangankan menjawab, menengok /menggeleng /menganguk pun sepertinya = "mana sempat?" (dibacanya : "mana mau!")

Mohon maaf ini bukan praduga buruk atau lontaran kemarahan, tetapi hanya SEBAGIAN potret dari apa yg sudah terjadi. Bertahun tahun...

'-------

' ===== MODULE SHEET 'RENC' =====

Private Sub Generate_Cmd_Click()

   Frm_Kriteria.Show

End Sub

Private Sub Hapus_Cmd_Click()

   Range("B3").CurrentRegion.Offset(2, 0).ClearContents

End Sub

' ===== MODULE USERFORM =====

Option Explicit

' VBA Coded by indri hapsari / 1 Mar 2012

' XL-mania Case : # 20004

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

Dim TabelStd As Range, TblHasil As Range

Dim TglTanam As Date, Lengkap As Boolean

Private Sub UserForm_Initialize()

   Dim i As Integer

   

   Set TabelStd = Sheets("Std").Range("C2").CurrentRegion.Offset(3, 0)

   Set TabelStd = TabelStd.Resize(TabelStd.Rows.Count - 3, TabelStd.Columns.Count)

   Set TblHasil = Sheets("Renc").Range("B3").CurrentRegion.Offset(2, 0)

   TblHasil.ClearContents

   

   CboHari.Clear: CboHari.ListRows = 16

   For i = 1 To 31: CboHari.AddItem i: Next i

   CboBulan.Clear: CboBulan.ListRows = 12

   For i = 1 To 12: CboBulan.AddItem i: Next i

   TxtTahun = Year(Date)

   CboJangka.Clear: CboJangka.ListRows = 4

   For i = 1 To 24: CboJangka.AddItem i: Next i

End Sub

Private Sub Set_TglTanam()

   If CboHari.ListIndex >= 0 Then

      If CboBulan.ListIndex >= 0 Then

         If CLng(TxtTahun) > 0 Then

            TglTanam = DateSerial( _

               CLng(TxtTahun), CInt(CboBulan), CInt(CboHari))

            LbTglTanam = Format(TglTanam, "dd MMM yyyy")

         End If

      End If

   End If

End Sub

Private Sub CboHari_Change()

   Set_TglTanam

End Sub

Private Sub Cbobulan_Change()

   Set_TglTanam

End Sub

Private Sub TxtTahun_AfterUpdate()

   Set_TglTanam

End Sub

Private Sub Cmd_Cancel_Click()

   CboHari.ListIndex = -1

   CboBulan.ListIndex = -1

   CboJangka.ListIndex = -1

   TxtLokasi = ""

   TxtLuas = ""

   TxtTahun = ""

End Sub

Private Sub Cmd_Close_Click()

   Unload Me

End Sub

Private Sub Cmd_OK_Click()

' VBA Coded by indri hapsari / 1 Mar 2012

' XL-mania Case : # 20004;  27 feb 2012

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

   Dim i As Integer, r As Integer, n As Integer

   Dim TglAkhir As Date, TglAplik As Date

   

   Call ValidasiData

   If Not Lengkap Then Exit Sub

   TglAkhir = DateAdd("m", CboJangka, TglTanam) - 1

   TglAplik = TglTanam

   

   For n = 1 To TabelStd.Rows.Count

      TglAplik = TglAplik + 10

      If TglAplik <= TglAkhir Then

         r = r + 1

         TblHasil(r, 1).Value = TxtLokasi

         TblHasil(r, 2).Value = CInt(TxtLuas)

         TblHasil(r, 3).Value = TglTanam

         TblHasil(r, 4).Resize(1, 6).Value = _

            TabelStd(n, 1).Resize(1, 6).Value

         TblHasil(r, 5).Value = TglAplik

      End If

   Next n

End Sub

Private Sub ValidasiData()

   Lengkap = False

   If TxtLokasi = "" Then

      MsgBox "Data 'Lokasi' belum ditentukan !"

      TxtLokasi.SetFocus: Exit Sub

   End If

   If TxtLuas = "" Then

      MsgBox "Data 'LUAS' belum ditentukan !"

      TxtLuas.SetFocus: Exit Sub

   End If

   If LbTglTanam = "D-M-YYYY" Then

      MsgBox "Data 'Tgl Tanam' belum ditentukan !"

      CboHari.SetFocus: Exit Sub

   End If

   If CboJangka.ListIndex = -1 Then

      MsgBox "Data 'Jangka Waktu' belum ditentukan !"

      CboJangka.SetFocus

      Exit Sub

   End If

   Lengkap = True

End Sub

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

' liz-indri;  maarweg, 5000 koln // 01 mar 2012

2012/2/27 boyok boyok <dodol_y@yahoo.co.id>

salam xl mania,

met pagi siang dan malam

para pakar excel

mohon bantuanya untuk pembuatan std aplikasi

trims

y2k