MEMBUAT LIST SEARCHING DATA DINAMIS

Bismillahi Rahmani Rahim

Assalamualaikum Wr. Wb.

Akhirnya bisa nulis lagi, kali ini pembahasan artikelnya mungkin sedikit jarang digunakan dan memang masih jarang penggunaan model ini.

Membuat "List Searching Data Dinamis" biasanya digunakan pada formulir input data untuk meminimalisir kesalahan input keyData seperti nama, Lokasi dan sebagainya, seperti contoh animasi aplikasi saya dibawah ini.

Pencarian nama driver dengan cara mengetikkan huruf yang terkandung dalam nama personal tersebut akan menampilkan driver tersebut pada list teratas. Jika nama telah berada di list teratas maka kita hanya menekan enter dan nama personal tersebut otomatis masuk ke textbox hasil pencarian.

Ok kita langsung saja ke TKP.

Alat dan Bahan :

- 1 File Berekstensi Macro Enabled

- 1 Userform, 1 Textbox, 1 Listbox

- 1 Image dan secukupnya Label

Assembly:

1. Buat 1 File berekstensi macro enabled xlsm atau xlsb  dan rename salah satu sheet menjadi nama sheet "Sampel Data" dan isikan data seperti gambar dibawah ini. 
   
2. Masuk ke jendela VBA (tekan Alt F11) kemudian insert Userform
3. Klik Userform dan insert semua properti yang dingginkan seperti Textbox, Listbox, Image, Label dan atur sesuai keinginan tetapi ingat untuk mengganti nama masing-masing properti sesuai coding script dibawah ini :
4. Userform = formPencarian, Textbox = txtCari, Listbox = lBoxPencarian, Label = lblNotif dan lblNotifENter, Image1
5. Setelah mengganti semua nama property mari kita mulai mengatur posisi property agar lebih user friendly hahaha...... pakai bahasa istilah dikit boleh donk, lihat gambar berikut ini 
     

Sekarang mari kita double klik pada textbox (txtCari) kemudian masukkan script berikut :

Private Sub txtCari_AfterUpdate()

      On Error Resume Next

      Me.txtCari.Value = Me.lBoxPencarian.List(0, 0)

      Me.lBoxPencarian.Visible = False

      Me.lblNotifENter.Visible = False

End Sub

Private Sub txtCari_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

    On Error Resume Next

    Me.txtCari.Value = Me.lBoxPencarian.List(0, 0)

    Me.lBoxPencarian.Visible = False

    Me.lblNotifENter.Visible = False

End Sub

Private Sub txtCari_Change()

    Me.lblNotifENter.Visible = True

    If Me.txtCari.Value = "" Then

        Me.lBoxPencarian.Visible = False

        Exit Sub

    End If

    

    Me.lBoxPencarian.Visible = True

    Dim shtPencarian    As Worksheet

    Dim BarisMulai      As Long

    Dim PosisiKolom     As Integer

    Dim TeksPencarian   As String

    Dim Hasil           As String

    Dim RngCell         As Range

    Dim rngCariUlang    As Range

                

            '============================== KODE KHUSUS LITSBOX =================================

            TeksPencarian = UCase(Me.txtCari.Value)                 'Teks yang dicari

            PosisiKolom = 2                                         'Kolom Kriteria Pencarian di Tabel Sheet

            BarisMulai = 4                                          'Pencarian dimulai di baris

            Set shtPencarian = ThisWorkbook.Sheets("Sampel Data")   'Setting Sheet Destinasi

            '====================================================================================

            

    Me.lBoxPencarian.Clear

        If Trim(TeksPencarian) <> "" Then

        Do Until shtPencarian.Cells(BarisMulai, PosisiKolom) = ""

            With shtPencarian.Range(shtPencarian.Cells(BarisMulai, PosisiKolom), shtPencarian.Cells(500, PosisiKolom))

            Set rngCariUlang = shtPencarian.Range(shtPencarian.Cells(BarisMulai, PosisiKolom), _

            shtPencarian.Cells(500, PosisiKolom))

                    Set Rng = .Find(What:=TeksPencarian, After:=.Cells(1), LookIn:=xlFormulas, _

                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

                    If Not Rng Is Nothing Then

                        Me.lBoxPencarian.AddItem Rng

                        On Error Resume Next

                        Hasil = Application.WorksheetFunction.Match(Me.lBoxPencarian.List(Me.lBoxPencarian.ListIndex + 1, 0), _

                        rngCariUlang, 0)

                    End If

            End With

        On Error GoTo Berhenti

        BarisMulai = Hasil + BarisMulai + 1

        Loop

        End If

Berhenti:

End Sub

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

    Me.lblNotif.Visible = True

End Sub

Untuk Listbox (lBoxPencarian) double klik dan masukkan script ini:

Private Sub lBoxPencarian_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Me.txtCari = Me.lBoxPencarian.List(0, 0)

    Me.lblNotifENter.Visible = False

End Sub

Untuk Userform DoubleClick dan masukkan ini

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

      Me.lblNotif.Visible = False

End Sub

Untuk Image1 DoubleClick dan masukkan script ini: 

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

    Me.lblNotif.Visible = False

End Sub

Jangan lupa insert sebuah modul untuk script macro pemanggilan di sheet

di jendela VBA klik Insert >> Module kemudian masukkan script berikut

Sub tampilkancari()

    formPencarian.Show

End Sub

Kemudian di WorkSheet "Sampel Data" insert Shapes kotak saja kemudian klik kanan >> assign Macro... kemudian Pilih "tampilkancari"

SAVE hasil kerja anda :) ingat format xlsm atau xlsb

