Selasa, 24 Januari 2012

PROTEKSI CELL DI EXCEL 2007

Saya ceritakan dulu asbabu nuzulnya kenapa menulis artikel ini hehe.. kenapa harus dikunci segala kyk rumah aja? Ya memang sama tujuannya biar yang tidak kita inginkan bisa masuk ke dalam, terus apa sih yang kita sembunyiin dari sebuah CELL, ya banyak dong.. contohnya kita kepengen biar sebuah FORMULA itu tidak dirubah/edit, contohnya nih formula tambah2an A1=B1+C1.. ini kan FORMULA, bener ga? :D, penulis Cuma bisa bikin formula yang gampang aja jadi contohnya juga begitu hahahaha.. nah kita ngga mau kalo rumus kita dirubah sama orang lain ato mungkin bahkan ngga mau dilihat sekalipun, jadi orang hanya bisa memakai saja, tanpa memahami rumus yang kita buat.. kira kira begitu maksudnya mengapa sebuah CELL dikunci dan diHIDE.
Langsung aja yuk buka EXCEL dengan halaman baru. Lalu buat sebuah FORMULA ato rumus sesuai dengan tingkat kanuragan masing2 hahaha.. lihat nih punya saya
Saya pilih rumus menghitung luas balok, saya bertujuan agar pemakai tidak tau bagaimana rumusnya, tetapi mereka bis menggunakannya.. saya perlihatkan juga rumus yang masih bisa dilihat di FORMULA BAR, langkah pertama yaitu tekan CTRL + A atau select all, lalu beranjak ke menu HOME klik FORMAT keluar sub menu pilih FORMAT CELL lalu klik tab Protection dan akan muncul seperti ini:



Hilangkan centangan pada LOCKED, biarkan HIDDEN begitu adanya lalu klik OK..   jadi posisi semua CELL dalam keadaan tidak terLOCK, lalu pilih CELL C5 atau CELL dimana FORMULA berada, klik kanan pilih FORMAT CELL atau untuk memformat CELL sobat bisa mengikuti cara sebelumnya, sama aja kok :P, klik tab PROTECTION lagi, centang HIDDEN, centang lagi LOCK lalu ok.. jadi CELL C5 dalam keadaan HIDDEN dan LOCK,  apakah kita sudah berhasil?? Ya belum lah.. jangan seneng dulu dong perjuangan belum berakhir dan FORMULA jg masih keliatan tuh, coba perhatikan deh, bener kan? HeHeHe.. lanjut yukk.. sekarang kita pilih menu REVIEW disitu cari PROTECT SHEET, kalo udah ketemu KLIK aja langsung jangan diplototin aja :D, akan muncul dialog Protect Sheet  seperti ini:


settingan lain biarin standar aja ya, jangan dicuntang centang lagi.. kita langsung aja ketikin password contohnya “1234” klik OK, terus ada confirm password ketik lagi “1234” klik OK lagi, selesai sudah perjalanan kita.. tapi tetep harus ditest dong hasil kerjanya, lihat punya saya yuukk..:


Eng ing eng….. kalo drama pasti diiringi musik beigut begitu, mendadak FORMULAnya hilang seketika, nah nah.. bigimana kalo ada yang iseng iseng mo ngerubah CELL C5, kita lihat responnya yukk…: 



Jreng jreng jreenggg.. musik seram nih hahaha.. kagak bisa karena sudah di proteksi, bahkan untuk memunculkan FORMAT  CELL aja tidak bisa karena sub menu tersebut sudah dimatikan, alhasil FORMULA kita aman tidak bisa dicontek orang terus tidak bisa dirubah orang juga nih.. Alhamdulillah ya sesuatu banget.. project saya yang sudah jadi bisa didonlod disini
Akhir kata, Saya cukupkan dulu sekian tutorial ini, smoga bermanfaat bagi yang membutuhkannya, kalo blm mengerti silahkan menulis di chatbox ato mengirim via email yang ada di halaman About US..  terima kasih sudah singgah di blog saya dan mengikuti tutorial yang ada.





Senin, 23 Januari 2012

BULATKAN ANGKA DI EXCEL

