Scribd
Upload
57 views11 pages

PENGAWAI

The document contains VBA code for a user form in Excel that manages visibility and interactions of various controls such as ComboBox, CommandButtons, and ListBox. It includes event handlers for button clicks and mouse movements to show or hide different frames and change colors based on user actions. Additionally, it features functionality to filter data from a worksheet based on user input in a TextBox.

Uploaded by

Puskesmas Ketapang
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
57 views11 pages

PENGAWAI

The document contains VBA code for a user form in Excel that manages visibility and interactions of various controls such as ComboBox, CommandButtons, and ListBox. It includes event handlers for button clicks and mouse movements to show or hide different frames and change colors based on user actions. Additionally, it features functionality to filter data from a worksheet based on user input in a TextBox.

Uploaded by

Puskesmas Ketapang
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

Private Sub ComboBox1_DropButtonClick()

FramePilih.Visible = True

End Sub

Private Sub CmdBp_Click()

FrameBp.Visible = True

SimpanLoket.Visible = True

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

End Sub

Private Sub CmdGigi_Click()

SimpanGigi.Visible = True

SimpanLoket.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

End Sub

Private Sub CmdKia_Click()

SimpanKia.Visible = True
SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

End Sub

Private Sub CmdPoned_Click()

SimpanPoned.Visible = True

SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanRanap.Visible = False

End Sub

Private Sub CmdRanap_Click()

SimpanRanap.Visible = True

SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

End Sub

Private Sub CmdUgd_Click()

SimpanUGD.Visible = True
SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

End Sub

Private Sub CommandButton1_Click()

Application.Visible = True

End Sub

Private Sub CommandButton2_Click()

UserForm_Activate

End Sub

Private Sub Image3_Click()

Loket.Visible = False

Me.Image7.BorderColor = &HFFFFFF

Me.Image3.BorderColor = &HFFFFFF

Me.Image4.BorderColor = &HFFFFFF

Me.Image6.BorderColor = &HFFFFFF

End Sub

Private Sub Image4_Click()

Loket.Visible = True

FramePilih.Visible = False
SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

FrameBp.Visible = False

End Sub

Private Sub Image6_Click()

Loket.Visible = False

End Sub

Private Sub Image7_Click()

Unload Me

End Sub

Private Sub Label23_Click()

FramePilih.Visible = True

End Sub

Private Sub Loket_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

FramePilih.Visible = False

Me.SimpanLoket.BackColor = &H800000

Me.SimpanGigi.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000
Me.SimpanPoned.BackColor = &H800000

Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub TextBox1_Change()

If TextBox1.Value = "" Then

tampilkan

Else

Dim tabelrange As Range

Dim tabelkriteria As Range

Set ws = Worksheets("database")

ws.Activate

irow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Set tabelrange = ws.Range("a1:h" & irow)

Set tabelkriteria = ws.Range("j1:j2")

ws.Range("j1") = "Nama"

ws.Range("j2") = "*" & TextBox1 & "*"

tabelrange.AdvancedFilter xlFilterCopy, tabelkriteria, ws.Range("l1:s100000"), False

irow1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(0, 0).Row

If irow1 > 2 Then

Me.ListBox1.RowSource = "l1:s" & irow1

Else

Me.ListBox1.RowSource = ""

End If
End If

With ListBox1

.ColumnCount = 8

.ColumnWidths = "50,100,150,150,150,50,150,150"

.ColumnHeads = False

End With

End Sub

Private Sub UserForm_Activate()

Application.Visible = False

Loket.Visible = False

Me.Width = Application.Width

Me.Height = Application.Height

Me.Top = Application.Top

Me.Left = Application.Left

Frame1.Width = Application.Width

Label4 = Format(Now, "dddd, dd MMMM yyyy")

Label24 = Format(Now, "hh.mm.ss")

End Sub

Private Sub SimpanLoket_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanLoket.BackColor = &HFFC0C0

Me.SimpanGigi.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000
Me.SimpanPoned.BackColor = &H800000

Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub SimpanGigi_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanGigi.BackColor = &HFFC0C0

Me.SimpanLoket.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000

Me.SimpanPoned.BackColor = &H800000

Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub SimpanUGD_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanUGD.BackColor = &HFFC0C0

Me.SimpanLoket.BackColor = &H800000

Me.SimpanGigi.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000

Me.SimpanPoned.BackColor = &H800000

Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub SimpanKia_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanKia.BackColor = &HFFC0C0

Me.SimpanLoket.BackColor = &H800000

Me.SimpanGigi.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanPoned.BackColor = &H800000
Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub SimpanPoned_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanPoned.BackColor = &HFFC0C0

Me.SimpanLoket.BackColor = &H800000

Me.SimpanGigi.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000

Me.SimpanRanap.BackColor = &H800000

End Sub

Private Sub SimpanRanap_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.SimpanRanap.BackColor = &HFFC0C0

Me.SimpanLoket.BackColor = &H800000

Me.SimpanGigi.BackColor = &H800000

Me.SimpanUGD.BackColor = &H800000

Me.SimpanKia.BackColor = &H800000

Me.SimpanPoned.BackColor = &H800000

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As


Single, ByVal Y As Single)

Me.Image7.BorderColor = &H800000

Me.Image6.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image7.BorderColor = &H800000

Me.Image6.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub

Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image7.BorderColor = &H800000

Me.Image6.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub

Private Sub Image6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image6.BorderColor = &HFFFFFF

Me.Image7.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub

Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image4.BorderColor = &HFFFFFF

Me.Image7.BorderColor = &H800000

Me.Image6.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image3.BorderColor = &HFFFFFF

Me.Image7.BorderColor = &H800000

Me.Image6.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

End Sub

Private Sub Image7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single,
ByVal Y As Single)

Me.Image7.BorderColor = &HFFFFFF

Me.Image6.BorderColor = &H800000

Me.Image4.BorderColor = &H800000

Me.Image3.BorderColor = &H800000

End Sub

Private Sub Ya_Click()

Rujuk.Show

End Sub

Sub tampilkan()

Set ws = Worksheets("database")

ws.Activate

irow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row

If Row < 2 Then

Me.ListBox1.RowSource = ""

Else

Me.ListBox1.RowSource = "a1:h" & irow

End If
End Sub

FramePilih.Visible = False

SimpanLoket.Visible = False

SimpanGigi.Visible = False

SimpanUGD.Visible = False

SimpanKia.Visible = False

SimpanPoned.Visible = False

SimpanRanap.Visible = False

You might also like