Ruang Excel: Aplikasi Input Nilai Rapot

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

Nurman Al Faruq Administrasi Ujian , Aplikasi Input Nilai Rapot

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….

Cara Membuat Tombol Print Preview pada microsoft Excel

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

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

Contoh gambar Command Button (activeX control) PrintPreview

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

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

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

Selamat Mencoba semoga sukses dan berkah. Aaamiin..

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

9 Cara mempercepat koneksi internet wifi

Nurman Al Faruq Aplikasi Input Nilai Rapot , Aplikasi Mutasi Masuk

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

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

Nurman Al Faruq Apk cetak Label Undangan , Aplikasi Input Nilai Rapot

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 = ""

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)

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.

Tricks Making data Mail Merge In Word Easy

Nurman Al Faruq Aktifkan Macro , Apk cetak Label Undangan

In Microsoft Word 2007 and 2010 sheets we can make Mail merge images can be used to make catalogs, test cards or member cards that contain photos, as well as letters with signature images, and so on. This tutorial will discuss how to create a mail merge in word.

Part 1, Create MS Excel Data Sources and Master Documents in the folder.

Steps:

1. Prepare the image file for the catalog first and save it in the same folder as the mail merge document.

2. Create a data source in Microsoft Excel 2007 or 2010 like the following example save in Excel 97 - 2003 format (.xls) with the menu name.

3. Open a new document in Word 2007 or 2010. Create a master document with the following data and save it in Word 97 - 2003 (.doc) format.

Note: Word and Excel documents must be saved in 97-200 format because fiture Include Picture will be used in the mail merge image Cannot be used in Word 2007 and 2010 (there is a bug).

Part 2, Combining Data Source with Master Documents

Steps:

1. In the MS Word master document, Mailings tab, group Start Mail Merge, click St Mail Merge and select Directory.

2. Now we will insert data source. On the Mailings tab, the Star group Merge, click Select Recipients.

3. Select Use Existing List, and find the document location (menu.xls) in the box Select Data Source. Then click Open.

4. Now we will put data in each place. Put it down the cursor next to the code: Then on the Mailings tab, the Write & Insert Fields group, click Insert Merge and select Code.

5. Do the same for the Snack: and now the document view will be like the following picture.

6. Next we will insert a picture. Click in the second column of the table

7. On the Insert tab, Illustrations group, click Picture and find the location of the image.

8. Click on one of the catalog images. Then click the arrow on Tom Insert and select Link to File.

9. The appearance is like the following picture.

10. Next press the AL T + F9 key to display the code field

12. Make sure the cursor position is still in the position of the image file name (sela) which is deleted (see picture above). Then on the Mailings tab, Write & group Fields, click Insert Merge Field and select Image.

13. The appearance is like the following picture. Next we need to add one more code so that the image matches the data still each one.

14. Select the text "{MERGE FIELD Picture} .jpg" like the example image

and press CTRL + F9 to make curly braces.

15. In the position after the opening curly brackets, type IF TRUE like the sample following.

16. Take the AL T + F9 button to hide the Field code. The result is as shown below.

17. Click the Mailings tab button, click Preview Resul ts. Click the arrow to move between data / records. If there is still something you want to change, click the Resul ts and la Preview button again

desired change.

18. To save the results of the mail merge, click the Finish & Merge button, select Edit Individual Documents, click All and OK.

You can download the Mail Merge file here

Cara Membuat Input Nilai Otomatis microsoft excel vba

Nurman Al Faruq Apk cetak Label Undangan , Aplikasi Input Nilai Rapot

Ada beberapa cara untuk menginput nilai hasil evaluasi pembelajaran salah satunya memanfaatkan visual basic (Vba) yang terdapat pada microsoft excel. Ketika kita ingin membuat aplikasi imputan nilai dengan membuat tombol (shape) input data otomatis. Berikut ini adalah scrip vba untuk membuat button input nilai pad microsoft excel.

Sub insertData()
Dim jumlahData As Integer
Dim nomor1, nis1, nisn1, nama1, sex1, spirt1, sos1, pnr1, pnk1, pp1, knr1, knk1, kp1 As String
Sheets("Sheet2").Select
nomor1 = Range("A12").Text
nis1 = Range("B12").Text
nisn1 = Range("C12").Text
nama1 = Range("D12").Text
sex1 = Range("E12").Text
spirt1 = Range("F12").Text
sos1 = Range("G12").Text
pnr1 = Range("H12").Text
pnk1 = Range("I12").Text
pp1 = Range("J12").Text
knr1 = Range("K12").Text
knk1 = Range("L12").Text
kp1 = Range("M12").Text 'batas ambil data row 1

