Excel>> Menampilkan Nama Hari

Menampilkan nama hari di sheet MS-Excel dapat dilakuan dengan menggunakan fungsi TEXT() dan menu Format.

1. Format-Cell
- Pilih sel yang berisi data tanggal yang akan diperlihatkan nama harinya.
- Pilih menu Format-Cells-Number tab.
- Dibawah kolom Category, pilih Custom, kemudian pada bok Type , ketik dddd untuk nama hari selengkapnya (Monday, Tuesday, dst), atau ddd
untuk nama hari yang dipersingkat(Mon, Tue, Wed, and so on).
- Pilih OK
2. Fungsi TEXT()
- letakan kursor pada sel target
- ketik fungsi =TEXT(celladdress,"dddd") atau
- ketik fungsi =TEXT(celladdress,"ddd")
Cat : celladdress >merupakan alamat sel data tanggal

Selengkapnya......

Access>> Aplikasi Sederhana Bagian 2 - Membuat Form

Form merupakan sarana interaksi antara pemakai dengan sistem. Form akan menampilkan data dari tabel atau query dan dapat digunakan untuk mencari, menampilkan, menambah, atau mengubah data.

Form terbagi dalam tiga bagian, yaitu header, footer, dan detail, yang tersusun dari kontrol-kontrol. Command button pada umumnya digunakan sebagai menus, sementara untuk menampilkan dan mengambil informasi dapat digunakan berbagai tipe kontrol diantaranya adalah textbox, combobox, listbox, checkbox, option group, option button, dan image.

Membuat Form
1. Pada menu utama Access, dibawah tulisan Object klik Forms.
2. Klik Create form in design view, kemudian klik Design.

3. Tentukan tabel yang akan dibuka dengan cara Klik kanan pada form control

4. Pilih Properties
5. Klik tanda segitiga terbalik disebelah kanan “Record Source :”

6. Pilih Tblbarang, akan tampak field list :

7. Menempatkan textbox/field pada form:

• Klik field kodebrg, tahan tombol mouse.
• Geser ke area desain form, lepaskan tombol mouse.
• Ulangi untuk field yang lain. Hasil seperti gambar pada langkah 6.
• Pilih View-Form View untuk melihat hasil
  

8. Simpan dengan memilih menu File-Save.

Catatan :

Latihan : Lakukan langkah-langkah diatas untuk form tblJual

Selengkapnya......

Program Deret Fibonacci

Membuat deret fibonacci dengan menggunakan bahasa pemrograman PASCAL


program deretfibonacci;
uses wincrt;

var
i,penambah,suku : integer;
deret : array[1..100] as integer;

begin
read(suku);
for i = 1 to suku do
if i = 1 then
begin
deret[i] = 1;
penambah = 0

end

else
begin
deret [i] = deret[i-1] + penambah;
penambah = deret [i-1]
end;

'cetak deret

for i = 1 to suku do
write(deret[i])
end.

Selengkapnya......

Access>> Aplikasi Sederhana Bagian 1 - Membuat Tabel

Pada bagian ini akan saya tuliskan tutorial sederhana membangun sebuah aplikasi menggunakan Microsoft Access. tutorial ini terbagi dalam empat bagian utama, yaitu merancang dan membangun Tabel, Form, Query, dan Laporan (Report)


Memulai MS-Access

1. Dari Desktop, pilih Start-Programs-Microsoft Access
2. Pilih Blank Database
3. Ketik dbinventory pada kotak disebelah kanan tulisan File Name : kemudian klik Create. Setelah itu akan tampil menu utama MS-Access.

Membuat Tabel - Tblbarang
1. Pada menu utama Access, dibawah tulisan Object klik Tables
2. Klik Create table in design view, kemudian klik Design
3. Isikan struktur tabel berikut :
Field Name, Data Type, Field Size/Format
Kodebrg,Text,5
Namabrg,Text,20
Satuan,Text,3
Hargajual,number,longinteger
4. Klik field name kodebrg, kemudian klik toolbar bergambar kunci. Pada sebelah kiri nama field kodebrg akan muncul gambar kunci.
5. Pilih File-Save untuk menyimpan tabel. Ketik TblBarang kemudian pilih OK.
6. Pilih File-Close untuk kembali ke menu utama Access

