Fungsi Terbilang Berbahasa Indonesia Dalam MS Excel 2007

Terkadang kita membutuhkan versi terbilang dari sebuah bilangan di dalam MS excel, kali ini saya akan membagi kepada anda bagaimana caranya membuat fungsi terbilang versi bahasa indonesia di MS excel. Baik langsung saja ikuti langkah berikut ini:

1. Siapkan dokumen MS Excel terlebih dahulu.
2. Masuk vba editor bisa dengan klik tab developer (untuk mengaktifkan tab developer lihat disini)==>Visual Basic, atau anda juga bisa menggunakan tombol kombinasi Alt+F11, sampai muncul tampilan seperti berikut ini
   
   
   
3. Tambahkan Module baru ke dalam project anda
   perhatikan window project explorer di sebelah kiri atas, klik kanan Project VBAProject(Book1) ==> Insert ==> Module1. Sampai Muncul Code Editor untuk module1 seperti berikut:
   
   
   
4. Copy dan paste kode berikut ke dalam Code Editor Module1:
   
   
   Function Ratusan(cData As String) As String
      Dim DataDepan, nLenData, nCount As Integer
      Dim SisaData, cHuruf As String
      Dim Satuan, Imbuhan As Variant
      Satuan = Array(" nol", " satu", " dua", " tiga", " empat", " lima", " enam", " tujuh", " delapan", " sembilan")
      Imbuhan = Array("", "", " puluh", " ratus")
      nLenData = Len(cData)
      SisaData = ""
      cHuruf = ""
      For nCount = nLenData To 1 Step -1
        DataDepan = Val(Mid(cData, 1, 1))
        SisaData = Mid(cData, 2, Len(cData))
        If Not (DataDepan = 0) Then
           If ((nCount = 2) And (CInt(Val(cData)) > 10) And (CInt(Val(cData)) < 20)) Then
               cHuruf = cHuruf + IIf(CInt(Val(SisaData)) = 1, " se", Satuan(CInt(Val(SisaData))))
               cHuruf = cHuruf + IIf(CInt(Val(SisaData)) = 1, "", " ") + "belas"
               GoTo Keluar
           Else
               cHuruf = cHuruf + IIf((DataDepan = 1) And (Not (nCount = 1)), " se", Satuan(DataDepan)):
               cHuruf = cHuruf + IIf((DataDepan = 1) And (Not (nCount = 1)), Trim(Imbuhan(nCount)), Imbuhan(nCount))
           End If
        End If
        cData = SisaData
      Next
   Keluar:
      Ratusan = cHuruf
      End Function
   
   Function Isi(cAngka As String) As String
      Dim nCount, nLenData As Integer
      Dim cHuruf, cData As String
      Dim Akhiran As Variant
      Akhiran = Array("", "", " ribu", " juta", " milyar", " triliun", " biliun", " ziliun")
      cHuruf = ""
      cData = ""
      nLenData = Fix(Len(cAngka) / 3) + IIf((Len(cAngka) Mod 3) = 0, 0, 1)
      For nCount = nLenData To 1 Step -1
          cData = Mid(cAngka, 1, IIf(Len(cAngka) - (3 * (nCount - 1)) > 0, Len(cAngka) - (3 * (nCount - 1)), 1))
          If Not (Fix(Val(cData)) = 0) Then
             cHuruf = cHuruf + IIf((nCount = 2) And (CInt(Val(cData)) = 1), " se", Ratusan(cData))
             cHuruf = cHuruf + IIf((nCount = 2) And (CInt(Val(cData)) = 1), Trim(Akhiran(nCount)), Akhiran(nCount))
             cHuruf = Replace(cHuruf, "se ribu", "seribu")
          End If
          cAngka = Right(cAngka, 3 * (nCount - 1))
      Next
      Isi = cHuruf
      End Function
   Function Terbilang(nNumber As Double) As String
      Dim cHuruf, cNumber, cFullNumber, cDecsNumber As String
      Dim nPosDecs As Integer
      If VarType(nNumber) = 2 Then
       nNumber = CDbl(CStr(Fix(nNumber)) + Application.DecimalSeparator + "0")
      Else
        nNumber = nNumber
      End If
      cHuruf = ""
      If nNumber < 0 Then
         cHuruf = " minus"
         cNumber = Trim(CStr((nNumber * -1)))
      Else
         cNumber = Trim(CStr(nNumber))
      End If
      nPosDecs = InStr(cNumber, Application.DecimalSeparator)
      cFullNumber = Mid(cNumber, 1, IIf(nPosDecs = 0, Len(cNumber), nPosDecs - 1))
      cDecsNumber = Right(cNumber, Len(cNumber) - IIf(nPosDecs = 0, Len(cNumber), nPosDecs))
      If Not (Fix(Val(cFullNumber)) = 0) Then
         cHuruf = cHuruf + Isi(CStr(cFullNumber))
      Else
         cHuruf = " nol"
      End If
      If Not (cDecsNumber = "") Then
        If Not (Fix(Val(cDecsNumber)) = 0) Then
           cHuruf = cHuruf + " koma" + Isi(cDecsNumber)
        End If
      End If
      Terbilang = cHuruf
    
   End Function
