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 Input Nilai Rapot. Show all posts
Showing posts with label Aplikasi Input Nilai Rapot. Show all posts

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: , , ,

Saturday, April 18, 2020

9 Cara mempercepat koneksi internet wifi

Aplikasi Input Nilai Rapot , Aplikasi Mutasi Masuk
9 Cara mempercepat koneksi internet wifi


Sobat RuangExcel : Diera digital kita tidak terlepas dari jaringa internet, salah satunya jika koneksi wifi kita lemot maka akan mengganggu kita dalam akses informasi dan penggunaan internet. Berikut 9 Cara mempercepat koneksi intenet wifi. 

1. Letakan Router di tempat stategis
Penempatan posisik router merupakan hal yang sangat penting untuk diperhatikan. sebagai alat pemamcar wifi, jika ia diletakan di posisi yang salah maka efektivitasnya juga akan berkurang.

Disarankan untuk menempatkan router pada posisi yang sekiranya stategis sesuai kebutuhan. Selain itu usahakan untuk memposisikan di tempat yang agak terbuka.

Jangan langsung bertemu dengan dinding yang bisa menyebabkan sinyal wifi menjadi terganggu dan tak menyebar secara efektif.

2.   Atur posisi antena pada router
Jika kalian menggunakan router yang memiliki antena eksternal, maka bisa mencoba tips yang satu ini. ternyata arah dari antena paada router juga dipengaruhi terhadap kinerjanya.
Cobahlah untuk mengubah arah dari antena tersebut hingga mendapatkan koneksi yang lebih baik daripada sebelumnya.

3.   Coba Gunakan aplikasi Heatmapping
Software yang satu ini akan membantu kalian untuk melihat seberapa efektif cakupan sinyal wifi. Dengan begitu kita bisa menentukan dimana posisi router yang efektif agar sinyalnya menyebar dengan efektif. Coba juga tips untuk mengubah arah antena seperti di atas agar mendapatkan hasil yang lebih baik.

4.  Ubah jadi jaringan tertutup
Semakin banyak orang yang memakai jaringan wifi, maka koneksinya akan semakin lambat. maka dari itu  jika kalian tak ingin ada para pemburu wifi gratisan yang iktu numpang tanpa izin. sebaiknya berikan password pada jaringan hotspot kalian.
dengan begitu hanya perangkat tertentu saja yang bisa tekoneksi dan menggunakan wifi tersebut.

5.  Ubah Frekuensi ke 5GHz
sekarang ini ada 2 jenis frekuensi pada wifi yaitu 2,4 GHz dan 5GHz. Lebih bagus yang amana ? tergantung kondisi tempat kalian, jika ada banyak barang elektronik yang menggunakan frekuensi 2,4 GHz naka konesi wifi punjuga ikut terpengaruhi.
Apabila terjadi, disarankan untuk emngubah setting router kalian dari frekuensi 2,4 ke 5GHz. Tapi sebelum itu pastikan dulu perangkat kalian sudah mendukung fekuensi 5GHz juga ya.

6.  Tambahkan Perangkat repeater
Salah satu penyebab koneksi wifi lemot adalah penyebaran sinyal yang lemah. Solusi dari msalah ini adalah dengan memanfaatkan repeater. Perangkat tersebut kan berguna untuk memperkuat serta memperluas cakupan sinyal wifi yang ada. Dengan begitu kita bisa mendapatkan koneksi yang lebih baik daripada sebelumnya.

7.  Pilih saluran yang tak terlalu ramai
Selain pemilihan frekuesnsi, pengaturan saluran pada router juga terbilang penting . Umumnya frekuensi 2,4 GHz akan banyak yang menggunakan saluran 1,6 dan 11. amk dari itu disarankan untuk memillih saluran yang lain. namun, akan lebih baik lagi apabila kalian sudah beralih ke frekuensi 5 GHz.
Selain karena kinerjanya yang sudah kurang efektif, router jenis baru jelas puna teknologi yang lebih baik. Hal ini sangat bagus jika kalian ingin punya wifi berkecepatan tinggi.

8.  Ganti router dengan yang baru 
kembali lagi bahwa router merupaka faktor yang sangat penting dalam hal ini. Apabila perangkat yang kalian gunakan sudah jadul maka disarankan untuk segera menggantinya.
Selain kinerjanhya yang sudah kurang efektif, router jenis baru jelas punya teknologi yang lebih baik. hal ini akan sangat bagus jika kalian ingin puya wifi berkecepatan tinggi.

9.   Minta bantuan ke ISP
Jika semua tips di atas belum bisa mengatasi wifi yang lemot, saatnya untuk meminta bantuan. Kalian bisa menghubungi ISP untuk mengirimkan tenaga ahli agar dapat mempercepat koneksi wifi kalian.
mereka tentu lebih kompeten dan bisa mencari tahu apa sebenarnya penyebab dari masalah tersebut. Selain itu, tips ini cocok untuk kalian yang tak mau repot.

