Jurnal Sahabat Edu - Macro Excel

Jurnal Sahabat Edu

Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, biar makin mudah dimengerti, perhatikan gambar di samping yang memberikan contohkan bagaimana menginput (memasukan) data siswa ke beberapa cells di excel dengan menggunakan "Form input data siswa". Tampaknya itu baik sekali, namun tanpa mempraktekkannya, bagaimana anda bisa mengerti? Lihat Sreenshoot Aplikasi di sampng ini.

Langkah yang harus dilakukan untuk membuat Aplikasi Data Siswa dengan Form ini adalah:

Buat tabel data siswa yang terdiri dari NIS (cells A2), Nama (cells B2), Jenis Kelamin (Cells C2), dan Kelas (cells D2).

Buka VB Editor yang ada di menu Developer
Copy script di bawah ini pada module1
Dengan menggunakan Toolbox seperti gambar Input Data, Buat Form input data siswa seperti terlihat gambar Input Data di atas.
Simpan dan Jalankan macro.
Selesai

Kegunaan Excel

Download Excel

Pivot Excel

Rekam Makro

Pembukuan Keuangan

Sub Macro()

ActiveWindow.DisplayWorkbookTabs = Folse

End Sub

Sub guru(ribbon As IRibbonControl)

Sheet1.Activate

End Sub

Sub konseli(ribbon As IRibbonControl)

Sheet2.Activate

End Sub

Sub ekspedisi(ribbon As IRibbonControl)

Sheet3.Activate

End Sub

<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="Tab1" label="INPUT DATA" insertAfterMso="Tab1">

<group id="pendataan" label="IDENTITAS">

<button id="d.guru" image="identitiguru" label="IDENTITAS GURU" size="large" onAction="guru"/>

<separator id="Separator1" />

<button id="d.konseli" image="identitikonseli" label="IDENTITAS KONSELI" size="large" onAction="konseli"/>

</group>

<group id="eksp" label="REKAP EKSPEDISI">

<button id="ekspedisi" image="buku" label="INPUT EKSPEDISI" size="large" onAction="ekspedisi"/>

<separator id="Separator2" />

</group>

<group id="konsult" label="BUKU TAMU">

<button id="bukutamu" image="buku" label="REKAP KONSULTASI" size="large" onAction="bukutamu"/>

<separator id="Separator3" />

</group>

<group id="konseling" label="REKAP KONSELING">

<button id="datakonseling" image="datakonselingaja" label="DATA KONSELING" size="large" onAction="datakonseling"/>

<separator id="Separator4" />

</group>

<group id="tabulase" label="TABULASE BK">

<button id="tabulaseproses" image="tabulpros" label="INPUT PROSES KLASIKAL" size="large" onAction="tabulaseproses"/>

<separator id="Separator444" />

<button id="tabulasehasil" image="tabulhasil" label="INPUT HASIL KLASIKAL" size="large" onAction="tabulasehasil"/>

<separator id="Separator445" />

<button id="notulensi" image="notulens" label="NOTULENSI RAPAT" size="large" onAction="notulensi"/>

<separator id="Separator455" />

<button id="jurnal" image="jurr" label="JURNAL KELAS" size="large" onAction="jurnal"/>

<separator id="Separator466" />

<button id="visit" image="hvt" label="HOME VISIT" size="large" onAction="visit"/>

<separator id="Separator4555" />

<button id="inputpetakelas" image="peta" label="INPUT PETA KELAS" size="large" onAction="inputpetakelas"/>

<separator id="Separator2027" />

<button id="cover" image="cover" label="COVER PROGRAM" size="large" onAction="cover"/>

<separator id="Separator4551" />

</group>

<group id="tool2" label="TOOLS">

<button idMso="Copy" label="Copy" size="large"/>

<button idMso="PasteValues" label="Paste Values" visible="true" size="large" imageMso="Paste"/>

<button idMso="FileSave" label="Save" size="large"/>

<button idMso="FilePrint" label="Print" size="large"/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

Page updated

Google Sites

Report abuse