Ruang Excel

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

Enjoy You'r Visiting

Showing posts with label Aplikasi Instrumen penilaian V.01. Show all posts
Showing posts with label Aplikasi Instrumen penilaian V.01. Show all posts

Friday, August 7, 2020

Cara membuat tanggal dengan List Kalender di microsoft Word

Aktifkan Macro , Apk cetak Label Undangan
Cara membuat tanggal dengan List Kalender di microsoft Word

Salam sejahtera kawan, Semoga Anda sekalian dalam keadaaan sehat wal’afiat, Aamin..

Dalam kesempatan kali ini saya akan berbagai cara membuat tanggal tanpa harus ketik tetapi menggunakan pilihan dengan list Kalender, seperti terlihat pada gambar di bawah.


Cara membuat tanggal dengan List Kalender di microsoft Word

Mari kita ikuti langkah – langkah berikut :

1.     Buat border data dan nama keterangan data persti gambar di atas.

2.     Letakan kursor di kolom tanggal

3.     Klik Developer (jika developer belum muncul/aktif maka aktifkan dulu) Cara mengaktifkan Developer

4.     Setelah klik Developer pilih Date Picker pada content control, lihat gambar di bawah



Demikian Share kali ini, jika kurang jelas silahkan tinggalkan pesan di kolom komen. Selamat mencoba kawan, Semoga berhasil

Read more »
By di No comments:
Label: , ,

Wednesday, August 5, 2020

Cara menggeser angka atau huruf otomatis dengan kursor pada Ms Excel

Administrasi Ujian , Aplikasi Input Nilai Rapot
Cara menggeser angka atau huruf otomatis dengan kursor pada Ms Excel

Ketika kita dihadapkan pada lembar kuesoner maka tentunya kita mengerjakan dengan berbagai pilihan jawaban baik dengan angka maupun tanda ceklis dengan huruf “V” pada kuesoner  lembar kerja Microsoft excel.

Nah , dikesempatan kali ini saya berbagi trik untuk memindahkan ceklis “V” atau angka secara otomatis mengikuti letak kursor pada cell Microsoft excel yang tentunya dengan bantuan skrip vba.

Berikut langkah pembuatannya:    

    1.  Bikin kuesoner pada lembar kerja excel (contoh isian instrumen Penilaian Kinerja guru) 


Cara menggeser angka atau huruf otomatis denan kursor


2. Klik developer pada menu bar atas, dan klik visual basic ( Cara menampilkan developer di menu bar ).

3. Masukan skrip di bawah ini ke dalam pada workbook dan tutup save

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Left(ActiveSheet.Name, 4) = "KOMP" Then

    If Cells(Target.Row, Target.Column + 1) = "V" Then

       Cells(Target.Row, Target.Column + 1) = ""

    End If

    If Cells(Target.Row, Target.Column - 1) = "V" Then

       Cells(Target.Row, Target.Column - 1) = ""

    End If

    If Cells(Target.Row, Target.Column + 2) = "V" Then

       Cells(Target.Row, Target.Column + 2) = ""

    End If

    If Cells(Target.Row, Target.Column - 2) = "V" Then

       Cells(Target.Row, Target.Column - 2) = ""

    End If

    Cells(Target.Row, Target.Column) = "V"

End If

End Sub

Keterangan :

KOMP = Nama Sheets

 

Jika skrip berkerja maka seperti gambar di bawah huruf “V” akan berpindah-pindah mengikuti kursor.

Selamat mencoba, semoga berhasil dan berkah. Aamiin….

Read more »
By di No comments:
Label: , , ,

Friday, June 12, 2020

Cara Membuat Tombol Print Preview pada microsoft Excel

Aktifkan Macro , Apk cetak Label Undangan
Cara Membuat Tombol Print Preview pada microsoft Excel

