Karsono

MEMBUAT INPUT FORM SHEET INSERT GAMBAR DI EXCEL

karsono.mail@gmail.com (Karsono) — Sun, 05 Jun 2011 00:09:04 PDT

Sudah sekian lama tidak melakukan aktivitas blogging, kali ini aku coba bikin posting, mengenai Entry worksheet form dengan gambar.

Postingan ini sebenernya merupakan lanjutan dari postingan entry sheet form, tetapi diberi tambahan dengan menambahkan gambar yang bisa diambil di folder, dan dijadikan dalam satu row dengan database.

Untuk kodenya sendiri aku bagi menjadi 3 bagian

Dengan menggunakan data validation untuk input cell
1. Email
  
  =NOT(ISERROR(FIND("@",D12,1)))
2. No Tlp/HP
  
  =ISNUMBER(D14)
3. Tgl lahir
  
  Merupakan validation list
4. Temp Gambar
  
  untuk temp gambar ada di cell I50, dimana aku kasih value yang sama dengan input cell nama, yang bertujuan supaya data value gambar tidak kosong.
Kode makro

untuk kode makro ada dua

yang pertama kode untuk entry data

Option Explicit

Sub inputsheetform()

Dim ws As Worksheet
Dim ws1 As Worksheet
Dim nRw As Long
Dim i As Long
Dim a As Long
Dim rng As Range
Dim rng2 As Range
Dim rngCp As String
Dim anum As String
Dim rpic As String
Dim sh as shape

rngCp = "D7,D9,D12,D14,D17,E17,F17,I50" 'range input cell

Set ws1 = Sheets("INPUT")
Set ws = Sheets("DATABASE")

'peringatan apabila cell input ada yang kosong
With ws1
Set rng = .Range(rngCp)
If Application.CountA(rng) <> rng.Cells.Count Then
MsgBox "Input Form diisi semua yach...!"
Exit Sub
End If
End With
Application.CutCopyMode = False
With ws
'mencari baris yang kosong
nRw = .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
anum = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
rpic = .Cells(.Rows.Count, "I").End(xlUp).Offset(1, 0).Row
End With

ws1.Range("I50").Copy
ws.Select
Range("I" & rpic).Select
ActiveSheet.Paste

'melakukan input data
With ws

'input data sesuai range input cell
i = 2
For Each rng2 In rng.Cells
ws.Cells(nRw, i).Value = rng2.Value
i = i + 1
Next rng2

'membuat auto number
If IsEmpty(.Range("A3")) Then
.Range("A3") = 1
Else
.Range("A" & anum).Value = .Range("A" & anum).Offset(-1, 0) + 1
End If
End With
'menghapus cell input, untuk diinput lagi
With ws1
On Error Resume Next
With .Range(rngCp).Cells.SpecialCells(xlCellTypeConstants)
.ClearContents
Application.GoTo .Cells(1)
End With
For Each Sh In .Shapes
If Not Application.Intersect(Sh.TopLeftCell, .Range("I50")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
On Error GoTo 0
End With
End Sub

yang kedua kode makro untuk mengambil gambar dari folder yang diinginkan.

Sub Gambar()
Dim sGb As String, pic As Picture
Dim ws1 As Worksheet

Set ws1 = Sheets("INPUT")
ws1.Range("I50").Select
sGb = Application.GetOpenFilename _
("Gambar (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Pilih Gambar untuk diinsert")

If sGb = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sGb)
With pic

.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
ws1.Range("F17").Select

Set pic = Nothing
Set ws1 = Nothing

End Sub

seperti biasa apabila ingin mempelajari lebih lanjut file bisa di download disini.

CARA LOOKUP GAMBAR DI EXCEL

karsono.mail@gmail.com (Karsono) — Wed, 04 May 2011 00:27:47 PDT

Postingan lookup gambar di excel ini sebenernya sudah pernah saya pake sebagai tambahan atau pemanis dalam postingan mengenai melihat zodiak dengan excel.

Sehubungan ada beberapa pertanyaan mengenai cara lookup gambar di excel tersebut, akhirnya aku coba bikin postingan ini.

Cara lookup gambar di excel dalam postingan ini tidak memerlukan kode makro, tetapi hanya bentuk formula yang di beri nama pada Insert - Name - define.

Sebagai contoh pada file dalam postingan ini, aku menggunakan 3 nama dalam insert name define, yaitu :
1. dgbr, dengan formula yang aku pake

=OFFSET(GBR!$B$1,1,0,COUNTA(GBR!$B:$B)-1,1)

2. lhtgbr, dengan formula yang aku pake

=OFFSET(GBR!$F$3,MATCH(HASIL!$E$7,dgbr,0)-2,0,1,1)

Nach rumus diataslah yang berperan terjadinya lookup gambar berdasarkan nilai pada nama, sedangkan untuk nomor ketiga yaitu NIP, hanya digunakan untuk membuat nama list pada Data Validation.

Langkah Terakhir, untuk menampilkan hasil lookup,insert picture dan beri nama =lhtgbr.

Untuk lebih jelasnya, langsung download filenya disini.

MELIHAT RAMALAN ZODIAK DENGAN EXCEL

karsono.mail@gmail.com (Karsono) — Thu, 28 Apr 2011 19:50:26 PDT

Postingan kali ini merupakan salah satu request dari pembaca blog ini, yang sepertinya menarik untuk diwujudkan, yaitu informasi zodiak yang dibuat dari excel.

Dimana untuk penggunaan dari excel zodiak ini adalah dengan memasukkan tanggal lahir, dengan begitu akan tergenerate beberapa informasi diantaranya :

Usia Anda
Hari Kelahiran berdasarkan perhitungan jawa (Kliwon, Legi, pahing...etc)
Zodiak
Gambar yang akan berubah berdasarkan nama zodiak
Angka Keberuntungan
Sifat Anda
Pasangan yang cocok
Pekerjaan yang cocok
Asmara
Gaya Berciuman berdasarkan zodiak
Gaya Bercinta berdasarkan zodiak

Untuk Excel zodiak ini sendiri aku bikin murni menggunakan formula excel, contohnya untuk mencari Usia, aku pake formula :

=DATEDIF(DATE(Tahun,Bulan,Tanggal),TODAY(),"Y")

Sedangkan untuk mencari hari lahir berdasarkan perhitungan jawa aku menggunakan formula gabungan hari, contohnya :

CHOOSE(WEEKDAY(DATE(N5,L5,J5)),"Minggu","Senin","Selasa","Rabu","Kamis","Jum'at","Sabtu")

formula diatas aku gabung dengan formula hari jawa

=CHOOSE(MOD(DATE(N5,L5,J5),5)+1," Kliwon"," Legi"," Pahing"," Pon"," Wage")

Lalu bagaimana caranya melihat zodiak itu sendiri ? untuk melihat zodiak aku melakukan lookup dari gabungan bulan dan tanggal, dengan tabel dan kode yang telah ditentukan, untuk melihat tabel lookup, masuk ke menu Format > Sheet > Unhide > Data, sedangkan untuk format tanggal sendiri dibuat dengan formulat text "m.d".
Formula pencarian zodiak secara keseluruhan pada intinya adalah seperti rumus dibawah ini

=VLOOKUP(VALUE(TEXT(DATE(N5,L5,J5),"m.dd")),zodiak,10,1)

Mungkin segitu aja postingan ini, sebagai informasi, File Excel zodiak ini sendiri hanya dibuat untuk hiburan saja, jadi ya tidak sesempurna yang diinginkan, apabila ada kesalahan atau masukkan, bisa langsung send email, atau komen-komen dikit juga boleh.

Filenya sendiri bisa di DOWNLOAD di link ini.

GENERATOR FAVICON ICO

karsono.mail@gmail.com (Karsono) — Sat, 01 Oct 2011 08:41:57 PDT

Sehubungan ada beberapa pertanyaan mengenai cara mengubah icon blogger pada browser atau biasa disebut favicon, maka dari itulah aku coba membuat postingan mengenai favicon generator dengan menggunakan php, yang aku masukkan ke blogger dengan menggunakan iframe.
Favicon sendiri sebenernya bisa dibuat langsung dengan file selain ico, tetapi untuk mempercepat load image-nya, lebih baik menggunakan file yang berekstensi ico.

Untuk lokasi hosting file ico sendiri ada beberapa tempat, diantaranya :

sites.google
picpanda

