BEDAH ISI SCRIPT APLIKASI SURAT MENYURAT

BEDAH SCRIPT APLIKASI SURAT MENYURAT VB EXCEL, assalamu'alaikum... lama gak posting karna suatu hal.. karena banyaknya permintaan temen-temen bloger, kali ini ane akan membedah script program satu persatu , mohon maaf sebelumnya karna aplikasi ini sangat sederhana sekali tentunya masih banyak kekurangan, isi script ini juga ane dapet dari temen2 bloger sebagai bahan referensi, temen2 semua bisa merubah sesuai kebutuhan  "mohon maklum" blogger pemula... hee....! Ok temen.. langsung ja ke TKP....

Berikut isi Script dari Form Buka

FORM BUKA

tampilan awal form ketika aplikasi ini dibuka.

Private Sub CommandButton1_Click()

Unload Me

BUKA.Hide

FORMMENU.Show

End Sub

Private Sub CommandButton2_Click()

ThisWorkbook.Save

ThisWorkbook.Close

Unload Me

End Sub

Private Sub USERFORM_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Hmmm kilik tombol Batal..!!"

End If

End Sub

FORM PENCARIAN SISWA

Private Sub CommandButton1_Click()

'ListBox1.Visible = True

Set SiParengan = Sheets("Sheet1")

Set FtrIparengan = SiParengan.Range("Database")

Set FltrUIparengan = SiParengan.Range("F2:G3")

'Jika dalam sheet1 tidak ada data atau data kosong

If TextBox1.Value = "" Then

    MsgBox " Ketik nama siswa", _

    vbOKOnly + vbInformation, "Nama Siswa Tidak Ada"

    TextBox1.SetFocus

    ListBox1.Visible = False

    Frame1.Visible = True

End If

If SiParengan.Range("A3").Value = "" Then

    Exit Sub

End If

'untuk meembersikan filter

If SiParengan.FilterMode Then

    SiParengan.ShowAllData

End If

'jika Textbox kosong

If OptionButton1.Value = True Then

If TextBox1.Value = "" Then

    TextBox1.SetFocus

    Exit Sub

End If

'Pencarian pada range Nama

With SiParengan.Range("CariNama")

    Set c = .Find(TextBox1.Value, LookIn:=xlValues)

    If c Is Nothing Then

        MsgBox "Nama Siswa  " & TextBox1.Value & " tidak ada", _

            vbOKOnly + vbInformation, "Nama Siswa Tidak Ada"

       ListBox1.Visible = False

    Frame1.Visible = True

       ListBox1.Clear

       TextBox1.SetFocus

       TextBox1 = ""

       

        Exit Sub

    Else

    'Pencarian pada filter range Nama

    Frame1.Visible = False

         SiParengan.Range("F3:G3").ClearContents

        SiParengan.Range("F3").Value = "*" & TextBox1.Value & "*"

        FtrIparengan.AdvancedFilter Action:=xlFilterInPlace, _

            CriteriaRange:=FltrUIparengan

        ListBox1.Visible = True

        Frame1.Visible = False

        Call TampilkanHasil

    End If

End With

If SiParengan.FilterMode Then

    SiParengan.ShowAllData

End If

End If

If OptionButton2.Value = True Then

If ComboBox1.Value = "" Then

    ComboBox1.SetFocus

    Exit Sub

End If

'Pencarian pada range Nama

With SiParengan.Range("CariSpecifikasi")

    Set c = .Find(ComboBox1.Value, LookIn:=xlValues)

    If c Is Nothing Then

        MsgBox "Nama Siswa  " & ComboBox1.Value & " tidak ada", _

            vbOKOnly + vbInformation, "Nama Siswa Tidak Ada"

        ListBox1.Clear

        TextBox1.SetFocus

        TextBox1 = ""

        ListBox1.Visible = False

    Frame1.Visible = True

       

        Exit Sub

    Else

    'Pencarian pada filter range Nama

         SiParengan.Range("F3:G3").ClearContents

        SiParengan.Range("G3").Value = "*" & ComboBox1.Value & "*"

        FtrIparengan.AdvancedFilter Action:=xlFilterInPlace, _

            CriteriaRange:=FltrUIparengan

        Call TampilkanHasil

 '       Call cCetak

    End If

End With

If SiParengan.FilterMode Then

    SiParengan.ShowAllData

End If

End If

End Sub

Sub TampilkanHasil()

Set SiParengan = Sheets("Sheet1")

ListBox1.Clear

With ListBox1

    .AddItem

    '.List(.ListCount - 1, 0) = "No"

    .List(.ListCount - 1, 0) = "No"

    .List(.ListCount - 1, 1) = "NIS"

    .List(.ListCount - 1, 2) = "NAMA"

    .List(.ListCount - 1, 3) = "KELAS"

    .List(.ListCount - 1, 4) = "L/P"

    .List(.ListCount - 1, 5) = "NISN"

    .ColumnWidths = 35 & ";" & 45 & ";" & 180 & ";" & 45 & ";" & 30 & ";" & 50

End With

With SiParengan

    Set rgTampil = SiParengan.Range("A3:A234"). _

        SpecialCells(xlCellTypeVisible)

    For Each sTampil In rgTampil

        With ListBox1

            .AddItem sTampil.Value

            .List(.ListCount - 1, 0) = sTampil.Row - 2

            .List(.ListCount - 1, 1) = sTampil.Value

            .List(.ListCount - 1, 2) = sTampil.Offset(0, 1).Value

            .List(.ListCount - 1, 3) = sTampil.Offset(0, 2).Value

            .List(.ListCount - 1, 4) = sTampil.Offset(0, 3).Value

            .List(.ListCount - 1, 5) = sTampil.Offset(0, 4).Value

        End With

    Next sTampil

End With

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub CommandButton3_Click()

ListBox1.Visible = False

Frame1.Visible = True

Frame1.Enabled = True

TextBox21.SetFocus

End Sub

Private Sub OptionButton1_Click()

ComboBox1.Enabled = False

TextBox1.Enabled = True

TextBox1.SetFocus

End Sub

Private Sub OptionButton2_Click()

ComboBox1.Enabled = True

ComboBox1.SetFocus

TextBox1.Enabled = False

End Sub

Private Sub UserForm_activate()

ActiveWorkbook.Sheets("sheet1").Activate

Sheets("sheet1").Activate

TextBox2.Value = Range("j3")

TextBox3.Value = Range("k3")

TextBox4.Value = Range("l3")

TextBox5.Value = Range("m3")

TextBox6.Value = Range("n3")

TextBox12.Value = Range("o3")

TextBox7.Value = Range("j4")

TextBox8.Value = Range("k4")

TextBox9.Value = Range("l4")

TextBox10.Value = Range("m4")

TextBox11.Value = Range("n4")

TextBox13.Value = Range("o4")

TextBox14.Value = Range("j5")

TextBox15.Value = Range("k5")

TextBox16.Value = Range("l5")

TextBox17.Value = Range("m5")

TextBox18.Value = Range("n5")

TextBox19.Value = Range("o5")

TextBox20.Value = Range("o6")

TextBox1.SetFocus

End Sub

Private Sub USERFORM_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Hmmm kilik tombol Keluar..!!"

End If

End Sub

hmmm.... ngapunten sob..!!. bersambung dulu yaa... !!