Ruang Excel

Excel application sharing, knowledge of Microsoft Excel, and visual basic application (vba) for education.

Enjoy You'r Visiting

Showing posts with label Mencari data ganda. Show all posts
Showing posts with label Mencari data ganda. Show all posts

Tuesday, September 3, 2019

Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

https://ruangexcel.blogspot.com/

Ruang Excel : Para pengembang dan pecinta aplikasi excel berbasis visual basic, mereka yang sudah paham dan berkecimpung di microsoft excel tentunya telah memiliki kreativitas sendiri dalam mengembangkan aplikasi salah satunya adalah dengan mendisgn sendiri menu ribbon dengan bantuan aplikasi Custom UI Editor yang bisa agan download deh di goolge, banyak bersebaran dan gratis lagi. he...he..

Pada kesempatan kali ini, Ane bukanlah master vba dan custom Ribbon, namun ane akan berbagi ilmu dan pengalam bagaimana cara membuat aplikasi excel dengan menu Ribbon yang didesign atau dirancang sesuai selera dan keinginan agan-agan sendiri deh. Ok gan, Kita mulai gan ke TKP.

Langkah pertama yang perlu agan siapkan sebelum membuat menu Ribbon melalui Custome UI adalah mengunduh aplikasi custom UI. Unduh Custom UI Editor 

Kemudian berikutnya langkah kedua, silahkan agan siapkan aplikasi excel yang akan dirubah menu ribbonnya dan cari scrip kode menu ribbon yang nantinya diinput ke aplikasi Custom UI Editor dan sesuaikan dengan aplikasi excel atau vba yang agan telah disiapkan. contoh seperti berikut ini :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<commands>
    <command idMso="ApplicationOptionsDialog" enabled="false"/>
    <command idMso="FileExit" enabled="false"/>
</commands>
    <ribbon startFromScratch="true">
        <tabs>
            <tab id="CustomData" label="
App.Instrumen Penilaian. V.01" insertAfterMso="TabHome">

<group id="customGroup1" label="EDIT/CETAK DATA">
    <button id="Sheet6" imageMso="OpenStartPage" label="DATA BASE" size="large" onAction="BukaSheet6"/>
<separator  id="Separator1" />
   <button id="Sheet5" imageMso="AccessTableContacts" label="KOMPETENSI DASAR" size="large" onAction="BukaSheet5"/>
   <separator  id="Separator2" />
   <button id="Sheet2" imageMso="AccessTableContacts" label="ABSENSI SISWA" size="large" onAction="BukaSheet2"/>
   <separator  id="Separator3" />
   <button id="Sheet4" imageMso="AccessTableContacts" label="RUBRIK" size="large" onAction="BukaSheet4"/>
   <separator  id="Separator4" />
   <button id="Sheet7" imageMso="AccessTableContacts" label="JURNAL SIKAP" size="large" onAction="BukaSheet7"/>
   <separator  id="Separator5" />
   <button id="Sheet8" imageMso="SignatureLineInsert" label="REMEDIAL PENGAYAAN" size="large" onAction="BukaSheet8"/>
<separator  id="Separator6" />
   <button id="Sheet9" imageMso="SignatureLineInsert" label="PORTO FOLIO" size="large" onAction="BukaSheet9"/>
    </group>

<group id="customGroup2" label="ALAT">
    <button idMso="Copy" label="Salin" size="large"/>
    <button idMso="PasteValues" label="Tempel" visible="true" size="large" imageMso="Paste"/>
    <button idMso="FileSave" label="Simpan" size="large"/>
    <button idMso="FileClose" size="large"/>
    </group>

<group id="customGroup3" label="INFORMASI">
<button id="Sheet10" visible="true" size="large" label="Programer" imageMso="OutlookGlobe" onAction="BukaSheet10"/>
</group>

<group id="customGroup4" label="http://ruangexcel.blogspot.com">
<button id="Cap" label="Applikasi ini dirancang untuk mempermudah Guru dalam membuat Administrasi KBM di Sekolah" size="large" onAction="hakcipta" image="idmso83x83"/>
</group>
    </tab>
    </tabs>
    </ribbon>
    </customUI>

Langkah ketiga buat atau cari di google scrip kode menu ribbon yang nantinya dipasang di modul pada aplikasi excel atau vba yang agan telah dipersiapkan, agar nantinya menu ribbon yang agan buat berfungsi dan ngelink dengan nama sheets pada aplikasi excel yang agan miliki. Contoh sekripnya seperti berikut :

Sub BukaSheet2(ribbon As IRibbonControl)
Sheet2.Activate
End Sub
Sub BukaSheet3(ribbon As IRibbonControl)
Sheet3.Activate
End Sub
Sub BukaSheet4(ribbon As IRibbonControl)
Sheet4.Activate
End Sub
Sub BukaSheet5(ribbon As IRibbonControl)
Sheet5.Activate
End Sub
Sub BukaSheet6(ribbon As IRibbonControl)
Sheet6.Activate
End Sub
Sub BukaSheet7(ribbon As IRibbonControl)
Sheet7.Activate
End Sub
Sub BukaSheet8(ribbon As IRibbonControl)
Sheet8.Activate
End Sub
Sub BukaSheet9(ribbon As IRibbonControl)
Sheet9.Activate
End Sub
Sub BukaSheet10(ribbon As IRibbonControl)
Sheet10.Activate
End Sub

Nah.., setelah langkah-langkah diatas sudah dilakukan. Langkah selanjutnya adalah cara membuat Aplikasi dengan Menu Ribbon Sendiri. Caranya silahkan agan baca dan pahami berikut ini :

Pertama, Masukan kode scrip Ribbon control pada modul pada menu macros di file aplikasi yang akan kita sesuaikan menu ribbonya dan pastikan nama sheets sudah sesuai dengan nama sheets yang akan dimasukan pada aplikasi custome Ribbon.

Kedua, Masukan kode srip ribbon pada aplikasi custome Ribbon, Seperti gambar berikut :



Kemudian klik validasi (tanda ceklist merah) jika sudah benar, silahkan klik save dan tutup. maka Insya Alloh menu akan berubah sesuai yang kita buat yakni Menu Ribbon ngelink dengan sheet pada aplikasi yang kita telah buat.

Demikian berbagi kali ini semoga bermanfaat dan sukses selalu dalam setiap langkah dan niat yang positif dalam setiap hal yang telah kita lakukan.

Sunday, April 28, 2019

Cara Menandai Data Ganda dengan macros excel



Dalam mengelola data yang banyak dan rumit, perlu kita menyiasati mungkin ada banyak data ganda atau doble, maka perlu sekiranya untuk membuat makro untuk mengetahui data yang ganda atau dowble, berikut screp (rumus macro) untuk mendeteksi data ganda.

Sub Tampilkan()
Redup LastRow As Long
Dim matchFoundIndex As Long
Dim iCntr As Long
LastRow = Range("b65000").End(xlUp).Baris
For iCntr = 2 To LastRow
If Cells(iCntr, 2) <> "" Kemudian
matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, 2), Range("b1:b" & LastRow), 0)
If iCntr <> matchFoundIndex Kemudian
Sel(iCntr, 2).Interior.Color = vbRed
Cells(iCntr, 2). Font.Color = vbWhite
End If
End If
Next
End Sub

Sub Reset()
Sheets(1).Range("B1:B20").Interior.Color = vbWhite
Sheets(1).Range("B1:B20").Font .Warna = vbBlack

End Sub
Lihat contoh sheet di bawah ini


Macros untuk mencari data ganda Unduh di sini