Membuat Tabel - Tbljual
1. Pada menu utama Access, dibawah tulisan Object klik Tables
2. Klik Create table in design view, kemudian klik Design
3. Isikan struktur tabel berikut :
Field Name, Data Type, Field Size/Format
nonota,Text,6
kodebrg,Text,5
jumlah,Text,Integer
tanggal,Date/time,Medium date
4. Pilih File-Save untuk menyimpan tabel. Ketik TblJual kemudian pilih OK.
5. Pilih No jika muncul pertanyaan berikut :
6. Pilih File-Close untuk kembali ke menu utama Access

Memasukan Data - Tblbarang
1.Pada menu utama Access, dibawah tulisan Object klik Tables
2.Klik TblBarang, kemudian klik Open. Ketik/isikan data berikut :
Kodebrg, Namabrg, Satuan, Hargajual
BP001,Ballpoint, Lsn, 30000
BT001,Buku Tulis 20 hal, Lsn, 13000
BT002,Buku Tulis 30 hal, Lsn, 14000
PS001,Pensil, Lsn, 9500
3. Klik File-Close untuk selesai.

Memasukan Data - Tbljual

1. Pada menu utama Access, dibawah tulisan Object klik Tables
2. Klik Tbljual, kemudian klik Open. Ketik/isikan data berikut :
Nonota kodebrg jumlah Tanggal
N-0001, BP001, 12, 12-06-06
N-0001, BT001, 10, 12-06-06
N-0001, BT002, 8, 12-06-06
N-0001, PS001, 9, 12-06-06
N-0002, BT001, 7, 13-06-06
N-0002, BP001, 7, 13-06-06
N-0002, PS001, 7, 13-06-06
3. Klik File-Close untuk selesai.

Selengkapnya......

HW>> Kipas Pendingin

Temperatur yang dihasilkan dari bekerjanya sebuah sistem komputer akan terakumulasi dan dapat menjadi penyebab terganggunya keinerja sistem. Untuk menghindari dan mengatasi tingginya temperatur dibutuhkan sistem pendingin yang mengontrol temperature tetap berada pada rentang panas ideal.

Sistem pendingin dengan menggunakan hot spreader seperti aluminium dibantu dengan penggunaan kipas pendingin dapat membantu menjaga kinerja sistem tetap stabil. Bermacam-macam model dan tipe kipas pendingin dapat dijadikan pilihan sesuai dengan beban dan lingkungan kerja. Harganya pun bervariasi. Banyak faktor yang menjadi penentu pemilihan kipas pendingin. Toleransi terhadap lamanya berhentinya sistem dan intensitas kerusakan adalah diantaranya.
Untuk kebutuhan industri tentunya dibutuhkan kipas pendingin dengan spesifikasi yang lebih tinggi dibandingkan dengan kipas pendingin yang digunakan untuk sistem komputer rumahan dengan intensitas penggunaan rendah atau perkantoran dengan pengatur suhu yang baik.
Kipas pendingin keluaran MINEBEA 2806GL-04W-B59 NMB 70mm Fan, P/N: 2806GL-04W-B5 dapat dijadikan pilihan untuk kalangan industri. Harganya jauh lebih mahal, mencapai 20 kali lipat dibandingkan dengan kipas pendingin biasa. Harga tersebut sebanding dengan resiko kerugian yang mungkin dialami jika sistem komputer yang digunakan terganggu. Spesifikasi yang dimiliki :

# Part Number: 2806GL-04W-B59
# Manufacturer: NMB, Minebea
# Size: 70mm X 70mm X 15mm
# Voltage: 12 volts DC
# Current: 0.30A
# Watts: 3.60
# RPM : 4200
# Bearing Type: Dual, Precision Ball Bearings
# Material-Venturi: UL94V-0 Plastic
# Material-Propeller: UL94V-0 Plastic
# Power Leads: 7.5" UL1007, AWG26, +Red, -Black, White=RPM Sensor
# Termination: 3 Pin female Molex ATX connector

Selengkapnya......