Hasil dari percobaan kita seperti animasi berikut

Untuk Contoh file dapat di lihat dengan klik link  kemudian cari judul file "List Seraching Data Dinamis". atau klik pada menu blog kemudian pilih Download >> File >> Aplikasi VBA.

Sekian artikel kali ini, jangan bosan untuk berkunjung semoga saran anda menghasilkan inspirasi baru :)

Wassalam

KJ99

EIUG Makassar

Read More

MENGHITUNG STOK BARANG Versi 2

BismillahiRahmaniRahim

Assalamualaikum Wr. Wb.

Artikel ini adalah lanjutan dari artikel KJ sebelumnya yang banyak dikunjungi di blog KJ excekj.blogspot.co.id, yaitu MENGHITUNG STOK BARANG.

Tetapi kali ini akan dijelaskan secara detail cara pembuatannya mulai dari awal hingga penggunaannya. dari sekian banyak yang mengunjungi artikel sebelumnya, ada beberapa masalah yang muncul, diantaranya Calendar Add-Ins Tidak muncul, itu karena di Excel sobat tidak melakukan setting di VBA pada Tools tambahan dan caranya banyak di share di google. Masalah terakhir yang muncul adalah blokir download file di dropbox error 403 yang disebabkan trafik kunjungan ke file tersebut overload karena akun dropbox KJ belum di upgrade ke berbayar. kedepannya untuk mengatasi file tidak bisa di download anda cukup email ke kami atau inbox di facebook KJ di menu kanan atas blog ini.

Baik kita langsung saja ke pembahasan kita, yaitu (Versi 2) MENGHITUNG STOK BARANG beserta tutorial pembuatannya.

Alat dan Bahan:

• Siapkan File Excel yang support macro, biasanya di save ke ekstensi .xlsm atau .xlsb kemudian isi dengan 3 sheet, yaitu Data_Barang, Data_Transaksi dan Laporan. model ini adalah model sebuah file perhitungan sederhana.
• Pada Sheet Data_Barang kita Siapkan Tabel Data barang sederhana saja yang memiliki informasi detail barang yang kita miliki seperti gambar dibawah ini, dan insert sebuah TextBox di kanan atas tabel untuk cari barang sesuai kriteria OptionButton. (ini bonus saja hehe)

• Untuk Macro Pencarian kita dapat memasukkan kode dibawah ini, tetapi jangan lupa untuk insert komponen ActiveX Control (1 TextBox dan 3 OptionButton dan Label) dan ganti Caption masing-masing seperti gambar diatas. 
  
  Catatan untuk Macro buka dengan Alt F11 kemudian Double klik pada Sheet Data_Barang dan paste kan kode dibawah ini.
  
  
  Private Sub OptionButton3_Click()

  Application.ScreenUpdating = False

      Dim rngBarang   As Range

      Dim jBrs        As Long

      Dim Kriteria    As String

  
  

      With Sheets("Data_Barang")

          Set rngBarang = .Range("A:A")

          jBrs = Application.WorksheetFunction.CountA(rngBarang)

          .Range("$A$2:$c$" & jBrs).AutoFilter Field:=3

          .Range("$A$2:$c$" & jBrs).AutoFilter Field:=2

      End With

  End Sub

  
  

  Private Sub TextBox1_Change()

  Application.ScreenUpdating = False

      Dim rngBarang   As Range

      Dim jBrs        As Long

      Dim Kriteria    As String

  
  

      With Sheets("Data_Barang")

          Set rngBarang = .Range("A:A")

          jBrs = Application.WorksheetFunction.CountA(rngBarang)

          Kriteria = .TextBox1.Value

          On Error Resume Next

          If .OptionButton1.Value = True Then

              .Range("$A$2:$c$" & jBrs).AutoFilter Field:=2

              .Range("$A$2:$c$" & jBrs).AutoFilter Field:=2, Criteria1:="=*" & Kriteria & "*", Operator:=xlAnd

          End If

          If .OptionButton2.Value = True Then

              .Range("$A$2:$c$" & jBrs).AutoFilter Field:=3

              .Range("$A$2:$c$" & jBrs).AutoFilter Field:=3, Criteria1:="=*" & Kriteria & "*", Operator:=xlAnd

          End If

      End With

  End Sub