Generator Favicon disini fungsinya akan mengenerate file image dari ekstensi jpg, jpeg, gif, png menjadi file ICO

GENERATOR FAVICON ICO

Lalu bagaimana cara penempatan di blogger ? Coba lihat postingan mengenai cara mengganti icon blogger, yang sudah diupdate.

MENAMPILKAN REAL TIME TWITTER STATUS DI BLOGGER

karsono.mail@gmail.com (Karsono) — Wed, 20 Apr 2011 20:35:23 PDT

Postingan kali ini berkaitan dengan twitter status, dimana hasil yang ingin ditampilkan adalah, update status twitter secara realtime, dengan isi dari status twitter yang berkaitan dengan kata-kata yang telah ditentukan.

misalnya udang dan ikan dimana hasilnya bisa dilihat dari Link DEMO disini.

Untuk cara penerapan di blogger sendiri sangat mudah pertama, masuk ke blogger - Edit HTML
kemudian cari kata

</body>

setelah ketemu, kemudian pastekan kode dibawah ini tepat diatasnya,

proses selanjutnya adalah menambahkan kode Css, Cari kode

]]></b:skin>

lalu copy kode dibawah ini tepat diatasnya

div.rrt-inner{
height:58px;
padding:4px;
overflow:hidden;
}
div.rrt-inner ul{
float:left;
padding:0 0 0 0;
margin:0 0 0 0;
}
div.rrt-inner li{
float:left;
margin:0 0 0 0;
list-style-type:none;
position:relative;
}
div.rrt-inner span.rrt-author-img{
display:block;
width:48px;
height:58px;
margin:0 5px 0 0;
overflow:hidden;
left:0;
position:absolute;
}
div.rrt-inner strong a{
margin-right:5px;
}
div.rrt-inner span.rrt-body {
display:block;
margin-left:55px;
}
div.rrt-inner span.rrt-content{
}
div.rrt-inner span.rrt-meta {
color:#999999;
display:block;
font-size:0.764em;
margin:3px 0 0;
}
div.rrt-inner span.rrt-meta a{
color:#999999;
text-decoration:none;
}
div.rrt-inner span.rrt-meta a:hover{
text-decoration:underline;
}

Setelah itu disimpan...

selanjutnya masuk ke tab menu Page Element - Add Gadget - HTML/Script.
Pada jendela HTML/Script, masukkan kode dibawah ini

Cerita tentang : <a href="http://www.karsono.co.cc" rel="tag">udang</a> dan <a href="http://www.karsono.co.cc" rel="tag">ikan</a><p>
<div class="related-tweets">loading..</div></p>

Yang patut jadi perhatian adalah, sudah pasti link karsono.co.cc ganti sesuai link anda sendiri, sebenarnya link gak begitu pengaruh...
Yang kedua adalah kata rel="tag", nah kode inilah yang mengkondisikan pilihan dari kata-kata yang ingin ditampilkan misalnya kata ikan dan udang.

Maka yang harus dirubah adalah kata udang dan kata ikan

begitu... untuk DEMO-nya bisa dilihat dilink ini

MEMBUAT SCHEDULE DI EXCEL

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:33:12 PDT

Saat ini Aku coba membuat Schedule di excel, dimana bentuk gambarnya bisa dilihat disamping.
Schedule ini aku buat hanya menghitung hari kerja dari senin sampai Jum'at tanpa memperhatikan hari Sabtu dan minggu.

Sistem kerjanya sendiri, hanya melakukan perubahan bulan dan tahun pada cell yang telah ditentukan, dan memasukkan nilai pada cell jobdesk, durasi kerja dan tanggal awal.

Kelebihan dari schedule ini adalah adanya perubahan secara otomatis pada tanggal dan nama hari, serta pengkondisian untuk hari libur (hanya sabtu dan minggu) sesuai perubahan tahun dan bulan yang diinginkan.
Rumus yang aku pake untuk membuat perubahan secara otomatis pada tanggal adalah

=IF(MONTH(DATE($D$2,$D$3,1)-IF(WEEKDAY(DATE($D$2,$D$3,1))<=0,7,0)+(COLUMN(F5)-COLUMN($F$5)))<>MONTH(DATE($D$2,$D$3,1)),"",DAY(DATE($D$2,$D$3,1)-IF(WEEKDAY(DATE($D$2,$D$3,1))<=0,7,0)+(COLUMN(F5)-COLUMN($F$5))))

Sedangkan rumus untuk membuat perubahan secara otomatsi pada nama hari adalah

=IF(ISERROR(WEEKDAY(DATE($D$2,$D$3,F$6))),"",WEEKDAY(DATE($D$2,$D$3,F$6)))

Sedangkan untuk menampilkan range kerja aku menggunakan dua Conditional Formatting,dimana rumus conditional Formatting yang pertama, adalah untuk menandai hari libur (Sabtu dan minggu)

=OR(F$5=7,F$5=1)

yang kedua adalah menampilkan range hari kerja, rumusnya

=AND(DATE($D$2,$D$3,F$6)>=$D7,DATE($D$2,$D$3,F$6)<=WORKDAY($D7,$C7)-1)

Tapi masih ada kekurangnnya ni... bagaimana rumus untuk mencari tanggal akhir dari tanggal awal sampai durasi yang telah ditentukan, tanpa menggunakan macro, jadi bentuk formula excel biasa saja.

Ada yang bisa membantu....??

Untuk Filenya bisa Di DOWNLOAD disini

PILIHAN TAMPILAN BLOGGER TERBARU

karsono.mail@gmail.com (Karsono) — Fri, 01 Apr 2011 01:15:38 PDT

Dear Mas Bro, Sory banget nich gara-gara hosting ane ngedrop, banyak file untuk blog ini yang ilang, maklumlah namanya juga cari yang gratisan, tetapi untungnya ane pake blogger, jadi enaknya postingan ane gak ada yang ilang, cuman ya itu file-file yang mendukung terbitnya postingan ane pada ilang semua... jadi yach butuh beberapa waktu untuk mengembalikan link file-file tersebut... dan mohon maklum adanya.

Jadi kesimpulannya... kalau mau yang gratisan, baik dari blognya, hostingannya ataupun domainnya, saya lebih memilih blogger... mantap dah... selain itu banyak sekali pengembangan widget blogger yang mutahkhir, diantaranya yang terbaru adalah dynamic View dari blogger... untuk Demonya coba lihat di http://www.karsono.co.cc/view.

Disitu ada beberapa pilihan tampilan, untuk menampilkan postingan, yang bisa dipilih pada tombol pilihan di pojok kanan atas yaitu :

Flipcard
Mosaic
Sidebar
Snapshot
Timeslide

Dan kondisi diatas berlaku untuk semua blogger, lalu bagaimana caranya supaya kondisi view dynamic diatas bisa tampil di blog... caranya mudah :

Yang pertama pastikan blog anda di publish untuk umum, jadi user tidak perlu login untuk melihat blog anda
Yang kedua pada blogger Tab Setting --> Site Feed, dan pada pilihan Allow Blog Feed pilih Full
Yang ketiga pada blogger Tab Setting --> Formatting. dan pada pilihan Enable Dynamic Views pilih Yes

Setelah semuanya sesuai, langkah selanjutnya adalah ketikkan alamat blog anda ditambah link /view hasilnya : http://alamatbloganda/view dan contohnya untuk blog ini adalah http://www.karsono.co.cc/view

Lihat hasilnya, sedangkan untuk masalah file yang belum diupdate, saat ini sedang di poses

SEARCH ENGINE MP3 GRATIS

karsono.mail@gmail.com (Karsono) — Mon, 25 Apr 2011 05:32:08 PDT

Coba bikin postingan untuk Search Engine MP3 yang baru dibikin KOMP3.CO.TV, dimana dalam search engine tersebut, kita bisa langsung, mendengarkan, mendownload atau meletakkan musik di blog kita secara gratis.

Berbicara mengenai musik, banyak diantara kita sudah mengetahui bahwa musik dapat membantu kinerja otak, bahkan di beberapa penelitian menyatakan bahwa otak dapat membantu menyembuhkan beberapa penyakit, diantaranya :

Sakit Gigi.

Berdasarkan penelitian dari Cleveland Clinic, dengan mendengarkan musik yang sesuai dengan mood kita selama satu jam sehari, bisa mengurangi rasa sakit gigi sebanyak 20%.
Susah Tidur.

Dengan terapi musik pada saat mau tidur dapat meningkatkan kadar melatonin, yaitu zat kimia otak yang mampu mendorong untuk tidur nyenyak
Mengurangi Stress

