Ruang Excel

Excel application sharing, knowledge of Microsoft Excel, and visual basic application (vba) for education.

Enjoy You'r Visiting

Sunday, February 19, 2017

Cara membuat dialog warrning pada cell excel yang belum terisi data

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.