• Untuk Sheet Data_Transaksi tampilan dapat kita lihat seperti gambar dibawah ini
  
  
  
  Hampir sama dengan Sheet Data_Barang perbedaannya adalah pada kolom Tanggal, keluar/masuk barang dan jumlah transaksi. dari gambar kita melihat ada kolom stok pada kolom paling kanan. sedikit penjelasan dan penggunaan rumus untuk Sheet ini adalah rumus yang kita gunakan di kolom Nama_Barang dan Kolom Stok. 
  Kolom Nama_barang pada Cell F4 bisa di Copy kebawah, kita memakai rumus berikut :=IFERROR(OFFSET(Data_Barang!$C$2,MATCH(D4,Data_Barang!$B$3:$B$999999,0),0),"")untuk penjelasan rumus Offset dan Match dapat kita lihat di artikel KJ lainnya, inti dari rumus diatas adalah kita menetapkan posisi Start kita di cell pada C2 sheet Data_Barang kemudian pada rumus Match kita menghitung dibaris berapa Kode Barang (D4) berada pada Range B3:B9999999 Sheet Data_barang dan 0 paling ujung menetapkan kolom Offset tidak bergerak tetap di kolom C. D4 dan seterusnya kebawah pada Sheet Data_Transaksi merupakan kunci pemanggilan untuk Nama Barang.
  
  Kolom Stok pada Cell H4 bisa di Copy kebawah, kita menggunakan rumus:=SUMIFS(E$4:E4,D$4:D4,D4,C$4:C4,"Masuk")-SUMIFS(E$4:E4,D$4:D4,D4,C$4:C4,"Keluar")Penjelasan dari rumus ini secara umum adalah menjumlahkan semua barang masuk dikurangi dengan semua barang keluar. secara detail adalah =Jumlahkan jika (Jumlahkan kolom ini, jika kolom D4 s.d D Baris rumus ini = kode_barang baris ini, jika Kolom C4 s.d C baris rumus ini berkriteria "Masuk") - SUMIFS(E$4:E4,D$4:D4,D4,C$4:C4,"Keluar") kira-kira seperti itu bunyi rumus tersebut jadi titik awal dihitung di baris 4 (kita kunci dengan tanda $) dan titik akhir berdasarkan posisi baris rumus ini (tidak dikunci/ tidak ada tanda $)
  
  Catatan : Rumus Stok itu kita bisa Cut (Ctrl X) ke Sheet data Barang tetapi dengan sedikit modifikasi pada range mengacu ke baris paling bawah Table pada Sheet Data Transaksi. dan mengganti D4 (referensi kriteria ke Kode barang Tabel Sheet Data_Barang)
  
  kode Macro untuk Sheet Data_Transaksi (ingat untuk mengganti nama masing-masing ActiveX Control sesuai nama pada macro dibawah ini) :
  

  
  Catatan untuk Macro buka dengan Alt F11 kemudian Double klik pada Sheet Data_Transaksi dan paste kan kode dibawah ini.
  
  Private Sub OptionButtonAll_Click()

  Application.ScreenUpdating = False

      Dim rngBarang  As Range

      Dim jBrs              As Long

      Dim Kriteria       As String

  
  

      With Sheets("Data_Transaksi")

          Set rngBarang = .Range("A:A")

          jBrs = Application.WorksheetFunction.CountA(rngBarang) + 1

          .Range("$A$3:$f$" & jBrs).AutoFilter Field:=4

          .Range("$A$3:$f$" & jBrs).AutoFilter Field:=6

      End With

  End Sub

  
  

  Private Sub TextBox1_Change()

  Application.ScreenUpdating = False

      Dim rngBarang   As Range

      Dim jBrs           As Long

      Dim Kriteria    As String

  
  

      With Sheets("Data_Transaksi")

          Set rngBarang = .Range("A:A")

          jBrs = Application.WorksheetFunction.CountA(rngBarang) + 1

          Kriteria = .TextBox1.Value

          On Error Resume Next

          If .OptionButtonNama.Value = True Then

              .Range("$A$3:$f$" & jBrs).AutoFilter Field:=6

              .Range("$A$3:$f$" & jBrs).AutoFilter Field:=6, Criteria1:="=*" & Kriteria & "*", Operator:=xlAnd

          End If

          If .OptionButtonKode.Value = True Then

              .Range("$A$3:$f$" & jBrs).AutoFilter Field:=4

              .Range("$A$3:$f$" & jBrs).AutoFilter Field:=4, Criteria1:="=*" & Kriteria & "*", Operator:=xlAnd

          End If

      End With

  End Sub

  
  