Dengan mendengarkan lagu yang sesuai dengan selera selama 10 s/d 20 menit tanpa gangguan akan membantu memperbaiki mood.

Terlebih ketika sedang stress pada saat blogging atau browsing untuk mencari formula yang tepat bagi tampilan blog dan sangat disarankan sambil mendengarkan musik.

Berdasarkan pengalaman pribadi mendengarkan musik pada saat blogging atau browsing akan lebih meningkatkan fokus otak, dan mengurangi rasa lelah.

Apabila tidak ada musik atau bosan dengan musik di komputer pribadi, tidak ada salahnya mendengarkan musik secara online, Salah satunya di KOMP3.CO.TV

MEMBUAT HTML CONVERTER DI BLOGGER

karsono.mail@gmail.com (Karsono) — Wed, 20 Apr 2011 20:15:55 PDT

Pasti sudah banyak yang tahu mengenai HTML Converter atau Parse kode HTML ini.

Pada umumnya HTML Converter digunakan di blogger, adalah untuk menampilkan bentuk kode HTML yang sebenarnya pada postingan blog.

Yang membuat perbedaan dengan beberapa HTML converter lain adalah HTML Converter di bawah bisa mengembalikan kode HTML yang sudah di parse, kembali ke kode awal.

Cobalah untuk berinteraksi... dengan tool di bawah ini dengan melakukan copy kode dibawah ini ke dalamnya.

<a href="http://www.karsono.co.cc">

MENU ACCORDIAN DENGAN CSS3

karsono.mail@gmail.com (Karsono) — Mon, 19 Sep 2011 09:22:39 PDT

Untuk membuat menu accordian dengan css3, sistemnya hampir sama dengan postingan membuat sub menu dengan css3,
jadi disini aku gak akan jelasin dari awal, tetapi hanya akan aku tampilkan kode HTML maupun CSS3-nya.

Untuk melihat DEMO-nya bisa dilihat di Link ini.

Hal pertama adalah membuat kode HTML-nya seperti dibawah ini :

<ul id="menuq-wrap">
<li class="menuq">About Me
<ul>
<li><a href="http://id-id.facebook.com/karsono.sajah">Facebook</a></li>
<li><a href="http://twitter.com/#!/karsono">Twitter</a></li>
<li><a href="http://id.linkedin.com/in/karsono">Linkedin</a></li>
</ul>
</li>
<li class="menuq" style="border-top:1px solid #000; border-bottom:1px solid #000">Kategori
<ul>
<li><a href="http://www.karsono.co.cc/search/label/ACCES">Acces</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Curahan%20Hati">Curahan Hati</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Domain%20dan%20Host%20Gratis">Domain dan Host Gratis</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Free%20Template">Free Template</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Generator%20Kode%20HTML">Generator Kode HTML</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Macro%20Excel">Macro Excel</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Tips%20Excel">Tips Excel</a></li>
<li><a href="http://www.karsono.co.cc/search/label/Trick%20Blog">Trick Blog</a></li>
</ul>
</li>
<li class="menuq">Another Blog
<ul>
<li><a href="http://twittin.blogspot.com">Twittin</a></li>
<li><a href="http://forum.karsono.co.cc">Forum</a></li>
<li><a href="http://www.sedulur.co.cc">sedulur</a></li>
</ul>
</li>
</ul>

Selanjutnya, tinggal memasang kostumnya, dengan kode css, seperti dibawah :

#menuq-wrap { background: #F6F5F1; margin: 50px 0 0 0; width: 190px; border:1px solid #ccc; -moz-border-radius: 15px;
border-radius: 15px; padding-bottom:10px; -moz-box-shadow: -5px -5px 5px #888; -webkit-box-shadow: -5px -5px 5px #888; box-shadow: -5px -5px 5px #888;}
.menuq { padding-left:10px; margin-left:-30px; background: #F6F5F1;overflow: hidden;-webkit-transition: height 1s ease-in-out; font-size: 22px; font-weight: bold; color: #000; cursor: pointer; height: 50px; width: 200px; line-height: 50px;}
.menuq:hover { height: 208px;}
.menuq ul li{list-style: none; margin: 2px 0 0 -50px; }
.menuq ul li a{ background: #8bb2cf; padding-left:10px; display: block; height: 50px; width: 200px; text-decoration: none; font-weight: normal; }
.menuq ul li a:hover{ color:#fff; background:#CC716A; -webkit-transition: padding 1s ease-in-out; padding-left: 50px;}

Selesai, untuk hasil yang memuaskan, bisa dilihat pada browser google chrome... karena pada kode CSS3, aku pake kode transition, jadi akan lebih atraktif bila dilihat pada google chrome... hidup google.

MEMBUAT SUB MENU DI BLOGGER

karsono.mail@gmail.com (Karsono) — Mon, 19 Sep 2011 09:22:02 PDT

Postingan kali ini bercerita tentang sub menu atau dropdown menu dengan menggunakan CSS3, dari beberapa rekan yang baru saat ini bisa saya jawab.
Sebelumnya saya mohon maaf, dikarenakan banyaknya email dan pertanyaan yang masuk, yang mengakibatkan ada beberapa pertanyaan yang belum terjawab, mohon maklum adanya.

Saya akan coba buat dari dasar HTML sampai Customize sub menu-nya.
1. Hal pertama yang harus dilakukan adalah membuat kode HTML seperti dibawah ini.

<ul id="menuq">
    <li><a href="http;//www.karsono.co.cc">Home</a></li>
    <li><a href="#">About Me &gt;</a>
        <ul>
            <li><a href="http://id-id.facebook.com/karsono.sajah" target="_blank">Facebook</a></li>   
            <li><a href="#">Profile &gt;</a>
    <ul>
                    <li><a href="http://id.linkedin.com/in/karsono" target="_blank">Linkedin</a></li>
                    <li><a href="http://www.visualcv.com/p1rx4tg" target="_blank">VisualCV</a></li>
               </ul>
   </li>
            <li><a href="http://twitter.com/#!/karsono" target="_blank">Twitter</a></li>
        </ul>
    </li>
    <li><a href="http://www.karsono.co.cc/2010/06/email-me.html" target="_blank">Email</a></li>
</ul>

dimana hasilnya akan terlihat seperti demo disini.

2. Dalam demo tersebut kondisi dari menu masih berbentuk html standar, lalu saya akan coba tambahkan beberapa kode CSS yang akan menampilkan animasi dengan hover untuk menampilkan atau menyembunyikan list dari menu, kode CSS-nya:

#menuq { list-style-type: none; height: 40px; padding: 0; margin: 0; }
#menuq li ul { display: none; }
#menuq li:hover ul{display: block; }
#menuq li:hover ul li ul{display: none; }
#menuq li ul li:hover ul { position:relative; top:-30px; left:8em; display: block; }
#menuq li ul li{ height: 30px; line-height: 30px; }

dimana hasilnya akan terbentuk seperti Demo ini.

3. Dengan melihat hasil dari demo pada langkah kedua, berarti tinggal dibuat custom warna dari menu supaya menarik, caranya tinggal ditambahkan kode css menu dibawah

#menuq li { float: left; position: relative; padding: 0; line-height: 40px; background: #F6F5F1; }
#menuq li:hover { background-position: 0 -40px; }
#menuq li a { display: block; padding: 0 15px; color: #000; text-decoration: none; }
#menuq li a:hover { background:#CC716A; color: #fff; }
#menuq li ul { opacity: 0; position: absolute; left: 0; width: 8em; background:#CCD5E2; list-style-type: none; padding: 0; margin: 0; }
#menuq li:hover ul { opacity: 1; }
#menuq li ul li { float: none; position: static; height: 0; line-height: 0; background: none; }
#menuq li:hover ul li { height: 30px; line-height: 30px; }
#menuq li ul li a { background: #F6F5F1; }
#menuq li ul li a:hover { background:#CC716A; }

sampai disini sub menu dengan css3 sudah berhasil dibuat, hasilnya bisa dilihat DEMO disini.

4. Langkah keempat ini berbentuk pilihan, dimana kode CSS3 ini dibuat untuk menghasilkan animasi menu yang lebih menarik lagi, jadi gak dipake juga gak masalah, caranya tinggal ditambahkan saja kode seperti dibawah ini.

#menuq li { -webkit-transition: all 0.2s; }
#menuq li a { -webkit-transition: all 0.5s; }
#menuq li ul { -webkit-transition: all 1s; }
#menuq li ul li { -webkit-transition: height 0.5s; }

hasil dari sub menu ini, secara keseluruhan akan terlihat seperti DEMO disini.

sedangkan untuk kode-nya secara keseluruhan bisa langsung digunakan di blogger, pilih pada menu Design >> Page Elements >> Add a Gadget >> pilih HTML/Script dan pastekan kode dibawah ini tepat dibawah header.
Tentunya untuk penempatan harus disesuaikan dengan design dari template blog itu sendiri, jadi harus di custom lagi supaya letak dan posisinya pas dan sesuai dengan template blog yang ada.

<style type="text/css">
#menuq { list-style-type: none; height: 40px; padding: 0; margin: 0; }
#menuq li ul { display: none; }
#menuq li:hover ul{display: block; }
#menuq li:hover ul li ul{display: none; }
#menuq li ul li:hover ul { position:relative; top:-30px; left:8em; display: block; }
#menuq li ul li{ height: 30px; line-height: 30px; }
#menuq li { float: left; position: relative; padding: 0; line-height: 40px; background: #F6F5F1; }
#menuq li:hover { background-position: 0 -40px; }
#menuq li a { display: block; padding: 0 15px; color: #000; text-decoration: none; }
#menuq li a:hover { background:#CC716A; color: #fff; }
#menuq li ul { opacity: 0; position: absolute; left: 0; width: 8em; background:#CCD5E2; list-style-type: none; padding: 0; margin: 0; }
#menuq li:hover ul { opacity: 1; }
#menuq li ul li { float: none; position: static; height: 0; line-height: 0; background: none; }
#menuq li:hover ul li { height: 30px; line-height: 30px; }
#menuq li ul li a { background: #F6F5F1; }
#menuq li ul li a:hover { background:#CC716A; }
#menuq li { -webkit-transition: all 0.2s; }
#menuq li a { -webkit-transition: all 0.5s; }
#menuq li ul { -webkit-transition: all 1s; }
#menuq li ul li { -webkit-transition: height 0.5s; }
</style>

<ul id="menuq">
    <li><a href="http;//www.karsono.co.cc">Home</a></li>
    <li><a href="#">About Me &gt;</a>
        <ul>
            <li><a href="http://id-id.facebook.com/karsono.sajah" target="_blank">Facebook</a></li>   
            <li><a href="#">Profile &gt;</a>
    <ul>
                    <li><a href="http://id.linkedin.com/in/karsono" target="_blank">Linkedin</a></li>
                    <li><a href="http://www.visualcv.com/p1rx4tg" target="_blank">VisualCV</a></li>
               </ul>
   </li>
            <li><a href="http://twitter.com/#!/karsono" target="_blank">Twitter</a></li>
        </ul>
    </li>
    <li><a href="http://www.karsono.co.cc/2010/06/email-me.html" target="_blank">Email</a></li>
</ul>

Demikian postingan ini, semoga menjawab beberapa pertanyaan yang belum sempet terbalas.

MEMBUAT TOMBOL DONASI DENGAN JQUERY

karsono.mail@gmail.com (Karsono) — Sat, 12 Mar 2011 05:36:10 PST

Banyak blog yang menyediakan kata donasi sebagai sumber pemasukan dari blog, Sebenernya aku kurang begitu sreg dengan kata donasi di blog, tetapi apa salahnya jika donasi tersebut diperuntukkan bagi orang-orang yang membutuhkan.

Lalu bagaimana kita membuat donasi itu sendiri ?, banyak sekali caranya, bisa langsung ditampilkan no rekening bank, supaya orang bisa langsung transfer, atau bisa dengan paypal.

Untuk paypal sendiri sebenernya sudah menyediakan code yang menampilkan tombol donasi, linknya bisa dilihat di https://www.paypal.com/cgi-bin/webscr?cmd=_pdn_donate_techview_outside.

Tetapi kali ini berdasarkan, sumber dari flowdrops, saya ingin menampilkan postingan yang membuat user bisa langsung memasukkan nilai donasi sebelum link ke paypal, Contoh DEMO-nya bisa dilihat disini lalu bagaimana caranya.

Cara termudahnya adalah klik tombol blogger dibawah ini, kemudian login dan pilih blog anda.

Atau anda bisa ikuti cara dibawah ini.
1. Anda harus mempunyai account paypal tentunya.
2. Login ke blogger, pilih Menu Design >> Page Elements
3. Klik Add Gadget dan pilih HTML/Script
4. Masukkan kode dibawah ini ke dalamnya.

yang patut jadi perhatian adalah kode yang berwarna merah, ganti value tersebut menjadi alamat paypal anda.

Semoga postingan ini bermanfaat bagi semua...

MEMBUAT NUMBER PAGE NAVIGATION DI BLOGGER

karsono.mail@gmail.com (Karsono) — Fri, 01 Apr 2011 02:07:08 PDT

Barusan Pas lihat template Valentine ane ngedapetin image yang ngelink ke imagehack pada ngeblank semua.... permasalahannya karena aku belum register ke imageshack untuk hosting image, jadi yach terpaksa aku update ulang link-nya make photobucket...

Sekalian update link image pada template valentine, aku juga tambahin number page navigation, dimana pada standar blogger secara default hanya akan terlihat link Posting lama dan posting baru yang terletak di bawah postingan, sehingga pengunjung akan susah melihat link postingan sebelumnya, apabila postingannya banyak.

Number page navigation ini dikembangkan oleh Muhammad Rias dari Techie Blogger dan disempurnakan oleh Abu Farhan, dimana hasilnya bisa dilihat pada DEMO Template Valentine.

Hal pertama yang harus dilakukan adalah, backup dulu template blog-nya untuk menghindari hal-hal yang tidak diinginkan.

1. Kemudian Login ke blogger dan pilih menu Setting >> Formmating dan pada pilihan show post pilih 5 post

2. Selanjutnya pilih menu Design >> Edit HTML dan jangan lupa centang Expand Widget Templates.

3. Langkah selanjutnya cari kode

]]></b:skin>

kemudian posisikan kode css dibawah ini tepat diatasnya

.showpageArea a {
text-decoration:underline;
}
.showpageNum a {
text-decoration:none;
border: 1px solid #cccccc;
margin:0 3px;
padding:3px;
}
.showpageNum a:hover {
border: 1px solid #cccccc;
background-color:#cccccc;
}
.showpagePoint {
color:#333;
text-decoration:none;
border: 1px solid #cccccc;
background: #cccccc;
margin:0 3px;
padding:3px;
}
.showpageOf {
text-decoration:none;
padding:3px;
margin: 0 3px 0 0;
}
.showpage a {
text-decoration:none;
border: 1px solid #cccccc;
padding:3px;
}
.showpage a:hover {
text-decoration:none;
}
.showpageNum a:link,.showpage a:link {
text-decoration:none;
color:#333333;
}

4. Setelah itu, cari lagi kode,

</body>

dan pastekan kode dibawah ini tepat diatasnya,

<b:if cond='data:blog.pageType != "item"'>
<b:if cond='data:blog.pageType != "static_page"'>
<script type='text/javascript'>
var pageCount=5;
var displayPageNum=5;
var upPageWord ='Previous';
var downPageWord ='Next';
</script>
<script src='http://daffa.googlecode.com/files/page_navigation.txt' type='text/javascript'/>
</b:if>
</b:if>

5. Sekarang kita cari lagi kode link untuk label

'data:label.url'

setelah ketemu ganti kode diatas atau replace saja dengan kode dibawah :

'data:label.url + "?&max-results=5"'

6. Selesai.

Sedikit penjelasan dan yang patut menjadi perhatian adalah kode dibawah ini;

var pageCount=5;

kode ini akan menentukan jumlah posting yang akan ditampilkan per halamannya, dan tentunya juga harus disesuaikan setting show post formatting seperti pada langkah pertama.

var upPageWord ='Previous';
var downPageWord ='Next';

Dan kode diatas tentunya sudah tahu akan bentuk hasilnya dan bisa diganti sesuai keinginan.
Nach begitu saja postingan kali ini, semoga ada manfaatnya.

MEMBUAT INPUT SHEET FORM

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:28:36 PDT

Akhirnya ada waktu luang untuk membuat postingan lagi, dan sekarang kembali lagi posting hal yang berkaitan dengan excel.

Biasanya aku membuat posting excel mengenai entry data dengan userform, tetapi untuk posting kali ini, aku membuat entri data worksheet.

Pada input di worksheet ini aku memakai beberapa validasi pada worksheet diantaranya, pada kategori input email aku memakai validasi supaya user harus melakukan input kata-kata yang ada tanda @, rumus validasinya,

=NOT(ISERROR(FIND("@",D7,1)))

kemudian pada kategori input no telepon aku memakai validasi, supaya hanya number saja yang bisa diinput, rumus validasinya.

=ISNUMBER(F5)

sisanya hanya validasi standar, yaitu hanya berdasarkan validasi list.

Untuk kode makronya sendiri bisa dilihat dibawah ini

Option Explicit
Sub inputsheetform()
    
Dim ws As Worksheet
Dim anum As Long
Dim nextRow As Long
Dim i As Long
Dim rng1 As Range
Dim rngCp As String
Dim rng2 As Range
    
rngCp = "D5,D7,F5,F7,G7,H7" 'range input cell
Set ws = Sheets("input")
nextRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Offset(1, 0).Row
anum = ws.Cells(ws.Rows.Count, "B").End(xlUp).Offset(1, 0).Row

'peringatan apabila cell input ada yang kosong
With ws
    Set rng1 = .Range(rngCp)
    If Application.CountA(rng1) <> rng1.Cells.Count Then
        MsgBox "Input Form diisi semua yach...!"
        Exit Sub
    End If
End With

'melakukan input data
With ws
'membuat auto number
    If IsEmpty(.Range("B18")) Then
        .Range("B18") = 1
    Else
        .Range("B" & anum).Value = .Range("B" & anum).Offset(-1, 0) + 1
    End If
'input data sesuai range input cell
    i = 3
    For Each rng2 In rng1.Cells
        .Cells(nextRow, i).Value = rng2.Value
        i = i + 1
    Next rng2
End With
    
'menghapus content di cell input
With ws
    On Error Resume Next
    With .Range(rngCp).Cells.SpecialCells(xlCellTypeConstants)
        .ClearContents
        Application.GoTo .Cells(1)
    End With
    On Error GoTo 0
End With
End Sub

Nach demikianlah postingan ini berakhir, mudah-mudahan ada manfaatnya.
Seperti biasa kalau mau lihat contoh file-nya bisa di DOWNLOAD disini

TEMPLATE BLOG VALENTINE

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:23:59 PDT

Hari ini tanggal 13 February 2011, dimana sehari lagi mendekati hari Valentine atau hari kasih sayang.

Dari dulu aku belum pernah namanya merayakan yang namanya hari kasih sayang, baik dalam berbagai bentuk apapun.

DEMO - DOWNLOAD

Bahkan mantan pacar, yang sekarang jadi istri aja, sampe kesel, karena katanya gak ada perhatiannya sama sekali.

Tapi ya sudahlah gak usah dibahas... yang penting saat ini.. aku coba pengen ngikutin hari valentine day, dengan cara yang berbeda, yaitu membuat template blog yang bernuansa Valentine... he... he... ga modal.

Kelebihan dari template blog ini adalah adanya script yang akan selalu meng-update secara realtime dan bergantian, kalimat yang ada kandungan kata cinta, kasih sayang dan valentine, yang bersumber dari twitter.

Selain itu kelebihannya lagi adalah navigasi menu ribbon, yang murni dibuat dari CSS3, dan masih banyak lagi.

Tidak usah banyak kata... langsung saja lihat DEMO, Special thx for my wife.... ciahh

ANIMASI MOBIL AVANZA 2007 DENGAN CSS3

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:19:08 PDT

Sehubungan ane lagi jualan mobil Avanza 2007, sekalian promosi, ane mo bikin postingan mengenai cara membuat Animasi Mobil Avanza dengan CSS3 murni, contohnya bisa dilihat pada link DEMO ini.

Dimana ketika mouse berada di area mobil avanza tersebut maka mobil akan berjalan ke depan dengan roda yang berputar.

Animasi Mobil ini sebenernya juga bisa dijadikan sebagai banner, tetapiSeperti biasa CSS3 ini hanya support untuk browser Google Chrome, dan firefox 4, dll.

Langsung saja, untuk kode CSS3-nya adalah :

#avanza_back{ margin:0px auto;
height:195px; float:right;
background:url(http://i608.photobucket.com/albums/tt169/karsono29/back3.png) 107px 45px no-repeat}
#avanza{background:url(http://i608.photobucket.com/albums/tt169/karsono29/avanza.gif) center no-repeat;
height:190px; width:425px; border:0px solid red;-webkit-transition:all 0.75s ease-in-out; position:relative; margin:0px auto}
#avanza:hover{-webkit-transform:translate(-26em,0)}
.roda{width:63px;
height:63px;margin:0px auto;
-webkit-transition:all 0.75s ease-in-out;
bottom:0px;left:16px;
position:absolute;
border:0px !important}
.roda2{width:63px;height:63px;
margin:0px auto;
-webkit-transition:all 0.75s ease-in-out;
bottom:0px;right:45px;
position:absolute;
border:0px !important}
#avanza:hover .roda,#avanza:hover .roda2{-webkit-transform:rotate(-360deg)}

Selanjutnya tinggal bikin kode html-nya seperti dibawah ini :

Demikian postingan ini berakhir... kalau ada yang berminat jangan sungkan... langsung tancap

GENERATOR CSS3 MENU DI BLOGGER

karsono.mail@gmail.com (Karsono) — Sun, 06 Feb 2011 02:11:46 PST

Akhirnya, setelah beberapa hari memeras otak dan keringat tercipta juga generator menu css3 ini.
Dimana Generator menu ini merupakan versi yang kedua dari Generator menu sebelumnya, dimana tampilan dan perubahan dari menu bisa langsung dilihat.

Generator ini aku buat berdasarkan gabungan script dari Jstorage dan css-tricks dan dilakukan pengolahan script supaya hasilnya seperti terlihat di bawah ini.

GENERATOR MENU CSS3

NAMA MENU	LINK MENU
		TAMBAH

Top Gradient Color

Bottom Gradient Color

Top Border Color

Hover Background Color

Text Color

Hover Text Color

Active Background Color

Lihat Hasil Kodenya

</div>

MEMBUAT BANNER ANIMASI CSS3 DI BLOGGER

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:08:04 PDT

Apa sich gunanya ngeblog... ga ada untungnya sama sekali...? itu merupakan salah satu kata-kata yang pernah aku terima, kalau dipikir-pikir keuntungan ngeblog sendiri tergantung dari sisi mana orang ngeliatnya.

Kalau secara batin, jelas menguntungkan, karena ngeblog itu sudah bisa dikatakan sebagai hobi, sedangkan kalau dilihat dari sisi keuntungan material, ngeblog itu membutuhkan biaya yang lebih dan proses yang panjang, sehingga keuntungan dari sisi material bisa tercapai, tetapi hal tersebut tergantung juga dari sisi jiwa para bloggernya, apakah matre atau tulus untuk pengetahuan....

Kalau ngomongin masalah itu ribet dah pokoknya, karena sudah berhubungan dengan prinsip seseorang...

Nach... berhubung ngomongin keuntungan ngeblog, berikut ini saya akan coba membuat, salah satu keuntungan dari ngeblog, yaitu dengan memasang iklan banner, dengan sentuhan animasi murni dari kode CSS3, di blogger, contohnya bisa dilihat pada DEMO disini.

Sebelumnya aku juga sudah pernah membuat posting mengenai iklan di tengah postingan, yang mungkin bisa dijadikan referensi.

Cara membuat banner animasi dengan CSS3, sangatlah mudah, dikarenakan seperti postingan saya sebelumnya mengenai CSS3, Kode yang diperlukan sangat murni dari kode CSS3, jadi tidak ada tambahan script yang lain.

Hal pertama yang diperlukan adalah membuat kode CSS3-nya, dimana kode ini penempatannya pada blogger adalah diatas kode

]]></b:skin>

