]] XL-mania [[ Digest Number 2347

Microsoft Excel Community

Messages In This Digest (4 Messages)

1.

mengitung secara continue From: Founie Hilman

2.

Pesan dlm macro From: taufikef@ipb.ac.id

3.

Mengambil tanggal awal dan akhir berdasarkan status pegawai From: Lasiran

4a.

Re: std aplikasi From: liz indri

View All Topics | Create New Topic

Messages

1.

mengitung secara continue

Posted by: "Founie Hilman" f.hilman03@gmail.com

Fri Mar 2, 2012 6:28 pm (PST)

Dear XL Mania,

Saya ingin membuat report penjualan harian dan profit secara keseluruhan,
tetapi mengalami masalah pada sheet profit (contoh file terlampir), yang
saya inginkan adalah pada sheet profit nilainya tidak berubah apabila pada
sheet penjualan berubah datanya (krn data pada sheet berubah setiap hari).
Apakah hal ini memungkinkan ? Apabila ada saran yang lebih baik saya ucapkan
terima kasih.

Thks,

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

2.

Pesan dlm macro

Posted by: "taufikef@ipb.ac.id" taufikef@ipb.ac.id

Fri Mar 2, 2012 6:31 pm (PST)

Dear xl-mania

Saya ingin menampilkan (display) pesan selama proses berlangsung (termasuk
proses yg dilakukan oleh excel, mis : recalculate dsb). Sy sudah coba
(lihat lampiran), tapi pesan dimaksud tidak muncul. Mohon pencerahan dari
pakar2 excel. Trims dan salam buat semua kawan2 di xl-mania.

-----------------------------------------
This email was sent using IPB Webmail http://mail.ipb.ac.id/.
Bogor Agricultural University http://www.ipb.ac.id/

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

3.

Mengambil tanggal awal dan akhir berdasarkan status pegawai

Posted by: "Lasiran" spitoe@gmail.com

Fri Mar 2, 2012 6:34 pm (PST)

Dear Pakar XL-mania,

Saya memiliki data pegawai (sheet "source") yang dibagi berdasarkan status
pegawai dan saya ingin mengambil tanggal awal dan akhir pegawai berdasarkan
statusnya dan ditambahkan pada sheet "Emp data". Untuk lebih jelasnya saya
lampirkan filenya. Mohon bantuannya para Pakar XL-mania dan sebelumnya saya
ucapkan terima kasih.

Salam,

Lasiran S

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

4a.

Re: std aplikasi

Posted by: "liz indri" liz.indrihapsari@gmail.com   lizindri

Fri Mar 2, 2012 6:34 pm (PST)

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 =====

[image: Inline image 3]

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
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  75
  New Members

Visit Your Group

Yahoo! Groups

Do More For Dogs Group

Join a group of dog owners

who do more.

Yahoo! Groups

Parenting Zone

Tips for family,

kids and living

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe