√ Mencar Ilmu Menciptakan Textbox Pada Userform

Textbox biasanya dipakai sebagai kotak isian untuk mengentri teks dengan aneka macam karakter baik itu huruf, angka, tanda baca maupun spasi. Textbox ini biasanya dipakai sebagai interaktif antara data sistem yang dibentuk oleh programmer VBA dengan user pengguna aplikasi excel. Textbox dalam menciptakan aplikasi berbasis VBA memakai MS. Excel sangat dibutuhkan contohnya saja aplikasi yang pernah saya buat yaitu

[26] Form Input Data Siswa Berbasis Excel Versi Update Maret 2015 dengan VBA

Namun saya tidak akan membahas lebih lanjut mengenai aplikasi, pada kesempatan kali ini saya akan berikan dasar bagaimana menciptakan textbox pada userform dan bagaimana mengatur penamaan, ukuran, atau lebih tepatnya merubah properti pada textbox tersebut.

Langkah menciptakan textbox pada UserForm
Pertama silakan buat userform, untuk yang belum tahu caranya menciptakan userform silakan lihat dan simak goresan pena saya

[23] Pengenalan Dasar Membuat UserForm VBA Excel

Langkah berikutnya kita akan menciptakan salah satu textbox yaitu dengan cara memakai toolbox dan silakan lihat gambar berikut ini

Gambar yang ditunjukan oleh anak panah warna hijau ialah tool untuk menciptakan textbox. Lalu bagaimana caranya silakan klik tool textbox tersebut kemudian pada UserForm silakan klik maka textbox akan terbuat secara otomatis. Anda juga sanggup dengan cara mendrag untuk menyesuaikan ukuran dari textbox tersebut.

Dari textbox yang telah dibentuk diatas Anda sanggup merubah ukuran dengan cara menggeser node atau kotak putih berukuran kecil yang mengelilingi textbox tersebut yang berjumlah 8 node. Atau kalau Anda ingin merubah ukuran textbox tersebut dengan mengganti value dari properties nya juga bisa.

Memberi nama pada Textbox

Memberi nama pada textbox ini sanggup dilakukan sesuai dengan nama yang gampang kita ingat tujuannya biar administrasi desain aktivitas yang dirancang gampang dan terstruktur. Lalu bagaimana cara merubah nama properties dari textbox1 menjadi "TXTnama". Perhatikan gambar dibawah ini goresan pena awal ialah name dari properties textbox ialah "Textbox1"

Kita akan hapus nama tersebut dan menggantinya dengan nama "TXTNama" maka caranya silakan blok kemudian hapus memakai tombol delete pada keyboard atau backspace kemudian ketikan nama yang kita tentukan menyerupai pola saya ialah "TXTNama"

Mengganti Warna

Pewarnaan pada textbox dilakukan supaya textbox tersebut lebih menarik contohnya textbox tersebut secara standar berwarna goresan pena hitam atau dalam propertie mempunyai warna &H80000008& dan kita sanggup tentukan warna goresan pena contohnya warna merah Anda tinggal merubah arahan warna tersebut menjadi &H000000FF&. Hal ini dilakukan dengan merubah properties Forecolor

Lalu bagaimana kalau warna dasar kita rubah dari warna background putih menjadi warna hitam maka yang harus Anda lakukan ialah merubah properties BackColor dari &H80000008& menjadi &H00000000& sehingga akhirnya akan menyerupai berikut

Membuat ToolTip

Tooltip pada textbox sanggup membantu user untuk mempermudah apakah textbox tersebut harus diisi oleh text atau angka walaupun sebetulnya Anda juga sanggup membatasi hanya data angka saja yang harus dientrikan kalau data aksara maka akan ditolak.

Silakan simak : [07] Cara Membuat Validasi Hanya Angka pada TexBox

Untuk menciptakan tooltip silakan ganti propertie dari tooltip contohnya saya contohkan "masukan data angka"

Jika Anda mengisi Control Tiptext maka akhirnya kalau diarahkan mouse pad pada textbox tersebut akan muncul goresan pena "masukan data angka" menyerupai berikut ini

Mengunci Textbox dengan Locked

Nah, cara ini biasanya dilakukan oleh programer VBA dikala akan memproteksi textbox biar tidak sanggup diisi atau dientry oleh user artinya textbox tersebut sudah ditentukan isiannya. Hal ini gampang sekali Anda lakukan Anda cukup ganti properties Locked dari kondisi FALSE menjadi TRUE dan kalau ini Anda lakukan maka textbox tersebut tidak bisi diketikkan data apapun.

Silakan dicoba run aktivitas tersebut dan ketikkan data pada textbox tersebut dan yang terjadi ialah Anda tidak akan sanggup memasukan data apapun pada textbox tersebut.

Multiline Textbox

Apa fungsi dari multiline textbox dalam properties? kalau kita lihat dari bahasanya multiline artinya banyak baris maksudnya ialah kalau kita ketikkan karakter yang panjang maka secara otomatis baris tersebut akan ke bawah kalau mengalami panjang yang tidak cukup. Penggunakan pola ini Anda sanggup gunakan untuk menciptakan alamat dengan ukuran panjang textbox yang pendek. Anda sanggup merubah properties multiline yang semula FALSE menjadi TRUE silakan cari pada propertie Multiline.

Jika hal ini Anda lakukan akan mengahsilkan menyerupai berikut ini

Perhatikan gambar diatas, goresan pena dari alamat " Jl, Mutiara No. 60 Rajagaluh Kabupaten Majalengka akan kebawah dengan sendiri secara otomatis sesuai dengan ukuran textbox nya.

ScrollBar Textbox

Membuat scrollbar pada textbox memang terkadang dibutuhkan dikala ada entri data yang sangat panjang namun textbox harus diubahsuaikan dengan ukuran artinya textbox harus berukuran 4x4 cm namun goresan pena akan sanggup dilihat dengan mendrag scrollbar.