Selamat mencoba, Semoga Sukses

Sumber : Fb Ilmu networking

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

Wednesday, February 12, 2020

Membuat Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul

Apk cetak Label Undangan , Aplikasi Input Nilai Rapot
Membuat Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul

Ruang Excel : Assalamu'akum wr. wb, Salam sejahtera Bapak/Ibu guru semua. Pada kali ini saya akan berbagi cara membuat media pembelajaran berupa "Kisah Dakwah 25 Rasul" berupa slide power point berbasisi visual basic (vba). Membuat media pembelajaran yang menyenangkan dan interaktif merupakan upaya dalam rangka bersama-sama kita tingkatkan sumberdaya manusia dalam hal ini mendidik dan membimbing anak-anak didik kita agar mampu kita antar menjadi anak yang berakhlakul karimah, berilmu, berbudaya, dan mampu bersaing di era digitalisasi sepreti sekarang ini. 

Pendidik sejatinya harus bisa mengikuti perkembangan jaman dengan kemampuan mereduksi semua teknologi informasi digital guna memfasilitasi dan memicu motivasi anak dalam mengembangkan kemampuan, bakat dan minatnya yang ada pada diri mereka masing-masing, dengan perantara pengajaran dan media pembelajaran interaktif yang menyenangkan bagi diri anak didik. Mari kita bersama ikuti langkah-langkah pembuatan slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul ini dengan seksama.

Pertama, buka lembaran slide Microsoft Power Point dan buat pertanyaan quiz Pembelajaran pendidikan Agama Islam yang kita kehendaki.

Kedua, buat TextBox (AktiveX Control) sebagai kolom isi jawaban dengan cara Pilih Developer pada menu bar, pilih textbox lihat pada gambar berikut :



Ketiga, membuat ceklis benar (v) , salah (x) , tombol periksa, tombol reset, dan kolom perolehan skor dengan memilih shapes pada menu Insert.



Keempat, setelah langkah tiga dialakukan, klik pada salah satu shape. misal shape ceklist kemudian pilih Home==>selection visibility==>shapes on slide kemudian ganti nama yang sesuai. lihat gambar di bawah ini ;


Kelima, pada langka ini kita sincronkan kode vba dengan textbox, tombol yang ada di slide. Pilih menu developer ==> pilih menu visual basic. kemudian setalah menu visual basic terbuka, buat modul sepeti pada gambar di bawah ini :



Lihat Contoh slide Pembelajaran PAI

Selanjutnya masukan kode scrip vba di bawah ini ke dalam modul visual basic seperti gambar di atas 

=============================================================

Public cekJawab As Variant

Public isiJawab As Variant

Public kunciJawab As Variant

Public nilai As Variant

Public nilaiTotal As Integer

Public Sub deklarasiArray()

cekJawab = Array("benar1", "salah1", "benar2", "salah2", "benar3", "salah3", _

               "benar4", "salah4", "benar5", "salah5", "benar6", "salah6", "benar7", "salah7", "benar8", "salah8", "benar9", "salah9", "benar10", "salah10")

isiJawab = Array(Slide2.TextBox1, Slide2.TextBox2, Slide2.TextBox3, _

                 Slide2.TextBox4, Slide2.TextBox5, Slide2.TextBox6, Slide2.TextBox7, Slide2.TextBox8, Slide2.TextBox9, Slide2.TextBox10)

kunciJawab = Array("Menyampaikan", "25", "Menyembunyikan", "Terpelihara dari dosa", "Syahadatain", "Kekasih Allah", "Ismail", "Ishaq", "Lut", "4")

nilai = Array("0", "0", "0", "0", "0", "0", "0", "0", "0", "0")

End Sub

Public Sub tombolClear5()

Call deklarasiArray

For i = 0 To 9

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes("nilaiAnda").TextFrame.TextRange.Text = "0"

isiJawab(i).Text = ""

Next

End Sub

 

Public Sub tombolPeriksa5()

Call deklarasiArray

nilaiTotal = 0

For i = 0 To 9

If isiJawab(i).Text = kunciJawab(i) Then

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoTrue

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse

nilai(i) = 10

Else

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i)).Visible = msoFalse

ActivePresentation.Slides(2).Shapes(cekJawab(2 * i + 1)).Visible = msoTrue

nilai(i) = 0

End If

nilaiTotal = nilaiTotal + nilai(i)

Next

ActivePresentation.Slides(2).Shapes("nilaiAnda").TextFrame.TextRange.Text = nilaiTotal

End Sub

Berikut contoh Slide Power Point dengan Visual Basic Application, Quis Materi Kisah Dakwah 25 Rasul.

 

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