Excel>> Membuat Form Excel

Untuk membuat userForms dengan menggunakan MS-Excel bisa dilihat disini :

http://www.contextures.com/xlUserForm01.html#Create

Selengkapnya......

Excel>> Mengaktifkan Tombol MergeCell

1. Jika worksheetnya shared, dihilangkan dulu fasilitas sharednya dengan cara memilih menu : Tools-Shared Workbook lalu kosongkan kotak disebelah kiri teks "Allow changes by more........". Klik OK.
2. Jika worksheetnya diproteksi, buka terlebih dahulu proteksinya.

Selengkapnya......

Access>> Berbagi Pakai Database MS-Access

Saat ini pemakaian database MS-Access masih terbatas pada penggunaan aplikasi-aplikasi tunggal yang sederhana. Masih belum terpikirkan untuk manggunakannya sebagai database server.

Penggunan MS-Access yang cukup mudah dan sederhana, dibandingkan dengan VB yang lebih banyak membutuhkan penulisan perintah, menjadikannya sebagai pilihan untuk menangani data-data yang relatif kecil, walaupun tidak menutup kemungkinan untuk data yang lebih besar. Permasalahan akan timbul saat data-data yang disimpan ternyata dibutuhkan oleh orang lain. Transfer data secara manual, disamping tidak efisien, aktualitas datanya juga akan menimbulkan permasalahan tersendiri.
Database MS-Access bisa digunakan sebagai database server sehingga bersifat multiuser, tapi sebatas untuk menyimpan data saja atau sering disebut back-end database. Sedangkan obyek-obyek lain seperti form, query, module, macro, dan report disimpan di masing-masing komputer lokal yang disebut sebagai front-end database. Fasilitas ini memungkinkan database MS-Access digunakan oleh lebih dari satu orang pada saat yang sama. Keuntungan lainnya dari penggunaan fasilitas ini adalah meringankan beban jaringan dan server karena yang beredar di jaringan hanyalah datanya saja. Sedangkan proses query dilakukan di komputer lokal. Selain itu dapat menghindari kemungkinan berubahnya struktur tabel, karena database berada dikomputer yang lain.
Memecah Database MS-Access
Ada dua cara memecah database MS-Access menjadi back-end dan front-end database.
A. Import dan Link
1. Buat sebuah database baru.
2. Pilih Menu File-Get External Data-Import.
3. Pilih database yang akan di-split.
4. Pada tab Tables pilih Select All kemudian pilih OK.
Perhatikan tabel-tabel yang sudah di-import ke database baru yang akan menjadi back-end database anda.
5. Simpan database yang baru di folder server yang sudah di-share. Konfigurasikan untuk semua user agar memiliki otoritas full-aceess.
6. Buat sebuah database baru lagi.
7. Pilih Menu File-Get External Data-Link Tables.
8. Pilih back-end database yang telah dibuat pada langkah 1-5.
9. Pada tab Tables pilih Select All kemudian pilih OK.
Perhatikan tabel-tabel yang sudah di-Link ke database baru yang akan menjadi front-end database anda.
10. Pilih Menu File-Get External Data-Import.
11. Pilih database yang akan di-split kemudain pilih Import.
12. Pada tab Forms, pilih Select All. Ulangi langkah tersebut untuk tab-tab yang lain kecuali tab Tables karena tabel-tabel anda sudah terhubung, dan yang anda butuhkan hanyalah obyek-obyek yang lainnya.
13. Pilih OK.
Perhatikan pada front-end database anda, table-table yang sudah link dan obyek lainnya seperti form, query, dan lain-lain. Front-end database inilah yang didistribusikan kepada user yang lain.
B. Split
1. Buka database yang akan di-split.
2. Pilih Menu Tools-Database Utilities-Database Splitter.
3. Pilih Split Database.
4. Ketik nama back-end database yang akan dibuat. Pada umumnya akan sama dengan database yang di-split dan diakhiri dengan “-be”. kemudian pilih Split.
Proses akan dijalankan secara otomatis dan akan muncul pesan “Database successfully split”
5. Database yang di-split akan menjadi front-end database ditandai dengan nama-nama tabel yang bertanda panah disebelah kirinya dan akan muncul pesan bahwa struktur tabel tidak bisa kita ubah jika kita memilih toolbar Design.