Mulai lagi dengan kegiatan posting memporsting, masih sekitar excel  ya.. tapi tidak lepas dari namanya programming, sebenarnya ini sudah kita bahas pada posting yang lalu di Visual basic, tapi saya menekankan bagaimana mengkonversi skrip VB6 ke excel, pada pastingan sebelumnya sudah diulas bagai mana menerjemahkan angka dengan huruf, jadi cara bagaimana memunculkan menu DEVELOPER tidak akan diulas lagi, bagi yang belum tau caranya, kembali ke postingan lalu dulu ya.. baru deh ikutan lagi di postingan ini. Lanjut yuk.. seperti biasa kita bikin desain dulu, biar di skrip kita bisa menentukan CELL mana yang akan kita ketik, kalo saya sih bikin desain sederhana, lihat dibawah ini:
Nahh.. sobat bisa mendesain sesuka hati dan mau ditempatkan dimana saja ASAL .. posisi RANGE harus sesuai dengan yang ada si skrip, tinggal merubah saja kok, kita maen di 2 CELL sebenarnya satu untuk inputan angka dan satu lagi untuk menampilkan hasil pembulatan, kali ini kita mencoba membulatkan angka ke dalam RIBUAN, seperti contoh nih.. 2.345 akan menjadi 3.000, 23.450 akan menjadi 24.000 dan seterusnya, ngerti kan?? Pasti dong yang berkunjung ke sini kan orang orang pinter hahaha..
Seperti biasa kita lari ke menu DEVELOPER lalu klik SOURCE seperti langkah di postingan sebelumnya, sehingga muncul VBA lalu kita ketikan skrip dibawah ini, KETIKAN ini perintah penulis sih kalo mau COPY PASTE ya monggo lah, tapi kl kita ngetik itu sambil belajar hehe..,
‘-----------------------SKRIP-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ujung As Double
Dim bulat As Double
Dim isinya As Double
ujung = Right$(Worksheets(1).Range("C3").Value, 3)
If (ujung > 0) And (ujung < 999) Then
bulat = 1000 - ujung
isinya = bulat + CDbl(Worksheets(1).Range("C3").Value)
Worksheets(1).Range("C4").Value = isinya
End If
MsgBox "Terima kasih sudah menggunakan program ini, kunjungi www.semesta-abu.co.nr klik iklannya", vbInformation, "THANK U"
End Sub
‘----------------END SKRIP---------------------------
Dikit kan?? Ngga sampe satu jam tuh, kalo sobat mau merubah ke dalam pembulatan seratus yang perlu diganti adalah :
ujung = Right$(Worksheets(1).Range("C3").Value, 3)
If (ujung > 0) And (ujung < 999) Then
bulat = 1000 – ujung
Ket1: Right$(Worksheets(1).Range("C3").Value, 3) diganti dengan Right$(Worksheets(1).Range("C3").Value, 2), angka 2 itu kan di bawah 99 dan diatas 0 pastinya
Ket2: If (ujung > 0) And (ujung < 999) Then diganti dengan If (ujung > 0) And (ujung < 99) Then, karena angka diantara 0-99 itu akan kita bulatkan menjadi 100
Ket3: bulat = 1000 – ujung diganti dengan 100, patokan penghitungan ratusan
Kalo mau diganti angka 500 contohnya bisa, tinggal disesuaikan aja tuh angka-angkanya.
Nah kalo sudah jadi coba sobat test ya.. jangan2 ada yang salah, tapi punya saya sih jalan and hasilnya sesuai dengan yang diinginkan, sebaiknya file disimpan dengan format XLS.. tidak lupa saya unggah juga contoh yang sudah saya buat untuk tutorial ini agar pembaca bisa mengunduhnya, silahkan donlod disini
Akhir kata de sela sela kesibukan jam istirahat,* istirahat kok sibuk??? * Saya ucapkan terima kasih sudah berkunjung dan mengikuti tutorial yang saya sajikan. 


Jumat, 20 Januari 2012

KONVERSI ANGKA KE HURUF DI EXCEL (TERBILANG)

Ehhmm.. Bismillahirahmannirohim, dengan menyebut nama Allah yang maha pengasih dan maha penyayang saya memulai lagi untuk menulis di blog ini, (mirip pidato proklamasi yach? :D) sudah lama banget ngga aktif posting, sebenarnya ada beberapa postingan yang sudah saya ketik, tapi karena ketidak tersediannya waktu dan terlalu lamanya file itu pending sampe sekrang tidak bisa diketemukan lagi.. terlalu banyak yang ingin saya tuangkan di blog ini sampe sampe bingung yang mana yang akan saya postingkan (jangan ngeles emang kgk ada IDE kali ya? :D)

Merujuk pada judul artikel apa sih maksudnya? Konversi itu.. emm merubah dari sebuah bentuk ke bentuk lain, begitu kali ya.. kalo salah anggap bener dan jangan protes soalnya ini blog saya, ngaco nih hahaha.. tapi maksud saya bener contoh angka 1 jadi “atu”, 2 “ua” 3 “iga” sok cadel nih :D, ato 100 “seratus”, 1000”seribu” maksudnya begitu.. yg cari referensi definisi jangan disini ya, disini sifatnya aplikatif. Udah paham kan? Lihat gambarnya deh biar tambah ngerti:

