Selasa, 11 Oktober 2011

]] XL-mania [[ Digest Number 2274

Messages In This Digest (8 Messages)

Messages

1a.

Re: Mengisi Data Time,Date secara otomatis

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 10, 2011 5:45 pm (PDT)



Dengan FUNGSI, misal NOW () atau TODAY(); memang bisa; tetapi data
tanda waktu di kolom A yg anda maksudkan sebagai *TimeStamp* akan ikut
JALAN seiring dengan berjalannya waktu; 1 menit lagi akan berubah,
besok akan berubah tgl nya; dst.

Jadi menurut pendapat saya, harus dengan Action/Tindakan (menuliskan data
Tgl + Jam saat ini (jam sistem) baik secara manual atau otomatis (Ctrl ;
atau Ctrl :)
Tetapi itu namanya kan MANUAL banget...

Solusinya saya kira dengan makro yg ditulis sbg Event Prosedur menunggu
terjadi-nya
peristiwa CHANGE pada worksheet: *dimana kita mencegat agar event hanya
memicu makro jika terjadi di kolom B dan hanya dimasukan satu cell demi satu
cell; *
*(dan bukan data kosong)*

Private Sub Worksheet_Change(ByVal Target As Range)

'hapsari / 9 oct 2011

If Target.Column = 2 Then

If Target.Cells.Count = 1 Then

If Len(Target.Value) > 0 Then

Target(1, 0) = Now

Target(1, 0).NumberFormat = "dd mmm yyyy hh:mm:ss"

End If

End If

End If

End Sub

Catatan

<>* Format Date Time* dapat anda edit sesuai selera.

<> Makro ini masih BELUM membatasi agar data terakhir (terbawah di kolom B)

saja yg menyebabkan terisinya tme stamp di kolom A.

Di tengah data jika cell di kolom B DI-EDIT maka Time-Stamp tetap akan

dituliskan di Kolom A (sejajar dengan cell yg diedit)

-haps- [9 okt 2011]

2011/10/8 Pungki BERLIANTO <p.berlianto@pciltd.com.sg>

> **
>
> Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom
> A)
>
terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).**
> **
>
> Lebih jelasnya saya sertakan pada attachment file.****
>
> Terima kasih atas Pertolongan**
>
> **
>
>
> **
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1b.

Re: Mengisi Data Time,Date secara otomatis

Posted by: "zainul ulum <>" zainul_ulum@yahoo.com   zainul_ulum

Mon Oct 10, 2011 5:46 pm (PDT)



Saya coba bantu pakai macro sbb:

Private Sub Worksheet_Change(ByVal Target As Range)
'Jika yang berubah di kolom B
If Not Intersect(Target, Range("B:B")) Is Nothing Then
'jika kolom B tidak kosong, isikan tanggal dan jam
'di satu kolom sebelah kiri
If Not IsEmpty(Target) Then
With Target.Offset(0, -1)
.Value = Now()
.NumberFormat = "m/d/yyyy h:mm"
End With
Else
Target.Offset(0, -1) = vbNullString
End If
End If
End Sub

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf
Of Pungki BERLIANTO
Sent: Saturday, October 08, 2011 11:27 AM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Mengisi Data Time,Date secara otomatis

Dear Para suhu EXEL Mania,

Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom A)
terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).
Lebih jelasnya saya sertakan pada attachment file.

Terima kasih atas Pertolongan

                                                           

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1c.

Re: Mengisi Data Time,Date secara otomatis

Posted by: "rivo jacob" rivocbs@gmail.com   revival_name

Mon Oct 10, 2011 5:46 pm (PDT)



Dear bro Pungki,

mungkin ini maksudnya,mudah2an sesuai keinginan.
see attachment

regards,
Rivo

On 10/8/11, Pungki BERLIANTO <p.berlianto@pciltd.com.sg> wrote:
> Dear Para suhu EXEL Mania,
>
> Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom A)
> terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).
> Lebih jelasnya saya sertakan pada attachment file.
>
> Terima kasih atas Pertolongan
>
>
> [cid:image002.png@01CC85AC.D1697400]
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1d.

