TULISAN BERKEDIP WARNA WARNI DI LEMBAR EXCEL- EXCEL VBA

MEMBUAT TULISAN BERKEDIP WARNA WARNI

BUAT SEBUAT TULISAN DI  C2

PASTEKAN KODE BERIKUT PADA SEBUAH MODUL

Sub berkedip()

Dim RunWhen As Double

 With ThisWorkbook.Worksheets("Sheet1").Range("c2").Font

If .ColorIndex = 5 Then

.ColorIndex = 2

Else

If .ColorIndex = 2 Then

.ColorIndex = 3

Else

.ColorIndex = 5

End If

End If

End With

If Worksheets("Sheet1").Range("a1").Value = 1 Then

RunWhen = Now + TimeSerial(0, 0, 1)

Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , True

Else

On Error Resume Next

ThisWorkbook.Worksheets("Sheet1").Range("c2").Font.ColorIndex = xlColorIndexAutomatic

Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , False

End If

Worksheets("Sheet1").Range("a1").Value = 1

End Sub

Sub Berhenti()

Worksheets("Sheet1").Range("a1").Value = 2

End Sub

Demikian semoga bermanfaat !!

BELAJAR EXCEL VBA - CARA MUDAH MEMBUAT RUNNING TEXT DI USERFORM

BUATLAH SEBUAH USERFORM DENGAN 1 BUAH LABEL YAITU LABEL 1

PASTEKAN SEMUA KODE BERIKUT PADA USERFORM 

Private Sub UserForm_Activate()
    Call Mulai
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Berhenti = True
    If CloseMode = 0 Then
Cancel = True
MsgBox "Untuk  menutup Form silakan klik tomblo CLOSE", vbCritical
End If
    Unload Me
End Sub

Private Sub Mulai()
    Dim J As Long
    Awal:
    DoEvents
    If Berhenti = True Then Exit Sub
    Label1.Left = Label1.Left - 2
    If Label1.Left <= -Me.Width Then Label1.Left = Me.Width
    For J = 1 To 5500019: Next
    GoTo Awal
End Sub


SAMPEL FILE xlsm  unduh  >>>> DISINI

SEMOGA BERMANFAAT !!!

Membuat Tombol animasi di Userform

Membuat Tombol animasi di Userform

Membuat Tombol animasi Seakan akan tombol bergerak gerak saat mouse diarahkan dan tidak dirahkan pada sebuah tombol di userform

Intinya  cara kerjakan adalah image1 dan image2 akan tampil dan sembunyi secara berganntian bila kursor diarahkan di image 3

Kita harus menyiapkan 3 image
Image1
Image2 dan
Image3

Image 1 dan image2 diisi gambar sesuai jenis tombol yang dibutuhkan

Kemudian image 3 dibuat kosong tanpa gambar dan diatur Transparan pada property vba

Caranya :
1 Pastekan kode berikut di Image 3

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Image1.Visible = True
    Me.Image2.Visible = False
End Sub

2 Pastekan kode berikut pada Userform

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Image1.Visible = False
Me.Image2.Visible = True
End Sub

Private Sub UserForm_Initialize()
Me.Image1.Visible = False
End Sub

Tombol Animasi