• Kita beralih ke Sheet Laporan,
  Tabel dapat kita lihat seperti gambar dibawah ini
  

  

  
  

  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Pada Sheet ini kita merekapitulasi data berdasar Tanggal yang kita inginkan jadi pada kolom Tanggal kita bebas menggantinya sesuka hati dengan catatan Data akan muncul jika Tanggal tersebut ada di Data Transaksi.
  Kunci pencarian adalah tanggal dan kita memanggil No_Transaksinya agar lebih mudah memanggil data yang lain. pada Cell B5 Kolom No_Transaksi rumus yang kita gunakan adalah rumus CSE (eksekusi Ctrl Shift Enter) atau biasa disebut Array Formula.
  {=IFERROR(SMALL(IF(OFFSET(Data_Transaksi!$B$3,1,0,COUNTA(Data_Transaksi!A1:A1000007)+3,1)=$B$3,OFFSET(Data_Transaksi!$A$3,1,0,COUNTA(Data_Transaksi!A1:A1000007)+3,1)),ROW(B5)-ROW($B$4)),"")}Copy rumus ini kebawah pada kolom yang sama.
  
  Pada kolom Kode_Barang Cell C5 rumus yang digunakan adalah;
  =IFERROR(OFFSET(Data_Transaksi!$D$3,MATCH($B5,OFFSET(Data_Transaksi!$A$3,1,0,COUNTA(Data_Transaksi!$A1:$A1000007)+3,1),0),0),"")Fungsi COUNTA adalah untuk memblok titik terjauh range sesuai Jumlah baris pada Tabel Data_Transaksi.
  
  Saya sengaja tidak memasukkan Form Date Control  untuk menghindari error missing references pada Office user. tetapi jika anda memiliki silahkan gunakan dan output mengacu pada Cell B3 (Cell Tanggal).

Demikian Tutorial MENGHITUNG STOK BARANG Versi 2 dari saya, semoga bermanfaat untuk kita semua.

Catatan: untuk download contoh filenya, anda dapat menuju Halaman Download di Menu diatas dengan Kata Kunci Menghitung Stok Barang Versi 2, atau klik link tulisan yang berwarna biru.

Salam Excel

KJ

Read More

Membuat Animasi Tombol di Userform VBA Excel

BismillahiRahmaniRahim.

Assalamualaikum Wr. Wb.

Apa itu animasi tombol Userform di Excel?
ada baiknya kita lihat dulu contoh dibawah ini

Bagaimana cara membuatnya?

Sebenarnya hanya membuat antrian image yang sedikit menyita ketelitian dan boleh dikatakan sebagai cara yang susah-susah gampang, tergantung pemahaman kita, dan mungkin hal ini jarang dibahas oleh teman-teman di Grup. Baiklah kita langsung saja ke TKP cara pembuatannya dan bahan-bahan yang diperlukan untuk persiapan pembuatannya.

Bahan-bahan yang diperlukan :

• Gambar logo tombol atau icon tombol seperti (Save, Back, Delete, Open, Edit, dan sebagainya) yang berekstensi .jpg .bmp .png dapat dengan mudah didapatkan di om Google untuk kita racik ulang sesuai keinginan menggunakan excel dan paint, hehehe pasti semua komputer punya 2 software itu.
• File Excel enabled macro .xlsm atau .xlsb (buka excel baru kemudian save as ke macro enabled atau binary).
• Secangkir Kopi, sebungkus kacang atau snack, salinan tutorial ini, kesabaran dan keinginan yang teguh anda untuk membuatnya hehehe

Tahap selanjutnya, Persiapan pembuatan :

• Download logo atau icon tombol yang anda inginnkan, sebagai contoh dalam artikel ini saya download logo SAVE, BACK, DELETE dan ADD dalam bahasa kita biasa kita sebut SIMPAN, KEMBALI, HAPUS dan TAMBAH, seperti contoh gambar dibawah ini.

       

• Langkah berikutnya adalah menyesuaikan warna dasar userform dengan background gambar yang kita download tadi menggunakan Microsoft Excel, hehehe sederhana saja.