Untuk sanggup menciptakan textbox yang sanggup mempunyai scrollbar menyerupai gambar diatas Anda sanggup merubah properties menjadi fmscrollbar vertical.


Yah, saya kira cukup sudah bahan mengenai textbox pada userform semoga sanggup membantu walaupun masih banyak yang mesti dipelajari dan Insya Allah akan saya bahas mengenai bagaimana cara coding untuk textbox.

Selamat belajar, semoga bermanfaat.
Sumber http://www.excel-id.com/

√ Validasi Textbox Hanya Sanggup Diisi Teks Bukan Angka

Pernah terbayangkan bagaimana entri data melalui textbox yang ditampilkan melalui userform, ada beberapa jadwal aplikasi yang dibentuk oleh programmer VBA contohnya saja mereka menyediakan kemudahan textbox yang hanya sanggup diisi dengan goresan pena aksara bukan angka.

Membuat jadwal aplikasi dengan VBA memang tidak terbatas sepanjang budi pemahan jadwal Anda jalan dengan tepat tentunya dengan bahasa pemrograman VBA. Berikut ini aku akan memperlihatkan pola bagaimana cara menciptakan sebuah textbox yang hanya sanggup dituliskan aksara bukan angka. Makara kalau user menuslikan angka di dalam textbox yang telah disediakan maka sesudah berpindah textbox tidak akan bekerja atau bahkan Anda juga sanggup memperlihatkan sebuah pesan peringatan bahwa textbox tersebut tidak sanggup diinput dengan data angka.

Tutorial berikut sanggup kita pelajari sebagai salah satu pola bagi Anda yang akan dan ingin berguru VBA lebih lanjut. Sesuai dengan judul artikelnya maka aku akan memperlihatkan langkah cara menciptakan validasi textbox hanya sanggup diisi dengan data teks bukan angka.
\
Tahapan membuatnya :
langkah pertama Anda harus mempunyai UserForm, terperinci dengan UserForm Anda sanggup menempelkan sebuah textbox sebagai entri datanya. Untuk menciptakan UserForm dan textbox tampaknya sudah pernah aku bahas kalau ingin mempelajari bagaimana cara menciptakan userform dan textbox silakan lihat di ujung kanan atas ada kolom pencarian artikel silakan klik kata kuncinya disana kemudian tekan enter maka di blog ini akan menghasilkan berbagai goresan pena yang membahas bagaimana cara menciptakan textbox dan userform. Jika Anda malas untuk mencarinya aku sertakan link

Baca :
Cara Membuat Userform lengkap

Setelah Anda telah menciptakan Userform silakan buat satu buah textbox dengan memakai control toolbox bapa VBA Editor tersebut dan sisipkan pada userform. Belum tahu cara menciptakan textbox silakan baca dan simak goresan pena aku di :

Cara Membuat Textbox pada UserForm

Ok, dua langkah tersebut sudah dibentuk jangan lupa buat satu buah lagi textbox sehingga object terdiri dari 1 buah userform dan 2 buah textbox kira-kira balasannya menyerupai berikut ini

Langkah berikutnya kita akan menciptakan coding dengan mekanisme saat textbox keluar (exit) bagaimana menuliskan coding tersebut? silakan copy pastekan saja codingnya dibawah ini

Private Sub CommandButton1_Click()
Dim Folder As Object
Set Folder = CreateObject("WScript.Shell").SpecialFolders
Sheets("Sheet1").Activate
With Sheets("Sheet1")
    .Range("B2").Value = "My Document Path adalah:-         " & Folder("mydocuments")
    .Range("B3").Value = "Desktop Path adalah:-             " & Folder("desktop")
    .Range("B4").Value = "All User Desktop Path adalah:-    " & Folder("allusersdesktop")
    .Range("B5").Value = "Recent Documents Path adalah:-    " & Folder("recent")
    .Range("B6").Value = "Favorites Document Path adalah:-  " & Folder("favorites")
    .Range("B7").Value = "Programs Path adalah:-            " & Folder("programs")
    .Range("B8").Value = "Start Menu Path adalah:-          " & Folder("StartMenu")
    .Range("B9").Value = "Send To Path adalah:-             " & Folder("SendTo")
End With
End Sub

Langkah terakhir untuk menguji apakah coding yang kita tuliskan benar, silakan jalankan dengan menekan icon RUN atau Anda sanggup menekan tombol F5 kemudian silakan isikan angka pada textbox1 maka balasannya akan muncul peringatan menyerupai berikut ini

Berhasil. lihatlah gambar diatas, coding yang kita tuliskan telah berhasil dan silakan Anda coba sebagai latihan ingat kalau sudah berhasil jangan lupa untuk menuntaskan dengan versi Anda sendiri sehingga Anda akan jago dalam menciptakan jadwal aplikasi memakai Ms. Excel.


Untuk memasukan dan membatasi hanya angka saja silakan simak

Cara Membuat Validasi Textbox Hanya Angka

Akhirnya, selamat mencoba. Jika Anda pertanyaan silakan tulis di kolom komentar.
Sumber http://www.excel-id.com/

√ Cara Menampilkan Data Baris Terakhir .End(Xlup) Pada Textbox Excel Vba

Menampilkan data atau mengetahui data pada baris terakhir sebuah database di Microsoft Excel banyak digunakan dikala menciptakan aplikasi untuk objek Simpan Data. Biasanya sistem atau aloritma akan mencari terlebih dahulu data baris terakhir yang kosong kemudian lakukan algoritma lainnya.

Untuk menampilkan data pada baris terakhir / value biasanya memakai .End(xlUp) dan dalam perkara ini kita akan menampilkan data baris terakhir dalam sebuah range. Data tersebut akan ditampilkan pada textbox melalui UserForm.