Untuk Animasi Banner CSS3 sendiri, saya buat menjadi beberapa animasi saja, sisanya mungkin bisa dilanjutkan lain kali.

1. Animasi Zooming CSS3 Banner
kode CSS3-nya :

#zoom{position:relative; height:125px;width:125px;}
#zoom img{position:absolute;left:0;-webkit-transition:all 0.5s ease-in-out}
#zoom img.awal{-webkit-transform:scale(0,0);}
#zoom:hover img.awal{-webkit-transform:scale(1,1);-webkit-transform-origin:center}
#zoom:hover img.akhir{-webkit-transform:scale(0,0);-webkit-transform-origin:center}

2. Animasi Rotasi CSS3 Banner
kode CSS3-nya :

#rotasi{ position:relative; height:125px; width:125px;}
#rotasi img{ position:absolute; left:0;-webkit-transition:all 0.5s ease-in-out;}
#rotasi img.awal{-webkit-transform:scale(1,0);}
#rotasi:hover img.awal{-webkit-transform:scale(1,1)}
#rotasi:hover img.akhir{-webkit-transform:rotate(360deg) scale(0,0)}

3. Animasi Slide Horisontal CSS3 Banner
kode CSS3-nya :

#horisontal{ position:relative; height:125px; width:125px; overflow:hidden;}
#horisontal img{ position:absolute; left:0;-webkit-transition:all 0.5s ease-in-out;}
#horisontal:hover img.awal{-webkit-transform:scale(1,1)}
#horisontal:hover img.akhir{-webkit-transform:translate(125px,0)}