Batin pembaca “ngapain ga dari tadi langsung gambarnya.. kgk usah diomongin jg udah ngerti gw!!” hahaha.. santai gan kalo kgak dikasih pembukaan gmn jadinya ini blog, kliaatn jelek tuh di halaman awal..
Sebelum kita otak atik skript kita hasur mengaktifkan menu DEVELOPER, tuh kyk yang ada di gambar pojok kanan atas.. yang belum bisa ikutin caranya yuk, postingan besok kgk gw ulangi lagi ye :D, besok bahas excel lagi deh..so menu DEVELOPER biarin aja nangkring disitu.. klik buletan office 2007 pojok atas kiri, akan keluar menu-menu lihat kanan bawah ada WORD OPTION, klik dong jangan diliatin terus deh.. kgk usah diotak atik langsung cari SHOW DEVELOPER TAB IN THE RIBBON, lalu centang ya.. tuh menu udah langsung nangkring diatas kepala eh… RIBBON maksudnya.. lihat gambar ya:
Lalu bikin desain seperti gambar 1 paling atas.. inget ya posisi kolom sama baris harus sama plek dengan gambar 1, jangan ngeyel semaunya sendiri soalnya di skript sudah ditulis kolom berapa baris berapanya, kecuali kalo mau merubahnya sendiri.. itu sih sah sah aja..
Setelah membuat tampilan seperti gambar 1, klik menu DEVELOPER pada RIBBON/MENU lalu klik VIEW CODE, lihat gambar:

Dan akan muncul jendela baru seperti dibawah ini:
Di tempat inlah kita akan mengetikan skript.. inget ya NGETIK bukan COPY PASTE, penulis ngerasa pengunjung bakal pada kabur kalo disuruh ngetik skript, udah banyak kalo salah kagak mau jalan lagi hahaha.. COPAS kgk apa2 deh. Tapi kalo mau olah raga tangan juga itu lebih baik.. ini dia skriptnya:
‘----------------------------------------------skript----------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ert
If Worksheets(1).Range("c3").Value <> "" Then Worksheets(1).Range("c4").Value = Num2word(Worksheets(1).Range("c3").Value) + " Rupiah" Else Worksheets(1).Range("c4").Value = ""
Exit Sub
ert:
MsgBox "Masukan hanya angka", vbCritical, "WARNING!"
Worksheets(1).Range("c3").Value = ""
Worksheets(1).Range("c4").Value = ""
Exit Sub
End Sub
Function Num2word(ByVal n As Currency) As String
Dim Satuan As Variant
Satuan = Array("", "Satu ", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", " Sebelas")
Select Case n
Case 0 To 11
    Num2word = " " + Satuan(Fix(n))
Case 12 To 19
    Num2word = Num2word(n Mod 10) + " Belas"
Case 20 To 99
    Num2word = Num2word(Fix(n / 10)) + " Puluh" + _
    Num2word(n Mod 10)
Case 10 To 199
    Num2word = " Seratus" + Num2word(n - 100)
Case 200 To 999
    Num2word = Num2word(Fix(n / 100)) + " Ratus" + _
    Num2word(n Mod 100)
Case 1000 To 1999
    Num2word = " Seribu" + Num2word(n - 1000)
Case 2000 To 999999
    Num2word = Num2word(Fix(n / 1000)) + " Ribu" + Num2word(n Mod 1000)
Case 1000000 To 999999999
    Num2word = Num2word(Fix(n / 1000000)) + " Juta" + Num2word(n Mod 1000000)
Case Else
    Num2word = Num2word(Fix(n / 1000000000)) + " Milyar" + Num2word(n Mod 1000000000)
    End Select
End Function
‘-------------------------------END OF SCRIPT--------------------------------------
Nah.. kalo udah coba kembali ke tampilan EXCEL yg sudah kita desain diawal tadi, kita coba deh.. ketikan 120000 maka tampilan akan seperti dibawah ini:
Lahh kalo ada error ato kagak jalan bigimana?.. kagak tau gw!!.. kl disini sih jalan kek gitu hahaha.. tapi ngga usah khawatir, kalo memang ngga jalan saya sudah mengunggahnya dan bisa donlod disini, jadi sobat bisa compare yang dibuat dan yang saya buat..
Selamat mencoba dan mempelajari yah, good night..

Artikel ini didedikasikan untuk Bp. Syafar - Pinrang