Yth:Mb Ika
Terima kasih apabila sudah membantu.
Berikut adalah penjelasan mengenai kode yang ada, semoga bisa dipahami.
Sub popup()Memberikan dimension pada object/variabel yang akan di gunakan,
yaitu:Dim rowpjg As LongDim i As LongDim msg As String
mendeklarasikan variabel "msg"/pesan yang akan muncul, yaitu:
msg = "Ingat Nomor Surat dibawah harus dikembalikan :" & vbCrLf & vbCrLf
mendeklarasikan variabel "rowpjg" yang akan digunakan, yaitu:
rowpjg = Range("A" & Rows.Count).End(xlUp).Row
manfaat atau fungsi mendeklarasikan diatas agar penulisan kode yang kita
lakukan bisa lebih ringkas dan tidak selalu mengulang-ulang.
Untuk mencari nomor surat dan tanggal surat yang sudah jatuh tempo (-7 hari)
bisa menggunakan perulangan (For..Next), yaitu:
For i = 2 To rowpjg
Maksud dari baris kode diatas adalah kita melakukan perulangan for(untuk)
rowpjg yang dimana sudah di deklarasikan diatas, dimana angka 2 adalah
menunjukkan bahwa perulangan yang kita lakukan dimulai pada row baris ke 2
sehingga setiap melakukan perulangan/pencarian selalu dimulai pada baris kedua,
jika mengacu pada tabel yang ada(lampiran waktu lalu) baris row 2 adalah no 1.
Menggunakan logika If untuk melihat tanggal mana yang sudah jatuh tempo yaitu
dengan kode:If Range("D" & i) - Date <= 7 Or Range("D" & i) - Date < 0 Then
Jika logika yang kita bangun diatas memenuhi persyaratan atau artinya bahwa
jika ada surat yang sudah masuk pada tanggal jatuh tempo, maka akan di eksekusi
dengan mendeklarasikan variabel msg melalui kode sebagai berikut:
msg = msg & Range("B" & i).Value & " Waktu tersisa tinggal " & Range("D" & i) -
Date & " Hari" & vbCrLf
Memilih nomor surat yang sudah jatuh tempo:Range("B" & i).Value
Memilih tanggal yang sudah jatuh tempo dan menampilkan tanggal yang dikalkulasi
atau dihitung/dikurangi (lihat tanda (-) ) pada tanggal sekarang:
Range("D" & i) - Date
Memberikan warna atau isyarat pada cell/range yang nomor surat mana sudah jatuh
tempo:
Range("B" & i).SelectSelection.Interior.Color = rgbRed
Penutup fungsi If
End If
Perulangan next, dimana berfungsi sebagai perulangan yang terus dilakukan untuk
mencari nomor surat dan tanggal mana yang sudah jatuh tempoNext i
Menampilkan pesan/ pop up pada pertama membuka file excelMsgBox msg
Memanggil settimer dimana settimer adalah sub prosedur lain yang akan
dijelaskan dibawah.
Call settimer
End Sub
Sub prosedur settimerSub settimer()
Memanggil timer dengan waktu sekarang atau waktu-waktu sekarang dimana file
excel ini dibuka.Application.OnTime Now + TimeValue("02:00:00"), "popup"
End Sub
Terima Kasih.Salam.
On Tuesday, December 22, 2015 2:51 PM, "ieka sulis [email protected]
[belajar-excel]" <[email protected]> wrote:
terima kasih mas Ryan atas solusi yang diberikan, benar2 sesuai dengan
yang saya harapkan. Tetapi bisakah dijelaskan maksud / arti dari setiap script
baris dan variable nya agar saya dapat lebih mengerti maksud di setiap
kodingnya.. Maap saya masih belajar.. Penjelasan ini nanti juga berfungsi
ketika saya memindah datanya di kolom lain, jadi jika ingin mengedit bisa lebih
mudah,, hehe,, terima kasih atas bantuannya..
2015-12-18 9:35 GMT+07:00 [email protected] [belajar-excel]
<[email protected]>:
Halo mba,
Saya coba melihat permasalahan yang dihadapi oleh mba, untuk bagaimana
menampilkan warning surat yang harus segera dikumpulkan. Saya membuat dalam
bentuk macro excel sehingga akan muncul pada saat file excel atau workbook
dibuka sama seperti PopUp/ MsgBox. Dimana file ini akan bekerja mengacu pada
tanggal yang ada dikolom "Tgl Pengembalian" apabila sudah memasuki masa tenggat
7 hari atau (-7) maka akan muncul pesan hingga -1. Tetapi bila belum memasuki
masa -7 hari maka akan muncul pesan lain.
Bisa lihat file terlampir yang saya punya. Semoga bisa membantu.
Terima Kasih.
Salam.
#yiv5590317799 #yiv5590317799 -- #yiv5590317799ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5590317799
#yiv5590317799ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5590317799
#yiv5590317799ygrp-mkp #yiv5590317799hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv5590317799 #yiv5590317799ygrp-mkp #yiv5590317799ads
{margin-bottom:10px;}#yiv5590317799 #yiv5590317799ygrp-mkp .yiv5590317799ad
{padding:0 0;}#yiv5590317799 #yiv5590317799ygrp-mkp .yiv5590317799ad p
{margin:0;}#yiv5590317799 #yiv5590317799ygrp-mkp .yiv5590317799ad a
{color:#0000ff;text-decoration:none;}#yiv5590317799 #yiv5590317799ygrp-sponsor
#yiv5590317799ygrp-lc {font-family:Arial;}#yiv5590317799
#yiv5590317799ygrp-sponsor #yiv5590317799ygrp-lc #yiv5590317799hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5590317799
#yiv5590317799ygrp-sponsor #yiv5590317799ygrp-lc .yiv5590317799ad
{margin-bottom:10px;padding:0 0;}#yiv5590317799 #yiv5590317799actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5590317799
#yiv5590317799activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5590317799
#yiv5590317799activity span {font-weight:700;}#yiv5590317799
#yiv5590317799activity span:first-child
{text-transform:uppercase;}#yiv5590317799 #yiv5590317799activity span a
{color:#5085b6;text-decoration:none;}#yiv5590317799 #yiv5590317799activity span
span {color:#ff7900;}#yiv5590317799 #yiv5590317799activity span
.yiv5590317799underline {text-decoration:underline;}#yiv5590317799
.yiv5590317799attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv5590317799 .yiv5590317799attach div a
{text-decoration:none;}#yiv5590317799 .yiv5590317799attach img
{border:none;padding-right:5px;}#yiv5590317799 .yiv5590317799attach label
{display:block;margin-bottom:5px;}#yiv5590317799 .yiv5590317799attach label a
{text-decoration:none;}#yiv5590317799 blockquote {margin:0 0 0
4px;}#yiv5590317799 .yiv5590317799bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv5590317799
.yiv5590317799bold a {text-decoration:none;}#yiv5590317799 dd.yiv5590317799last
p a {font-family:Verdana;font-weight:700;}#yiv5590317799 dd.yiv5590317799last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5590317799
dd.yiv5590317799last p span.yiv5590317799yshortcuts
{margin-right:0;}#yiv5590317799 div.yiv5590317799attach-table div div a
{text-decoration:none;}#yiv5590317799 div.yiv5590317799attach-table
{width:400px;}#yiv5590317799 div.yiv5590317799file-title a, #yiv5590317799
div.yiv5590317799file-title a:active, #yiv5590317799
div.yiv5590317799file-title a:hover, #yiv5590317799 div.yiv5590317799file-title
a:visited {text-decoration:none;}#yiv5590317799 div.yiv5590317799photo-title a,
#yiv5590317799 div.yiv5590317799photo-title a:active, #yiv5590317799
div.yiv5590317799photo-title a:hover, #yiv5590317799
div.yiv5590317799photo-title a:visited {text-decoration:none;}#yiv5590317799
div#yiv5590317799ygrp-mlmsg #yiv5590317799ygrp-msg p a
span.yiv5590317799yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5590317799
.yiv5590317799green {color:#628c2a;}#yiv5590317799 .yiv5590317799MsoNormal
{margin:0 0 0 0;}#yiv5590317799 o {font-size:0;}#yiv5590317799
#yiv5590317799photos div {float:left;width:72px;}#yiv5590317799
#yiv5590317799photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv5590317799
#yiv5590317799photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5590317799
#yiv5590317799reco-category {font-size:77%;}#yiv5590317799
#yiv5590317799reco-desc {font-size:77%;}#yiv5590317799 .yiv5590317799replbq
{margin:4px;}#yiv5590317799 #yiv5590317799ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv5590317799 #yiv5590317799ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5590317799
#yiv5590317799ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5590317799
#yiv5590317799ygrp-mlmsg select, #yiv5590317799 input, #yiv5590317799 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv5590317799
#yiv5590317799ygrp-mlmsg pre, #yiv5590317799 code {font:115%
monospace;}#yiv5590317799 #yiv5590317799ygrp-mlmsg *
{line-height:1.22em;}#yiv5590317799 #yiv5590317799ygrp-mlmsg #yiv5590317799logo
{padding-bottom:10px;}#yiv5590317799 #yiv5590317799ygrp-msg p a
{font-family:Verdana;}#yiv5590317799 #yiv5590317799ygrp-msg
p#yiv5590317799attach-count span {color:#1E66AE;font-weight:700;}#yiv5590317799
#yiv5590317799ygrp-reco #yiv5590317799reco-head
{color:#ff7900;font-weight:700;}#yiv5590317799 #yiv5590317799ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv5590317799 #yiv5590317799ygrp-sponsor
#yiv5590317799ov li a {font-size:130%;text-decoration:none;}#yiv5590317799
#yiv5590317799ygrp-sponsor #yiv5590317799ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv5590317799
#yiv5590317799ygrp-sponsor #yiv5590317799ov ul {margin:0;padding:0 0 0
8px;}#yiv5590317799 #yiv5590317799ygrp-text
{font-family:Georgia;}#yiv5590317799 #yiv5590317799ygrp-text p {margin:0 0 1em
0;}#yiv5590317799 #yiv5590317799ygrp-text tt {font-size:120%;}#yiv5590317799
#yiv5590317799ygrp-vital ul li:last-child {border-right:none
!important;}#yiv5590317799