Contoh penggunaan :
Misalkan saya mempunyai data range pada worksheet1 yang berada pada kolom A sebagai berikut

Langsung saja silakan Anda buka VBA Editor dan buatlah satu buah UserForm kemudian tambahkan pula objek textbox pada userform tersebut gunakan toolbox untuk membuatnya. Dalam hal ini Anda jangan dulu merubah properties.

Setelah itu untuk menampilkan data baris terakhir Anda dapat memakai mekanisme UserForm_Active maupun UserForm_Initialize atau bahkan Anda juga dapat memanggil perintah tersebut dengan memakai object commandbutton, Anda juga dapat menempatkan coding berikut pada module atau pada object silakan sama saja tergantung pemakaian.

Untuk pola saya gunakan pada mekanisme UserForm_Initialize maka tuliskan coding berikut ini atau silakan copy paste.

Private Sub UserForm_Initialize()
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
TextBox1.Value = BarisTerakhir
End Sub

Jika Anda telah menuliskan coding VBA excel diatas silakan jalankan maka hasilkan yakni menyerupai gambar berikut :

Perhatikan data yang tampil pada textbox diatas yakni nama "Rizal Fakhri" sebab dalam urutan range diatas data yang paling simpulan yakni nama tersebut. Jika Anda menambahkan nama berikutnya dibawah nama Rizal Fakhri maka yang tampil akan berubah kembali.

Demikian, goresan pena pendek di bulan romadhon ini, biar bermanfaat ajah
Sumber http://www.excel-id.com/

√ Menciptakan Text Tuliskan Nama Anda Disini Dengan Textbox Userform

Telah kita ketahui bersama pembuatan aplikasi yang dibentuk oleh seorang programmer baik itu berbasis web maupun desktop tentu bila aplikasi tersebut mempunyai sebuah textbox yang memang merupakan textbox isian yang harus diisi oleh user tentunya tidak semua orang mengetahui untuk mengisi apa textbox tersebut. Contoh realnya yakni saat kita akan mengentrikan sebuah tanggal lahir tentunya ada beberapa format tanggal lahir dari mulai short hingga long format. Misalnya dd-mm-yyyy merupakan format tanggal pendek atau bahkan ada yang memakai mm-dd-yyyy.

Untuk apa fungsi default textbox sementara
Entah apa bahasanya yang terang maksud dari artikel ini merupakan goresan pena sementara yang ada pada sebuah textbox yang berfungsi untuk memberitahu kepada user bahwa goresan pena yang harus dientrikan atau diketikkan pada textbox yang bersangkutan harus sesuai dengan keterangan yang diberikan oleh programmer tersebut.

Silakan Simak juga:
Belajar Textbox melalui UserForm Lengkap

Contoh jelasnya Anda dapat melihat aplikasi yang pernah aku buat yaitu aplikasi PPDB disana terang aku berikan klarifikasi sebuah tanggal yang harus dientrikan pada textbox tanggal yaitu harus berformat dd-mm-yyyy jadi bila salah maka akan menjadi kesalahan yang fatal sebab setiap komputer mempunyai perbedaan regional setting masing-masing.
Silakan buat satu buah objek textbox pada userform kemudian tambahkan coding berikut

Berikut Coding untuk Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm

coding Ketika tombol di klik

Private Sub CommandButton1_Click()
UserForm_Initialize
End Sub

Prosedur userform inisialisasi

Private Sub UserForm_Initialize()
With TextBox1
    .ForeColor = &HC0C0C0
    .BackColor = &H80000005
    .Text = "Tulislah Nama Anda"
End With
CommandButton1.SetFocus
End Sub

Prosedur Ketika Textbox di enter

Private Sub TextBox1_Enter()
    With TextBox1
        If .Text = "Tulislah Nama Anda" Then
            .ForeColor = &H80000008
            .BackColor = &H8000000F
            .Text = ""
        End If
    End With
End Sub

Prosedur Ketika Textbox telah di update

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .BackColor = &H8000000F
            .Text = "Tulislah Nama Anda"
        End If
    End With
End Sub

Pada Gambar userform diatas terlihat pada textbox area tertulis "Tuliskan Nama Anda Disini" dengan warna font transfaran namun saat Anda mau mengetikkan nama di textbox tersebut maka secara otomatis goresan pena tersebut akan hilang.

Membuat Text "Tuliskan Nama Anda Disini" dengan Textbox UserForm sama dengan memperlihatkan citra bahwa text tersebut hanya untuk dientrikan nama saja. Baca bahan serupa: Validasi Textbox Hanya Angka

Baca: Pencarian Textbox Otomatis (Autocomplete Textbox)

Sumber http://www.excel-id.com/

√ Cek Nomor Seri Hardisk (Serial Number) Komputer Dengan Vba

Nomor seri hardisk (serial number) setiap komputer berbeda-beda dan bagaimana cara mengetahui nomor seri dari sebuah hardisk? Tutorial berikut akan menjelaskan bagaimana coding VBA untuk menampilkan nomor seri dari hardisk.

Simak:
Validasi Data Cell/Range di Excel

Ada banyak alasan seorang programmer untuk dapat mengetahui serial number dari hardisk salah satunya ialah dapat dipakai sebagai fungsi untuk menjalankan aktivitas artinya bila nomor seri hardisk tidak sesuai maka aktivitas tidak dapat dijalankan. Hal ini bias dikatakan sebagai salah satu cara untuk aktivasi dari aktivitas yang dibentuk artinya sebuah software atau aktivitas harus diaktivasi terlebih dahulu untuk dapat difungsikan dengan baik.

Syntax penulisan untuk menampilkan sebuah nomor seri hardisk ialah :

CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber

Dari script diatas anda dapat menampilkan nomor seri (serial number) dengan banyak sekali cara contohnya melalui sebuah pesan, menampilkan pada alamat cell dan worksheet atau dapat juga pada label dan textbox yang disediakan pada userform dan yang paling hebatnya juga Anda dapat menyimpan mekanisme ini dikala workbook dibuka pertama kali sebagai validasi dari software yang Anda  buat.

Menampilkan nomor seri hardisk melalui pesan

Script untuk menampilkan serial number hardisk dengan tampilan pesan Anda dapat ketikkan coding berikut pada userform Commandbutton

Private Sub CommandButton1_Click()
Dim Pesan As Integer
Dim Pesannya As String
Dim JudulPesan As String

Pesannya = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
JudulPesan = "Nomor Seri Hardisk"
    Pesan = MsgBox("Nomor Seri: " & Pesannya, vbInformation, JudulPesan)
End Sub

Hasil dari coding diatas ialah sebagai berikut

Anda tambahkan 1 buah CommandButton dalam UserForm kemudian untuk objek CommandButton silakan tambahkan coding diatas dalam mekanisme klik.

Menampilkan nomor seri hardisk (serial number) pada label dan textbox

Untuk menampilkan nomor seri hardisk (serial number) ditampilkan melalui textbox ataupun label, contohnya saya contohkan cara menampilkan nomor seri hardisk melalui textbox maka silakan buat dan desain userform kemudian tambahkan 1 buah label dan 1 buah textbox kemudian tambahkan juga 1 buah commandbutton.

Untuk label silakan ganti caption menjadi "Nomor Seri:" kemudian untuk textbox1 biarkan saja properties tidak ada yang dirubah dan terakhir untuk commandbutton1 silakan ganti caption menjadi " Tampilkan Nomor Seri" Setelah desain form selesai langkah berikutnya kita akan menciptakan mekanisme silakan masuk ke pengcodean di VBA Editor Anda kemudian ketikkan coding  berikut ini

Private Sub CommandButton1_Click()
TextBox1.Value = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
End Sub

Coding diatas merupakan objek CommandButton apabila dilakukan mekanisme Click maka akan menjalankan perintah bahwa isi dari textbox1 tersebut akan menampilkan nomor seri dari hardisk komputer yang anda gunakan.

Jika Anda melaksanakan perintah klik pada tombol "Tampilkan Nomor Seri" maka nomor seri akan ditampilkan pada textbox yaitu : -1072298543

Hasil dari coding ini akan memperlihatkan isu bahwa akan berbeda-beda jadi bila Anda mencoba bahan coding ini akhirnya tidak akan sama walaupun perintahnya atau penulisan coding sama persis dengan goresan pena yang saya tampilkan disini.

Lihat Juga :
Validasi textbox hanya dapat diisi dengan teks bukan angka

Menmapilkan Serial Hardisk pada Workbook Open

Pada dasarnya untuk menampilkan nomor seri dari hardisk (serial number) codingnya sama saja tergantung Anda akan menempatkan dimana apakah dikala userform aktif, atau berupa klik pada tombol menyerupai yang telah dicontohkan diatas atau melalui sebuah pesan peringatan. Selain cara-cara diatas tentunya ada cara lain yaitu menampilkan nomor seri hardisk melalui mekanisme workbook_Open

Lihat pola coding untuk mekanisme workbook_open