4. Animasi Slide Vertikal CSS3 Banner
kode CSS3-nya :

#vertikal{ position:relative; height:125px; width:125px; overflow:hidden;}
#vertikal img{ position:absolute; left:0;-webkit-transition:all 0.5s ease-in-out;}
#vertikal:hover img.awal{-webkit-transform:scale(1,1)}
#vertikal:hover img.akhir{-webkit-transform:translate(0,125px)}

Dan sedikit informasi, kode yang membuat animasi berjalan sesuai dengan perintah intinya adalah yang diberi warna merah.

Setelah itu, kita bikin kode HTMLnya, dimana kode ini bisa diletakkan pada ADD Gadget, sedangkan untuk posisinya, dilihat yang paling pas di sebelah mana.

Untuk posisi banner disini saya sesuaikan dengan kondisi banner di blog ini dengan menggunakan table... dan kode html yang membuat banner animasi berfungsi adalah kode yang diberi warna merah...

Demikianlah sehingga keuntungan material dari blogger bisa tercapai, tetapi tidak ada keuntungan yang bisa melebihi dari ucapan terima kasih.

MEMBUAT ANIMASI TIAP WIDGET DI SIDEBAR BLOGGER

karsono.mail@gmail.com (Karsono) — Tue, 25 Jan 2011 21:29:17 PST

Sehubungan banyaknya permintaan untuk posting mengenai Animasi widget di sidebar yang bisa bergerak-gerak ketika mouse berada diatasnya, seperti halnya contoh widget sidebar blog ini, maka terciptalah postingan ini.

Sebenernya caranya cukup mudah dan kode yang perlu di rehab juga cuman kode CSS-nya saja, yaitu dengan menggunakan kode CSS3, Tetapi ada kekurangannya juga, karena hanya browser terbaru yang support CSS3, coba lihat link tabel di www.findmebyip.com, untuk mengetahui browser apa saja yang support CSS3.

Hal pertama yang harus dilakukan adalah mencari id dari tiap widget, yang ada di sidebar, caranya, buka Blogger --> Design --> Edit HTML, kemudian cari kode :

<div id='sidebar-wrapper'> ini untuk kode css template yang lama atau
<b:section-contents id='sidebar-right-1'> dan kode sebelah ini untuk template baru yang sidebar-nya ada disebelah kanan, pada intinya cari kode yang hampir sama dengan kode tersebut, atau langsung cari kode dibawah.

Setelah ketemu kemudian coba lihat kode dibawahnya, dan cari kode dibawah ini.

<b:widget id='Followers1' locked='false' title='Followers' type='Followers'/>
<b:widget id='BlogArchive1' locked='false' title='Blog Archive' type='BlogArchive'/>

Kode diatas merupakan beberapa kode widget yang biasanya selalu ada di sidebar untuk menampilkan widget Follower dan widget Archive.
Untuk melihat id widget diatas coba perhatikan kode yang diberi warna merah, nach kode itulah yang disebut id dari widget.

Untuk lebih memudahkan, saya hanya ambil dua widget saja sebagai contoh.

Setelah mengetahui ID dari tiap widget, tinggal dibuat kode CSS3-nya.

#Followers1{
border:2px solid #fff;
padding:5px;
background:#C2E4F1;
margin:0px 0px 10px 0px;
-webkit-transition:all 0.5s ease-in-out;
-webkit-transform:rotate(-2deg);
}

#BlogArchive1 {
border:2px solid #fff;
padding:5px;
background:#C4C5D7;
margin:0px 0px 10px 0px;
-webkit-transition:all 0.5s ease-in-out;
-webkit-transform:rotate(2deg);
}

#BlogArchive1:hover,#BlogArchive1.hover_effect,
#Followers1:hover,#Followers1.hover_effect{
-webkit-transform:rotate(0deg);
}

Selanjutnya copy kode CSS3 diatas, dan paste-kan tepat diatasnya kode dibawah ini:

]]></b:skin>

Simpan dan lihat hasilnya.

Yang patut jadi perhatian, adalah kode CSS3 yang berwarna merah, nach kode itulah yang membuat animasi dari tiap widget menjadi bergerak.

Sedikit penjelasan :

transition:all 0.5s ease-in-out; --> kode ini untuk mengatur kecepatan pergerakan animasi
transform:rotate(2deg); --> kode ini untuk mengatur rotasi dari area widget
transform:rotate(0deg); --> kode ini untuk mengembalikan rotasi kembali ke awal

Setelah berhasil, coba cari id widget yang lain dan bikin animasinya, dengan menggunakan kode CSS3 seperti diatas, atau cobalah bereksperimen, dengan merubah kode-kode diatas.

QUERY DATA DI EXCEL DENGAN KODE SQL

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 08:03:00 PDT

sebelumnya aku pernah membuat postingan mengenai MEMBUAT QUERY DI EXCEL, tetapi dalam postingan tersebut prosesnya hanya menampilkan kode sql dari hasil query secara manual di excel.

Nach... Sekarang bikin lagi tulisan mengenai query data di excel dengan kode sql yang ada di cell dan bisa diotak-atik serta tampilan hasil query juga di berada di range yang telah ditentukan.

Untuk melakukan proses ini ada beberapa tahap yang harus dilakukan...

Memberikan nama Database yang ada dengan cara Insert --> Name --> Define, ketikkan Nama Database pada Names in workbook dan pilih range pada Refers To
Dalam hal ini dibuat dua database dengan nama DATA1 dan DATA2
pada Jendela Makro pilih menu Tools --> Reference --> Centang Microsoft ActiveX Data Objects 2.5 Library

setelah itu insert module dan masukkan kode makro di bawah ini

Public Sub QueryWorksheet(szSQL As String, rgStart As Range, wb As String)
Dim rsData As ADODB.Recordset
Dim Koneksi As String
On Error GoTo ErrHandler
Application.StatusBar = "Data Sedang di Proses ....."
'setting koneksi dengan workbook master
Koneksi = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & wb & ";" & _
"Extended Properties=Excel 8.0;"

Set rsData = New ADODB.Recordset

rsData.Open szSQL, Koneksi, adOpenForwardOnly, adLockReadOnly, adCmdText

'Cek data paling akhir
If Not rsData.EOF Then
'memasukkan data yang ada
rgStart.CopyFromRecordset rsData
Else
MsgBox "Tidak ada data yang harus diquery", vbCritical
End If
'menutup koneksi
rsData.Close

Set rsData = Nothing
Application.StatusBar = False
Exit Sub
ErrHandler:
'Jika ada kesalahan kode query
MsgBox "Query tidak bisa dilakukan, coba cek sql statement-nya"
Set rsData = Nothing
Application.StatusBar = False
End Sub

Sub testsql()
Dim rgdatasql As Range
Dim rgcodesql As String
rgcodesql = Range("B3").Text 'range untuk kode sql
Set rgdatasql = Range("B9") 'range untuk data hasil query sql

rgdatasql.Resize(30, 4).ClearContents 'menghapus data hasil query
'menampilkan hasil query sesuai dengan kode sql yang ada
QueryWorksheet rgcodesql, rgdatasql, ThisWorkbook.FullName

End Sub

Sub resik()
Dim rgdatasql As Range
Set rgdatasql = Range("B9")
'menghapus data di range B9 s/d e38
rgdatasql.Resize(30, 4).ClearContents
End Sub