Pada posting terdahlu ane telah berbagi cara membuat tombol print dan untuk kesampatan ini ane berbagi cara membuat tombol print preview. sehingga dengan tombol print preview kita bisa melihat terlebih dahulu tampilan lembaran yang akan dicetak. apakah sudah sesuai dengan yang kita inginkan ? jika tampilan sudah sesuai maka kita bisa langsung cetak dan jika belum sesuai kita bisa klik tombol close (X) sehingga data kembali ke lembar edit.

Sebelum kelangkah-langkah cara membuat tombol print preview pastikan menu developer sudah tampil/aktif. jika developer belum tampil di menu tool bar tas silahkan pelajari pada artikel cara menampilkan developer.

 

Apabila menu developer sudah tampil/altif silahkan ikuti langkah-langkah cara membuat tombol print preview berikut :

 

1.    Buka lembar excel yang akan anda tambahkan tombol print preview

2. Pilih menu Developer ==> insert dan pilih Command Button (activeX control)

3.  Letakan tombol pada lembar kerja anda dan klik 2 x selajutnya masukan kode berikut :


 Private Sub CommandButton1_Click()
 Application.Dialogs(xlDialogPrintPreview).Show
 End Sub 

kemudian klik close (x) dan save

4. klik kanan tombol Command Button (activeX control) pada caption "Commandbutton" ganti dengan kata pint preview.

Berikut contoh Command Button (activeX control) PrintPreview


Cara Membuat Tombol Print Preview pada microsoft Excel

Contoh gambar Command Button (activeX control) PrintPreview

Selamat mencoba, semoga sukses dan berkah. Aamiin...


Read more »
By di No comments:
Label: , , , ,

Thursday, May 7, 2020

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Aktifkan Macro , Apk cetak Label Undangan
Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Salam sejahtera gan, Pada share kali ini ane akan jelaskan cara membuat cetak kartu pengawas/panitia ujian sekolah dengan macro atau vba pada microsoft excel. Seperti membuat bingkai photo, tombol spin, tombol cetak dsb. Berikut adalah kode scrip untuk macro atau vba Cetak Kartu pengawas Ujian guna memenuhi administrasi Ujian Sekolah di satuan pangkalan sekolah agan-agan sekalian. 


Private Sub CommandButton1_Click()

On Error Resume Next

Dim Filter As String, Title As String, FileX As String

Dim SourceFile, DestinationFile

X.SetFocus

Filter = "JPG Image Files Only(*.jpg),*.jpg,"

Title = "Ganti Photo"

FileX = Application.GetOpenFilename(Filter, , Title)

NamaFile = Range("B13")

Sheets("Sheet2").Image1.Picture = LoadPicture(FileX)

Image1.Picture = LoadPicture(FileX)

DestinationFile = ActiveWorkbook.Path & "\Photo\" & NamaFile & ".jpg"

FileCopy FileX, DestinationFile

End Sub

Private Sub CommandButton2_Click()

Application.Dialogs(xlDialogPrint).Show

End Sub

Private Sub SpinButton1_Change()

On Error GoTo GbKosong

SpinButton1.Min = 1

SpinButton1.Max = 60

Range("C1") = SpinButton1

Application.ScreenUpdating = False

NamaData = Range("B13")

Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" '

Image1.Picture = LoadPicture(Files)

Application.ScreenUpdating = True

Exit Sub

GbKosong:

'Image1.Picture = Image2.Picture

End Sub


 Berikut Contoh Kartu Pengawas


Aplikasi Kartu Pengawas Ujian Sekolah

Selamat Mencoba semoga sukses dan berkah. Aaamiin..

Aplikasi kartu Pengawas Ujian V.02 Download disini  atau Download Alternatif




Read more »
By di No comments:
Label: , , ,

Tuesday, September 3, 2019

Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

Aplikasi Input Nilai Rapot , Aplikasi Instrumen penilaian V.01
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.

Read more »
By di No comments:
Label: , , , ,