Selengkapnya......

Excel>> Show Formulas

Banyaknya fitur yang terdapat di MS-Excel terkadang membuat kita panik saat secara tidak sengaja mengaktifkannya. Salah satu contoh adalah fitur Show Formulas dari menu Tools-Option-Show. Fitur ini jika diaktifkan tidak akan menampilkan value dari sebuah formula. Yang terlihat hanyalah formula yang kita ketikkan seolah-olah sel tersebut diformat Text. Kasus seperti ini terkadang membuat panik karena tampilan worksheet tidak seperti yang kita harapkan. Apalagi jika sebelumnya terlihat normal-normal saja. Misalnya saja sel yang berisi data tanggal dengan format ‘dd-mmm-yy’ akan menampilkan nilai ’14-Mei-09’ dengan fitur Show Formulas yang dinonaktifkan (unchecked). Jika fitur tersebut diaktifkan, yang terlihat adalah nilai 39947. Begitu juga jika kita mengetikkan formula =2+3, hasil penjumlahannya tidak ditampilkan.

Selengkapnya......

HW >> Merawat dan Memperbaiki Kipas (Fan)

Kipas atau fan merupakan salah satu komponen di dalam casing komputer yang memiliki fungsi cukup vital. Walaupun demikian banyak yang kurang peduli dengan perawatan komponen yang satu ini. Putaran yang tinggi saat beroperasi menyebabkan pelumas poros kipas semakin menipis dan akhirnya habis. Akibatnya putaran melemah dan dapat meyebabkan kipas tidak berputar sama sekali. Akan sangat fatal kalau yang gagal beroperasi adalah kipas dari heatsink-nya prosesor. Sistem komputer yang memiliki sensor temperatur akan membuat komputer shutdown secara otomatis, tetapi untuk sistem yang tidak memiliki sensor temperatur akan menyebabkan komputer menjadi overheating dan hang. Untuk mengatasi kipas yang putarannya rendah atau macet, langkah ini juga dapat digunakan untuk perawatan :

1. Lepaskan kipas dari heatsink
2. Bersihkan debu yang melekat
3. Lepaskan stiker pada punggung kipas
4. Teteskan pelumas secukupnya (1-2 tetes), pastikan tidak ada yang menetes keluar
5. Gerakan kipas dengan tangan sampai terasa lancar
6. Pasang kembali kipas pada heatsink.

Kipas yang kondisinya baik, saat akan berhenti dari putaran akan terlihat sedikit bergerak ke arah yang berlawanan dengan putaran. Untuk pelumasan dapat digunakan pelumas dengan kekentalan rendah, bisa juga menggunakan minyak sayur.

Selengkapnya......

HW >> Merawat Memory (RAM)

Komputer yang jarang digunakan dapat menyebabkan terjadinya kegagalan koneksi antara komponen yang satu dengan yang lain, terutama memory (RAM). Kegagalan koneksi memory dapat diidentifikasi dengan adanya bunyi dua kali beep pendek dan layar monitor tidak menampakan apapun kecuali warna hitam. Untuk mengatasi hal tersebut lakukan langkah-langkah berikut:

1. Lepaskan memory dari slot-nya. Konektor memory yang kotor terlihat agak kusam.
2. Bersihkan konektor memory dengan menggunakan karet penghapus pensil
3. Pasang kembali memory
4. Restart komputer

Selengkapnya......

Access>> Membuat Nomor Urut Otomatis

Membuat nomor urut otomatis dengan format 'yyyymmdd999'. Mengapa susunannya ymd bukan dmy? susunan ymd menghasilkan urutan record yang relevan saat diurutkan berdasarkan nomor urutnya. Kode dalam MS-Access seperti ini :