Dim nomor2, nis2, nisn2, nama2, sex2, spirt2, sos2, pnr2, pnk2, pp2, knr2, knk2, kp2 As String
nomor2 = Range("A13").Text
nis2 = Range("B13").Text
nisn2 = Range("C13").Text
nama2 = Range("D13").Text
sex2 = Range("E13").Text
spirt2 = Range("F13").Text
sos2 = Range("G13").Text
pnr2 = Range("H13").Text
pnk2 = Range("I13").Text
pp2 = Range("J13").Text
knr2 = Range("K13").Text
knk2 = Range("L13").Text
kp2 = Range("M13").Text 'batas ambil data row 2

Dim nomor3, nis3, nisn3, nama3, sex3, spirt3, sos3, pnr3, pnk3, pp3, knr3, knk3, kp3 As String
nomor3 = Range("A14").Text
nis3 = Range("B14").Text
nisn3 = Range("C14").Text
nama3 = Range("D14").Text
sex3 = Range("E14").Text
spirt3 = Range("F14").Text
sos3 = Range("G14").Text
pnr3 = Range("H14").Text
pnk3 = Range("I14").Text
pp3 = Range("J14").Text
knr3 = Range("K14").Text
knk3 = Range("L14").Text
kp3 = Range("M14").Text 'batas ambil data row 3

Dim nomor4, nis4, nisn4, nama4, sex4, spirt4, sos4, pnr4, pnk4, pp4, knr4, knk4, kp4 As String
nomor4 = Range("A15").Text
nis4 = Range("B15").Text
nisn4 = Range("C15").Text
nama4 = Range("D15").Text
sex4 = Range("E15").Text
spirt4 = Range("F15").Text
sos4 = Range("G15").Text
pnr4 = Range("H15").Text
pnk4 = Range("I15").Text
pp4 = Range("J15").Text
knr4 = Range("K15").Text
knk4 = Range("L15").Text
kp4 = Range("M15").Text 'batas ambil data row 4

Dim nomor5, nis5, nisn5, nama5, sex5, spirt5, sos5, pnr5, pnk5, pp5, knr5, knk5, kp5 As String
nomor5 = Range("A16").Text
nis5 = Range("B16").Text
nisn5 = Range("C16").Text
nama5 = Range("D16").Text
sex5 = Range("E16").Text
spirt5 = Range("F16").Text
sos5 = Range("G16").Text
pnr5 = Range("H16").Text
pnk5 = Range("I16").Text
pp5 = Range("J16").Text
knr5 = Range("K16").Text
knk5 = Range("L16").Text
kp5 = Range("M16").Text 'batas ambil data row 5