5. Hasilnya seperti gambar dibawah ini:
   
   
   
6. Setelah memalui langkah no 5, sekarang kita mencoba hasilnya di sheet1.
7. Misalkan kita akan menulis angka di Cell "B3" dan bentuk terbilang berada di cell "C3", maka tuliskan formula di cell "C3" dengan formula sbb:
   
   =terbilang("B3")
   
   Hasilnya dapat dilihat pada gambar dibawah ini
   
   
   
   
   
   

Demikian postingan saya kali ini,semoga bermanfaat.
Anda Juga bisa melihat videonya di sini



Sumber: lupa

Belajar Membuat Macro MS Excel 2007: Mengendalikan Cell/ Range

1. Memilih cell pada worksheet yang aktif

Misalkan anda akan memilih cell "D5" pada Worksheet yang aktif, anda dapat menggunakan perintah seperti contoh berikut:

ActiveSheet.Cells(5, 4).Select

Atau

ActiveSheet.Range("D5").Select


2. Memilih cell pada worksheet yang lain pada workbook yang sama

Untuk memilih Cell "E6" pada worksheet yang lain pada workbook yang sama, anda dapat dapat menggunakan perintah seperti berikut:

Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

atau

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

atau anda bisa mengaktifkan sheet2 terlebih dahulu kemudian menggunakan metode satu, seperti contoh dibawah ini:

Sheets("Sheet2").Activate  ActiveSheet.Cells(6, 5).Select


3. Memilih Cell di Worksheet yang berbeda workbook

Untuk memilih Cell "F7" pada worksheet yang berbeda workbook, anda dapat dapat menggunakan perintah seperti

Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Cells(7, 6))

atau

Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Range("F7"))


4. Memilih Range didalam Sheet Aktif
   Untuk Memilih Range "C2:D10" di sheet yang sedang aktif dalam workbook yang sama, anda dapat menggunakan salah satu contoh dibawah ini:
   
   ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select
   
   ActiveSheet.Range("C2:D10").Select
   
   ActiveSheet.Range("C2", "D10").Select
5. Memilih Range di sheet lain pada workbook yang sama
   untuk Memilih Range "D3:E11" di sheet yang lain pada workbook yang sama, anda dapat menggunakan salah satu contoh dibawah ini:
   
   Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
   
   Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")
6. Memilih Range Pada Workbook yang berbeda
   Untuk Memilih Range "E4:F12" di sheet yang berbeda workbook, anda dapat menggunakan salah atu contoh dibawah ini:
   
   Application.Goto Workbooks("BOOK2.XLSX").Sheets("Sheet1").Range("E4:F12")
   Application.Goto (Workbooks("Book2.XLSX").Worksheets("Sheet1").Range("E4", "F12"))





sumber: http://support.microsoft.com

Menampilkan Tab Developer di MS Excel

Kali ini saya akan berbagi bagaimana untuk menampilkan tab Developer di MS Excell, ini sangat berguna jika kita bekerja dengan macro MS Excell.
Baik Langsung saja ikuti langkah-langkah berikut ini:

1. Klik Office Button di sebelah kiri atas;
2. Pilih "Excel Option"











Kemudian akan muncul Jendela Excel Option, Pada Grup "Populer" centang "Show the developer tab on the Ribbon"








3. Klik "OK"






Kemudian anda cek di Ribbon Excel, tab anda bertambah dengan nama "Developer"

Cukup Sekian semoga bermanfaat...

Belajar Membuat Macro MS Excel 2007: Memulai membuat Macro

Sebelumnya siapkan dokumen MS Excel, anda bisa membuat dokumen baru maupun membuka file yang sudah ada.

1. Create Macro (ALT+F8)

Untuk membuat macro dapat dilakukan dengan cara klik Ribbon View ==> Macros ==> view macros tulis nama pada Macro Name contohnya "tes" kemudian klik Create





maka Anda telah membuat sebuah Modul Visual Basic Aplication (VBA) bernama Module1 dan sebuah prosedur VBA bernama tes(). Atau Anda juga bisa membuat macro denfgan menekan tombol ALT+F8 pada keyboard.

2. Record Macro

