15 New Messages
Digest #1816
| 4a Bls: [belajar-excel] Membuat Rumus Target & Actual Year To Date (YTD by "ghozi alkatiri" ghozialkatiri 9a Bls: [belajar-excel] Conditional Formatting Formula bernilai Libur by "ghozi alkatiri" ghozialkatiri |
Messages
Mon Oct 1, 2012 2:01 am (PDT) . Posted by:
"belajar-excel@yahoogroups.com"
"PERATURAN MILIS belajar-excel"
------------
Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.
Setting untuk posting di milis ini masih dipertahankan = "UnModerated"
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.
Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.
Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah";
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.
Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.
Untuk itu kita perlu kesepakatan sebagai berikut:
SANGAT DIHARAPKAN:
============
(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.
(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.
(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)
(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.
SANGAT TIDAK DIHARAPKAN:
============
(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.
(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).
(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).
(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.
(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.
LAIN LAIN:
==========
Saran & Tips menulis mail / posting ke milis:
------------
(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong",
"help", "tanya" "mohon pencerahan", dsb)
(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan" dsb, hanya akan merusak 'Thread' (korelasi/kesinambu
suatu topik, oleh karena itu jangan dilakukan.
Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.
(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.
(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting' (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.
'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.
Mengenai OOT dan VOOT
------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).
Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".
Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan"
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.
Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.
VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.
Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.
Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri' (jalur pribadi).
Kritik dan saran kepada milis 'belajar-excel'
------------
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators
Hak dan wewenang Moderators
------------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.
Himbauan dari milis 'belajar excel' kpd members
------------
Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.
Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes"
ada semacam etika umum yg lazim disebut "nettiquette"
Kalau anda sering tidak mengindahkan "nettiquettes"
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.
Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".
------------
Mon Oct 1, 2012 2:22 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Hai Recca,
0. akan tetapi kadang bunyinya keluar terus pak, walaupun UDF nya sudah
saya Hapus,,
>> Pemberhentian suara dilakukan oleh event workbook before close. Disana
ada baris berbunyi :
PlaySound vbNullString, 0, 9
Jika ingin menyediakan tombol untuk menghentikannya secara manual, maka
buatlah prosedur disebuah module dan isi dengan *kode biru di atas*
1. Mohon penjelasannya untuk Sub "MyTrigger" bagaimana bisa dia berjalan
sendiri tanpa di run ? *cuz di conditional formating dia terus berubah"
>> Prosedur MyTrigger dijalankan ketika workbook dibuka
Private Sub Workbook_Open()
lTimer = 1
ThisWorkbook.Names("_MyTrigger_").Value = lTimer
MyTrigger
End Sub
>> Prosedur MyTrigger distop pada saat workbook akan ditutup
Private Sub Workbook_BeforeClose(Cancel As Boolean)
lTimer = 0
ThisWorkbook.Names("_MyTrigger_").Value = lTimer
MyTrigger
PlaySound vbNullString, 0, 9
End Sub
>> Prinsip kerja MyTrigger adalah selalu *mengubah nilai konstanta pada
variabel bernama lTimer*
Jika ltimer = 0 maka mytrigger akan di stop. Jika ltimer bukan 0, maka
mytrigger akan terus dijalankan setiap *1 detik*
Public Sub MyTrigger()
Select Case lTimer
Case 0
Application.OnTime EarliestTime:=Now + TimeValue("00:00:*01*"), _
Procedure:="MyTrigger"
StopMyTrigger
Case 1, 2
*lTimer = 2 + (lTimer = 2)*
ThisWorkbook.Names("*_**MyTrigger_*").Value = lTimer
Application.OnTime EarliestTime:=Now + TimeValue("00:00:*01*"), _
Procedure:="MyTrigger"
End Select
End Sub
>> Conditional formatting tersusun dengan kriteria berdasar nilai lTimer
yang disimpan dengan nama range bernama *_MyTrigger_*
2. Jika saya ingin membatasi waktu berkedip dan bunyinya hanya 1 menit di
bagian mana perlu saya modifikasi ya pak ?
>> Jadi, akibat nomor 0 di atas, maka akan dibuat bahwa suara akibat UDF
harus berhenti setelah 1 menit dijalankan.
Sudah diketahui bahwa yang menghentikan suara adalah baris kode PlaySound
vbNullString, 0, 9
Untungnya, ada MyTrigger yang aktif dikerjakan setiap 1 detik.
Dengan begitu, maka MyTrigger diberi tugas tambahan saja, yaitu sebagai
penghenti suara merdu pembuat panik tersebut.
Untuk menghentikan suara, ada batasan waktunya, *yaitu 1 menit setelah
dibunyikan*.
Maka perlu tempat untuk menyimpan nilai waktu saat si suara harus berhenti,
yaitu waktu dijalankan + 1 menit.
Nilai ini disimpan pada sebuah varibel dengan level Public.
Misal namanya adalah dtEnd, maka pada module-nya si MyTrigger, pada baris
sebelum prosedur pertama yang ada, diberi baris deklarasi :
public dtEnd as date
>> Setelah punya wadah bernama dtend, maka fokuskan pada kegiatan
menghentikan dulu.
Di prosedur MyTrigger ada bagian Case 1,2 yang tugasnya mengubah nilai
lTimer dan memanggil kembali MyTrigger 1 detik kemudian.
Pada bagian inilah akan dilakukan cek pada nilai waktu saat ini (Now). Jika
nilai Now lebih dari dtEnd, maka jalankan proses penghenti bunyi.
IF Now > dtEnd then
PlaySound vbNullString, 0, 9
Endif
>> Kemudian, bagian pemicu bunyi (UDF SoundWarning), disana juga harus ada
penulis nilai baru dtEnd (nilai baru waktu berhentinya si bunyi).
Coba perhatikan isi UDF,
disana ada proses untuk membuat daftar cell yang harus dibunyikan jika ada
error, yaitu :
If InStr(sAddr, sCallerAddr) = 0 Then
sAddr = sAddr & sCallerAddr
End If
Maka pada bagian ini juga (setiap kali ada pernyataan bahwa cell ini adalah
anggota baru yang harus dibunyikan), maka perlu penentuan waktu berakhirnya
bunyi yang baru alias memperbarui nilai dtEnd.
Karena waktu bunyi adalah 1 menit saja, maka baris penentu waktu
berakhirnya bunyi adalah :
*dtEnd = dtEnd + timevalue("00:01:00")*
Baris ini dimasukkan ke dalam blok IF pembuat daftar cell tadi, menjadi :
If InStr(sAddr, sCallerAddr) = 0 Then
sAddr = sAddr & sCallerAddr
*dtEnd = dtEnd + timevalue("00:01:00")*
End If
>> save workbook deh.
>> tutup workbook dan buka lagi.
File terlampir.
Wassalam,
Kid.
2012/9/30 Kurei recca <yusajing_ehm@yahoo.com >
> **
>
>
> Bisa Pak,
>
> akan tetapi kadang bunyinya keluar terus pak, walaupun UDF nya sudah saya
> Hapus,,
>
> Terus pak ada beberapa pertanyaan nih pak
>
> 1. Mohon penjelasannya untuk Sub "MyTrigger" bagaimana bisa dia berjalan
> sendiri tanpa di run ? *cuz di conditional formating dia terus berubah"
> 2. Jika saya ingin membatasi waktu berkedip dan bunyinya hanya 1 menit di
> bagian mana perlu saya modifikasi ya pak ?
>
> Mohon Pencerahannya,
>
> Terimakasih pak,,
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 30 September 2012 9:37
>
> *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP
>
>
> Oh yang file kemarin gak bisa dipakai ya jika ada bunyi beep keluar ?
>
> Wassalam,
> Kid.
>
> 2012/9/30 Kurei recca <yusajing_ehm@yahoo.com >
>
> **
>
> Dear Mr Kid,
>
> Saya sudah coba tapi saya ingin bertanya beberapa hal lagi nih pak
>
> Bisa ga ketika macronya jalan, excel tetap dapat berfungsi seperti biasa ?
>
> Misal ketika bunyi beep itu keluar saya tetap dapat melakukan aktivitas di
> workbook tersebut ?
>
> Thx pak
>
> ------------------------------
> *Dari:* Kurei recca <yusajing_ehm@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Minggu, 23 September 2012 13:59
> *Judul:* Bls: [belajar-excel] CODING MACRO BUNYI BEEP
>
> Makasih Mr Kid,
>
> dicoba dulu yaa,,
>
> thx yaa
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 23 September 2012 13:37
> *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP
>
>
> Hai Recca,
>
> File terlampir berisi UDF SoundWarning yang tugasnya hanya membunyikan
> file wav dengan kriteria tertentu. Mungkin kestabilannya masih harus diuji,
> karena hanya rewrite dari bahasa C++ ke VBA. Kalau yang ke VB6 bisa lebih
> stabil.
>
> Untuk mewarnai blinking, diatur melalui application.timer secara tidak
> langsung. Jadi, application.timer pada file terlampir hanya mengubah suatu
> nilai konstanta secara terus menerus dari 1 menjadi 2. Ketika
> application.timer dihentikan, maka nilai konstanta diset menjadi 0. Setiap
> kali buka workbook, set pertama saat open selalu nilai konstanta bernilai
> 1. Nilai konstanta ini disimpan dalam sebuah nama range bernama
> '_MyTrigger_'
> Nilai dalam _MyTrigger_ lah yang menjadi nilai kondisi dalam Conditional
> Formatting (CF). Jadi blinking sebenarnya dilakukan oleh si CF karena ada
> pengubahan nilai _MyTrigger_ oleh application.timer.
>
> Jadi nanti kalau ada yang gak stabil, coba perhatikan betul, sisi
> blinking-nya ada sisi sound-nya.
>
> Berikut gambaran tentang UDF SoundWarning
> UDF SoundWarning
>
>
>
>
>
>
>
>
>
> Syntax =SoundWarning( kriteria_mulai_warning , [pesan_warning] ,
> [filefullname_suara_peringatan] )
>
>
>
>
> kriteria_mulai_warning diisi nilai numerik, yang bisa berupa hasil
> komputasi ekspresi tertentu
>
>
>
>
> jika nilainya <= 0, maka SoundWarning akan menghentikan bunyi
>
>
>
>
> jika nilainya > 0, maka SoundWarning akan memulai bunyi peringatan
>
>
>
> [pesan_warning] teks yang akan ditampilkan ke user yang menjadi nilai
> hasil UDF ini ketika kriteria_mulai_warning bernilai >0.
>
> teks bisa berupa hasil komputasi ekspresi tertentu
>
>
>
>
>
> [filefullname_suara_peringatan] nama file suara yang akan dijadikan nada
> peringatan.
>
>
>
>
>
> nama file harus tertulis lengkap beserta drive dan foldernya
>
>
>
>
>
> bila file tidak ditentukan user atau file dari user tidak ditemukan, maka
> file default C:\Windows\Media\notify.wav akan dimainkan.
>
> jika file tidak ditemukan, maka tidak ada suara peringatan yang dimainkan
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Result Jika nilai kriteria_mulai_warning bernilai >0, maka file suara
> akan dieksekusi menjadi suara peringatan disertai pesan teks dalam
> [pesan_warning]
> Jika nilai kriteria_mulai_warning bernilai <=0, maka suara peringatan
> dihentikan dan tidak ada pesan teks yang ditampilkan
>
>
>
>
>
>
>
>
>
>
>
>
> Contoh pemakaian :
>
>
>
>
>
>
>
>
>
>
> =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'" )
>
>
>
>
>
>
>
>
> Mainkan file default ketika isi cell B3 adalah teks 'a' (b3="a")
>
>
>
>
>
> kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell
> B3 tidak boleh 'a'
>
>
>
>
>
>
>
>
>
>
>
>
>
> =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'" ,
> "C:\Windows\Media\chord.wav" )
>
>
>
>
>
> Mainkan file bernama chord.wav yang ada di C:\Windows\Media\ ketika isi
> cell B3 adalah teks 'a' (b3="a")
>
> kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell
> B3 tidak boleh 'a'
>
>
>
>
>
>
>
>
>
>
>
>
> Peringatan !!!
>
>
>
>
>
>
>
>
>
> 1 Pastikan pada event workbook before close, baris terakhir sebelum End
> Sub diberi kode untuk menghentikan sound sebagai berikut :
> PlaySound vbnullstring,0,9
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2 Pada pengembangan untuk memasukkan UDF SoundWarning menjadi sebuah
> AddIn, sertai dengan class pengatur Workbook agar setiap workbook yang
> ditutup menjalankan
> PlaySound vbnullstring,0,9
>
>
>
>
>
>
>
>
>
> kemudian pada file addin dilanjutkan dengan proses application.calculate
> untuk memicu UDF SoundWarning pada workbook yang belum tertutup
>
>
>
>
>
>
>
>
>
>
>
> 3 Yang dimainkan biasanya file pertama yang dijumpai, tetapi hal ini
> masih belum stabil. Mungkin harus pakai midi supaya bisa bareng semua
> dimainkan dan biar ribut seperti pasar :D
> VBA Code untuk UDF SoundWarning :
> Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
> ByVal lpszName As String, ByVal hModule As Long, ByVal
> dwFlags As Long) As Long
>
> Public sAddr As String
>
> 'Kid,Jakarta, 2007-01-05,rewrite for VB6 and VBA
> 'SoundWarning : mengeksekusi file .wav dengan suatu kondisi tertentu dan
> memberi return value teks
> 'butuh WinAPI function PlaySound pada winmm.dll
> Public Function SoundWarning(lStartPeringatan As Long, _
> Optional sWarning As String = "nah lo... ada yang gak
> pas", _
> Optional sFileName As String = vbNullString) As String
> Dim sFile As String, sCallerAddr As String
>
> Application.Volatile
> If LenB(sFileName) = 0 Then
> sFile = "C:\Windows\Media\notify.wav"
> ElseIf LenB(Dir$(sFileName)) = 0 Then
> sFile = "C:\Windows\Media\notify.wav"
> Else
> sFile = sFileName
> End If
>
> sCallerAddr = Application.Caller.Address & "|"
> If lStartPeringatan < 1 Then
> sAddr = Replace$(sAddr, sCallerAddr, vbNullString)
> If LenB(sAddr) = 0 Then
> PlaySound vbNullString, 0, 9
> End If
> SoundWarning = vbNullString
> Else
> If InStr(sAddr, sCallerAddr) = 0 Then
> sAddr = sAddr & sCallerAddr
> End If
> PlaySound sFile, 0, 9
> SoundWarning = sWarning
> End If
> End Function
>
>
> Module yang mengatur nilai dalam nama range _MyTrigger_ :
> Public lTimer As Long
>
> Public Sub MyTrigger()
> Select Case lTimer
> Case 0
> Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
> Procedure:="MyTrigger"
> StopMyTrigger
> Case 1, 2
> lTimer = 2 + (lTimer = 2)
> ThisWorkbook.Names("_MyTrigger_").Value = lTimer
> Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
> Procedure:="MyTrigger"
> End Select
> End Sub
>
> Public Sub StopMyTrigger()
> Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
> Procedure:="MyTrigger", _
> Schedule:=False
> End Sub
>
> Pengaturan saat open workbook :
> Private Sub Workbook_Open()
> lTimer = 1
> ThisWorkbook.Names("_MyTrigger_").Value = lTimer
> MyTrigger
> End Sub
>
> Pengaturan saat workbook akan di close (before close)
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> lTimer = 0
> ThisWorkbook.Names("_MyTrigger_").Value = lTimer
> MyTrigger
>
> PlaySound vbNullString, 0, 9
> End Sub
>
> Moga-moga gak bikin crash ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/23 Kurei recca <yusajing_ehm@yahoo.com >
>
> **
>
> Salam Para Master Excel,
>
> Ceritanya saya ingin membuat suatu coding dengan kondisi Jika Cell A1
> bertuliskan kata "TRUE" maka akan ada bunyi beep berulang selama 20 detik
> or periode tertentu dan Cell Tersebut kelap kelip berwarna kuning dan putih
> selama 20 detik tersebut.
>
> Kira2 bagaimana ya codingnya,,?
>
> Mohon Pencerahannya...
>
> Best Regards
>
>
>
>
>
>
>
>
>
>
>
>
0. akan tetapi kadang bunyinya keluar terus pak, walaupun UDF nya sudah
saya Hapus,,
>> Pemberhentian suara dilakukan oleh event workbook before close. Disana
ada baris berbunyi :
PlaySound vbNullString, 0, 9
Jika ingin menyediakan tombol untuk menghentikannya secara manual, maka
buatlah prosedur disebuah module dan isi dengan *kode biru di atas*
1. Mohon penjelasannya untuk Sub "MyTrigger" bagaimana bisa dia berjalan
sendiri tanpa di run ? *cuz di conditional formating dia terus berubah"
>> Prosedur MyTrigger dijalankan ketika workbook dibuka
Private Sub Workbook_Open(
lTimer = 1
ThisWorkbook.
MyTrigger
End Sub
>> Prosedur MyTrigger distop pada saat workbook akan ditutup
Private Sub Workbook_BeforeClos
lTimer = 0
ThisWorkbook.
MyTrigger
PlaySound vbNullString, 0, 9
End Sub
>> Prinsip kerja MyTrigger adalah selalu *mengubah nilai konstanta pada
variabel bernama lTimer*
Jika ltimer = 0 maka mytrigger akan di stop. Jika ltimer bukan 0, maka
mytrigger akan terus dijalankan setiap *1 detik*
Public Sub MyTrigger()
Select Case lTimer
Case 0
Application.
Procedure:="
StopMyTrigger
Case 1, 2
*lTimer = 2 + (lTimer = 2)*
ThisWorkbook.
Application.
Procedure:="
End Select
End Sub
>> Conditional formatting tersusun dengan kriteria berdasar nilai lTimer
yang disimpan dengan nama range bernama *_MyTrigger_
2. Jika saya ingin membatasi waktu berkedip dan bunyinya hanya 1 menit di
bagian mana perlu saya modifikasi ya pak ?
>> Jadi, akibat nomor 0 di atas, maka akan dibuat bahwa suara akibat UDF
harus berhenti setelah 1 menit dijalankan.
Sudah diketahui bahwa yang menghentikan suara adalah baris kode PlaySound
vbNullString, 0, 9
Untungnya, ada MyTrigger yang aktif dikerjakan setiap 1 detik.
Dengan begitu, maka MyTrigger diberi tugas tambahan saja, yaitu sebagai
penghenti suara merdu pembuat panik tersebut.
Untuk menghentikan suara, ada batasan waktunya, *yaitu 1 menit setelah
dibunyikan*.
Maka perlu tempat untuk menyimpan nilai waktu saat si suara harus berhenti,
yaitu waktu dijalankan + 1 menit.
Nilai ini disimpan pada sebuah varibel dengan level Public.
Misal namanya adalah dtEnd, maka pada module-nya si MyTrigger, pada baris
sebelum prosedur pertama yang ada, diberi baris deklarasi :
public dtEnd as date
>> Setelah punya wadah bernama dtend, maka fokuskan pada kegiatan
menghentikan dulu.
Di prosedur MyTrigger ada bagian Case 1,2 yang tugasnya mengubah nilai
lTimer dan memanggil kembali MyTrigger 1 detik kemudian.
Pada bagian inilah akan dilakukan cek pada nilai waktu saat ini (Now). Jika
nilai Now lebih dari dtEnd, maka jalankan proses penghenti bunyi.
IF Now > dtEnd then
PlaySound vbNullString, 0, 9
Endif
>> Kemudian, bagian pemicu bunyi (UDF SoundWarning)
penulis nilai baru dtEnd (nilai baru waktu berhentinya si bunyi).
Coba perhatikan isi UDF,
disana ada proses untuk membuat daftar cell yang harus dibunyikan jika ada
error, yaitu :
If InStr(sAddr, sCallerAddr) = 0 Then
sAddr = sAddr & sCallerAddr
End If
Maka pada bagian ini juga (setiap kali ada pernyataan bahwa cell ini adalah
anggota baru yang harus dibunyikan), maka perlu penentuan waktu berakhirnya
bunyi yang baru alias memperbarui nilai dtEnd.
Karena waktu bunyi adalah 1 menit saja, maka baris penentu waktu
berakhirnya bunyi adalah :
*dtEnd = dtEnd + timevalue("00:
Baris ini dimasukkan ke dalam blok IF pembuat daftar cell tadi, menjadi :
If InStr(sAddr, sCallerAddr) = 0 Then
sAddr = sAddr & sCallerAddr
*dtEnd = dtEnd + timevalue("00:
End If
>> save workbook deh.
>> tutup workbook dan buka lagi.
File terlampir.
Wassalam,
Kid.
2012/9/30 Kurei recca <yusajing_ehm@
> **
>
>
> Bisa Pak,
>
> akan tetapi kadang bunyinya keluar terus pak, walaupun UDF nya sudah saya
> Hapus,,
>
> Terus pak ada beberapa pertanyaan nih pak
>
> 1. Mohon penjelasannya untuk Sub "MyTrigger" bagaimana bisa dia berjalan
> sendiri tanpa di run ? *cuz di conditional formating dia terus berubah"
> 2. Jika saya ingin membatasi waktu berkedip dan bunyinya hanya 1 menit di
> bagian mana perlu saya modifikasi ya pak ?
>
> Mohon Pencerahannya,
>
> Terimakasih pak,,
>
>
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 30 September 2012 9:37
>
> *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP
>
>
> Oh yang file kemarin gak bisa dipakai ya jika ada bunyi beep keluar ?
>
> Wassalam,
> Kid.
>
> 2012/9/30 Kurei recca <yusajing_ehm@
>
> **
>
> Dear Mr Kid,
>
> Saya sudah coba tapi saya ingin bertanya beberapa hal lagi nih pak
>
> Bisa ga ketika macronya jalan, excel tetap dapat berfungsi seperti biasa ?
>
> Misal ketika bunyi beep itu keluar saya tetap dapat melakukan aktivitas di
> workbook tersebut ?
>
> Thx pak
>
> ------------
> *Dari:* Kurei recca <yusajing_ehm@
> *Kepada:* "belajar-excel@
> *Dikirim:* Minggu, 23 September 2012 13:59
> *Judul:* Bls: [belajar-excel] CODING MACRO BUNYI BEEP
>
> Makasih Mr Kid,
>
> dicoba dulu yaa,,
>
> thx yaa
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 23 September 2012 13:37
> *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP
>
>
> Hai Recca,
>
> File terlampir berisi UDF SoundWarning yang tugasnya hanya membunyikan
> file wav dengan kriteria tertentu. Mungkin kestabilannya masih harus diuji,
> karena hanya rewrite dari bahasa C++ ke VBA. Kalau yang ke VB6 bisa lebih
> stabil.
>
> Untuk mewarnai blinking, diatur melalui application.
> langsung. Jadi, application.
> nilai konstanta secara terus menerus dari 1 menjadi 2. Ketika
> application.
> kali buka workbook, set pertama saat open selalu nilai konstanta bernilai
> 1. Nilai konstanta ini disimpan dalam sebuah nama range bernama
> '_MyTrigger_
> Nilai dalam _MyTrigger_ lah yang menjadi nilai kondisi dalam Conditional
> Formatting (CF). Jadi blinking sebenarnya dilakukan oleh si CF karena ada
> pengubahan nilai _MyTrigger_ oleh application.
>
> Jadi nanti kalau ada yang gak stabil, coba perhatikan betul, sisi
> blinking-nya ada sisi sound-nya.
>
> Berikut gambaran tentang UDF SoundWarning
> UDF SoundWarning
>
>
>
>
>
>
>
>
>
> Syntax =SoundWarning( kriteria_mulai_
> [filefullname_
>
>
>
>
> kriteria_mulai_
> komputasi ekspresi tertentu
>
>
>
>
> jika nilainya <= 0, maka SoundWarning akan menghentikan bunyi
>
>
>
>
> jika nilainya > 0, maka SoundWarning akan memulai bunyi peringatan
>
>
>
> [pesan_warning] teks yang akan ditampilkan ke user yang menjadi nilai
> hasil UDF ini ketika kriteria_mulai_
>
> teks bisa berupa hasil komputasi ekspresi tertentu
>
>
>
>
>
> [filefullname_
> peringatan.
>
>
>
>
>
> nama file harus tertulis lengkap beserta drive dan foldernya
>
>
>
>
>
> bila file tidak ditentukan user atau file dari user tidak ditemukan, maka
> file default C:\Windows\Media\
>
> jika file tidak ditemukan, maka tidak ada suara peringatan yang dimainkan
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Result Jika nilai kriteria_mulai_
> akan dieksekusi menjadi suara peringatan disertai pesan teks dalam
> [pesan_warning]
> Jika nilai kriteria_mulai_
> dihentikan dan tidak ada pesan teks yang ditampilkan
>
>
>
>
>
>
>
>
>
>
>
>
> Contoh pemakaian :
>
>
>
>
>
>
>
>
>
>
> =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'" )
>
>
>
>
>
>
>
>
> Mainkan file default ketika isi cell B3 adalah teks 'a' (b3="a")
>
>
>
>
>
> kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell
> B3 tidak boleh 'a'
>
>
>
>
>
>
>
>
>
>
>
>
>
> =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'" ,
> "C:\Windows\
>
>
>
>
>
> Mainkan file bernama chord.wav yang ada di C:\Windows\Media\ ketika isi
> cell B3 adalah teks 'a' (b3="a")
>
> kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell
> B3 tidak boleh 'a'
>
>
>
>
>
>
>
>
>
>
>
>
> Peringatan !!!
>
>
>
>
>
>
>
>
>
> 1 Pastikan pada event workbook before close, baris terakhir sebelum End
> Sub diberi kode untuk menghentikan sound sebagai berikut :
> PlaySound vbnullstring,
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2 Pada pengembangan untuk memasukkan UDF SoundWarning menjadi sebuah
> AddIn, sertai dengan class pengatur Workbook agar setiap workbook yang
> ditutup menjalankan
> PlaySound vbnullstring,
>
>
>
>
>
>
>
>
>
> kemudian pada file addin dilanjutkan dengan proses application.
> untuk memicu UDF SoundWarning pada workbook yang belum tertutup
>
>
>
>
>
>
>
>
>
>
>
> 3 Yang dimainkan biasanya file pertama yang dijumpai, tetapi hal ini
> masih belum stabil. Mungkin harus pakai midi supaya bisa bareng semua
> dimainkan dan biar ribut seperti pasar :D
> VBA Code untuk UDF SoundWarning :
> Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
> ByVal lpszName As String, ByVal hModule As Long, ByVal
> dwFlags As Long) As Long
>
> Public sAddr As String
>
> 'Kid,Jakarta, 2007-01-05,rewrite for VB6 and VBA
> 'SoundWarning : mengeksekusi file .wav dengan suatu kondisi tertentu dan
> memberi return value teks
> 'butuh WinAPI function PlaySound pada winmm.dll
> Public Function SoundWarning(
> Optional sWarning As String = "nah lo... ada yang gak
> pas", _
> Optional sFileName As String = vbNullString) As String
> Dim sFile As String, sCallerAddr As String
>
> Application.
> If LenB(sFileName) = 0 Then
> sFile = "C:\Windows\
> ElseIf LenB(Dir$(sFileName
> sFile = "C:\Windows\
> Else
> sFile = sFileName
> End If
>
> sCallerAddr = Application.
> If lStartPeringatan < 1 Then
> sAddr = Replace$(sAddr, sCallerAddr, vbNullString)
> If LenB(sAddr) = 0 Then
> PlaySound vbNullString, 0, 9
> End If
> SoundWarning = vbNullString
> Else
> If InStr(sAddr, sCallerAddr) = 0 Then
> sAddr = sAddr & sCallerAddr
> End If
> PlaySound sFile, 0, 9
> SoundWarning = sWarning
> End If
> End Function
>
>
> Module yang mengatur nilai dalam nama range _MyTrigger_ :
> Public lTimer As Long
>
> Public Sub MyTrigger()
> Select Case lTimer
> Case 0
> Application.
> Procedure:="
> StopMyTrigger
> Case 1, 2
> lTimer = 2 + (lTimer = 2)
> ThisWorkbook.
> Application.
> Procedure:="
> End Select
> End Sub
>
> Public Sub StopMyTrigger(
> Application.
> Procedure:="
> Schedule:=False
> End Sub
>
> Pengaturan saat open workbook :
> Private Sub Workbook_Open(
> lTimer = 1
> ThisWorkbook.
> MyTrigger
> End Sub
>
> Pengaturan saat workbook akan di close (before close)
> Private Sub Workbook_BeforeClos
> lTimer = 0
> ThisWorkbook.
> MyTrigger
>
> PlaySound vbNullString, 0, 9
> End Sub
>
> Moga-moga gak bikin crash ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/23 Kurei recca <yusajing_ehm@
>
> **
>
> Salam Para Master Excel,
>
> Ceritanya saya ingin membuat suatu coding dengan kondisi Jika Cell A1
> bertuliskan kata "TRUE" maka akan ada bunyi beep berulang selama 20 detik
> or periode tertentu dan Cell Tersebut kelap kelip berwarna kuning dan putih
> selama 20 detik tersebut.
>
> Kira2 bagaimana ya codingnya,,?
>
> Mohon Pencerahannya.
>
> Best Regards
>
>
>
>
>
>
>
>
>
>
>
>
Mon Oct 1, 2012 2:26 am (PDT) . Posted by:
"agam Tole" agam_tole
Salam
Mohon bantuannya, untuk menghitung bonus.
Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
File Terlampir
Salam
Agam
--- Mods ---
Coba pelajari fungsi-fungsi dasar Excel, terutama IF
=IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini , jika_salah_tulis_nilai_ini )
Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
------------
Mohon bantuannya, untuk menghitung bonus.
Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
File Terlampir
Salam
Agam
--- Mods ---
Coba pelajari fungsi-fungsi dasar Excel, terutama IF
=IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
------------
Mon Oct 1, 2012 2:49 am (PDT) . Posted by:
"agam Tole" agam_tole
Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai TRUE jika di bawah 200, File Terlampir.
salam
--- On Mon, 10/1/12, agam Tole <agam_tole@yahoo.com > wrote:
From: agam Tole <agam_tole@yahoo.com >
Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal 200
To: belajar-excel@yahoogroups.com
Date: Monday, October 1, 2012, 9:10 AM
Salam
Mohon bantuannya, untuk menghitung bonus.
Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
File Terlampir
Salam
Agam
--- Mods ---
Coba pelajari fungsi-fungsi dasar Excel, terutama IF
=IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini , jika_salah_tulis_nilai_ini )
Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
------------
salam
--- On Mon, 10/1/12, agam Tole <agam_tole@yahoo.
From: agam Tole <agam_tole@yahoo.
Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal 200
To: belajar-excel@
Date: Monday, October 1, 2012, 9:10 AM
Salam
Mohon bantuannya, untuk menghitung bonus.
Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
File Terlampir
Salam
Agam
--- Mods ---
Coba pelajari fungsi-fungsi dasar Excel, terutama IF
=IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
------------
Mon Oct 1, 2012 2:59 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Berikut formula Anda :
=IF(A6>=$B$1,*A6*$B$2*,*A6<=$B$1*)
Bahasa manusia dari formula diatas :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
A6<=$B$1*)"
Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
"Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
Ton"
Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
Bagian :
>> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
>> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton"
artinya *A6*$B$2*
Bahasa manusianya :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
*0*alias tidak mendapat bonus sepeser pun."
Kira-kira bunyi formulanya :
hehehe... kayanya udah bisa deh...
Wassalam,
Kid.
=IF(A6>=$B$1,*A6*$B$2*,*0*)
2012/10/1 agam Tole <agam_tole@yahoo.com >
> **
>
>
> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
> TRUE jika di bawah 200, File Terlampir.
>
> salam
>
> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.com >* wrote:
>
>
> From: agam Tole <agam_tole@yahoo.com >
> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
> 200
> To: belajar-excel@yahoogroups.com
> Date: Monday, October 1, 2012, 9:10 AM
>
>
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini ,
> jika_salah_tulis_nilai_ini )
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
>
=IF(A6>=$B$1,
Bahasa manusia dari formula diatas :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
A6<=$B$1*)"
Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
"Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
Ton"
Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
Bagian :
>> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
>> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton"
artinya *A6*$B$2*
Bahasa manusianya :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
*0*alias tidak mendapat bonus sepeser pun."
Kira-kira bunyi formulanya :
hehehe... kayanya udah bisa deh...
Wassalam,
Kid.
=IF(A6>=$B$1,
2012/10/1 agam Tole <agam_tole@yahoo.
> **
>
>
> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
> TRUE jika di bawah 200, File Terlampir.
>
> salam
>
> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.
>
>
> From: agam Tole <agam_tole@yahoo.
> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
> 200
> To: belajar-excel@
> Date: Monday, October 1, 2012, 9:10 AM
>
>
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
> jika_salah_tulis_
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
>
Mon Oct 1, 2012 5:26 am (PDT) . Posted by:
"agam_tole@yahoo.com" agam_tole
Ane nyerah... Hehehhe.. Udh mumet om.. Bahasa manusia sih udh bs, tp mengkonfersi. Ke rumus agak kurang faham,, salam..
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 1 Oct 2012 16:59:20
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal 200
Berikut formula Anda :
=IF(A6>=$B$1,*A6*$B$2*,*A6<=$B$1*)
Bahasa manusia dari formula diatas :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
A6<=$B$1*)"
Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
"Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
Ton"
Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
Bagian :
>> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
>> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton"
artinya *A6*$B$2*
Bahasa manusianya :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
*0*alias tidak mendapat bonus sepeser pun."
Kira-kira bunyi formulanya :
hehehe... kayanya udah bisa deh...
Wassalam,
Kid.
=IF(A6>=$B$1,*A6*$B$2*,*0*)
2012/10/1 agam Tole <agam_tole@yahoo.com >
> **
>
>
> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
> TRUE jika di bawah 200, File Terlampir.
>
> salam
>
> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.com >* wrote:
>
>
> From: agam Tole <agam_tole@yahoo.com >
> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
> 200
> To: belajar-excel@yahoogroups.com
> Date: Monday, October 1, 2012, 9:10 AM
>
>
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini ,
> jika_salah_tulis_nilai_ini )
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
>
Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Mon, 1 Oct 2012 16:59:20
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal 200
Berikut formula Anda :
=IF(A6>=$B$1,
Bahasa manusia dari formula diatas :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
A6<=$B$1*)"
Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
"Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
Ton"
Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
Bagian :
>> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
>> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton"
artinya *A6*$B$2*
Bahasa manusianya :
"Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
*0*alias tidak mendapat bonus sepeser pun."
Kira-kira bunyi formulanya :
hehehe... kayanya udah bisa deh...
Wassalam,
Kid.
=IF(A6>=$B$1,
2012/10/1 agam Tole <agam_tole@yahoo.
> **
>
>
> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
> TRUE jika di bawah 200, File Terlampir.
>
> salam
>
> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.
>
>
> From: agam Tole <agam_tole@yahoo.
> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
> 200
> To: belajar-excel@
> Date: Monday, October 1, 2012, 9:10 AM
>
>
>
>
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus..
> tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
> jika_salah_tulis_
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
> darimana, nilai salahnya hasilnya darimana
>
> ------------
>
>
>
Mon Oct 1, 2012 5:41 am (PDT) . Posted by:
"nubie masta"
coba:
=IF(A6>=200;$B$2;"")
terus copy format dari B6
--
masta (http://masta.rumahterjemah.com )
!YM: mas.tjogja
milis lain: uprekwp@yahoogroups.com
> Balasan ntk agam_tole@yahoo.com
> Poweredby: e.rumahterjemah.com :
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini , jika_salah_tulis_nilai_ini )
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
>
> ------------
>
> ------------------------------------
>
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo! Groups Links
>
>
>
>
=IF(A6>=200;
terus copy format dari B6
--
masta (http://masta.
!YM: mas.tjogja
milis lain: uprekwp@yahoogroups
> Balasan ntk agam_tole@yahoo.
> Poweredby: e.rumahterjemah.
> Salam
>
> Mohon bantuannya, untuk menghitung bonus.
> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/ Ton
> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
> File Terlampir
>
> Salam
>
> Agam
>
>
> --- Mods ---
> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>
> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
>
> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya darimana, nilai salahnya hasilnya darimana
>
> ------------
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
>
>
>
>
Mon Oct 1, 2012 5:45 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
loh kan sudah dikasih formula lengkapnya. Tinggal dicoba nyusun sendiri dan
bandingkan dengan formula yang sudah diberikan di posting lalu.
Atau coba cara lain :
=(A6>=$B$1)**A6*$B$2*
Wassalam,
Kid.
2012/10/1 <agam_tole@yahoo.com >
> **
>
>
> ** Ane nyerah... Hehehhe.. Udh mumet om.. Bahasa manusia sih udh bs, tp
> mengkonfersi. Ke rumus agak kurang faham,, salam..
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
> ------------------------------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 1 Oct 2012 16:59:20 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka
> Minimal 200
>
>
>
> Berikut formula Anda :
> =IF(A6>=$B$1,*A6*$B$2*,*A6<=$B$1*)
> Bahasa manusia dari formula diatas :
> "Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
> maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
>
> Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
> perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
> A6<=$B$1*)"
>
> Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
> "Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
> 3.000,-/ Ton"
>
> Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
> Bagian :
> >> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
> >> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton" artinya *A6*$B$2*
>
> Bahasa manusianya :
> "Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
> maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
>
> Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan *0*alias tidak mendapat bonus sepeser pun."
>
> Kira-kira bunyi formulanya :
> hehehe... kayanya udah bisa deh...
>
> Wassalam,
> Kid.
> =IF(A6>=$B$1,*A6*$B$2*,*0*)
>
>
> 2012/10/1 agam Tole <agam_tole@yahoo.com >
>
>> **
>>
>>
>> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
>> TRUE jika di bawah 200, File Terlampir.
>>
>> salam
>>
>> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.com >* wrote:
>>
>>
>> From: agam Tole <agam_tole@yahoo.com >
>> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
>> 200
>> To: belajar-excel@yahoogroups.com
>> Date: Monday, October 1, 2012, 9:10 AM
>>
>>
>>
>>
>> Salam
>>
>> Mohon bantuannya, untuk menghitung bonus.
>> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
>> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
>> 3.000,-/ Ton
>> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
>> File Terlampir
>>
>> Salam
>>
>> Agam
>>
>> --- Mods ---
>> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>>
>> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_nilai_ini ,
>> jika_salah_tulis_nilai_ini )
>>
>> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
>> darimana, nilai salahnya hasilnya darimana
>>
>> ------------
>>
>>
>
>
bandingkan dengan formula yang sudah diberikan di posting lalu.
Atau coba cara lain :
=(A6>=$B$1)*
Wassalam,
Kid.
2012/10/1 <agam_tole@yahoo.
> **
>
>
> ** Ane nyerah... Hehehhe.. Udh mumet om.. Bahasa manusia sih udh bs, tp
> mengkonfersi. Ke rumus agak kurang faham,, salam..
> Sent from my BlackBerry�
> powered by Sinyal Kuat INDOSAT
> ------------
> *From: * "Kid Mr." <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 1 Oct 2012 16:59:20 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka
> Minimal 200
>
>
>
> Berikut formula Anda :
> =IF(A6>=$B$1,
> Bahasa manusia dari formula diatas :
> "Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
> maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
>
> Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan
> perbandingan apakah nilai tonnase kurang dari atau sama dengan batasnya (*
> A6<=$B$1*)"
>
> Jadi, bunyi bahasa manusisanya jelas beda dengan kriteria berikut ini :
> "Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
> 3.000,-/ Ton"
>
> Sekarang mau menyusun bahasa manusia yang lugas gak usah dirumit-rumitkan.
> Bagian :
> >> "di bawah 200 ia tidak menghitung bonus.. " artinya *0 *bukan ?
> >> "angka melebihi 200 ia akan otomatis menghitung Bonus Rp. 3.000,-/
> Ton" artinya *A6*$B$2*
>
> Bahasa manusianya :
> "Jika nilai tonnase (A6) lebih dari atau sama dengan nilai batas ($B$1) ,
> maka nilai bonus adalah perkalian tonnase dengan bonus/tonnase (*A6*$B$2*).
>
> Jika ternyata nilai tonnase tidak memenuhi syarat, maka isi dengan *0*alias tidak mendapat bonus sepeser pun."
>
> Kira-kira bunyi formulanya :
> hehehe... kayanya udah bisa deh...
>
> Wassalam,
> Kid.
> =IF(A6>=$B$1,
>
>
> 2012/10/1 agam Tole <agam_tole@yahoo.
>
>> **
>>
>>
>> Terima kasih atas sarannya.. sudah saya coba, tetapi mengasilkan nilai
>> TRUE jika di bawah 200, File Terlampir.
>>
>> salam
>>
>> --- On *Mon, 10/1/12, agam Tole <agam_tole@yahoo.
>>
>>
>> From: agam Tole <agam_tole@yahoo.
>> Subject: [belajar-excel] Bagaimana Menghitung Bonus dengan Angka Minimal
>> 200
>> To: belajar-excel@
>> Date: Monday, October 1, 2012, 9:10 AM
>>
>>
>>
>>
>> Salam
>>
>> Mohon bantuannya, untuk menghitung bonus.
>> Angka Minimalnya adalah 200, maka di bawah 200 ia tidak menghitung
>> bonus.. tp jika angka melebihi 200 ia akan otomatis menghitung Bonus Rp.
>> 3.000,-/ Ton
>> Untuk Bantuan dan kerjasamanya saya ucapkan TerimaKasih
>> File Terlampir
>>
>> Salam
>>
>> Agam
>>
>> --- Mods ---
>> Coba pelajari fungsi-fungsi dasar Excel, terutama IF
>>
>> =IF( nilai_sesuatu >= batasnya , jika_benar_tulis_
>> jika_salah_tulis_
>>
>> Sesuaikan nilai_sesuatunya apa, batasnya apa, nilai benar hasilnya
>> darimana, nilai salahnya hasilnya darimana
>>
>> ------------
>>
>>
>
>
Mon Oct 1, 2012 2:33 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
tidak bisa dihindarkan harus menggunakan fungsi indirect untuk menentukan relatif range yang harus dirujuk sesuai dengan bulan yang dikehendaki
formula pertama ditulis di AA9 (formula array)
{=SUM(IF($C$8:INDIRECT(ADDRESS(8;MIN(IF($C$7:$Z$7=AA$8;COLUMN($C$7:$Z$7)))+1))=Y$8;$C9:INDIRECT(ADDRESS(ROW();MIN(IF($C$7:$Z$7=AA$8;COLUMN($C$7:$Z$7)))+1))))}
dicopy ke kanan dan ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: [Y][U][S][U][F] <yusuf_cdn@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 1 Oktober 2012 9:01
Judul: [belajar-excel] Membuat Rumus Target & Actual Year To Date (YTD)
Halo para pakar Excel..
Meskipun saya berkutat di pekerjaan dengan excell tapi ternyata kemampuan excell saya masih tipis.. dan tidak bisa memecahkan perso'alan ini.
1. Saya punya data target dan actual tahunan dan selalu dilakukan review berkala.
2. Review berbentuk evaluasi pencapaian pada bulan yang telah dilalui dengan perbandingan total target hingga bulan yg telah dilalui berbanding actual.
3. Biasanya saya menggunakan rumus manual setiap bulan... dan kecendurang terjadi kesalahan, akhirnya berfikir untuk membuat rumus tapi tidak terpecahkan.
Keinginan :
Jika kolom target YTD atau kolom actual YTD maka data akan mengikuti YTD hingga bulan yg dipilih, kalau bisa tanpa kolom bantu dan tanpa macro..
Mohon pencerahan dari para mater excel.. mbak Siti dan Mr. Kid.. hehehe
Salam,
:[Y][U][S][U][F]:
formula pertama ditulis di AA9 (formula array)
{=SUM(IF($C$
dicopy ke kanan dan ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: [Y][U][S][U]
Kepada: "belajar-excel@
Dikirim: Senin, 1 Oktober 2012 9:01
Judul: [belajar-excel] Membuat Rumus Target & Actual Year To Date (YTD)
Halo para pakar Excel..
Meskipun saya berkutat di pekerjaan dengan excell tapi ternyata kemampuan excell saya masih tipis.. dan tidak bisa memecahkan perso'alan ini.
1. Saya punya data target dan actual tahunan dan selalu dilakukan review berkala.
2. Review berbentuk evaluasi pencapaian pada bulan yang telah dilalui dengan perbandingan total target hingga bulan yg telah dilalui berbanding actual.
3. Biasanya saya menggunakan rumus manual setiap bulan... dan kecendurang terjadi kesalahan, akhirnya berfikir untuk membuat rumus tapi tidak terpecahkan.
Keinginan :
Jika kolom target YTD atau kolom actual YTD maka data akan mengikuti YTD hingga bulan yg dipilih, kalau bisa tanpa kolom bantu dan tanpa macro..
Mohon pencerahan dari para mater excel.. mbak Siti dan Mr. Kid.. hehehe
Salam,
:[Y][U][S][U]
Mon Oct 1, 2012 2:34 am (PDT) . Posted by:
"harry siswanto" hsiswanto
Thanks Mr. Kid
Regards
Harry Siswanto
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, October 1, 2012 2:56 PM
Subject: Re: [belajar-excel] proteksi pd msExcel...
Hai Harry,
Coba cara proteksi berikut :
1. Pastikan tidak ada cell yang properti locked nya adalah false
>> blok seluruh cells dalam sheet tersebut (klik kotak diatas nomor baris Excel) -> klik kanan -> format cells -> tab protection -> centang opsi locked -> OK
2. aktifkan sebuah cell kosong (misal cell A1 kosong, maka klik A1 [1 cell ssaja])
3. proteksi sheet (sesuaikan pengarahan menu di xl2003, dan pada setting item yang dicentang atau tidak, sama dengan cara dibawah)
>> di xl2007
ribbon Review -> protect sheet -> hilangkan semua centang dari seluruh opsi -> tekan OK
4. save workbook.
Wassalam,
Kid.
2012/10/1 harry siswanto <hsiswanto@yahoo.com >
>Dear Senior,
>
>saya mau tanya,
>bagaimana caranya Proteksi pada Workbook/Worksheet di Excel,
>untuk;
>1. Mematikan Click-kanan pada Mouse
>2. Mematikan Fungsi Copy & Paste.
>jadi File hanya bisa dibuka, tapi tidak bisa di Edit, dan Copy.
>kalo Non Aktifkan Edit saja sudah ketemu caranya.
>
>terima kasih atas perhatian dan kerjasamanya
>
>
>Regards
>
>
>
>Harry Siswanto
Regards
Harry Siswanto
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, October 1, 2012 2:56 PM
Subject: Re: [belajar-excel] proteksi pd msExcel...
Hai Harry,
Coba cara proteksi berikut :
1. Pastikan tidak ada cell yang properti locked nya adalah false
>> blok seluruh cells dalam sheet tersebut (klik kotak diatas nomor baris Excel) -> klik kanan -> format cells -> tab protection -> centang opsi locked -> OK
2. aktifkan sebuah cell kosong (misal cell A1 kosong, maka klik A1 [1 cell ssaja])
3. proteksi sheet (sesuaikan pengarahan menu di xl2003, dan pada setting item yang dicentang atau tidak, sama dengan cara dibawah)
>> di xl2007
ribbon Review -> protect sheet -> hilangkan semua centang dari seluruh opsi -> tekan OK
4. save workbook.
Wassalam,
Kid.
2012/10/1 harry siswanto <hsiswanto@yahoo.
>Dear Senior,
>
>saya mau tanya,
>bagaimana caranya Proteksi pada Workbook/Worksheet di Excel,
>untuk;
>1. Mematikan Click-kanan pada Mouse
>2. Mematikan Fungsi Copy & Paste.
>jadi File hanya bisa dibuka, tapi tidak bisa di Edit, dan Copy.
>kalo Non Aktifkan Edit saja sudah ketemu caranya.
>
>terima kasih atas perhatian dan kerjasamanya
>
>
>Regards
>
>
>
>Harry Siswanto
Mon Oct 1, 2012 2:38 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Mungkin baris :
.Offset(0, 1).Value = 1
adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi
nilai 1.
atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
Wassalam,
Kid.
2012/10/1 aji mumpung <pupung1986@gmail.com >
> .Offset(0, 1).Value = 1
.Offset(0, 1).Value = 1
adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi
nilai 1.
atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
Wassalam,
Kid.
2012/10/1 aji mumpung <pupung1986@gmail.
> .Offset(0, 1).Value = 1
Mon Oct 1, 2012 2:47 am (PDT) . Posted by:
"aji mumpung"
maksud awalnya offset(0,-1) buat kasih nomor di sebelah kiri nama pada saat
baris pertama kosong
kurang tanda minusnya hehehe ^_^
terus saya keluarin dari blok If di atasnya (biar lebih singkat dan tidak
diulang di blok Else-nya) tapi kodenya lupa dihapus hehehe.. ^_^
makasih atas koreksinya ^_^
-aji mumpung-
Pada 1 Oktober 2012 16:38, Kid Mr. <mr.nmkid@gmail.com > menulis:
> **
>
>
> Mungkin baris :
> .Offset(0, 1).Value = 1
>
> adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi
> nilai 1.
> atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
>
> Wassalam,
> Kid.
>
>
> 2012/10/1 aji mumpung <pupung1986@gmail.com >
>
>> .Offset(0, 1).Value = 1
>
>
>
>
baris pertama kosong
kurang tanda minusnya hehehe ^_^
terus saya keluarin dari blok If di atasnya (biar lebih singkat dan tidak
diulang di blok Else-nya) tapi kodenya lupa dihapus hehehe.. ^_^
makasih atas koreksinya ^_^
-aji mumpung-
Pada 1 Oktober 2012 16:38, Kid Mr. <mr.nmkid@gmail.
> **
>
>
> Mungkin baris :
> .Offset(0, 1).Value = 1
>
> adalah Offset(0,0) untuk jadi nomor, supaya alamat tidak berganti jadi
> nilai 1.
> atau, bagaimana jika nomornya ndak usah saja. toh gak guna-guna amat.
>
> Wassalam,
> Kid.
>
>
> 2012/10/1 aji mumpung <pupung1986@gmail.
>
>> .Offset(0, 1).Value = 1
>
>
>
>
Mon Oct 1, 2012 2:44 am (PDT) . Posted by:
"M.Ade Alfarid" aderyo
Dear AW,
Terlampir penggunaan fungsi weekday,
Semoga Bermanfaat
Ade
Rekans,
Bagaimana conditional Formatting B2 agar bisa merah bila valuenya Sat atau
Sun
B2 formula yang ngambil dari A2
Terimakasih
AW
Terlampir penggunaan fungsi weekday,
Semoga Bermanfaat
Ade
Rekans,
Bagaimana conditional Formatting B2 agar bisa merah bila valuenya Sat atau
Sun
B2 formula yang ngambil dari A2
Terimakasih
AW
Mon Oct 1, 2012 3:02 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Berbekal rasa penasaran, saya coba utak atik program Mr. Kid (maaf Mr. kid belum mint ijin) maka jadilah program yang belum sempurna seperti file terlampir.
Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClose dan BeforeSave.
- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
Cara kerjanya kurang lebih seperti ini:
- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 1 October 2012, 14:27
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
loh... ternyata ide
'cek username diatas sini
'cek pwd sebagai berikut
IF pass=Sheets("tbluser").range("
d" & lcari).value then
range("j3").value =Sheets("tbluser").range("e" & lcari).value
else
range("j3").clearcontents
endif
'proses enabled disinibelum dicoba
ya wis...
Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
IF pass=Sheets("tbluser").range("d" & lcari).value then
Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
Oleh sebab itu, maka bagian :
kcari = Sheets("tbluser").Columns("D:
D").Find(pass).Row
If lcari = 0 And kcari = 0 Then
MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
txtuser.Value = ""
txtpass.Value = ""
Exit Sub
End If
With Sheets("tbluser")
Range("J3").Value = .Range("E" & lcari).Value
'With Sheets("frmbarangmasuk")
Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
txtuser.Value = ""
txtpass.Value = ""
Sheets("MenuUtama").Range("J3"
).Value = ""
End Withharusnya diganti dengan
'cek pwd sebagai berikut
IF pass=Sheets("tbluser").range("
d" & lcari).value then
range("j3").value =Sheets("tbluser").range("e" & lcari).value
else
range("j3").clearcontents
endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
Wassalam,
Kid.
On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail.com > wrote:
>
>selamat siang semua
>
>
>Private Sub cmdkon_Click()
>'Membuat variabel
>Dim user As String
>Dim pass As String
>Dim lcari As Long
>Dim kcari As Long
>
>'Memastikan
>If Trim(txtuser.Value) = "" Then
>MsgBox "USER ID", vbInformation, "Info"
>Exit Sub
>End If
>On Error Resume Next
>user = LCase(Trim(txtuser.Value))
>pass = LCase(Trim(txtpass.Value))
>lcari = 0
>kcari = 0
>lcari = Sheets("tbluser").Columns("C:C").Find(user).Row
>kcari = Sheets("tbluser").Columns("D:D").Find(pass).Row
>
If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser")
>Range("J3").Value = .Range("E" & lcari).Value
>'With Sheets("frmbarangmasuk")
>Sheets("frmbarangmasuk").Range("C10").Value = txtuser.Value
>Sheets("frmbarangkeluar").Range("C10").Value = txtuser.Value
>txtuser.Value = ""
>txtpass.Value = ""
>
Sheets("MenuUtama").Range("J3").Value = ""
>
>End With
>If Range("J3").Value = "User" Then
>cmdinputdata.Enabled = True
>cmdtransaksi.Enabled = True
>cmdtransaksib.Enabled = True
>Else
>If Range("J3").Value = "Admin" Then
>cmdadmin.Enabled = True
>End If
>End If
>End Sub
>
saya coba koding seperti diatas namun ttp belum bisa
>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>trimakasih
>
>jojo
>
>--
>View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/LOGIN-FORM-EMBED-COMMANBUTTON-tp5712135p5712196.html
>
>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Karena tujuan kita adalah proteksi maka saya coba "proteksi" dari segala arah (walaupun masih bisa dibongkar).
- Pada saat sheet diaktifkan semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Worksheet_Activate
- Pada saat workbook belum ditutup atau disave semua tombol (kecuali tombol konfirmasi) dinonaktifkan dengan Event Workbook_BeforeClos
- Untuk mencegah VBA nya diutak atik maka diberi password (passwordnya hk).
Cara kerjanya kurang lebih seperti ini:
- Jika USER belum mengetik Nama (ID) atau mengetik nama yang salah maka USER diberi pesan
- Jika USER sudah mengetik ID yang benar maka USER harus memasukkan password sesuai sheet tbluser (tbluser juga harus dipassword - belum dibuat). Jika USER langusng klik tombol Konfirmasi tanpa memasukkan password maka USER akan diberi pesan.
- Jika USER memasukkan password yang tidak sesuai dengan yang ada pada sheet tbluser maka USER juga akan diberi pesan.
- Hanya jika USER memasukkan password yang sesuai maka tombol akan dibuka sesuai levelnya
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, 1 October 2012, 14:27
Subject: Re: [belajar-excel] LOGIN FORM & EMBED COMMANBUTTON
loh... ternyata ide
'cek username diatas sini
'cek pwd sebagai berikut
IF pass=Sheets(
d" & lcari).value then
range("j3").
else
range("j3").
endif
'proses enabled disinibelum dicoba
ya wis...
Pada umumnya, daftar username adalah unique. Jadi kalau username nya gak ditemukan pasti langsung keluar dari proses.
Kalau username ketemu, maka sudah bisa dapat barisnya di lcari
Maka tahap berikutnya adalah cek apakah password yang ditulis user dengan password yang ada di daftar username pada baris lcari adalah sama.
IF pass=Sheets(
Jadi pengecekan passwordnya sama atau tidak,tidak bisa dilakukan dengan cara :
kcari = Sheets("tbluser"
karena bisa menghasilkan nilai kcari yang berbeda dengan lcari alias itu password milik username lain.
Jika username sudah ketemu (nilai lcari) dan teks password sudah sama (IF yang biru), maka lakukan set penyimpanan nilai akses ke J3.
Oleh sebab itu, maka bagian :
kcari = Sheets("tbluser"
D").Find(pass)
If lcari = 0 And kcari = 0 Then
MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
"Silahkan isikan yang lain", vbInformation, "Info"
txtuser.Value = ""
txtpass.Value = ""
Exit Sub
End If
With Sheets("tbluser"
Range("J3").
'With Sheets("frmbarangma
Sheets("frmbarangma
Sheets("frmbarangke
txtuser.Value = ""
txtpass.Value = ""
Sheets("MenuUtama"
).Value = ""
End Withharusnya diganti dengan
'cek pwd sebagai berikut
IF pass=Sheets(
d" & lcari).value then
range("j3").
else
range("j3").
endif(bagian untuk tulis ke sheet lain yang ada di merah sana juga dimasukkan ke blok IF yang biru)
Wassalam,
Kid.
On Mon, Oct 1, 2012 at 11:12 AM, sapicumi <sapicumi@rocketmail
>
>selamat siang semua
>
>
>Private Sub cmdkon_Click(
>'Membuat variabel
>Dim user As String
>Dim pass As String
>Dim lcari As Long
>Dim kcari As Long
>
>'Memastikan
>If Trim(txtuser.
>MsgBox "USER ID", vbInformation, "Info"
>Exit Sub
>End If
>On Error Resume Next
>user = LCase(Trim(txtuser.
>pass = LCase(Trim(txtpass.
>lcari = 0
>kcari = 0
>lcari = Sheets("tbluser"
>kcari = Sheets("tbluser"
>
If lcari = 0 And kcari = 0 Then
>
>MsgBox "USER ID " & user & " tidak ditemukan!!" & Chr(13) & _
>"Silahkan isikan yang lain", vbInformation, "Info"
>txtuser.Value = ""
>txtpass.Value = ""
>Exit Sub
>End If
>With Sheets("tbluser"
>Range("J3")
>'With Sheets("frmbarangma
>Sheets("frmbarangm
>Sheets("frmbarangk
>txtuser.Value = ""
>txtpass.Value = ""
>
Sheets("MenuUtama"
>
>End With
>If Range("J3").
>cmdinputdata.
>cmdtransaksi.
>cmdtransaksib.
>Else
>If Range("J3").
>cmdadmin.Enabled = True
>End If
>End If
>End Sub
>
saya coba koding seperti diatas namun ttp belum bisa
>ada kah yang bisa menambahakan ato merevisi contoh file seperti lampiran di
>post saya di atas cm koding diubah sedikit seperti yg saya paparkan
>trimakasih
>
>jojo
>
>--
>View this message in context: http://milis-
>
>Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Mon Oct 1, 2012 5:08 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
pada kotak isian conditional formula tulis
=IF(OR(WEEKDAY(A2)=1;WEEKDAY(A2)=7);TRUE)
wassalam
Ghozi Alkatiri
________________________________
Dari: "agung.widodo01@id.panasonic.com " <agung.widodo01@id.panasonic.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 1 Oktober 2012 9:06
Judul: [belajar-excel] Conditional Formatting Formula bernilai Libur
Rekans,
Bagaimana conditional Formatting B2 agar
bisa merah bila valuenya Sat atau Sun
B2 formula yang ngambil dari A2
Date Day
5-Aug Sun
6-Aug Mon
7-Aug Tue
8-Aug Wed
9-Aug Thu
10-Aug Fri
11-Aug Sat
12-Aug Sun
Sudah dicoba Formula is =A2="Sun"
Nggak Bisa
Terimakasih
AW
=IF(OR(WEEKDAY(
wassalam
Ghozi Alkatiri
____________
Dari: "agung.widodo01@
Kepada: belajar-excel@
Dikirim: Senin, 1 Oktober 2012 9:06
Judul: [belajar-excel] Conditional Formatting Formula bernilai Libur
Rekans,
Bagaimana conditional Formatting B2 agar
bisa merah bila valuenya Sat atau Sun
B2 formula yang ngambil dari A2
Date Day
5-Aug Sun
6-Aug Mon
7-Aug Tue
8-Aug Wed
9-Aug Thu
10-Aug Fri
11-Aug Sat
12-Aug Sun
Sudah dicoba Formula is =A2="Sun"
Nggak Bisa
Terimakasih
AW
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
