Salam sejahtera gan, dalam update data pada lembar Microsoft excel
seringkali ada beberapa orang yang mengisinya acak tidak berurutan berdasarkan
cell awal. Nah Gan, kali ini ane akan mencoba share cara untuk warnning atau pemberitahuan kepada pengguna aplikasi
atau lembar kerja agar mengisi atau update data secara berurutan (tidak acak ).
Berikut langkahnya :
1.
Buka lembar kerja excel atau aplikasi excel
2.
Klik develover
3.
Selanjutnya pilih menu Visual Basic, amaka akan
kelua table seperti di bawah ini :
4.
Kemudian masukan skrip berikut ini ke kolom di
atas :
Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
Dim rG As Range
Dim cL As Range
Dim psN As String
Set rG =
Sheets("Sheet1").Range("A4:G4")
If Intersect(Target, rG) Is
Nothing Then
For Each cL In rG.Cells
If cL.Value = vbNullString Then
MsgBox (" Input data secara
berurutan " & cL.Offset(-1, 0) & " Gan !!!"),
vbApplicationModal, "Sorry Gan !!!"
cL.Select
Exit For
End If
Next
End If
End Sub
Setelah
skrip dimasukan silahkan tutup dan save. Berikut gambar contoh warning cell :
Selamat
mencoba semoga sukse dan berkah
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.