Private Sub cmdsimpan_Click()
Dim db As Database Dim rs As Recordset
Dim str As String
Dim nomor As Integer
Dim strnomor As String
Dim vnomor As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("tnomor")
If rs.RecordCount <> 0 Then
rs.MoveLast
vnomor = rs!nourut
If Val(Mid(vnomor, 5, 2)) = Month(Now()) Then
nomor = Val(Right(vnomor, 3))
nomor = nomor + 1
Else
nomor = 1
End If
Else
nomor = 1
End If
strnomor = Format(nomor, "000")
rs.AddNew rs!nourut = Format(Now(), "yyyymmdd") & strnomor
rs.Update
rs.Close
db.Close
End Sub

file .mdb silahkan download disini

Selengkapnya......

Net>> Bandwidth

Digital bandwidth, Network bandwidth , atau bandwidth dalam Jaringan Komputer dan Ilmu Komputer adalah ukuran ketersediaan atau pemakaian sumber daya komunikasi data yang diekspresikan dalam bit/s atau kelipatannya ; kbit/s, Mbit/s.
Bandwidth juga merujuk kepada kapasitas bandwidth atau bandwidth yang tersedia dalam bit/s,, secara khusus berarti net bit rate atau maksimum keluaran dari sebuah jalur komunikasi secara logika atau fisik didalam sistem konunikasi digital. Alasan penggunaannya adalah berdasarkan Hukum Hartley: keluaran data maksimum pada sebuah jaringan komunikasi secara fisik akan sebanding dengan bandwidth dalam hertz, yang disebut juga analog bandwidth dalam literatur jaringan komputer.
Apakah bandwidth yang lebih besar akan menghasilkan transfer data yang lebih cepat? Tentu! Mengapa komputer di rumah yang terhubung ke internet dengan kapasitas bandwidth 385 kbps lebih lambat dibandingkan dengan komputer di kantor yang menggunakan kapasitas bandwith 128 kbps? Perhatikan dua gambar berikut :

Gambar 01. Dedicated Leased Line

Gambar 02. Shared Leased Line

Jaringan A, B, dan C masing-masing memiliki bandwidth 128kbps, sementara untuk jaringan D, E, dan Pemakai Individu hanya tersedia 385kbps untuk dipakai bersama-sama. Semakin banyak yang bergabung dengan jaringan pada Gambar02, akan semakin lambat koneksi internet yang dihasilkan. Tipe seperti ini yang pada umumnya digunakan oleh ISP dengan sasaran konsumen masyarakat pemakai individu dan warnet. Itu sebabnya pada awal-awal penawaran, kecepatan koneksi yang dihasilkan sangat memuaskan. Tetapi seiring dengan betumbuhnya pelanggan, semakin menurun kecepatan koneksi yang dihasilkan.
Bagaimana dengan Gambar01? Setiap jaringan memiliki bandwidth-nya masing-masing. Satu dengan yang lain tidak saling mempengaruhi kecepatan koneksi ke internet. Kecepatan yang dihasilkan pun relatif lebih stabil. Targetnya adalah perusahaan, tentu dengan pertimbangan biayanya yang jauh lebih besar, sekitar 20juta atau lebih per Mb.
Dengan biaya yang harus dikeluarkan oleh sebuah ISP per 1Mb sekitar Rp 18juta, berapa pelanggan eceran yang harus dijaring untuk menutup biaya 385kbps/1024kbps x Rp 20juta dengan biaya hanya Rp 150ribu per bulan? Ingat, yang ditawarkan adalah “sampai dengan sekian kbps” dimana mulainya bisa saja kurang dari 10. jadi, tidak perlu merasa heran jika kecepatan koneksi internet di rumah terasa lebih lambat.

Selengkapnya......

Access >> Manipulasi Tabel dengan VBScript

Menambah Data

Menambah data pada sebuah tabel MS-Access, pada dasarnya adalah rangkaian proses :

1. Membuka database
2. Membuka tabel
3. Menambahkan baris kosong untuk record baru
4. Mengisi baris/record baru dengan data
5. Menyimpan data record baru

Private Sub cmdsimpan_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb() ' buka dtabase dan simpan di variabel db
Set rs = db.OpenRecordset("TNama") 'buka tabel TNama n simpan record di variabel rs
rs.AddNew 'menambah record kosong
rs!nama = txtnama 'mengisi record dengan nilai textbox
'tambahkan field-field yang lain disini, jika ada.............
rs.Update 'konfirmasi penyimpanan secara tetap
pesan = MsgBox("Data tersimpan", vbOKOnly, "Simpan")
rs.Close 'tutup recordset
db.Close 'tutup database
End Sub

