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

Friday, August 7, 2020

Trik Merubah Angka Menjadi Huruf pada ms excel

Aktifkan Macro , Aplikasi Terbilang
Trik Merubah Angka Menjadi Huruf pada ms excel

   Untuk merubah sebuah angka menjadi huruf sangatlah mudah, tanpa kita harus bikin scrip rumus yang panjang. Cukup dengan memasang aplikasi tambahan (Terbilang) pada microsoft excel. Hal ini akan memudahkan kita dalam kerjaan sebagai sekretaris,bendahara, operator BOS terutama pada pembuatan kwitansi dsb.

Lansung saja kita ke TKP :

A.   Non-aktifkan dahulu security macro dengan cara:

     1.    Klik Menu pada excel dan pilih Options

     2.    Setelah muncul jendela Excel Options, klik Trust Center, kemudian klik Trust Center Settings.


3. 


           B.   Install Add-ins Terbilang Excel, caranya:

  1. Klik Menu File pada Microsoft Excel dilanjutkan dengan klik Options.  
  2. Setelah muncul jendela Excel Options, klik Add-ins.
  3. Klik tombol Go dan jendela Add-ins, Klik Browse. Maka keluar dialog seperti berikut :


4.    Temukan letak file Add-ins Terbilang kemudian klik OK.



      5. Pada dialog Add-Ins di atas centang terbilang, klik OK. Sekarang, Anda dapat mulai menggunakan fungsi tersebut.

  C.   Langkah-langkah menggunakan rumus Terbilang untuk merubah angka menjadi huruf:

 

     1.    Ketikan rumus =PROPER(Terbilang(B3)) di cell C3. Kemudian isikan angka di cell B3 maka di cell C3 akan terbilang sesuai angka di Cell B3. Lihat gambar di bawah :


  2. Untuk merubah huruf menjadi kapital, silahkan “PROPER” diganti dengan “UPPER” atau ingin menjadi huruf kecil semua silahkan diganti dengan “LOWER”.

   3. Jika di akhir angka terbilang ada tulisan rupiah, silahkan ditambah Gan di akhir rumus. Misal =PROPER(Terbilang(B3))&”Rupiah”. Lihat gambar di bawah :

 

    Semoga aplikasi dan ilmu ini bermanfaat buat kita semua, selamat mencoba dan sukses !.


 Contoh file aplikasi Terbilang


Read more »
By di No comments:
Label: ,

Friday, November 1, 2019

Form excel Input Data siswa ke tiap rombel kelas otomatis

Aktifkan Macro , Apk cetak Label Undangan
Form excel Input Data siswa ke tiap rombel kelas otomatis
http://ruangexcel.blogspot.com

RuangExcel : Salam sejahtera para pecinta dan pengguna microsoft excel, semoga dalam keadaan sehat dan sukses selalu. Pada kesempatan kali ini saya akan berbagi file microsoft excel berupa menu sebaran data ke rombel atau kelompok data tertentu. File microsoft excel yang saya berinama aplikasi sederhana "Menu Input Data Ke Rombel" bisa memudahkan para operator atau guru dalam input data peserta didik yang akan disebar ke tiap rombel kelas. Pada aplikasi sederhana ini terdapat 3 menu, yakni menu Form dan Database.

1. Menu Form 

Pada Menu Form ini terdapat kolom isian data jumlah rombel dan banyak siswa yang akan dibuatkan berupa format pada sheet database ketika kita telah kita klik tombol "buat database" serta isian data peserta didik yang akan diinput ke lembar kerja excel (sheet database) setelah kita melakukan pengisian data peserta didik dan melakukan klil tombol "Input Data".

2. Menu Database

Lembar kerja excel (sheet database) adalah sheet database yang akan menampung data inputan peserta didik dari lembar kerja excel (sheet form). Pada lembar kerja excel (sheet database) yang berisi format data peserta didik per rombel. Jika kita pada sheet form melakukan klik "buat database" maka format yang telah dibuat sebelumnya akan terhapus dengan format terbaru.

Jika anda ingin mengembangkan aplikasi ini silahkan unduh di sini dan kode scrip vba silahkan copas di bawah ini :

