iParengan

Tutorial Aplikasi kasir sederhana 1. Form input data produk 2. Form input data supplier - bisa belajar entri data, update data, hapus data - melakukan pencarian nama produk/supplier - menampilkan tabel data dalam listbox - menolak data kembar - input angka desimal 3. Form pembelian 4. Form penjualan - input data ke listbox - input data dari listbox ke sheet - nomor transaksi anti kembar Tutorial Aplikasi kasir sederhana Download Aplikasi kasir sederhana gratis Download Download Versi open modul akan dikirim ke email anda , silahkan berkomentar di blog ini atau di Youtube Excel Home

C opy paste data antar sheets - Luar biasa, inilah Microsoft excel, berbagai macam pekerjaan dapat kita lakukan dengan aplikasi ini, tanpa basi basi panjang yang pastinya membuat anda "ngga banget" kali ini saya akan membagikan file yang bisa copy paste data dengan microsoft excel VBA Kode macro Copy paste data antar sheets pertama Set ipaone = Sheets("Sheet1") Set ipatwo = Sheets("Sheet2") Set Status = ipaone.Range("A3", ipaone.Range("A3").End(xlDown)) For ipa = 1 To WorksheetFunction.CountA(Status)     ipatwo.Cells(2 + ipa, 1).Value = ipaone.Cells(ipa + 2, 1).Value     ipatwo.Cells(2 + ipa, 2).Value = ipaone.Cells(ipa + 2, 2).Value     ipatwo.Cells(2 + ipa, 3).Value = ipaone.Cells(ipa + 2, 3).Value Next ipa Kode macro Copy paste data antar sheets kedua Private Sub CommandButton1_Click() srt = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row Range("A1:C" & srt).Copy Sheets.Add After:=ActiveSheet Active...

 Cara membuka sheet Excel yang diproteksi - Mengunci sebuah lembar kerja atau mengunci sheet tujuannya adalah untuk melindungi data atau file yang sudah kita buat di rubah oleh orang-orang yang jail atau orang yang tidak bertanggung jawab. Untuk mengunci Sheet adalah digunakannya sebuah password. Namun akan menjadi suatu galau tersendiri saat anda lupa angka angka atau huruf huruf yang anda gunakan sebagai password sheet. Untuk mengantasi atau untuk mebukan password sheet yang terkunci tadi ada modul yang bisa membuka pakasa sheets yang telah anda kunci Kodde macro cara membuka sheet excel yang terproteksi Sub BukaSheet() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 ...

UI Material design form membuat input data - Form  Textbox1 = nama depan  Textbox2 = nama belakang  Textbox3 = alamat lengkap  Textbox4 = kota  Label1 = caption nama depan  Label2 = caption nama belakang  Label3 = caption alamat lengkap  Label4 = caption kota  Label5 = caption Simpan  Label10 = caption Keluar UI Material design form membuat input data - Kode macro Pengaturan Userform #If Win32 Then     Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long     Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long     Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long     Const WS_SYSMENU = &H80000     Const GWL_STYLE = (-16) #Else    ...

Kode macro membuat nomor urut secara vertikal Sub nomorurutvertikal () eh = Sheets("Sheet1").Range("T3").Value For no = 1 To eh Cells(no, 1).Value = no Cells(no, 2).Value = no 'kolom b Cells(no, 3).Value = no 'kolom c dan seterusnya Next no end sub Kode macro membuat nomor urut secara Horizontal Sub nomoruruthorizontal () eh = Sheet1.Range("T3").Value For no = 1 To eh Cells(1, no).Value = no Next no End Sub Kode macro membuat nomor urut custom Sub Nomorurutcustom () eh = Sheet1.Range("T4").Value no = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Offset(0, 0).Row Sheet1.Cells(no + 1, 1).Value = eh & no End Sub Video tutorial cara membuat nomor urut dengan excel VBA

Kode macro menyimpan lembafr kerja ThisWorkbook.Save Kode macro keluar lembar kerja ThisWorkbook.Close atau Application.Quit Kode macro Print lembar kerja ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Kode macro Print preview lembar kerja ActiveSheet.PrintPreview Kode macro memanggil form (userform) Userform1.Show atau Userform2.Show dan seterusnya Kode macro menutup form Unload.me Kode macro menyembunyikan form Me.Hide untuk menampilkanya kembali me.show Kode macro save as tanpa dialog ActiveWorkbook.SaveAs KOde macro memanggil form dengan workbook masih aktif UserForm1.Show vbmodules Kode macro menyembunyikan lembar kerja Application.Visible = false Kode macro menampilkan lembar kerja Application.Visible = True Kode macro dua menit mahir Vlookup silahkan tonton video dibawah ini Kode macro link ke Internet Sub LinkKeInternet On Error GoTo EE ActiveWorkbook.FollowHyperli...

B iasanya kalau ada kalimat atau kata Drop down itu identik dengan kontrol combobox, karena memang kontrol combobox satu satunya kontrol yang mempunyai value secara drop down, untuk melihat bagaimana cara membuat kontrol dengan combobox silahkan anda ikuti link tautan dibawah ini UI design embuat menu drop down  Hadirkan userform, ubah ukuran userform sesuai selera yang anda butuhkan  Pada userform hadirkan dua kontrol frame, lihat tabel dibawah ini Pengaturan properties UI design embuat menu drop down - Properties Kontrol Name Width Height Left Top Userform Userform1 300 500 0 0 Frame Frame1 300 30 0 0 Frame Frame2 100 250 0 28  Oh ya untuk membedakan kasih warna biru untuk frame1 dan warna kuning untuk frame2  Nah sekarang masukan seluruh kode macro dibawah in kedalam userform Dim lbl() As New Class1 Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ...