Re: Mengisi Data Time,Date secara otomatis

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Mon Oct 10, 2011 5:46 pm (PDT)



Pecaya-ndak-percaya, ada banyak-hal yg* tidak dapat dibuat FORMULANYA* di
Excel. Salah satunya adalah TIME-STAMP / Stempel tanda waktu (tanggal maupun
Jam).

Sampai saat ini masih banyak orang, terutama yg belum sempat mencoba-coba,
masih terus mencoba-coba dengan fungsi TODAY() dan NOW(). Saking
panasarannya mereka mengkoversinya menjadi TEXT dengan maksud agar nilainya
memberku / berhenti, tidak ikut berjalan sesuai jam sistem.

Apa daya, esok-hari-nya ketika workbook dibuka kembali; hasil rumus
=TEXT(NOW(), "dd-mmm-yyyy hh:mm:ss")
walaupun bertpe TEXT, ternyata tidak mau membeku melainkan tetap ber-Ubah
(bukan be_Rubah) menjadi jam saat workbook dibuka lagi.
Lebih kurang-ajar lagi, dia juga berubah kapan saja kalau terjadi
recalculate di sheet atau sengaja anda pencet F9.

Penyebabnya tidak terlalu aneh, karena di dalam rumus yg mengkonversi data
Date-Time manjadi TEXT itu
ternyata ada Fungsi yg HASILNYA berubah (volatile?) sesuai detak jam dinding
anda yaitu fungsi NOW() ataupun TODAY().

*Truzz bgmana dong...??*

Cara menuliskan data Date-Time yg MANDEG, harus dengan *data konstanta*,
cara menuliskan data konstanta harus anda sendiri yang *BERTINDAK
mengetikkan data tsb ke cells*. (Excel sudah mempermudah dengan 2
kibor-short-cut Ctrl + : dan Ctrl + ; coba saja..)
Sependek apapun prosesnya, tetapi ternyata *mengetikkan* Ctrl + ; belum
memuaskan anda, anda bilang masih belum ostosmastis... Tetapi binun' mau
pakai cara apa lagi...

Untunglah kita telah terlanjur sayang sama Excel, maka Excel membalas dengan
menunjukkan cara lain, yaitu
TINDAKAN KITA itu dapat direkam ataupun di CODEkan dalam bahasa yg dikenal
Excel. Ada yang bilang, bahasa VBA. Katanya lagi, setiap sekumpulan
perintah untuk satu hal /task tertentu bisa disebut makro, atau prosedur,
atau subrutin.

Di lain waktu, Code Makro VBA yg pernah kita tulis / atau kita rekam tadi,
dapat kita JALANKAN, atau kita suruh JALAN atau *kita jebak dengan suatu
keadaan >> agar makro JALAN SENDIRI.*

Misal sehubungan dengan contoh kasus (pertanyaan pak Pungki ini): si makro
akan kita jebak agar JALAN SENDIRI *jika di sheet terjadi perubahan nilai di
kolom B.*

Di bahasa VBA, katanya, di dalam Object SHEET (maupun object2 lain) memang
dikenal ada keadaan spt ini.
Di perjalanannya melayani anda, suatu object itu mempunyai beberapa titik yg
disebut* Event*.
Sebagai contoh setiap worksheet di excel 2007 punya 9 Events.

[image: woksit events.PNG]

( Jadi anda punya 9 macam "kejadian" yg diderita oleh worksheet yg dapat
anda manfaatkan untuk mengotomatiskan jalannya sebuah Prosedur.)

Dalam hal Object Sheet, jika salah satu nilai cellnya berubah, maka dia
"menderita" suatu EVENT tertentu (ada yang bilang nama event-nya = Event
Change).
Pada saat itu jika ada *serangkaian perintah yg sudah tertulis di suatu
prosedur*, dimana prosedur itu dikaitkan dengan Even CHANGE, maka serangkai
perintah makro tsb akan JALAN SENDIRI. Atau dengan lain kata: Makro JALAN
SENDIRI jika ada cell yg berubah nilainya. Jadi di sini pemakai excel XLalu
diuntungkan (walaupun software-nya gratis alias b*j*k*n)

