Aplikasi Absensi Gabungan Excel dan VBE

 LOGIN

MEMBUAT ABSENSI DI EXCELL

TULISAN BERJALAN DI EXCELL

DI CELL B1:P1 DI MAIL MERGE KETIK “KANTOR CAMAT ANREAPI  http://www.kantorcamatanreapi.blogspot.com”

1.       Kemudian tekan F11

2.       Pilih insert .. module…dan copy code berikut :

Option Explicit

Public x As String

Public TimerOn As Boolean

Public Const teks As String = "KANTOR CAMAT ANREAPI http://www.kantorcamatanreapi.blogspot.com"

Sub MovingTextOnCells()

   Dim i As Long

      x = Space(80) + teks

Ulangi:

   If TimerOn = True Then

      DoEvents

      Sheet1.Cells(2) = x

      x = Right(x, Len(x) - 1)

      For i = 1 To 3700000: Next

      If Len(x) < 1 Then x = Space(80) + teks

      GoTo Ulangi

Else

      End

   End If

End Sub

3.       Klik sheet1 di vba copy code berikut

Option Explicit

Private Sub Worksheet_Activate()

   TimerOn = True

   DoEvents

   Range("B1:P1").HorizontalAlignment = xlLeft

   MovingTextOnCells

End Sub

Private Sub Worksheet_Deactivate()

   Timer_Stop

   Me.Cells(2) = Trim(teks)

   Range("B1:P1").HorizontalAlignment = xlCenter

   End

End Sub

4.       SELANJUTNYA KLIK THISWORKBOOK COPY CODE BERIKUT :

Option Explicit

Private Sub Workbook_Open()

   Application.EnableEvents = False

   Sheet1.Activate

   Application.EnableEvents = True

   TimerOn = True

   DoEvents

   Range("B1:P1").HorizontalAlignment = xlLeft

   MovingTextOnCells

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   Timer_Stop

   Sheet1.Cells(2) = Trim(teks)

   Range("B1:P1").HorizontalAlignment = xlCenter

   End

End Sub

5.       CELL N1 = NOW()

FORMAT CELL    ddd dd/mm/yyyy hh:mm:dd

6.       CELL F7 KETIK ID, F8 NAMA, F9 NIP, F10 JABATAN

7

8.       DRAG A2:A17 DAN  BUAT DEFINE NAME ID

9.       DRAG A2:G17 DAN BUAT DEFINE NAME DaftarKepegawaian

10.   KEMBALI KE SHEET1 CELL G7 = ID

11.   Cell G8 =VLOOKUP(G7;Datakepegawaian;2;True)

12.   Cell G9 =VLOOKUP(G7;Datakepegawaian;3;True)

13.   Cell G10 =VL00KUP(G7; Datakepegawaian;6;True)

14.   SEMOGA TAMPAK SEPERTI INI

15.   PILIH INSERT SHAPES DAN PILIH HEART UNTUK TOMBOL HADIR DAN SUN UNTUK TOMBOL PULANG

16.   MAKA AKAN TAMPAK SEPERTI BERIKUT