Sub BUAT_KOLOM()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    BARIS = 1

    For I = 1 To 200000

        If WRdata.Range("B" & I).Value <> "" Then

            For IA = 1 To 25

                WRdata.Cells(I, IA).Value = ""

                WRdata.Cells(I, IA).Font.Bold = True

                WRdata.Cells(I, IA).HorizontalAlignment = xlLeft

                WRdata.Cells(I, IA).Columns.ColumnWidth = 9

                WRdata.Cells(I, IA).Interior.ColorIndex = xlColorIndexNone

            Next IA

        End If

    Next I

    KL = 1

    NM = 0

    RB = 0

    BARIS = 1

    KOLOM = 1

    For RB = 1 To WRisi.Range("D3").Value

        WRdata.Cells(BARIS, 1).Value = "ROMBEL :  " & RB

        WRdata.Cells(BARIS, 1).Font.Bold = True

        WRdata.Cells(BARIS, 1).HorizontalAlignment = xlCenter

        WRdata.Cells(BARIS, 1).Columns.ColumnWidth = 15

        WRdata.Cells(BARIS, 1).Interior.ColorIndex = 6

        For I = 10 To 40

            If WRisi.Range("B" & I).Value <> "" Then

                KL = KL + 1

                WRdata.Cells(BARIS, KL).Value = WRisi.Range("B" & I).Value

                WRdata.Cells(BARIS, KL).Font.Bold = True

                WRdata.Cells(BARIS, KL).HorizontalAlignment = xlCenter

                WRdata.Cells(BARIS, KL).Columns.ColumnWidth = WRisi.Range("A" & I).Value

                WRdata.Cells(BARIS, KL).Interior.ColorIndex = 10

            End If

        Next I

        If WRisi.Range("D4").Value = "" Then Exit Sub

        For NM = 1 To WRisi.Range("D4").Value

           KOLOM = KOLOM + 1

           WRdata.Cells(KOLOM, 2).Value = NM

        Next NM

        KL = 1

        NM = NM + 1

        BARIS = BARIS + WRisi.Range("D4").Value + 1

        KOLOM = KOLOM + 1

    Next RB

End Sub

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

Private Sub CommandButton2_Click()

    Set WRisi = Worksheets("FORM")

    Set WRdata = Worksheets("DATABASE")

    KL = WRisi.Range("D7").Value 'rombel

    NM = WRisi.Range("D4").Value 'jmlsiswa

    If WRisi.Range("D3").Value < KL Then

        MsgBox "Rombel max " & WRisi.Range("D3").Value, vbInformation, "Peringatan"

        Exit Sub

    End If

       RB = 2

    If WRisi.Range("D11").Value <> "" Then

        For I = 1 To 200000

            If WRdata.Cells(I, 1).Value = "ROMBEL :  " & KL Then

                For IA = I To (I + NM)

                    If WRdata.Cells(IA, 3).Value = "" Then

                        For xs = 11 To 40

                            RB = RB + 1

                            WRdata.Cells(IA, RB).Value = WRisi.Range("D" & xs).Value

                        Next xs

                        Exit Sub

                    End If

                Next IA

             End If

        Next I

    End If

End Sub

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

Private Sub CommandButton3_Click()

    pesane = MsgBox("Semua database yang tersimpan akan terhapus, Anda yakin akan membuat kolom baru ", vbYesNo, "cetak")

    If pesane = vbYes Then

        Call BUAT_KOLOM

    End If

End Sub

 

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

Wednesday, September 4, 2019

Cara Membuat Command Button Pencarian data Siswa Otomatis

Aplikasi data Base siswa , Aplikasi SPPD Terbaru
Cara Membuat Command Button Pencarian data Siswa Otomatis
https://ruangexcel.blogspot.com/

Ruangexcel.blogspot.com : Dalam setiap aplikasi database peserta didik pada masing-masing lembaga pendidikan pasti terdapat berbagai macam format berupa data siswa seperti daftar absen, biodata per individu dan sebagainya. nah, pada kesempatan kali ini, saya akan mencoba untuk berbagi beberapa cara untuk mencari data siswa per individu berupa biodata. Mari kita ikuti langkah-langkah membuat daftar pencarian data dengan menggunakan atau memanfaatkan visual basic berikut ini :

Pertama, buka lembar kerja microsoft excel dan buat lembar sheet FORM dan DATABASE.

