√ 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/