Private Sub Workbook_Open()
MsgBox (CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
End Sub

Nah, pada mekanisme ini Anda  dapat menciptakan validasi yang lebih extrem contohnya bila nomor seri tidak sesuai maka workbook tersebut akan ditutup kembali atau dapat tambahkan dengan sebuah peringatan sebagai isu ketidakabsahan. Hal ini biasanya dipakai dikala menciptakan aplikasi dengan VBA yang mengharuskan user untuk melaksanakan pendaftaran untuk validasi dari aplikasi tersebut.

Salah satu pola penggunaannya ialah dikala saya menciptakan sebuah Aplikasi PPDB, kira-kira tampilan serta kecerdikan alogitmanya menyerupai itu.

Demikian tutorial singkat bagaimana menampilkan nomor seri hardisk (serial number) melalui userform VBA, dan semoga bermanfaat.
Sumber http://www.excel-id.com/

√ Pencarian Melalui Textbox Untuk Menentukan Cell

Excel-id.com | Selamat berpuasa bagi yang menjalankannya, masih membahas mengenai bahan wacana excel dan pada goresan pena artikel kali ini aku akan membahas bagaimana cara menemukan data kemudian mengaktifkan atau menentukan cell tersebut bila ditemukan dengan memakai coding / script VBA (macro excel).

Mencari sebuah data memang pernah terjadi saat kita melaksanakan pekerjaan terutama memakai aktivitas aplikasi pengolahan angka ini (Ms. Excel) dan tentunya akomodasi pencarian sudah disediakan oleh pihak Microsoft namun ternyata perusahaan software terbesar tersebut juga memperlihatkan akomodasi dengan bahasa pemrograman yang lebih dikenal dengan Macro (VBA). Dan tentunya kita dapat memanfaatkan akomodasi tersebut untuk lebih mempermudah bagi pengguna dalam mengolah data.

Silakan Baca:
Pencarian Melalu UserForm sebagai Validasi Data

Bagaimana Coding untuk mencari data dan mengaktifkannya?
Untuk problem ini kita akan menuliskan sebuah coding (script VBA) dengan algoritman “Cari data yang sama dengan textbox, bila ditemukan maka pilih cell yang berisi data tersebut (alamat cell) tetapi bila tidak ditemukan munculkan pesan”

Sebuah algoritma sederhana namun tentunya bagi para programmer hal ini tidak mengecewakan untuk mengetikkan satu demi satu  atau kata demi kata dalam pengcodean. Baiklah pribadi saja berikut akan diuraikan bagaimana cara menciptakan macro untuk mencari data dan mengaktifkan cell tersebut.

Baca Materi :
Pencarian Data di Excel Paling Sederhana

Pertama kita akan menciptakan sebauh objek general dengan mekanisme kita definisikan “CariData” silakan Anda tuliskan coding dibawah ini pada userform, Anda juga dapat mengetikkannya pada Module. Namun sebelumnya Anda harus menciptakan 1 buah UserForm yang ditambahkan dengan objek textbo dan CommandButton sebagai tombol untuk menjalankan perintah coding tersebut. Kira-kira desain UserForm menyerupai berikut ini

Anda hilangkan atau hapus Caption untuk userForm1 kemudian ganti caption untuk Label1 menjadi “Pencarian:” dan ganti juga caption CommandButton1 menjadi “Cari Data” untuk Name biarkan saja jangan dirubah. Langkah berikutnya silakan masuk ke mode Code kemudian tuliskan coding dibawah ini

Sub CariData()
Dim TemukanData As String
Dim Rng As Range
TemukanData = TextBox1.Value
If Trim(TemukanData) <> "" Then
    With Sheets("Sheet1").Range("A:A") 'Cari semua data di kolom A
        Set Rng = .Find(What:=TemukanData, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True 'Jika ditemukan maka pilih range tersebut
        Else
            MsgBox "Data Tidak Ditemukan" 'Jika tidak ditemukan tampilkan pesan ini
        End If
    End With
End If
End Sub

Setelah Coding diatas dituliskan dengan benar maka langkah selanjutnya kita akan panggil mekanisme CariData tersebut dengan mekanisme Klik pada CommandButton sehingga Anda harus menuliskan coding menyerupai berikut ini

Private Sub CommandButton1_Click()
Call CariData
End Sub

Oke, pembuatan desain userform dan coding selesai, langkah berikutnya contohnya aku mempunyai data pada kolom A di sheet1 sebagai berikut Dede, Abah, Deme, Juju, Dada secara berututan menyerupai gambar berikut ini



Langkah selanjutnya kita akan jalankan aktivitas yang telah dibentuk diatas dengan menekan tombol RUN maka akan muncul form untuk menuliskan nama yang akan dicari, contohnya aku akan mencari nama “yatna”

Hasilnya yaitu akan muncul sebuah pesan yang menjelaskan bahwa “Data Tidak Ditemukan”

Apbila aku Mencari Nama “juju” yang diketikkan pada textbox pencarian kemudian klik tombol Cari Data maka secara otomatis pointer akan berpindah ke cell A4 yang berisi data atas nama “juju”

Perhatikan baris akan menuju ke baris ke-4 dan pointer akan aktif di cell A4. Oke, itulah teladan coding bagaimana menentukan cell dengan pencarian apabila ditemukan maka pointer akan menuju ke alamat cell tersebut.

Materi ini dapat Anda terapkan bagaimana aku menciptakan sebuah Aplikasi Database Siswa untuk model Pencarian.

Silakan Baca:
Coding VBA (Macro) Untuk Pencarian Data Siswa

Semoga bermanfaat.
Sumber http://www.excel-id.com/

√ Membatasi Jumlah Digit Maksimal Pada Entri Textbox

Selamat pagi para pembaca setia blog excel, Bagi Anda yang sedang mempelajari atau menciptakan aplikasi berbasis excel VBA mungkin membutuhkan tumpuan bagaimana seh biar user hanya sanggup memasukan abjad pada sebuah textbox hanya 9 digit saja?

Kenapa dilakukan pembatasan jumlah karakter?
Mungkin ada pertanyaan menyerupai diatas, Oke, saya akan mencoba menjawab contohnya kita akan memasukan nomor ID pegawai biasanya nomor ID jumlah digitnya akan sama contohnya hanya 9 digit hal ini sanggup menjadi alternatif untuk mengatasi kesalahan dalam entri contohnya kurang jumlah digit atau lebih. Selain pembatasan jumlah digit pada sebuah textbox pernah saya bahas validasi textbox hanya sanggup diisi dengan angka saja

Silakan Cek
Validasi Textbox Hanya Angka

Lalu bagaimana coding / script nya untuk membatasi jumlah abjad / digit pada textbox? Baiklah eksklusif saja pertama Anda buat userform sederhana dan tambahkan objek textbox untuk memasukan angka lalu buatlah coding berikut ini

Private Sub TextBox1_Change()
    
    If Len(Me.TextBox1.Value) > 10 Then
        MsgBox "Hanya 10 Digit yang Bisa di Entri!"
        Me.TextBox1.Value = Left(Me.TextBox1.Value, 10)
    End If
    
End Sub

Langkah selanjutnya kita coba jalankan coding diatas maka apabila Anda memasukan data angka dari 01234567890 maka angka 0 terakhir akan dihapus dan muncul sebuah pesan " Hanya 10 digit yang sanggup di entri".

Simak Juga Tulisan :
Validasi Textbox Hanya Dapat Diisi Teks Bukan Angka

Itulah cara bagaimana membatasi jumlah digit atau abjad dalam textbox, semoga bermanfaat dan terimakasih.
Sumber http://www.excel-id.com/

√ Format Percen % Dengan Mekanisme Textbox1_Beforeupdate

Hai, sahabat setia yang masih membaca meteri mengenai excel, kini aku akan sedikit mengulas bagaimana cara menciptakan persen (%) dengan mekanisme BeforeUpdate dengan memakai textbox sebagai data isiannya.

Lebih jelasnya pada bahan kali ini kita akan mengahsilkan gambar menyerupai berikut ini

Tentunya hasil diatas harus dibentuk coding VBA Excel terlebih dahulu. Bagaimana cara membuatnya silakan menyerupai biasa Anda harus masuk ke VBA Editor terlebih dahulu tambahkan 1 buah UserForm lalu tambahkan juga Textbox, Label, dan CommandButton

Untuk properties biarkan saja jangan dirubah menyerupai Caption, Name dan lainnya hal ini akan mempermudah Anda dalam berguru VBA tetapi jikalau Anda ialah pembaca yang sudah ahli dalam VBA hehe, silakan terserah sendiri ajah caranya mau menyerupai apa.

Langkah pertama silakan desain form dan berikut objek-objeknya menyerupai beerikut ini

Selanjutnya buat prosedure Textbox1_BeforeUpdate tuliskan codingnya
atau tuliskan coding berikut ini

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
TextBox1 = Format(TextBox1 / 100, "0.00%")
Label1 = "Hasilnya " & TextBox1

ElseIf Right(TextBox1, 1) = "%" Then
Label1 = TextBox1

Else
TextBox1 = ""
MsgBox "Silakan masukan angka dengan benar", vbCritical
End If

End Sub

Tambahkan sedikit coding pada UserForm_Initialize

Private Sub UserForm_Initialize()
Label1 = Format(Range("A1"), "0.00%")
Label1.Caption = "Belum Ada Data"
End Sub

Selesai, Sederhana dan cukup simpel, yah namanya juga jikalau ingin berguru haruslah sedikit dahulu jikalau banyak malah mumet dan tidak mengerti.

Selamat mencoba
Sumber http://www.excel-id.com/

√ Format Currency Pada Textbox Userform Dengan Vba

Format Currency merupakan format yang biasa dipakai untuk keuangan atau nominal angka dalam bilangan. Misalnya kita menuliskan angka 6500 maka jikalau kita memakai format curency alhasil ialah 6.500 dalam hal ini untuk satuan setiap ribuan dibatasi dengan huruf koma.

Menggunakan Format Currency dalam textbox yang ditampilkan melalui UserForm biasanya dipakai untuk menciptakan aplikasi kasir berbasis Excel VBA. Karena dalam hal ini kita sebagai insan biasanya agak kesulitan dalam mengidentifikasi angka ribuan dan ratusan maka dengan memakai format ini setiap ribuan akan dipisahkan dengan angka "titik" atau "koma" sesuai dengan regional setting komputer Anda.

Pertama kita harus menciptakan mekanisme gres contohnya menyerupai referensi dibawah ini yang disertai dengan coding VBA nya.

Sub FormatAngka()
    If IsNumeric(TextBox3) Then
        TextBox3 = Format(TextBox3, "#,##0")
    Else
        TextBox3 = FormatKeuangan
    End If
End Sub

Setelah kita menciptakan mekanisme gres kita akan panggil mekanisme FormatAngka tersebut dengan fungsi Call. Dalam hal ini terserah apakah Anda akan mengambil mekanisme saat textbox berubah (textbox_change) atau mekanisme Ufter_Update, Before_Update atau bahkan mekanisme Click pada CommandButton.
Pada referensi aku kali ini akan menciptakan mekanisme saat perubahan pada textbox. Perhatikan referensi penerapan dalam UserForm berikut ini

Perhatikan yang ditunjukan dengan anak panah warna merah pada gambar diatas itu merupakan mekanisme saat pada textbox harga diketikan angka ribuan maka saat Anda menuliskan angka 2500 maka secara otomatis tertulis 2.500. Tambahkan coding untuk memanggil perintah FormatAngka tersebut

Private Sub TextBox3_Change()
Call FormatAngka
End Sub

Lalu bagaimana jikalau Anda mengetikan angka 1000000? hal ini sama alhasil saat Anda menuliskan angka tersebut pada kolom harga maka alhasil ialah 1.000.000

Hal ini sangat penting bagi para programmer VBA Excel dengan tujuan untuk memudahkan user dalam memakai aplikasi yang dibuat.

Demikian Format Cureency Pada Textbox Userform dengan VBA, biar bermanfaat.
Sumber http://www.excel-id.com/

√ Memaksa Textbox Terisi Data Pada Excel Vba

Materi kali ini aku akan membehas bagaimana coding atau script VBA untuk memaksa user mengisi textbox yang telah disediakan pada aplikasi excel dan apabila tidak diisi maka agenda atau aplikasi tidak  dapat dilanjutkan. Hal ini akan mensugesti user untuk mengisi biodata pada textbox area.

Coding ini cukup sederhana dengan budi atau fungsi If memakai coding atau script VBA. Saya akan mencoba mendesain userform ibarat berikut ini, namun sebelumnya hasil dari coding dan desain form yang akan kita buat untuk lebih jelasnya alhasil ibarat berikut ini

Perhatikan gambar diatas, ada textbox isian yang harus diisi oleh user yaitu Nama Operator dan aku coba untuk tidak mengisi textbox tersebut maka alhasil yaitu muncul sebuah pesan "Silakan Tuliskan Operator" ini artinya bahsa pengguna aplikasi harus mengisikan nama operator untuk dapat melanjutkan ke penggunaan aplikasi. Misalnya aku akan coba bila nama operator pada textbox input tersebut aku isikan dengan nama terserah Anda misalkan aku tuliskan "Yatna Supriyatna" maka akan userform tersebut akan di close dan agenda akan menload userform berikutnya.

Jika aku klik tombol OK maka alhasil akan menuju ke form Menu.

Untuk dapat menciptakan ibarat hasil diatas Anda harus tambahkan coding pada mekanisme CommandButton_Click dan silakan tuliskan coding atau script VBA dibawah ini

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Silakan Tuliskan Operator", vbInformation
TextBox1.SetFocus
Exit Sub
Else
Unload Me
UserForm16.Show
End If
End Sub



Silakan dicoba coding yang telah dituliskan ibarat diatas, untuk menjalankannya silakan tekan tombol F5 atau Run pada Icon VBA Editor.

Selamat mencoba, agar bermanfaat.
Sumber http://www.excel-id.com/

√ Menampilkan Pemisah Ribuan Pada Textbox Userform Dengan Vba

Jika Anda sedang membuat aplikasi berbasis VBA Excel dalam bidang Akuntansi keuangan atau perhitungan data keuangan tentunya tidak terlepas angka rupiah atau dalam istilah lain format curency. Tentunya aaplikasi yang anda ciptakan tersebut mungkin memakai UserForm sebagai interface kepada user maka materi kali ini cocok untuk Anda baca lebih lanjut lagi.

Mmebuat textbox yang bisa mengisi format keuangan dan biasanya format keuangan tersebut dipisahkan dengan angka titik dalam ribuan atau ada juga yang memakai koma itu tergantung pada si pembuat aplikasi tersebut. Nah disinilah kerennya seorang programmer dalam membuat aplikasi harus berkreasi dan lebih kreatif untuk membuat aplikasi yang bisa dipakai oleh banyak user.

OK, eksklusif saja berikut rujukan sederhana screen shoot untuk format textbox yang hanya bisa di isi dengan angka dan balasannya akan dipisahkan oleh titik sebagai pembatas ribuan.

Saya tuliskan 25000000 pada textbox jumlah uang diatas dan saat Anda enter maka balasannya akan menjadi 25.000.000 dipisahkan oleh tanda koma atau titik pada ribuan. Bagaimana hal tersebut terjadi Anda bisa mencobanya dengan memakai coding VBA.

Baca dulu :
Cara Belajar Membuat Textbox Melalui UserForm

Bagaimana Cara Menampilkan Pemisah Ribuan Pada Textbox UserForm dengan VBA?

Langkah pertama Anda membuat coding atau perintah untuk membatasi entri hanya bisa dimasukan data angka dan kalau selain angka maka akan menampilkan pesan peringatan. Kenapa hal ini perlu dilakukan? Jelas sekali alasannya ialah perintah coding akan membaca apa yang telah dituliskan coba kalau tidak maka balasannya akan error.

Berikut coding untuk membatasi entri data hanya angka

Private Sub EntriHanyaAngkaSaja()
    
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Maaf, Hanya angka yang bisa dientri"
                .Value = vbNullString
            End If
        End With
    End If
    
End Sub
Perintah diatas akan menghasilkan apabila textbox diisikan data selain angka maka akan muncul pesan error "Maaf, hanya angka yang bisa dientri"

Langkah berikutnya kita panggil coding EntriHanyaAngkaSaja tersebut kedalam prosedure textbox change. Kenapa saya pilih procedure tersebut alasannya ialah coding akan dilakukan saat ada perubahan dalam textbox tersebut.

Berikut codingnya :

Private Sub TextBox1_Change()
    EntriHanyaAngkaSaja
End Sub

Langkah berikutnya silakan tambahkan pula coding untuk textbox exit sebagai berikut
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
    TextBox1 = Format(CDbl(Me.TextBox1.Value), "#,##0")
End Sub

Selesai deh, silakan coba run kegiatan yang sudah dibentuk diatas dan lihat hasilnya, Ada perbedaankah dengan tutorial ini? Silakan komentar dibawah

Simak Juga
Cara Membuat Textbox AutoComplete






Sumber http://www.excel-id.com/

√ Membatasi Jumlah Digit/Karakter Pada Textbox Isian Di Userform

Excel-Id.com | Pembatasan entri data atau abjad pada isian TextBox terkadang sangat diharapkan oleh seorang programmer VBA, hal ini dimaksudkan untuk mengurangi kesalahan user dalam mengentri data pada kolom atau textbox isian pada aplikasi. Bukann hanya saja berbasis VBA namun biasanya seorang programmer PHP, JAVA, DELPHI, dan lainnya dalam hal menciptakan aplikasi entri data mereka menciptakan sebuah batasan entri karakter/digit yang sanggup dientri oleh user atau pengguna aplikasi tersebut.

Beberapa kasus biasanya user terkadang ingin mempercepat pekerjaan dengan mengentri data tanpa memperhatikan kebenaran entri data tersebut sehingga hal ini akan berpotensi terhadap kesalahan entri data. Sebuah database memang merupakan data dasar yang nantinya diharapkan untuk kepentingan yang bersngkutan.

Untuk membatasi abjad atau jumlah digit pada pola kali ini aku akan mencoba menciptakan sebuah Form sederhana untuk mengentri nama dan NISN (Nomor Induk Siswa Nasional). NISN ini terdiri dari 10 digit nomor yang harus dientrikan oleh user apabila melebihi maka akan muncul sebuah pesan bahwa entri data atau jumlah abjad yang harus diisikan atau dimasukan hanya 10 abjad saja alasannya yaitu NISN jumlahnya 10 digit yang terdiri dari beberapa pengelompokan kode.

Baca:
Cara Membuat Texbox pada UserForm

Cara Membuat Coding Pembatasan Karakter/Digit Angka pada Textbox

Seperti biasanya alasannya yaitu pola ini memakai UserForm sebagai objeknya maka Anda harus menyisipkan UserForm terlebih dahulu terserah mau ukuran berapa yang penting ada UserForm lalu tambahkan juga TextBox 2 buah dan label lalu Anda ganti caption untuk Label1 dan Label2 dengan "Nama" dan "NISN".

Oke, lebih jelasnya aku tampilkan berupa gambar userform dibawah ini

Perhatikan gambar diatas dikala Anda mengetikan NISN pada textbox NISN sebanyak 11 digit, maka muncul sebuah pesan isu bahwa "NISN tidak melebihi dari 10 digit angka" namun apabila Anda mengentri data hanya 10 digit saja maka dikala Anda keluar dari textbox NISN atau menekan enter kursor akan pribadi masuk ke textbox Nama Siswa. Nah, kira-kira itulah hasil simpulan dari bahan kali ini, namun bagaimana cara membuatnya?

Simak:
Cara Membuat Textbox Auto Complete

Coding berikut Anda sanggup copy paste untuk menghasilkan gambar menyerupai diatas, silakan Anda tambahkan dengan double klik pada textbox untuk masuk ke pengetikan instruksi dan berikut codingnya

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1.Value) > 10 Then
        MsgBox "NISN tidak melebihi dari 10 Digit angka", vbInformation, "Informasi"
        Cancel = True
        With TextBox1
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    End If
End Sub

Pada coding diatas Ada memakai objek Textbox1 dengan mekanisme Exit dan disana terdapat code If Len artinya jikalau Anda mengetikkan data pada textbox1 lebih dari 10 digit dan Anda sanggup merubah berapa digit maksimal untuk entri data pada Textbox tersebut jikalau lebih dari 10 digit maka munculkan pesan dengan MsgBox "NISN tidak melebihi dari 10 digit angka" Anda sanggup mengganti kalimat pada pesan tersebut.

Pelajari Cara Memasukan Data dari Textbox ke Listbox
Sumber http://www.excel-id.com/

√ Menciptakan Format Tanggal Otomatis Di Textbox Userform Dengan Vba

Hai semua, udah usang ga posting artikel di blog ini, hemm jadi buat para pelanggan setia blog excel ini mohon maaf alasannya ada beberapa kesibukan secara offline.

Kaprikornus pada artikel kali ini aku akan mencoba bagaimana cara menciptakan textbox yang otomatis menciptakan format tanggal sehingga temen-temen tidak usah menunjukkan tanda "-" atau tanda "/" pada setiap pemisah tanggal bulan dan tahun.

Cara ini memang cukup sederhana namun beberapa kasus programer banyak yang mengindahkan hal ini. Tentunya masih membahas mengenai Excel macro/VBA jadi coding disini memakai bahasa pemrograman visual basic for Application (VBA).

Langkah pertama silakan Anda buat Userform menyerupai berikut ini dan langkah pembuatah Userform telah aku bahas sebelumnya di blog ini silakan baca-baca kembali. Setelah itu tambahkan 1 buah label dan beri nama Caption nya menjadi "Tanggal" kemudian tambahkan juga objek Textbox

Setelah itu kita akan menciptakan coding dari object Textbox tersebut dengan procedure Text_Change. Lalu temen-temen silakan tuliskan coding dibawah ini

Private Sub Textbox1_Change()
If Len(TextBox1.Value) = 2 Then
t = TextBox1.Value
t = t & "-"
TextBox1.Value = t: t = ""
ElseIf Len(TextBox1.Value) = 5 Then
t = TextBox1.Value
t = t & "-"
TextBox1.Value = t: t = ""
End If
End Sub

COding diatas saat Anda mengetikan 24102018 akan tertulis secara otomatis menjadi 24-10-2018

Nah Anda juga dapat mengetikan coding lain untuk menciptakan format tanggal secara otomatis silakan buatkan pola lain untuk latihan contohnya textbox2 dan textbox3 Anda tambahkan kedua objek tersebut dan tambahkan coding dibawah ini pada procedure textbox_change

Private Sub TextBox2_Change()
If TextBox2.TextLength = 2 Or TextBox2.TextLength = 5 Then
    TextBox2.Text = TextBox2.Text + "-"
End If
End Sub

Contoh Lain menampilkan format tanggal otomatis di excel dengan VBA

Private Sub TextBox3_Change()
    If (oldlength > TextBox3.TextLength) Then
        oldlength = TextBox3.TextLength
        Exit Sub
    End If

    If TextBox3.TextLength = 2 Or TextBox3.TextLength = 5 Then
    TextBox3.Text = TextBox3.Text + "/"
    End If
    oldlength = TextBox3.TextLength
End Sub


Ketiga coding diatas fungsinya sama yakni untuk menciptakan format tanggal otomatis dengan hanya mengetikkan tanggal, bulan dan tahun maka secara otomatis pemisah tanggal bulan dan tahun menyerupai "-" akan muncul jadi Anda akan cepet dalam entry datanya.

Anda juga dapat memodifikasi untuk menambahkan abjad lain sebagai pemisah tanggal bulan dan tahun contohnya "/" menyerupai pola pada coding ke-3 diatas.

Oke, demikian bagaimana cara menciptakan tanggal otomatis pada textbox di Userform dengan memakai macro/VBA supaya bermanfaat.






Sumber http://www.excel-id.com/

√ Cara Membatasi Jumlah Digit Angka Pada Textbox Userform

Untuk mengurangi tingkat kesalahan saat entri data pada userform yang dibentuk oleh programmer tentunya banyak cara dan programmer biasanya akan meminimalisir tingkat kesalahan yang dilakukan oleh user. Seperti contohnya saat memasukan angka jikalau ketentuannya harus jumlah digit angka yakni 16 maka programmer tidak punya pilihan jikalau kurang akan ditolak dan jikalau lebih juga akan ditolak artinya hanya 16 digit angka yang akan dientrikan pada textbox.

Ok, tutorial ini akan dapat dilihat berupa video alasannya coding VBA nya sederhana maka Anda tidak akan begitu sulit untuk mencoba mempraktekannya.




Dengan pembatasan jumlah digit angka yang dientrikan pada textbox NIK maka jikalau kurang atau pun lebih dari 16 digit angka akan muncul sebuah pesan kesalahan semoga dapat diketahui oleh operator / user yang mengentrikannya.
Sumber http://www.excel-id.com/