1. Buka Excel dan insert gambar yang anda donwload tadi di worksheet
2. Blok Cell ukuran satu layar kemudian Fill dengan warna abu-abu yang sesuai warna dasar userform di VBA atau warna dasar yang anda inginkan
3.          
4. Pilih salah satu gambar kemudian Format gambar menjadi transparan, sehingga warna latar abu-abu terlihat di sekitar gambar
5. 
6. Lakukan format shadow dan bevel gambar agar terlihat 3D.      
7.  
8. Sekarang kita membuat file gambar dasar berekstensi .jpg untuk insert ke image userform dengan cara PrintScreen (tekan tombol Keyboard di kanan atas PrtnScr) pada Worksheet yang berisi gambar yang telah kita setting shadow tadi kemudian pastekan di PAINT, lalu crop / potong persegi sedimikian rupa hingga bayangan juga gambar juga ikut.
9.   
10. hasil file tadi sudah siap kita gunakan di Image Userform
11. Sekarang kita buka file excel macro kita yang tadi dan tekan Alt F11 hingga muncul Jendela VBA kemudian insert Userform. kemudian klik Userform dan tekan tool di menu bar kemudian Insert Image (letakkan pada posisi yang diinginkan.
12. Setting Image di Userform (tetapi kita pahami dahulu MenuBar)

• klik image kemudian klik properties di menu diatas dan isikan gambar dari file, setting mode strech agar gambar menyesuaikan lebar image userform dan hilangkan garis pinggir
• copy image (klik image dan Ctrl V) maka akan ada 2 gambar yang sama tetapi kita buat salah satunya lebih kecil.
• beri nama masing-masing image di properties misal (gbrkecil dan gbrbesar) agar mudah dalam koding VBA kemudian Gambar yang lebih besar kita setting Visible=False pada Properties

• Susun/bertumpuk kedua gambar (gambar yang kecil di bawah, gambar yang lebih besar diatasnya (tinggal Ctrl X gambar yang besar kemudian Ctrl V).
• Insert satu lagi image baru dengan properties seperti gambar

• Klik dua kali userform dan masukkan kode berikut.

                    Private Sub gbrControl_Click()

                                MsgBox "anda telah membuat animasi tombol control di userform", , "?"

                          End Sub

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

                               Me.gbrbesar.Visible = True

                         End Sub

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

                              Me.gbrbesar.Visible = False

                         End Sub

• kenudian ke worksheet dan insert ActiveX control CommandButton1, masukkan kode seperti gambar kemudian save dan tekan kembali segitiga EditMode di Bar atas hingga normal.

• selesai, sekarang kita tinggal mengujinya dengan menekan CommandButton1 hingga muncul userform1 dan coba anda gerakkan cursor ke tombol dan jauhkan maka akan terbentuk animasi dan saat di klik akan muncul pesan seperti kode tadi.

sekian cara membuat animasi tombol di userform VBA Excel

untuk download contoh file tombol tunggal disini, dan untuk  file contoh beberapa tombol disini. lakukan pencarian dengan keyword judul artikel.

Jika ada kesulitan silahkan tinggalkan komentar. Terima kasih atas kunjungannya

Salam Excel

Sobat Excel

Read More

APLIKASI PEMBUKUAN AKUNTANSI MICROSOFT EXCEL VBA

Bismillahirahmanirahim.

Assalamualaikum Wr.Wb.

Berikut ini adalah Aplikasi yang sering kita gunakan pada sebuah perusahaan ataupun Organisasi yaitu Aplikasi Akuntansi Pembukuan. Aplikasi ini saya buat berdasarkan permintaan seorang teman saya di Facebook, orangnya manis dan sedikit lucu (walau belum pernah ketemu sebelumnya ha ha ha, tapi saling percaya pada pertemanan). Aplikasi ini sudah mengalami beberapa perubahan fitur pada tampilannya dan kali ini terlihat sedikit aneh bin ajaib karena terinpirasi oleh sebuah film futuristik IRON MAN, waduh makin ngaco nulisnya hi hi hi.

Ok, kita langsung ke inti pembahasan tetapi entar kalau melenceng sedikit boleh kan, he he he.

kita lihat tampilan awalnya menggunakan trik animasi seperti ini.

untuk keamanan file saat di operasikan pada excel yang macronya disabled, semua sheet kecuali sheet home/ disembunyikan secara veryhidden. Jadi pada saat itu hanya sheet Home saja dan tidak dapat di unhide sheet lainnya. tetapi bila aplikasi di buka pada Excel dengan Macro Enabled, tampilan awal seperti dibawah ini.

Aplikasi akan meminta otoritas anda untuk memasukkan Username dan Password agar bisa melanjutkan ke menu berikutnya, jika tidak anda boleh menekan tombol OFF pada form tersebut. untuk cara membuat form login Excel VBA dapat anda pelajari disini.

setelah anda masuk dan menuju menu berikutnya (menu utama) dari aplikasi, anda akan diperlihatkan beberapa pilihan disana, antara lain :

Menu untuk Pembukuan;

• Neraca Saldo Awal
• Jurlan (menuju formulir input jurnal)
• Buku Besar
• Neraca Saldo Akhir
• Tabel Laba Rugi
• Neraca
• Ekuitas

Menu lainnya;

• Tombol Setting untuk ke Form Setting (nama, alamat, username dan password)
• Tombol Home
• Tombol OUT untuk keluar dari Excel.

untuk formulir Jurnal dapat kita lihat seperti gambar dibawah ini.

Pada formulir jurnal kita melihat beberapa menu input, seperti Tanggal, Uraian, No.Akun, Nama Akun dan Nilai Rupiah.

tombol lainnya dijelaskan dibawah ini:

• Tambah untuk menambahkan hasil input ke listbox penampung.
• Delete untuk menghapus isi list penampung.
• Ubah untuk melakukan edit pada data yang telah ada dalam list
• Kembali = kembali ke Menu Utama
• Ke Halaman = Ke Worksheet Jurnal
• Bersih untuk membersihkan Form
• Simpan untuk menyimpan semua hasil input di list penampung

Jika anda menemukan tombol setting di Menu Utama anda akan diminta untuk memasukkan password akses ke form setting. dan tampilan untuk form setting seperti dibawah ini

Seperti anda lihat ada beberapa setting yang anda bisa lakukan, antara lain:

- Username login

- Password Login

- Ubah nama Pemilik

- Ubah Alamat Pemilik

- Ubah Logo Pemilik

Sedangkan untuk sheet-sheet didalam aplikasi tersedia tombol proses pada masing-masing sheet seperti gambar dibawah ini

dan beberapa isi dari workbook ini yang tidak saya tampilkan.

untuk mendownload Aplikasi ini yang merupakan Versi Trial, anda dapat mendownload di laman ini, dengan kata kunci "APLIKASI PEMBUKUAN AKUNTANSI".

Terima Kasih atas Kunjungannya,

Kritik dan sarannya ditunggu pada kolom komentar

Salam Excel 

EIUG Makassar

Read More

Menghubungkan Android Scanner Barcode untuk Aplikasi Excel

Bismillahirahmanirahim
Assalamualaikum Wr. Wb. Sobat Excel

Kali ini kita akan membahas bagaimana cara alternatif Scanner barcode tanpa alat konvensional, tetapi menggunakan Android sebagai media/alat scannernya.

  VS  

Sobat Excel pasti bertanya, Apa manfaat yang didapatkan?  

Salah satu manfaat yang didapatkan adalah mobilitas Android bisa dimana saja tidak include dengan komputer portabel, yang kedua kita lebih hemat biaya dan praktis penggunaannya dan android juga sangat mudah didapatkan.

kelemahan penggunaan sistem ini adalah spesifikasi dan Kamera android tersebut mempengaruhi kecepatan scan, yang kedua adalah aplikasi android yang digunakan haruslah versi pro agar jumlah scan tidak terbatas, bersyukur kali ini sobat excel mendapat versi pro dari aplikasinya.

Pertanyaan berikutnya bagaimana cara menggunakannya di Excel?

Microsoft Excel adalah program pengolah data yang paling banyak digunakan dalam kegiatan administrasi sehari-hari baik secara tunggal ataupun sebagai report dari pengolah data lainnya sehingga Sobat Excel memilihnya. Cara menggunakannya sangatlah simpel, yaitu dengan meletakkan kursor sobat di Cell Worksheet atau di kotak TextBox VBA Userform aplikasi anda kemudian lakukan scan. mudahkan!!!

Berikut syarat dan kebutuhan dalam cara ini:

1. Handphone Android minimal 4.1 JellyBean dengan kamera 5Mpix

2. Driver Barcode Scanner for Windows bisa di download disini

3. Android Aplikasi untuk Scan Barcode versi pro bisa di download disini

4. Aplikasi Excel VBA atau cukup dengan Excel biasa

5. Sampel barang yang memiliki barcode seperti rokok, snack, kartu dan sebagainya
6. Syarat utama yang lain adalah PC/Laptop yang bisa koneksi Wifi atau Bluetooth

Sekarang kita ke cara penggunaannya:
1. Install Driver Barcode Scanner di PC atau Laptop yang anda download tadi
2. Install Aplikasi Barcode Scan di Android juga dari yang anda download tadi
3. Sistem koneksi dapat anda pilih dibawah ini:

Menggunakan Wifi

• Koneksikan PC/Laptop dan Android anda pada satu jaringan Wifi yang sama
• jika sudah konek maka driver di PC/Laptop akan berfungsi melacak secara otomatis menerima scanner dari android
• Buka Microsoft Excel atau aplikasi anda
• Letakkan kursor pada Cell Worksheet atau TextBox Userform
• 
• Buka aplikasi Barcode Scan di android dan lakukan scan pada objek anda seoerti gambar dibawah jika terbaca akan menghasilkan angka unik

           

• Jika koneksi tepat maka otomatis angka unik tercetak di kursor tadi
• 
• nah itu jika menggunakan Wifi

Menggunakan Bluetooth

• Koneksikan terlebih dahulu Bluetooth PC/Laptop ke Android
• Buka Aplikasi Barcode Scan di Android dan lakukan setting di aplikasi agar koneksi via bluetooth
• 
• Buka Microsoft Excel atau Aplikasi anda kemudian letakkan kursor pada objek yang diinginkan
• Lakukan Scan pada barcode sampel anda
• dan hasilnya seperti gambar/animasi di atas.

kalau semua sesuai dengan petunjuk, insya Allah pasti bisa.

biasanya muncul beberapa error dalam aplikasi android, itu diakibatkan karena koneksi yang tidak stabil. misalnya error 5005 itu karena tidak terhubung wifi atau error koneksi bluetooth.

Sobat Excel ditunggu ya komentarnya untuk perbaikan dan penyempurnaan cara ini

Salam Excel

Read More

Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan VBA

Assalamualaikum Wr, Wb

Jumpa lagi sobat Excel,
Semoga dalam lindungan dan Rahmat Tuhan Yang Maha Esa dan sehat selalu.

Menghitung Jumlah Kata Dalam Satu Cell di Excel ini sudah di bahas pada artikel Excel sebelumnya Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN tetapi dalam bentuk Function.

Kali ini kita bahas menggunakan bantuan fasilitas VBA di Excel. Kenapa memakai VBA?, apa keuntungannya? Ribet bikin Scriptnya? Saya belum ngerti VBA.
pertanyaan dan pernyataan itu sering muncul dari teman maupun pembaca ketika melihat dan mendengar VBA 

Mungkin beberapa Sobat Excel sudah tau cara ini jika menggunakan Microsoft Office Word, yaitu dengan klik pada Ribbon Menu Tools => Word Count (Excel 2007) atau REVIEW => Word Count (Excel 2013) maka penjelasan data yang menyangkut jumlah karakter, kata, paragraf dan sebagainya di sebuah halaman document akan terlihat (silahkan baca di artikel sebelumnya)

Nah bagaimana jika kasus itu terjadi di Microsoft Office Excel?
dengan menggunakan function/rumus LEN, SUBTITUTE pada Worksheet kita sudah bisa mendapatkan hasilnya seperti gambar dibawah ini:

Contoh 1

perhatikan contoh dibawah ini untuk penjabarannya, kita pindahkan ke cell A3 sumber text cell nya:

Rumus LEN pertama menghasilkan 34 karakter
Rumus LEN kedua menghasilkan 30 karakter setelah spasi dihilangkan (spasi di subtitusi ke "")
LEN1 - LEN2 = 4
pertanyaan yang muncul kenapa selisihnya cuma 4? sedangkan jumlah kata aktual ada 5?
karena yang kita subtitusi adalah karakter spasi karena spasi selalu berada diantara kata bararti selalu selisih 1 (satu) seperti pola berikut ini;
KATA(spasi)KATA(spasi)KATA(spasi)KATA(spasi)KATA.

maka untuk mendapatkan jumlah kata kita hanya perlu menambahkan angka 1 seperti pola

Bagaimana Menjabarkan ke VBA atau Macro Excel?

kita mulai..................... berikut langkah-langkahnya :

• Silahkan buka Microsoft Office Excel terlebih dahulu dan buat file baru (new file/ blank workbook)
• Pada cell A3 tuliskan kalimat "hati senang walaupun lagi banyak uang" kemudian Save As file anda dengan format .xlsm atau .xlsb (intinya extensi yang mendukung macro).

       

• Buat Tombol eksekusi untuk hitung kata dan tentukan cell untuk hasil hitungnya di cell B3
• Sekarang tekan pada keyboard Alt F11 (masuk area kerja VBA) dan klik insert module kemudian masukkan script berikut ini:

          Sub HitungKata()

              Dim rngKata As Range

              Dim Len1, Len2 As Long

              With Sheet1

                   Set rngKata = .Range("a3")

                   Len1 = Len(rngKata)

                   Len2 = Len1 - Len(Application.WorksheetFunction.Substitute(rngKata, " ", "")) + 1

                  .Range("b3").Value = Len2

             End With

             End Sub

• Save terlebih dahulu, kemudian kita menuju ke Sheet 1 lagi dan klik kanan tombol shape yang kita buat tadi pilih Assign Macro dan pilih macro HitungKata dan OK.
•  Sekarang kita uji dengan cara mengganti kalimat di dalam Cell A3 kemudian klik tombol shape (run) dan melihat hasilnya di Cell B3.
• Selesai

Jangan lupa Save hasil kerja anda tadi.

silahkan download contoh file di tab download atau menuju kesini dengan keyword "Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan VBA"

Sampai disini saya rasa semua Sobat Excel sudah mengerti. Jika ada kritik atau saran silahkan beri komentar atau hubungi kami di kontak sosial media.

Catatan: pastikan Microsoft Excel anda dalam keadaan macro enabled selalu agar kapanpun bisa
              membuka file yang ber ekstensi macro enabled
Keterangan : Menggunakan Microsoft Office Excel 2013

Salam Excel

Read More

Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN

Assalamualaikum Wr, Wb

Apa kabar sobat Excel, harapannya selalu dalam Rahmat Tuhan Yang Maha Esa dan sehat selalu.

Sebenarnya kasus (Menghitung Jumlah Kata Dalam Satu Cell di Excel) ini sudah lama di bahas dalam berbagai grup Excel maupun Blog dan Artikel di dunia maya, tetapi tidak ada salahnya jika kali ini penulis memaparkan secara detail bagaimana rumus-rumus itu bisa bekerja menghitung jumlah kata yang ada dalam satu cell tersebut.

Mungkin beberapa Sobat Excel sudah tau cara ini jika menggunakan Microsoft Office Word, yaitu dengan klik pada Ribbon Menu Tools => Word Count maka penjelasan data yang menyangkut jumlah karakter, kata, paragraf dan sebagainya di sebuah halaman document akan terlihat, seperti gambar dibawah ini.
Word 2007

Word 2013

Nah bagaimana jika kasus itu terjadi di Microsoft Office Excel?
beberapa dari sobat Excel mungkin telah mencoba mengkombinasikan beberapa rumus di Microsoft Excel seperti FIND, LEN, MID, SUBTITUTE, SEARCH dan rumus-rumus lain yang terkait Text dalam Microsoft Excel tetapi masih bingung dan ujungnya bertanya kok bisa?

Ok, mari kita lihat rumus berikut yang sering dibahas di berbagai grup Excel atau blog, coba perhatikan gambar dibawah ini:

Pada gambar tersebut tertulis rumus =LEN(LEN(A1)-LEN(SUBTITUTE(A1," ",""))+1 dan hasilnya 61 kata dalam cell tersebut. Mari kita bahas satu persatu alur rumus tersebut hingga dapat menghasilkan jumlah kata yang sesuai isi dalam cell tersebut.

Kita mulai dengan rumus LEN
Syntax rumus LEN =    untuk menghitung jumlah karakter Text dalam sebuah Cell. Text yang dimaksud adalah Number, Alphabet, String, Spasi dan lainnya yang bisa di ketikkan ke cell.
contoh :
di Cell B15 terdapat tulisan "1234 rt tr coba saja" dan jika kita hitung beserta spasi maka jumlahnya 20 karakter, artinya jika di akhir text kita tambahkan spasi lagi maka jumlahnya akan bertambah lagi sesuai jumlah spasi yang kita tambahkan walaupun tidak kelihatan perbedaanya di visualnya saat di enter.

Funtion atau Rumus SUBTITUTE
Syntax rumus SUBTITUTE = SUBTITUTE mengganti text dalam sebuah cell dengan text yang kita inginkan, dalam sytax tersebut kita melihat ada Text, Old_Text, New_Text, Instance_Num.
contoh :

Text :
yaitu keseluruhan text cell yang dituju seperti contoh di atas, atau bisa kita ketik langsung dalam rumus misalnya =SUBTITUTE("Kambing","ambing","uda") maka hasilnya adalah Kuda karena kata "ambing"berubah/diganti menjadi "uda" hasilnya"K+uda = Kuda".
Old_Text :yaitu Text sebelumnya atau text lama yang akan digantikan
New_Text :
yaitu Text baru untuk menggantikan text lama

Setelah melihat penjelasan kedua rumus diatas, mari kita melihat alur kerja kedua rumus tersebut sehingga mampu menghitung jumlah kata dalam sebuah cell seperti contoh awal tadi.
=LEN(A1)-LEN(SUBTITUTE(A1," ",""))+1
perhatikan contoh dibawah ini, kita pindahkan ke cell A3 sumber text cell nya:

Rumus LEN pertama menghasilkan 34 karakter
Rumus LEN kedua menghasilkan 30 karakter setelah spasi dihilangkan (spasi di subtitusi ke "")
LEN1 - LEN2 = 4
pertanyaan yang muncul kenapa selisihnya cuma 4? sedangkan jumlah kata aktual ada 5?
karena yang kita subtitusi adalah karakter spasi karena spasi selalu berada diantara kata bararti selalu selisih 1 (satu) maka untuk mendapatkan jumlah kata kita hanya perlu menambahkan angka 1, seperti pola berikut : KATA(spasi)KATA(spasi)KATA(spasi)KATA(spasi)KATA.
silahkan download contoh file di tab download atau menuju kesini dengan keyword "Menghitung Jumlah Kata Dalam Satu Cell di Excel menggunakan function SUBTITUTE dan LEN"

Sampai disini saya rasa semua Sobat Excel sudah mengerti. Jika ada kritik atau saran silahkan beri komentar atau hubungi kami di kontak sosial media.

Catatan: semua penggunaan rumus di artikel ini menggunakan koma (,) sesuai dengan regional komputer penulis. dan jika rumus tidak bisa berjalan kemungkinan regional berbeda dan harus diganti ke titikkoma (;) dalam penulisan rumusnya atau sesuai dengan regional komputer anda.
Keterangan : Menggunakan Microsoft Office Excel 2013


Salam Excel

Read More