Download aplikasi pembayaran listrik gratis - Bagi anda yang bergerak dibidang usaha micro dan sedang mencari aplikasi pembayaran litrik secara gratis memang disinilah tempatnya, dan untuk kali ini saya akan share aplikasi pembayarn listrik gartis yang powerfull serta mempunyai tampilan indah, tidak hanya itu kami juga menjamin keamanan data yang anda masukan pada aplikasi pembayaran listrik gratis ini Download aplikasi pembayaran listrik gratis Saya akan bercerita sedikit tentang kebijakan yang kami lakukan, mulai saat ini aplikasi yang bersifat gratis akan kami lindungi dan kami kompres dengan software Excel To Exe, dengan kompresi ini maka hak cipta dari iparengan.com tidak akan hilang meski aplikasi sudah wara wiri kemana mana. Dan hari ini Agustus 2017 saya dibuat terkejut dengan trending yang terangkat yaitu Excel To EXE, trending ini saya amati dari pertanyaan yang dilontarkan pada email WA atau yang paling real anda bisa melihat popular pos terdapat artikel Excel to Exe dengan...

K/B A B C D E 1 NIP NAMA LENGKAP ALAMAT KOTA - 2 B000001 Jono Parengan Tuban Tuban - 3 B000002 Sudarso Parengan Tuban Tuban - 4 B000003 Gono Parengan Tuban Tuban - 5 B000004 Ji Ulo Parengan Tuban Tuban - 6 B000005 Gondo Parengan Tuban Tuban - 7 B000006 Bodo Parengan Tuban Tuban - 8 B000007 Judas Parengan Tuban Tuban - B agaimana bayangan anda ketika melihat tabel diatas ? tabel diatas dibuat dengan satu Userform, dalam satu Userform terdapat perintah tambah entri data dan update atau edit entri data, kok bisa ? Tambah edit data dengan macro dengan satu tombol Sudah banyak sekali artikel yang saya bagikan kepada anda mengenai tambah entri data dan update entri data, namun kali ini saya akan bagikan cara tambah entri data dan update entri data dalam satu Userform, saya bayangkan anda sudah mempunyai tabel sebagaimana tabel diatas + Untuk langkah selanjutnya langsung saja buat design User...

K etika anda baru pertama kali masuk kerja baik sebagai karyawan swasta pegawai negri ataupun guru maka anda aka memperoleh harta warisan yang bernama data, dan kemungkinan anda akan menerima data dengan database atau tabel yang rapi atau anda aka menerima data dengan tabel yang amburadul. Ada kaitanya apa kasuss diatas dengan hal yang akan dibahas yaitu Memisahkan Tempat lahir dengan Tanggal ?? tentu saja ada, menurut pendapat saya pribadi rumus atau fungsi Memisahkan Tempat lahir dengan Tanggal tidak akan berlaku jika anda membuat data dengan tabel yang rapi dan sesuai standart database, dan saya belum pernah sekalipun membuat database antara huruf dan angka digabung dalam satu sel, sebagai contoh menggabung kota lahir dengan tanggal lahir, inilah kesalahan yang terulang ulag sehingga anda selalu melakukan googling Memisahkan Tempat lahir dengan Tanggal Temukan kami dengan keyword #iParengan #AplikasiGudang #MemisahkanTempatlahirdenganTanggal Namun apa boleh buat nasi sud...

C ara membuat dropdown combobox - Combobox merupakan salah satu kontrol form yang sering digunakan dalam aplikasi,pada umumnya combobox digunakan untuk memilih salah satu option data dimana terdapat banyak option data yang ditamilkan oleh combobox. Data dalam combobox sebenarnya dapat ditulis langsung dalam modul,namun, bagaimana jika data yang ingin ditampilkan sangat banyak atau tergantung pada kondisi tertentu? Cara pertama membuat dropdown dengan combobox Combobox1.AddItem "Tes1"  Combobox1.AddItem "Tes2"  Combobox1.AddItem "Tes3"  Combobox1.AddItem "Tes4" Cara kedua membuat dropdown dengan combobox Sub Combobox()  Set Iparengan = Sheets("Sheet1") Dim Sel As Range Dim NoDupes As New Collection Set Status = Iparengan.Range("B2", Iparengan.Range("B2").End(xlDown)) For Each Sel In Status NoDupes.Add Sel.Value, CStr(Sel.Value) Next Sel For Each Item In NoDupes ComboBox2.AddItem Item Next Item End Sub Cara ke...

Membuat main menu dengan macro - Membuat menu hyperlink sebagai pengganti tab sheets, bagaimana caranya? main menu memudahkan kita untuk berpindah dari sheet satu kesheet lainya dengan menggunakan fungsi hyperlink yang telah disediakan microsoft excel, dan pada kesempatan kali ini saya akan mengajak anda membuat main menu dengan bantuan macro. Kode ThisWOrkbook Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim cCont As CommandBarButton On Error Resume Next Application.CommandBars("Cell").Controls("Daftar Isi").Delete On Error GoTo 0 Set cCont = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True) With cCont .Caption = "Daftar Isi" .OnAction = "IndexCode" End With End Sub Kode Module Sub IndexCode() Application.CommandBars("workbook Tabs")...

Download toolsnya di youtube Excel Home