Dim nomor6, nis6, nisn6, nama6, sex6, spirt6, sos6, pnr6, pnk6, pp6, knr6, knk6, kp6 As String
nomor6 = Range("A17").Text
nis6 = Range("B17").Text
nisn6 = Range("C17").Text
nama6 = Range("D17").Text
sex6 = Range("E17").Text
spirt6 = Range("F17").Text
sos6 = Range("G17").Text
pnr6 = Range("H17").Text
pnk6 = Range("I17").Text
pp6 = Range("J17").Text
knr6 = Range("K17").Text
knk6 = Range("L17").Text
kp6 = Range("M17").Text 'batas ambil data row 6

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("A" & jumlahData + 3).Select 'input nomor1
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis1
ActiveCell.FormulaR1C1 = nis1
Range("C" & jumlahData + 3).Select 'input nisn1
ActiveCell.FormulaR1C1 = nisn1
Range("D" & jumlahData + 3).Select 'input nama1
ActiveCell.FormulaR1C1 = nama1
Range("E" & jumlahData + 3).Select 'input sex1
ActiveCell.FormulaR1C1 = sex1
Range("F" & jumlahData + 3).Select 'input spirt1
ActiveCell.FormulaR1C1 = spirt1
Range("G" & jumlahData + 3).Select 'input sos1
ActiveCell.FormulaR1C1 = sos1
Range("H" & jumlahData + 3).Select 'input pnr1
ActiveCell.FormulaR1C1 = pnr1
Range("I" & jumlahData + 3).Select 'input pnk1
ActiveCell.FormulaR1C1 = pnk1
Range("J" & jumlahData + 3).Select 'input pp1
ActiveCell.FormulaR1C1 = pp1
Range("K" & jumlahData + 3).Select 'input knr1
ActiveCell.FormulaR1C1 = knr1
Range("L" & jumlahData + 3).Select 'input knk1
ActiveCell.FormulaR1C1 = knk1
Range("M" & jumlahData + 3).Select 'input kp1
ActiveCell.FormulaR1C1 = kp1

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & jumlahData + 3).Select 'input nomor2
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis2
ActiveCell.FormulaR1C1 = nis2
Range("C" & jumlahData + 3).Select 'input nisn2
ActiveCell.FormulaR1C1 = nisn2
Range("D" & jumlahData + 3).Select 'input nama2
ActiveCell.FormulaR1C1 = nama2
Range("E" & jumlahData + 3).Select 'input sex2
ActiveCell.FormulaR1C1 = sex2
Range("F" & jumlahData + 3).Select 'input spirt2
ActiveCell.FormulaR1C1 = spirt2
Range("G" & jumlahData + 3).Select 'input sos2
ActiveCell.FormulaR1C1 = sos2
Range("H" & jumlahData + 3).Select 'input pnr2
ActiveCell.FormulaR1C1 = pnr2
Range("I" & jumlahData + 3).Select 'input pnk2
ActiveCell.FormulaR1C1 = pnk2
Range("J" & jumlahData + 3).Select 'input pp2
ActiveCell.FormulaR1C1 = pp2
Range("K" & jumlahData + 3).Select 'input knr2
ActiveCell.FormulaR1C1 = knr2
Range("L" & jumlahData + 3).Select 'input knk2
ActiveCell.FormulaR1C1 = knk2
Range("M" & jumlahData + 3).Select 'input kp2
ActiveCell.FormulaR1C1 = kp2

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & jumlahData + 3).Select 'input nomor3
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis3
ActiveCell.FormulaR1C1 = nis3
Range("C" & jumlahData + 3).Select 'input nisn3
ActiveCell.FormulaR1C1 = nisn3
Range("D" & jumlahData + 3).Select 'input nama3
ActiveCell.FormulaR1C1 = nama3
Range("E" & jumlahData + 3).Select 'input sex3
ActiveCell.FormulaR1C1 = sex3
Range("F" & jumlahData + 3).Select 'input spirt3
ActiveCell.FormulaR1C1 = spirt3
Range("G" & jumlahData + 3).Select 'input sos3
ActiveCell.FormulaR1C1 = sos3
Range("H" & jumlahData + 3).Select 'input pnr3
ActiveCell.FormulaR1C1 = pnr2
Range("I" & jumlahData + 3).Select 'input pnk2
ActiveCell.FormulaR1C1 = pnk3
Range("J" & jumlahData + 3).Select 'input pp3
ActiveCell.FormulaR1C1 = pp3
Range("K" & jumlahData + 3).Select 'input knr3
ActiveCell.FormulaR1C1 = knr3
Range("L" & jumlahData + 3).Select 'input knk3
ActiveCell.FormulaR1C1 = knk3
Range("M" & jumlahData + 3).Select 'input kp3
ActiveCell.FormulaR1C1 = kp3

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & jumlahData + 3).Select 'input nomor4
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis4
ActiveCell.FormulaR1C1 = nis4
Range("C" & jumlahData + 3).Select 'input nisn4
ActiveCell.FormulaR1C1 = nisn4
Range("D" & jumlahData + 3).Select 'input nama4
ActiveCell.FormulaR1C1 = nama4
Range("E" & jumlahData + 3).Select 'input sex4
ActiveCell.FormulaR1C1 = sex4
Range("F" & jumlahData + 3).Select 'input spirt4
ActiveCell.FormulaR1C1 = spirt4
Range("G" & jumlahData + 3).Select 'input sos4
ActiveCell.FormulaR1C1 = sos4
Range("H" & jumlahData + 3).Select 'input pnr4
ActiveCell.FormulaR1C1 = pnr4
Range("I" & jumlahData + 3).Select 'input pnk4
ActiveCell.FormulaR1C1 = pnk4
Range("J" & jumlahData + 3).Select 'input pp4
ActiveCell.FormulaR1C1 = pp4
Range("K" & jumlahData + 3).Select 'input knr4
ActiveCell.FormulaR1C1 = knr4
Range("L" & jumlahData + 3).Select 'input knk4
ActiveCell.FormulaR1C1 = knk4
Range("M" & jumlahData + 3).Select 'input kp4
ActiveCell.FormulaR1C1 = kp4

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & jumlahData + 3).Select 'input nomor5
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis5
ActiveCell.FormulaR1C1 = nis5
Range("C" & jumlahData + 3).Select 'input nisn5
ActiveCell.FormulaR1C1 = nisn5
Range("D" & jumlahData + 3).Select 'input nama5
ActiveCell.FormulaR1C1 = nama5
Range("E" & jumlahData + 3).Select 'input sex5
ActiveCell.FormulaR1C1 = sex5
Range("F" & jumlahData + 3).Select 'input spirt5
ActiveCell.FormulaR1C1 = spirt5
Range("G" & jumlahData + 3).Select 'input sos5
ActiveCell.FormulaR1C1 = sos5
Range("H" & jumlahData + 3).Select 'input pnr5
ActiveCell.FormulaR1C1 = pnr5
Range("I" & jumlahData + 3).Select 'input pnk5
ActiveCell.FormulaR1C1 = pnk5
Range("J" & jumlahData + 3).Select 'input pp5
ActiveCell.FormulaR1C1 = pp5
Range("K" & jumlahData + 3).Select 'input knr5
ActiveCell.FormulaR1C1 = knr5
Range("L" & jumlahData + 3).Select 'input knk5
ActiveCell.FormulaR1C1 = knk5
Range("M" & jumlahData + 3).Select 'input kp5
ActiveCell.FormulaR1C1 = kp5