Untuk melihat contoh file-nya bisa DOWNLOAD disini.

Kode ini aku dapatkan pada saat browsing diineternet, cuman aku lupa linknya dimana.. padahal bagus tuch... karena file ini aku temuin pada saat bersih-bersih folder komputer... yach supaya gak lupa dan ilang lagi... aku bikin postingan aja.

Minimalisasi Keterbatasan Waktu Dengan Online Album Masa Lalu

karsono.mail@gmail.com (Karsono) — Sat, 12 Feb 2011 16:53:21 PST

Kali ini aku hanya ingin sekedar posting saja.. mengenai hal-hal yang berkaitan dengan lingkungan sekitar... dimana anak gue tinggal... bermain... tertawa... menangis...

Dan selalu memberikan kebahagiaan yang tak bisa diungkapkan dengan kata-kata... baik pada saat gue lagi senang maupun susah... Semua persoalan yang ada, bagaikan lenyap tak berbekas ketika sedang bersama anak gue.

Banyak orang bilang Orang tua didalam membesarkan anaknya tidak menginginkan imbalan apapun... tetapi sebagai orang tua... gue merasa sudah mendapatkan imbalan yang lebih dari sekedar hitungan uang, yaitu kebahagiaan...

Waktu disaat melihat pertumbuhan anak, yang terasa begitu cepat... seakan tidak ingin gue lewatkan sedetikpun.... dan serasa ingin sekali mengulang waktu tersebut...

Tapi.. yach aku hanya bisa melihat dari gambar, akan kejadian yang telah berlalu... dan selalu... selalu disetiap waktu...

Dan untungnya di internet ini banyak sekali, online album yang bisa dijadikan personal web album... dimana dan kapan saja, asalkan terkoneksi dengan internet... gue bisa mengenang masa-masa kebahagiaan bersama anak gue...

Salah satunya gue bikin album web dengan contoh hasilnya seperti link disamping Daffa album Demo, untuk alamat webnya sendiri ada di www.Jalbum.net... dimana aku tidak perlu bersusah payah, melihat kode script yang melelahkan mata.

Sebenernya banyak sekali, album web online, dimana gue bisa membuat album dan edit photo secara online... untuk melihat list alamat album web online bisa langsung dilihat di album web direktori yahoo...

Mohon maaf... apabila ada yang tidak berkenan dengan postingan ini... tetapi hanya disinilah untuk saat ini, tempat dimana celaan, hinaan dan pujian yang gue dapatkan hanya diungkapkan dengan kata.... dan akhirnya tetap kebahagiaan yang gue dapatkan...he...

ANIMASI SCROLL ATAS DAN BAWAH PADA BLOGGER

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 07:54:38 PDT

Nach kali ini kembali lagi ke postingan mengenai blogger.. yang berkaitan dengan cara scroll keatas dan kebawah pada blog dengan menggunakan animasi jquery, dengan sekali klik.
Caranya cukup sederhana, tinggal ikutin proses dibawah ini....

Yang pertama harus dilakukan adalah buka Blogger - Design - Edit HTML

Langkah selanjutnya copy kode javascript dibawah ini tepat diatasnya kode </body>

<div style="display:none;" class="atas" id="atas"></div>
<div style="display:none;" class="bawah" id="bawah"></div>

<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js' type='text/javascript'/> <script text="text/javascript">
$(function() {
var $elem = $('#outer-wrapper');
$('#atas').fadeIn('slow');
$('#bawah').fadeIn('slow');
$('#bawah').click(
function (e) {$('html, body').animate({scrollTop: $elem.height()}, 800);});
$('#atas').click(
function (e) {$('html, body').animate({scrollTop: '0px'}, 800);});
});
</script>

Alasan kenapa kode script diatas diletakkan paling bawah atau setelah kode </body>, adalah supaya pada saat loading blog pertama kali, tidak terlalu berat.

Sebagai informasi dan patut menjadi perhatian adalah kode outer-wrapper... kode ini merupakan kode css yang biasa ada di template minima, yang menggambarkan area id div setelah body... jadi kode ini bisa diganti sesuai area div setelah body.

Selanjutnya copy kode css dibawah ini, tepat diatasnya kode ]]></b:skin>

#bawah{ padding:7px; background-color:white; border:1px solid #CCC;
position:fixed; background:transparent url(http://img89.imageshack.us/img89/4998/arrowdown.png) no-repeat top left;
background-position:50% 50%; width:20px; height:20px; bottom:10px; opacity:0.7;
left:70px; white-space:nowrap; cursor: pointer;
-moz-border-radius: 3px 3px 3px 3px;
-webkit-border-top-left-radius:3px;
-webkit-border-top-right-radius:3px;
-khtml-border-top-left-radius:3px;
-khtml-border-top-right-radius:3px;
filter:progid:DXImageTransform.Microsoft.Alpha(opacity=70);}
#atas{ padding:7px; background-color:white; border:1px solid #CCC;
position:fixed; background:transparent url(http://img600.imageshack.us/img600/8649/arrowup.png) no-repeat top left;
background-position:50% 50%; width:20px; height:20px; bottom:10px; opacity:0.7;
left:30px; white-space:nowrap; cursor: pointer;
-moz-border-radius: 3px 3px 3px 3px;
-webkit-border-top-left-radius:3px;
-webkit-border-top-right-radius:3px;
-khtml-border-top-left-radius:3px;
-khtml-border-top-right-radius:3px;
filter:progid:DXImageTransform.Microsoft.Alpha(opacity=70);}

Dan langkah terkahir simpan...

Begitulah sehingga postingan ini berakhir, untuk hasilnya bisa dilihat pada Demo disini.

MEMBUAT FORM LOGIN DAN REGISTER ANGGOTA DI EXCEL, VERSI 2

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 07:49:07 PDT

Akhirnya ada kesempatan bikin postingan lagi... yach disempet-sempetin.. sebenernya...

Postingan ini merupakan kelanjutan dari postingan sebelumnya, yaitu MACRO MEMBUAT FORM LOGIN DAN REGISTER ANGGOTA DI EXCEL...
Kelebihan dari postingan ini, disesuaikan dari Request beberapa pertanyaan yang masuk, diantaranya :

Sheet Password di hide... dan hanya akan muncul satu sheet setiap proses
User Mau tidak mau harus melakukan Login...
User wajib mensetting security menjadi medium (rekomendasi) atau low (tidak direkomendasikan)..
User harus dan wajib Enable Macro.... kalau tidak yach... datanya gak kelihatan...
Dan kelebihan terakhir... lebih rapih dikit....he...

Apabila ada yang mengikuti blog ini, sebenernya kode dari file MEMBUAT FORM LOGIN DAN REGISTER ANGGOTA DI EXCEL Versi 2 ini merupakan gabungan dari beberapa kode postingan sebelumnya, yaitu :

Untuk kodenya sendiri... aku taruh di Empat area di jendela visual basic yaitu

Area UserFom
Area Modeul
Area ThisWorkbook
Area Worksheet Password Untuk Rumus Fungsinya

Untuk kodenya sendiri bisa dilihat seperti dibawah ini, dan sehubungan postingan ini disempet-sempetin... jadi mohon maaf tidak bisa dijelaskan per baris kodenya....

Untuk mempelajari lebih lanjut filenya bisa langsung di DOWNLOAD DISINI...

1. Kode Area UserForm

Option Explicit
Dim sh As Object
Dim ws As Worksheet
Dim isi As Long
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

'Properties ketika Userform aktif
Private Sub UserForm_Activate()
    ThisWorkbook.Application.Calculate
    ThisWorkbook.Sheets("Login").Visible = True
    
    'hanya sheet Login yang tampil
    For Each sh In ThisWorkbook.Worksheets
        If Not sh.Name = "Login" Then sh.Visible = xlSheetHidden
    Next sh
    
    FrmLog.Visible = True
    LogNam.SetFocus
    FrmDaf.Visible = False
    Daftar.Visible = True
    Login.Visible = False
Set sh = Nothing
End Sub
Private Sub Masuk_Click()
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")

ws.Range("E4") = LogNam.Value
ws.Range("F4") = LogPwd.Value
  
LogNam.Value = ""
LogPwd.Value = ""
LogNam.SetFocus
   