Sedangkan ISI (rangkaian perintah di dalam) makro dapat kita atur,
misalnya:

di kolom A akan ditulis TIME STAMP pada cell yg sebaris dengan
cell di kolom B yg baru saja diubah nilainya.

Masih ada pekerjaan lain yaitu bagaimana caranya agar TIDAK SEMUA CELLS (yg
berubah nilainya) main selonong tanpa izin MENYEBABKAN terpicunya makro
tersebut (mentang-mentang EVENT CHANGE nya terjadi !)

Lha wong Kita inginnya kan hanya jika KOLOM B berubah, maka kolom A diberi
TimeStamp
Selain perubahan nilai di kolom B, *jangan sampai* menyebabkan A dibombardir
oleh nilai TimeStamp dowong !!.

Tenang... Ini hanyalah soal menyaring saja

Andai cell yg berubah ada di kolom B maka
tuliskan TimeStam di kolom A
AKhir Pengandaian

dlm bhs makronya kira kira

If target.column = 2 then
Target(1,0) = Now
End If

Dengan penyaring sederhana spt itu, Kalau ternyata cell yg berubah nilainya
ada di kolom LAIN selain kolom B: tentunya perintah

di kolom A akan ditulis TIME STAMP pada cell yg sebaris dengan
cell di kolom B yg baru saja diubah nilainya.

tidak akan ter-Eksekusi karena eksekutornya sudah di cegat / disaring oleh*
IF* sederhana tsb dan langsung dia lari ngacir menuju *End If*

Oiya, Prosedur Event harus ditulis di modul milik object yg event-nya sedang
anda manfaatkan.

'------------------------------------
Private Sub* Worksheet_Change*(ByVal *Target* As Range)
If Target.Column = 2 Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
Target(1, 0).NumberFormat = "m/d/yyyy h:mm:ss"
Target(1, 0) = Now
End If
End If
End If
End Sub
'------------------------------------

cmiiw
~siti

2011/10/8 Pungki BERLIANTO <p.berlianto@pciltd.com.sg>

> Dear Para suhu EXEL Mania,****
>
> ** **
>
> Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom A)
> terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).
> ****
>
> Lebih jelasnya saya sertakan pada attachment file.****
>
> ** **
>
> Terima kasih atas Pertolongan****
>
> ** **
>
> ****
>
> **
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2a.

Re: Memindahkan data dengan ref angka yang sama

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Oct 10, 2011 5:45 pm (PDT)



( Memfilter dengan Formula )
di dalamnya digunakan *Array Formula MultiHasil*, antara lain seperti ini

=SMALL(IF(IDKol=I1,IndexR),IndexR)
=IF(ISNUMBER(I3),OFFSET(RowHead,I3,0),"")

IDKol, IndexR dan RowHead adalah nama-nama Range yg ada di
bagian tabel pada sheet AllData, yg gunanya agar mudah dirujuk
dari sheet lain

lihat lmpiran

catatan penting:
*kasus seperti ini sudah sangat sering dibahas di milis ini*

2011/10/8 yhak thull <yhakthull_ty@yahoo.com>

> **
>
>
> mohon bantuannya...saya mempunyai kasus...
> gimana cara memindahkan data 1 baris, dengan referensi kata/angka yang sama
> di 1 kolom.
> jadi seperti fungsi filter,
> hanya saja data langsung ada di sheet yang lain (contoh kasus ada di
> attachment)
>
> di kasus tersebut, saya ingin sort berdasarkan ID, dan dipindah ke sheet
> yang sesuai ID tersebut.
>
> terima kasih banyak sebelumnya.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.

Re: Memindahkan data dengan ref angka yang sama

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Mon Oct 10, 2011 5:46 pm (PDT)



Yak 'tul, Selain dengan AutoFilter, Formula, Pivot Tabel atau cara lain,..
proses memfilter (=menyaring records) tentu juga dapat dilakukan
dgn makro (VBA-Excel programming)

Terlampir contoh memfilter tabel (1 kriteria) dengan Makro

Makro akan otomatis "jalan" ketika filter dipilih, termasuk ketika
filternya Kosong.