Sheets("Sheet11").Select
jumlahData = Range("N1").Value
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
Selection.Copy
Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & jumlahData + 3).Select 'input nomor6
ActiveCell.FormulaR1C1 = jumlahData + 1
Range("B" & jumlahData + 3).Select 'input nis6
ActiveCell.FormulaR1C1 = nis6
Range("C" & jumlahData + 3).Select 'input nisn6
ActiveCell.FormulaR1C1 = nisn6
Range("D" & jumlahData + 3).Select 'input nama6
ActiveCell.FormulaR1C1 = nama6
Range("E" & jumlahData + 3).Select 'input sex6
ActiveCell.FormulaR1C1 = sex6
Range("F" & jumlahData + 3).Select 'input spirt6
ActiveCell.FormulaR1C1 = spirt6
Range("G" & jumlahData + 3).Select 'input sos6
ActiveCell.FormulaR1C1 = sos6
Range("H" & jumlahData + 3).Select 'input pnr6
ActiveCell.FormulaR1C1 = pnr6
Range("I" & jumlahData + 3).Select 'input pnk6
ActiveCell.FormulaR1C1 = pnk6
Range("J" & jumlahData + 3).Select 'input pp6
ActiveCell.FormulaR1C1 = pp6
Range("K" & jumlahData + 3).Select 'input knr6
ActiveCell.FormulaR1C1 = knr6
Range("L" & jumlahData + 3).Select 'input knk6
ActiveCell.FormulaR1C1 = knk6
Range("M" & jumlahData + 3).Select 'input kp6
ActiveCell.FormulaR1C1 = kp6

Sheets("Sheet11").Select
'pesan berhasil
MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"

End Sub

Contoh bisa anda gunakan Aplikasi Input Nilai Otomatis microsoft excel vba

Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

Nurman Al Faruq Aplikasi Input Nilai Rapot , Aplikasi Instrumen penilaian V.01

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 :

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.

Enjoy You'r Visiting

Wednesday, August 5, 2020

Cara menggeser angka atau huruf otomatis dengan kursor pada Ms Excel

Friday, June 12, 2020

Cara Membuat Tombol Print Preview pada microsoft Excel

Thursday, May 7, 2020

Aplikasi Kartu Pengawas Ujian Sekolah versi excel

Saturday, April 18, 2020

9 Cara mempercepat koneksi internet wifi

Wednesday, February 12, 2020

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

Monday, December 30, 2019

Tricks Making data Mail Merge In Word Easy

Sunday, December 15, 2019

Cara Membuat Input Nilai Otomatis microsoft excel vba

Tuesday, September 3, 2019

Cara Membuat Aplikasi Excel dengan Menu Ribbon Sendiri

Follow Us

Facebook

Ruang Excel

Featured post

Aplikasi Dapodik Sekolah Versi 20.02 excel vba

Cari Artikel Di Blog ini

Popular Posts

Translate

Subsribe

Recent

Featured

Subscribe Us

Recent Post

Blog Archive

Total Pageviews