contoh bisa di-download disin :
http://aburizki.multiply.com/journal/item/25/Manipulasi_Tabel_dengan_VBScript

Selengkapnya......

Access >> Membuat Form LogIn

Walaupun tidak semua aplikasi memerlukan proteksi, tetapi ada baiknya dilengkapi dengan form untuk login. Minimal bisa dicatat siapa saja yang menjalankan aplikasi, sehingga jika terjadi masalah dengan aplikasi bisa diketahui siapa pemakai terakhir.

Untuk membuat form login, langkah-langkahnya sebagai berikut :

1. Buat tabel baru dengan nama Tuser dan definisikan field dengan
nama userid dan pword, keduanya bertipe text.

2. Buat form baru dan tempatkan dua buah textbox. Namakan textbox dengan
txtuser dan txtpword. Tambahkan sebuah button dan beri nama cmdlogin.



3. Untuk textbox txtpword ubah properties untuk Data-Input Mask menjadi Password.




4. Tambahlan script untuk event click button cmdlogin :

Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tuser where userid ='" & txtuser & _
"' and pword ='" & txtpword & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
‘proses selanjutnya tulis disini……
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub

File .mdb download disini

Selengkapnya......

Excel >> Membuat DropDown List (Combo Box)

Mengisi data yang sama secara berulang secara manual berpotensi tidak konsistennya cara penulisan huruf. Walaupun dapat dilakukan dengan proses Copy-Paste, jika posisi data berselang-seling tentunya tidak efisien lagi. Untuk mengatasi hal tersebut dapat digunakan Dropdown List (Combo Box).

Langkah-langkah pembuatan Drop Down List :

1. Ketik nama-nama berikut pada sel E2-E6, sebagai sumber data:
Aman, Amin, Iman, Emon, Imin

2. Pilih sel A2

3. Pilih menu Data – Validation

4. Validation Criteria, pilih List

5. Untuk mendefinisikan sumber data (Source), klik tanda merah :

6. Pilih/blok sel E2-E6

7. Tutup Data Validation box dengan memilih tanda silang

8. Klik OK, akan terlihat tanda segitiga terbalik pada sel A2

9. Klik tanda segitiga terbalik untuk menampilkan pilihan

10. Format pada sel A2 bisa disalin ke sel dibawahnya dengan
proses Copy-Paste

Selengkapnya......

Excel >> Nilai Warna Pada Excel

Melakukan format pada sebuah sel pada MS-Excel berdasarkan nilai tertentu bisa dilakukan dengan menggunakan Conditional Format. Tetapi sebaliknya, bagaimana cara memberi nilai pada sebuah sel berdasarkan format yang ada pada sel lain? Misalnya, sel B2 akan terisi nilai 60 jika cell A2 berlatar belakang merah.

Cara yang dapat dilakukan adalah dengan membaca nilai warna yang menjadi latar belakang sel tersebut, kemudian menjadikan nilai tersebut sebagai kondisi untuk menentukan nilai. Hal ini dapat dilakukan dengan memanfaatkan kemampuan MS-Excel mengelola VBA script. Langkah–langkahnya adalah sebagai berikut :

- Buka worksheet baru atau worksheet yang sudah dibuat
- Pilih Tools-Macro-Visual Basic Editor
- Pada panel Project, klik kanan pada pilihan Microsoft Excel Project
- Pilih Insert-Modul
- Ketik script berikut :

Public Function nilaiwarna(ByVal Target As Range) As Integer
Dim nwarna As Integer
nwarna = Target.Interior.ColorIndex
nilaiwarna = nwarna
End Function

Fungsi diatas bisa digunakan untuk mengetahui nilai warna latar belakang sebuah sel. Caranya cukup dengan menuliskan fungsi nilaiwarna(celladdress) atau pada kasus dibawah :
. Sel B2 diisi dengan fungsi : =nilaiwarna(A2)
· Sel B3 diisi dengan fungsi : =nilaiwarna(A3)
· Sel B4 diisi dengan fungsi : =nilaiwarna(A4)
· Sel B5 diisi dengan fungsi : =nilaiwarna(A5)