Karena filter dapat diganti ganti dan menyebabkan REPORT berganti
pula, maka hanya perlu membuat 1 sheet untuk rerpot (hasil filter)
(kecuali si boss minta 'dikasih liak' semua hasil filter secara
sekaligussss)

2011/10/8 yhak thull <yhakthull_ty@yahoo.com>
>
> mohon bantuannya...saya mempunyai kasus...
> gimana cara memindahkan data 1 baris, dengan referensi kata/angka yang
sama di 1 kolom.
> jadi seperti fungsi filter,
> hanya saja data langsung ada di sheet yang lain (contoh kasus ada di
attachment)
>
> di kasus tersebut, saya ingin sort berdasarkan ID, dan dipindah ke sheet
yang sesuai ID tersebut.
>
> terima kasih banyak sebelumnya.
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3.

Range Countif Error

Posted by: "Hachi" hachiuz_ld27@yahoo.co.id   hachiuz_ld27

Mon Oct 10, 2011 5:46 pm (PDT)



Dear Excel expert,
saya menemukan masalah pada Formula Countif.

Saya mencoba formula Countif sbb : =COUNTIF(A2:A5,"<>0") dan hasilnya baik2 saja (sesuai yang diinginkan). Namun ketika saya mengganti rangenya menjadi loncat2, tidak kontinu, seperti berikut :
=COUNTIF((A2,A4,A6,A8),"<>0") muncul error #Value.

Saya coba untuk formula lain dengan range juga muncul error.
Sepertinya penulisan range saya yang salah.
Ada yang bisa memperbaiki, atau formula tersebut hanya bisa untuk range yang kontinue.

Mohon masukkannya
Cheers,
Hachi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
4.

TIPS Mengolah data dengan EXCEL

Posted by: "priyopriharsoko@gmail.com" priyopriharsoko@gmail.com   priyo_priharsoko

Mon Oct 10, 2011 5:49 pm (PDT)




Banyak dari pengguna excel, table yang dibuatnya sekaligus sebagai Report.
Dimana didalam table tersebut di selipkan Row atau kolom2 summary atau berisi formula tertentu untuk mengkalkulasi data.

Tabel juga biasanya sudah di format dalam Bentuk Laporan yg akan di cetak ataupun disajikan ke pihak lain(misalnya management).

Tabel seperti ini akan menyulitkan kita melakukan pengolahan data seperti Update, Edit ataupun Delete, apalagi mengolahnya dengan menu Data di Excel seperti : Short, Auto Filter, Advance Filter.

Biasakanlah mengolah data dengan memakai 3 group Table:
1. Table Data
Seluruh data di entry disini dengan kolom dan row yang kita kehendaki.
Jangan ada jeda kolom atau jeda Row.
Table ini hanya mencatat seluruh transaksi dengan item2 atau kolom2 untuk mencatat seluruh data yg diharapkan.


2. Table Process

Pemakaian formula pengolahan data seperti VLOOKUP atau menu Data seperti PIVOT table dapat dilakukan di table ini, dengan source di Table Data.


3. Worksheet Report

Table process sebetulnya bisa anda pakai sebagai report.
Namum jika perusahaan anda memiliki standard format, anda bisa membuat formatnya disini tanpa merubah format kedua table di atas.
--------------

Buatlah ketiga Table tersebut dalam satu File Excel.
Dan hindari pemakaian LINK data ke File lain.
Kecuali anda konsisten dengan nama file dan directory tempat file2 yg saling terkait di simpan.
Rename file akan mengakibatkan LINK update tidak berfungsi.

Dan LINK akan menyulitkan orang lain yg menerima file tersebut.

Kecuali File ini hanya dipakai anda sendiri, dan konsisten dengan File name + directory.

Selamat mencoba.
Silahkan ditambahkan jika ada kekurangan untuk saling berbagi.

Wassalam,
Ditulis spontan sambil menikmati Kopi After office hour.
----------------------------------------------------

Powered by Telkomsel BlackBerry®
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
Recent Activity
Visit Your Group
Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Share experiences

with owners like you

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
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance.        |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 05.45

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)