'kondisi jika cell I4, sheet password bernilai true, maka bisa masuk login
If ws.Range("I4").Value = True Then
    Msg = "Nama Anda : " & ws.Range("E4").Value & " ,Password : " & ws.Range("J4").Value
    Style = vbOKCancel + vbDefaultButton1
    Title = "Konfirmasi"
    Response = MsgBox(Msg, Style, Title)
    If Response = vbOK Then
        'kondisi jika cell j4, sheet password, nilainya "Admin" maka hanya sheet admin yg ditampilkan
        If ws.Range("J4").Value = "Admin" Then
            ThisWorkbook.Sheets("Admin").Visible = True
            For Each sh In ThisWorkbook.Worksheets
                If Not sh.Name = "Admin" Then sh.Visible = xlSheetHidden
            Next sh
            Me.Hide
        Else
            ' selain itu sheet user yang tampil
            ThisWorkbook.Sheets("User").Visible = True
            For Each sh In ThisWorkbook.Worksheets
                If Not sh.Name = "User" Then sh.Visible = xlSheetHidden
            Next sh
            Me.Hide
        End If
    End If
Else
'jika login salah maka akan muncul pesan dibawah ini
    MsgBox "Nama Ama password salah... Kalau belum termasuk Anggota silahkan Daftar"
End If
Set ws = Nothing
Set Response = Nothing
End Sub
Private Sub Daftar_Click()
'kondisi jika melakukan pendaftarn maka fram Login tidak tampil
FrmDaf.Visible = True
FrmLog.Visible = False
    With Status
        .AddItem "User"
        .AddItem "Admin"
    End With
Login.Visible = True
Daftar.Visible = False
End Sub
Private Sub Login_Click()
FrmLog.Visible = True
FrmDaf.Visible = False
Daftar.Visible = True
Login.Visible = False
End Sub

Private Sub Tambah_Click()
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
'mencari cell di kolom B yang kosong
isi = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'kondisi jika form pendaftaran kosong akan muncul message
If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" Then
    MsgBox "Data harus diisi semua"
    DafNam.Value = ""
    DafPwd.Value = ""
    Status.Value = ""
    DafNam.SetFocus
Else
    'kalau form tidak kosong maka datanya akan di masukkan ke cell di kolom B, C, D yang kosong
    ws.Cells(isi, 2).Value = DafNam.Value
    ws.Cells(isi, 3).Value = DafPwd.Value
    ws.Cells(isi, 4).Value = Status.Value

    'untuk menghindari supaya tidak ada data user dan password yang sama
    If ws.Range("N4").Value > 1 Then
        MsgBox "Data sudah ada coba cari yang lain"
        ws.Range(ws.Cells(isi, 2), ws.Cells(isi, 4)).ClearContents
        DafNam.Value = ""
        DafPwd.Value = ""
        Status.Value = ""
        DafNam.SetFocus
    Else
        Msg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"
        Style = vbOKCancel + vbDefaultButton1
        Title = "Konfirmasi"
        Response = MsgBox(Msg, Style, Title)
            If Response = vbOK Then
                FrmDaf.Visible = False
                FrmLog.Visible = True
                LogNam.SetFocus
            Else
                ws.Range(ws.Cells(isi, 2), ws.Cells(isi, 4)).ClearContents
                DafNam.Value = ""
                DafPwd.Value = ""
                Status.Value = ""
                DafNam.SetFocus
            End If
    End If
End If
Set ws = Nothing
End Sub

Private Sub FrmDaf_Layout()
    DafNam.Value = ""
    DafPwd.Value = ""
    Status.Value = ""
End Sub
'kondisi untuk menonaktifkan icon Close "X"
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "Maaf ya... harus login dulu"
    End If
End Sub

2. Untuk kode Area Modul bisa dilihat dibawah ini
Fungsi dari kode di Area Modul ini adalah untuk mengembalikan ke proses Login Kembali.

Option Explicit
Dim sh As Object

Sub AutoShape1_Click()
ThisWorkbook.Sheets("Login").Visible = True
   'hanya sheet Login yang tampil
    For Each sh In ThisWorkbook.Worksheets
        If Not sh.Name = "Login" Then sh.Visible = xlSheetHidden
    Next sh
UserForm1.Show
End Sub

3. Untuk kode Area Thisworkbook bisa dilihat dibawah ini
Fungsi dari kode di Area Thisworkbook adalah mengatur supaya User harus melakukan enable macro dan loading userform ketika workbook dibuka.

Option Explicit
Dim sh As Object
'proses untuk disable macro
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets("Peringatan").Visible = xlSheetVisible
    
        For Each sh In ThisWorkbook.Worksheets
            If Not sh.Name = "Peringatan" Then sh.Visible = xlSheetVeryHidden
        Next sh
    
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
End Sub
'proses untuk enable macro
Private Sub Workbook_Open()
    Application.ScreenUpdating = True
        For Each sh In ThisWorkbook.Worksheets
            If Not sh.Name = "Peringatan" Then sh.Visible = xlSheetVisible
        Next sh
    
    ThisWorkbook.Worksheets("Peringatan").Visible = xlSheetVeryHidden
    UserForm1.Show
End Sub

Nach begitulah kiranya... postingan ini berakhir... Apabila ada pertanyaan... langsung saja pencet komentar... atau email juga boleh....

SOCIAL NETWORK BARU DAN ILMU BLOGGER DI DALAMNYA

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 07:39:43 PDT

Sehubungan baru bikin web Social Network Community, yach.. apa salahnya disini saya coba perkenalkan, mengenai Web Social Network Tersebut...

Mungkin masih banyak kekurangan, namanya juga lagi belajar... yach mohon maklumlah.....

Alamatnya bisa langsung di cek ke www.karsono.co.tv, kalau mau daftar juga boleh dan sehubungan semuanya masih gratisan, jadi yach mohon maklum lagi, kalau loadingnya rada lemot...

Network community ini sourcenya sama dengan salingsapa.com, yaitu bersumber dari jcow.

Dan untuk menarik perhatian, supaya sejenak ada yang mau melihat Web Social Network tersebut... disini saya akan kasih informasi gratis mengenai :

Cara Membuat Beda Tampilan Setiap Widget di Sidebar Blogger, seperti di bentuk widget di webblog ini.
Kode dari Generator Hujan Image, yang bisa langsung di copy saja ke postingan...

Apa ada yang tertarik... ? kalau emang tertarik langsung tengoklah web social network community ini www.karsono.co.tv .... he..he... maaf yach.. sedikit promosi...

WORKBOOK HANYA TERBUKA KETIKA ENABLE MACRO

karsono.mail@gmail.com (Karsono) — Sun, 10 Apr 2011 07:33:58 PDT

Sebagai Informasi, segala pertanyaan yang saya terima, tidak menutup kemungkinan akan saya jadikan sebagai postingan, dan dalam postingan juga saya tidak akan menyebutkan nama atau instansi yang bertanya, jadi mohon maklum adanya.

Termasuk pertanyaan mengenai bagaimana caranya supaya user apabila membuka workbook yang ada macronya, harus dan mau tidak mau melakukan pilihan Enable Macro ?

Proses macro disini adalah melakukan Hide dan unhide sheet, apabila ada jendela peringatan pilihan enable atau disable macro, atau untuk level high security workbook.

Langsung saja ke caranya :

Pada aktif workbook, untuk mempermudah buka satu workbook excel saja, tambahkan atau insert worksheet, kemudian beri nama peringatan
Kemudian buka jendela Macro Visual Basic --> pada jendela Project --> VBAProject biasanya secara otomatis ada di sebelah pojok kanan atas, pilih atau double klik ThisWorkbook.
kemudian pastekan saja kode dibawah ini kedalam jendela macro VBA-nya.

'proses untuk disable macro
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim ws As Worksheet 'ws sebagai worksheet

Application.ScreenUpdating = False 'menonaktifkan update yang berulang-ulang
Worksheets("peringatan").Visible = xlSheetVisible  'hanya worksheet peringatan yang tampil

For Each ws In ThisWorkbook.Worksheets ' untuk setiap worksheet yang nama sheetnya tidak sama dengan peringatan akan di hide
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVeryHidden
Next ws

Application.DisplayAlerts = False 
ActiveWorkbook.Save 
Application.DisplayAlerts = True
End Sub

'proses untuk enable macro
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = True
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVisible
Next ws

Worksheets("peringatan").Visible = xlSheetVeryHidden
End Sub

Nach mungkin cukup begitu saja postingan ini dibuat, dan seperti biasa untuk mempermudah mempelajarinya, file yang mengandung kode macro diatas, bisa langsung di download disini.