Kedua, setelah kita membuat lembar kerja pada langkah pertama, kita buat format data utama siswa (database) dan format biodata (Form Data Pencarian).. Format Form bisa ikuti seperti gambar form di atas dan sheet Database mulai isi data dari cell A2:G8 kemudian save dalam bentuk macro-enabled worksheet.

Ketiga, buka kembali lembar file microsoft excel yang barusan dibuat dan buat CommandButton dan masukan kode scrip berikut :

Dim WRisi, WRdata As Worksheet
Dim I, KL, RB, NM, IA, xs
Dim BARIS, KOLOM
Dim urut
Dim pesane
Private Sub CommandButton1_Click()
    Set WRisi = Worksheets("FORM")
    Set WRdata = Worksheets("DATABASE")
   
    If Label1.Caption = "NAMA" Then
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 5).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    Else
        For I = 1 To 200000
            RB = 2
            If WRdata.Cells(I, 3).Value = WRisi.Range("D8").Value Then
                For IA = 11 To 40
                    RB = RB + 1
                    WRisi.Cells(IA, 4).Value = WRdata.Cells(I, RB).Value
                Next IA
                Exit Sub
            End If
        Next I
    End If
End Sub

Private Sub Label1_Click()
    If Label1.Caption = "NAMA" Then
        Label1.Caption = "NIS"
    Else
        Label1.Caption = "NAMA"
    End If
End Sub

Demikian berbagi pada kesempatan kali ini semoga bermanfaat. Contoh file pencarian data siswa unduh Command Button Pencarian data Siswa Otomatis

 

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

Tuesday, September 20, 2016

Trik Membuat rumus nomor otomatis muncul pada cell yang terisi data

Aplikasi Input Nilai Rapot , Aplikasi Instrumen penilaian V.01
Trik Membuat rumus nomor otomatis muncul pada cell yang terisi data

Pada artikel sebelumnya saya sudah memposting tentang trik membuat nomor otomatis pada lembar mikrosoft excel .  Namun, nomor otomatis tersebut tidak bisa otomatis berurutan ketika diterapkan pada cell yang terisi data jigjag (loncat).

Share kali ini, Saya mencoba membuat formula untuk membantu supaya penomoran otomatis berfungsi dengan normal meskipun data pada cell terisi jigjag (loncat). Sebelum ke formula bantu, kiranya pahami formula penomoran otomatis sebelumnya.

Berikut adalah formula bantu penomoran otomatis :

=IF(C2<>"";ROW();"")

Formula penomoran otomatis :

=IF(C2="";"";A2-1)

Keterangan :

C2 adalah cell yang terisi data dan A2  adalah cell penomoran bantu. Jika awal formula bantu itu pada Cell A2 (row ke-2) maka A2-1, Jikan Cell A3 maka A3-2, dan seterusnya. Untuk lebih jelasnya lihat gambar penerapan formula bantu penomoran otomatis berikut ini :



Untuk menghilangkan kolom no. bantu (A) silahkan klik kanan pada kolom A dan pilih hide.


Selamat Mencoba semoga berhasil dan berkah.

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

Friday, February 19, 2016

Cara Import Data dari Microsoft Excel ke Word

Aktifkan Macro , Apk cetak Label Undangan
Cara Import Data dari Microsoft Excel ke Word
  

      1. Buata Data di microsoft Excel



     2.  Setelah data excel di save, buka lembar kerja microsoft Word dan disain card sesuai keinginan kita

     3. Untuk menginport  data dari excel yang tadi kita buat, klik mailing pada tab ribbon atas, klik Select Recipients dan pilih Use Existing List. Maka akan terbuka seperti di bawah




      4. Pada Select Data Source, kita cari data file excel yang telah kita buat dan pilih data tersebut kemudian klik Open, maka akan muncul seperti di bawah



     5. Pada Select Tabel, pilih sheet yang akan diinport datanya ke Microsoft Word kemudian klik OK.

    6.  Letakan kursor pada identitas isian, jika mau mengisi ruangan maka letakan kursor di isian ruang dan pilih ruangan pada Insert merge feild, kemudian klik Preview Results. Maka hasilnya seperti di bawah :




     7.  Untuk mencari data yang kita inginkan klik Previous Record atau Next Record.



      Demikian Share kali ini Selamat mencoba dan sukses selalu

  Download File Import

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