Misalkan akan diisikan skor 60 pada kolom B jika sel A berlatar belakang biru (nilai warna = 5) :
· Sel B2 diisi dengan fungsi : if(nilaiwarna(A2)=5,60,0), kemudian copy ke sel dibawahnya. Hasilnya :

Selengkapnya......

Excel >> Pengolahan Data Tanggal (Function & Add-Ins)

Pengolahan untuk melakukan konversi data string menjadi tanggal dengan menggunakan formula dan fungsi bawaan MS-Excel, akan dirasakan cukup rumit untuk pemula. Jika anda bertanggung jawab untuk mambantu user dalam hal pengolahan data seperti ini, maka akan dibutuhkan satu tools yang akan membuat anda bisa berisitirahat dari rutinitas melayani user. Begitu juga dengan user yang akan mengurangi ketergantungannya dengan anda. Kemampuan MS-Excel mengelola VBA script akan sangat membantu.

1. Membuat Fungsi
- Buka worksheet baru
- Pilih menu Tools-Macro-Visual Basic Editor
- Pada panel sebelah kiri Klik kanan VBA Project(sheet1)
- Pilih Insert-Module
- Pada panel sebelah kanan ketik script berikut :

Function weekdmy(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(2000 + Val(Right(vtanggal, 2)), Mid(vtanggal, Len(tanggal.Value) - 6 + 3, 2), Left(vtanggal, Len(tanggal.Value) - 6 + 2))
weekdmy = ISOWeeknum(vweeknum)
End Function

Function weekymd(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(Left(vtanggal, 4), Mid(vtanggal, 5, 2), Right(vtanggal, 2))
weekymd = ISOWeeknum(vweeknum)
End Function

Function weekmdy(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(Right(vtanggal, 2), Left(vtanggal, Len(tanggal.Value) - 6 + 2), Mid(vtanggal, Len(tanggal.Value) - 6 + 3, 2))
weekmdy = ISOWeeknum(vweeknum)
End Function

Function ISOWeeknum(dt As Date) As Integer
ISOWeeknum = DatePart("ww", dt + (Weekday(dt, vbMonday) <> 1), vbMonday, vbFirstFourDays)
If DatePart("ww", dt + 7, vbMonday, vbFirstFourDays) = 2 Then ISOWeeknum = 1
End Function

2. Menyimpan Worksheet sebagai Add-Ins
- Pilih Menu File-Save as
- Expand pilihan save in dan pilih folder :
C:\Program Files\Microsoft Office\OFFICE11\ADDINS\
- Expand pilihan Save as type
- Pilih Microsoft Office Excel Add-In (*.xla)
- Ketik file name weeknumnya
- Pilih Save

3. Menyisipkan sebagai Add-Ins
- Buka atau buat sembarang worksheet
- Pilih menu Tools-Add Ins
- Pilih Browse
- Buka folder : C:\Program Files\Microsoft Office\OFFICE11\ADDINS\
- Pilih file weeknumnya.xla
- Pilih OK, kemudian pilih OK
- Fungsi siap digunakan

4. Cara pemakaian
Pemakaian fungsi buatan yang sudah kita sisipkan sebagai AddIn sama seperti halnya kalau menggunakan fungsi bawaan MS-Excel. Ada tiga buah fungsi yang bisa kita gunakan :
=weekdmy(cell), digunakan untuk mendapatkan week number dengan format data input ddmmyy, mis. “200808” untuk 20 Agustus 2008.
=weekmdy(cell), digunakan untuk mendapatkan week number dengan format data input mmddyy, mis. “082008” untuk 20 Agustus 2008.
=weekymd(cell), digunakan untuk mendapatkan week number dengan format data input yyyymmdd, mis. “20080820” untuk 20 Agustus 2008.


Note :
Function ISOWeeknum dikutip dari :
http://www.tech-archive.net/Archive/Excel/microsoft.public.excel.misc/2007-08/msg00593.html

Selengkapnya......