Cara kedua adalah dengan merekam untuk membuat sebuah macro, dengan cara ini kita dapat membuat kode visual basic tanpa harus menuliskannya. Pada dasarnya, operasi Excel dapat dicatat oleh Macros melalui Record New Macros kemudian kita dapat mengubah kode-kode VBA yang dihasilkan oleh operasi yang tercatat tersebut.
Untuk memulai mencatat Macro klik Ribbon View==> Macros==>Record Macro
Kolom isian “Macro name:” diperuntukkan mengisikan nama Macro. Kolom “Shortcut key” diperuntukkan membuat shortcut key dari keyboard (Ctrl+ tombol keypad yang Anda inginkan). “Store Macro in” merupakan kolom isian untuk menentukan dimana macro akan disimpan, pilihannya adalah This Workbook, New Workbook dan Personal Macro Workbook . Dan kolom “Description”, bila Anda ingin menuliskan keterangan mengenai Macro yang akan Anda catat.



setelah anda menekan tombol "Ok" maka Pencatatan sedang dilakukan, sebagai contoh isikan cell A1 dengan text "Tes" kemudian Stop Recording dengan cara klik Ribbon view==> Macros ==> Stop Recording, pencatatan macro anda berhenti.


Untuk melihat perintah yang tercatat dari operasi tadi dengan cara klik Ribbon view==> Macros ==> view macros pilih macros (Berdasarkan contoh yang kita buat sebelumnya adalah "tes") klik edit.

dari perintah yang tercetak diantara "sub" dan "end sub", jika macro anda dijalankan maka akan mencetak text "tes" di cell A1 dan cell A2 akan menjadi cell yang aktif.untuk mengaktifkan macro "tes" anda bisa menekan tombol kombinasi "ctrl+t", sesuai dengan tombol yang sudah kita tentukan sebelumnya ketika membuat macro "tes".
3. Visual Basic Editor (Alt +F11)
Untuk cara yang terakhir yaitu dengan membuka Visual Basic Editor langsung dengan menekan tombol "ALT+F11" selanjutanya Anda bisa menyisipkan Module, ClassModule dan UserForm dan mulai melakukan pemograman.

Sumber:

Belajar Membuat Macro MS Excel 2007: Autofill Form Web page dari Ms Excel

Pernahkah anda mengalami harus menginputkan data dari ms excel ke dalam form didalam web page, Tidak masalah kalau datanya sedikit akan tetapi jika kita dihadapkan dengan banyak data yang harus di upload satu-persatu tentu akan menjadi sedikit masalah, masalah waktu, masalah fisik dan masalah malas juga tentunya.
Dari situ timbul keinginan misalkan data dari Ms excel tersebut ter-copy secara otomatis dan menempatkan sendiri satu-persatu ke form di web page.
Baiklah langsung saja, berdasarkan kasus diatas saya mencoba memberikan sedikit solusi dengan Macro MS Excel menggunakan VBA.
disini saya akan mencontohkan untuk mengisi username dan password facebook, selebihnya bisa anda kembangkan sendiri

Berikut langka-langkahnya:

1. Siapkan Dokumen Excel.
2. Buat tabel dengan kolom "username" dan "password"
3. Selanjutnya tambahkan Common Button. dengan cara klik tab developer(lihat disini) ==> grup control==>insert==>Common button





4. Hasilnya...





5. Selanjutnya masuk ke area kerja VBA dengan menekan Alt+F11 ...





6. Sebelum menulis kode program anda perlu menambahkan reference terlebih dahulu Klik Tools ==> References



7. Tambahkan Microsoft internet Controls dan Microsoft HTML Object Library



8. Selanjutnya buat module dengan cara klik kanan pada VBAProject==>insert==>Module
9. Kemudian ketikan perintah di bawah ini:

Sub login()
 Dim IE As InternetExplorer
 Dim doc As HTMLDocument Dim
 username As String
 Dim password As String
 Dim form As HTMLFormElement
 Dim boxusername As HTMLInputTextElement
 Dim boxpassword As HTMLInputTextElement
 Dim tombolmasuk As HTMLInputButtonElement
 username = Range("A2").Value
 password = Range("B2").Value
 Set IE = New InternetExplorer
 IE.Visible = True
 IE.Navigate "www.facebook.com"
 Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
 Set doc = IE.document
 Set form = doc.forms(login_form)
 Set boxusername = form.elements("Email")
 boxusername.Value = username
 Set boxpassword = form.elements("pass")
 boxpassword.Value = password
 Set tombolmasuk = form.elements("u_0_l")
 tombolmasuk.Click Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy:DoEvents: Loop
 End Sub

Sampai disini project anda sudah bisa membuka facebook denga user dan password yang ada di cell "A2" dan "B2".

Bagaimana membuat command button anda berfungsi?

Aktifkan Workbook Pada tab Developer ==> grup controls, klik mode design sampai berwarna kuning.

Klik kanan pada tombol login ==> View Code Panggil procedure yang dibuat tadi, dari contoh yang saya buat di atas nama procedurenya adalah "login"

Private Sub CommandButton1_Click()
  login
End Sub

demikian semoga Artikel saya kali ini semoga dapat membantu...