01 Juni 2012

Menambahkan Case Menu/Change Case di Microsoft Excel 2010

          Jika di Microsoft Word 2010 maupun versi sebelumnya Case menu atau sering disebut Change Case sudah tersedia, namun di Microsoft Excel 2010 maupun versi sebelumnya, Case Menu atau Change Case tidak tersedia.   Fungsi dari Case menu atau Change Case  adalah untuk merubah kata atau kalimat dengan beberapa pilihan antara lain Sentense case, lowercase, UPPERCASE, Capitalize Each word dan tOOGLE cASE.   Change Case ini jika di Microsoft Word berada pada tab HOME.

          Awal dari ide untuk menambahkan Case Menu/ Change Case pada Microsoft Excel 2010 sebenarnya karena telinga saya yang bising dengan keluhan rekan-rekan kerja yang tergabung dalam team pembuat PJK . ........ Apa itu PJK ???? Ndak usah diributkan ndak penting.... anggap saja Pembuat Jari Keriting...  Dalam pembuatan PJK, team ini menggunakan Microsoft  EXCEL 2010.  Nah, saat mengumpulkan data personel dari masing-masing sumber "terpercaya" ( menurut saya) ternyata data yang dibutuhkan  menggunakan huruf KAPITAL semua..... padahal aturannya,   penggunaan huruf kapital hanya di awal kalimat atau nama orang saja.

       Dari berselancar dengan mata yang pedas karena cahaya LCD, akhirnya saya menemukan tip EXCEL yang mantap.... walaupun saya ndak mudeng dengan bahasanya..... maklum aku hanya lulusan fakultas KERIS SAMUDERA Gunung Sari SBY.....namun sudah saya praktekkan dan saya kembangkan dengan cara saya sendiri .... alhamdulillah 1000 % berhasil, jadi saya memberanikan diri untuk  share di blog ini, .... sehingga pengunjung blog ini mampu membuat sesuatu yang berguna bagi orang lain dan tidak hanya menjadi user saja. 

Aplikasi yang dibutuhkan adalah :

1.   Microsoft Office 2010
2.   Custom UI Editor , untuk aplikasi ini silahkan donwload di link yang ada dibawah ini.... gratis dan tidak ada survey dari Share Chase yang bikin hati ndongkol.......
http://openxmldeveloper.org/archive/2006/05/26/CustomUIeditor.aspx

Proses pembuatan Change Case ini hanya butuh waktu kurang dari 5 menit.

Langsung pada pembahasan, pada tutorial ini saya menggunakan Windows 7 Ultimate 64 bit.

1.  Install Custom UI Editor

2.  Buka Microsoft Excel 2010, tidak usah mengetik apapun.  Save AS dalam format Excel Macro - Enabled Workbook lalu tutup Microsoft Excel 2010.  Secara default file tersebut akan berjudul seperti ini : Book1.xlsm , namun dalam tutorial ini file tersebut saya beri nama Case Menu 2010.xlsm.

3.  Buka Custom UI Editor, kemudian klik open file - buka file yang telah dibuat - klik kanan pada file - pilih  Office 2010 Custom UI Part, sehingga muncul "custom UI14.xml.

4. Arahkan mouse pada custom UI14.xml, copy script dibawah ini pada ruang kosong di sebelah kanan.

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
   <contextMenus>
      <contextMenu idMso="ContextMenuCell">

         <button id="DuplicateBuiltInButton1" label="Save"
insertBeforeMso="Cut"
onAction="BuiltInSaveCommand"
imageMso="FileSave"/>

         <button id="MyButton" label="Toggle Case Upper/Lower/Proper"
         insertBeforeMso="Cut"
        onAction="ToggleCaseMacro"
        imageMso="HappyFace"/>

         <menu id="MySubMenu" label="Case Menu" insertBeforeMso="Cut"  >
            <button id="Menu1Button1" label="Upper Case"
            imageMso="U" onAction="UpperMacro"/>
            <button id="Menu1Button2" label="Lower Case"
            imageMso="L" onAction="LowerMacro"/>
            <button id="Menu1Button3" label="Proper Case"
            imageMso="P" onAction="ProperMacro"/>
         </menu>

        <menuSeparator id="MySeparator" insertBeforeMso="Cut" />

      </contextMenu>
   </contextMenus>
</customUI>

Kemudian simpan dan tutup Custom UI editor anda.... lihat gambar dibawah ini.



 5.    Sekarang buka file tersebut dengan menggunakan Microsoft Excel 2010 dengan cara klik kanan pada file - open with.....pilih Microsoft Excel.

6.    Setelah Microsoft Excel 2010 terbuka,  kita harus menampilkan tab DEVELOPER dengan cara  klik FILE - OPTIONS - pilih Customize Ribbon - centang DEVELOPER.  Aktifkan tab Developer lalu klik VISUAL BASIC.

7.       Klik kanan pada VBAProject (Case Menu 2010.xlsm) - Insert - Module.


8.     Arahkan mouse pada Module1, lalu copy dan paste script dibawah ini :

Sub ToggleCaseMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        Select Case cell.Value
        Case UCase(cell.Value): cell.Value = LCase(cell.Value)
        Case LCase(cell.Value): cell.Value = StrConv(cell.Value, vbProperCase)
        Case Else: cell.Value = UCase(cell.Value)
        End Select
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub UpperMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = UCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub LowerMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = LCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub ProperMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = StrConv(cell.Value, vbProperCase)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Lihat gambar dibawah ini :


9.    Save.  Pada proses save ini saya sarankan simpan dalam format  Excel Add-In pada Users -nama komputer anda - AppData - Roaming - Microsoft - AddIns. (biasanya automatis).   Jika untuk komputer lain silahkan di copi pada flashdisk file tersebut.

10.   Silahkan test... ketikkan kalimat dengan huruf kecil  pada sembarang cell, kemudian klik kanan pada cell yang sudah ada tulisannya, jika penerapan script anda benar maka akan terlihat seperti gambar dibawah ini.



Cara menerapkan Add-in Case Menu 2010 pada komputer lain :

1.   Buka Microsoft Excel 2010
2.   Klik FILE - Option  - Add-Ins - klik GO pada Manage,  lihat gambar dibawah.


3.   Pada jendela Add-Ins, klik pada browser sehingga muncul jendela browser.  Silahkan cari file Case Menu 2010 lalu tekan OK, sehingga muncul jendela konfirmasi.  Silahkan klik Yes, sehingga Case Menu 2010 akan ditambahkan pada jendela Add-Ins dengan kotak kecil tercentang.  Lihat gambar dibawah ini.



4.   Silahkan cek hasilnya dengan klik pada cell yang mau dirubah. 

Berikut ini adalah perbandingan gambar :

*   Workbook sebelum kita terapkan Case Menu 2010


*   Workbook sesudah kita terapkan Case Menu 2010.


Mudah bukan, silahkan dicoba dan semoga bermanfaat. Saya yakin pasti bisa, mengingat proses pembuatannya sudah saya jelaskan step by step.  Namun tidak menutup kemungkinan jika anda tidak mau susah payah atau mendadak memerlukan CASE MENU MICROSOFT EXCEL 2010 ini , silahkan tinggalkan email anda pada kotak komentar.  Insya Allah akan saya kirim.......

Oh ya, jika  anda kurang puas silahkan belajar di http://www.rondebruin.nl/contextmenu.htm

01 Februari 2012

Membuat foto lebih fantastik

Berikut ini adalah tutorial Efek Foto Fantasi dengan menggunakan Adobe Photoshop CS5, tutorial ini tidak terlalu panjang, sehingga tidak akan membosankan untuk dibaca.

1. Bukalah gambar sesuai selera anda dengan Adobe Photoshop CS5 , disini saya menggunakan foto ANGELINA JOLIE .

 2. Tekan Ctrl + J untuk menduplikasi foto ini sebanyak tiga kali ( duplikasi layer saya beri nama 1 s.d 3 ).


3. Pilih layer 1, ubah blending mode dari Normal ke Soft Light melalui panel layer dan kemudian mengurangi opacity menjadi 15%:
4. Pilih Layer 2, ubah blending mode dari Normal ke Soft Light dan tidak perlu mengubah opacity gambar ini.

5. Tetap pada layer 2, klik Filter >> Blur >> Gaussian Blur dan berikan nilai radius : 4,5 px.


6. Pilih layer 3 kemudian ubah blending mode dari Normal ke Soft Light dan kurangi opacity menjadi 55%.


7. Tetap pada layer 3, klik Filter >> Blur >> Gaussian Blur dan berikan nilai radius : 8,5 px.


8. Buat layer baru di atas semua layer , set foreground dengan warna # CEC08F kemudian gunakan rectangle tool untuk mengeblok layer tersebut:


9. Ubah blending mode dari Normal ke Overlay dan mengurangi opacity menjadi 15%:


10. Buat layer baru, set foreground dengan warna # C8C0B5, kemudian gunakan rectangle tool untuk mengeblok layer tersebut lalu ubah blending mode dari Normal ke Soft Light dan tidak perlu mengurangi opacity:


11. Berikut adalah final dari tutorial ini.


Semoga tutorial ini berguna ............

29 Agustus 2011

Selamat Idul Fitri 1432 H

Di Kehidupan yang fana ini, tidak ada seorangpun yang sempurna. Pasti akan bergelut dengan berbagai masalah yang pada akhirnya disadari atau tidak, pasti menimbulkan suasana yang tidak menyenangkan baik pada diri sendiri maupun orang lain. Manusia tidak akan pernah luput dari berbagai macam kekhilafan oleh karena itu pada moment yang penuh berkah ini, marilah kita saling maaf memaafkan dan selalu menyambung tali silahturahim sesama blogger.


24 Agustus 2011

PopUp update pada Internet Download Manager

Internet Download Manager (IDM) merupakan software untuk meningkatkan kecepatan download hingga 5 kali. Internet Download Manager mendukung semua browser populer termasuk IE, AOL, MSN, Mozilla, Netscape, Firefox, Avant Browser, dan banyak lainnya serta dapat diintegrasikan ke dalam setiap aplikasi Internet untuk mengambil alih download menggunakan fitur unik "Advanced Browser Integration". Seiring dengan perkembangan tehnologi, IDM selalu meluncurkan update versi terbarunya.

Jika kita tidak mempunyai versi terbaru tersebut dan salalu enjoy dalam aksi download dengan IDM yang sudah ada, tentu kita akan jengkel bila tiba-tiba muncul PopUp update dari IDM. Untuk mengatasi hal ini, tentu saja kita harus disable IDM Update agar tidak selalu keluar Pop Up tawaran update. Beberapa cara banyak kita jumpai bila kita menyempatkan diri untuk browsing, mulai dari merubah file host windows dan yang lainnya. Berikut ini adalah cara disable update untuk IDM dengan merubah setingan pada Registry Editor

1.   Ketik regedit pada “Search program and File” pada windows 7 atau RUN pada windows XP
2.   Akan muncul halaman “Registry Editor”, Klik “HKEY_CURRENT_USER”
3.   Klik Software
4.  Klik kanan DownloadManager pilih NEW kemudian DWORD, untuk windows 7 silahkan pilih sesuai OS Anda (32/64 bit Operating System) , sedangkan pada windows XP klik Dword. 

Tampilan jendela Registry Editor pada Windows 7 Ultimate
 
5.  Ketik nama AutoUpdate dengan Value data = 0 atau setting default 0
6.  Kemudian klik kanan ExceptionServers
7.  Klik modify tambahkan kata berikut *.tonec.com,  klik OK



8.  Tutup jendela Registry Editor
9.  Restart Komputer

Terkadang kita sempat jengkel saat membuka sebuah website, software IDM langsung terbuka dan meminta download. Hal ini terjadi karena website yang kita buka terdapat script yang menyebabkan auto download video, radio online, music player online bahkan terkadang iklan.
Langkah untuk mengatasi hal ini, silahkan buka software IDM anda Kemudian pada menu downloads pilih options sehingga muncul jendela “Internet Download Manager Configuration”, pada ‘GENERAL” lalu lihat pada “Capture downloads from the following browsers “silahkan hilangkan tanda centang pada browser yang kita gunakan, kemudian klik OK.

Semoga bermanfaat

29 Juni 2011

Windows 7 - Unable to install windows 7

Ini pengalaman saya saat install ulang windows 7 ultimate pada pc dengan beberapa hardisk terpasang pada pc tersebut. Ada tiga hardisk dengan ukuran yang berbeda, salah satu darinya aku fungsikan sebagai system.  Dengan menggunakan flashdisk 4 gb dan Windows 7 USB DVD Tools saya membuat  bootable dari windows 7, mengingat dvd room yang ada rusak dan saya malas membongkar DVD room yang terpasang di PC lain. 

Proses install berjalan dengan normal, bahkan tiga hardisk yang terpasang terdeteksi oleh windows 7. Hardisk yang akan aku jadikan sebagai sytempun aku format.   Namun, saat proses install selanjuntya muncul pesan seperti ini :  "Setup was unable to create a new system partition or locate an existing system partition",  saya jadi penasaran mengingat kapasitas hardisk 40 gb yang aku siapkan tidak berfungsi. Pada awalnya saya curiga ada kesalahan dalam membuat bootable flashdisk, sehingga aku ulang prosesnya. Namun setelah  proses install windows 7 ultimate yang kedua, pesan tersebut masih muncul juga.  Aku coba browsing  namun hasilnya tidak memuaskan.  Akhirnya aku coba dengan melepas semua hardisk yang ada, hanya satu hardisk yang tersisa dimana hardisk ini akan saya install windows 7.

Proses install windows 7 ultimate aku ulang dari awal, dan hasilnya... alhamdulillah, proses install windows 7 ultimate berjalan lancar, pesan "Setup was unable to create a new system partition or locate an existing system partition" tidak muncul lagi.  Jadi, kesimpulannya jika kita ingin menginstall ulang windows pada PC yang terpasang beberapa hardisk, sebaikknya lepas dulu semua hardisk kecuali hardisk yang akan diinstall windows.

24 Mei 2011

Informasi Katz.cd dan alternatif penggantinya

Bagi kita yang gemar mengikuti perkembangan internet, terutama pemantauan terhadap aplikasi, games, movies, musik, ebooks yang baru dirilis, tentu membutuhkan pengetahuan tentang keberadaan situs penyedia dari hal tersebut.  Sepengetahuan saya, Katz.cd merupakan salah satu situs penyedia perangkat-perangkat tersebut.  Namun keberadaan Katz.cd sekarang sepertinya tidak dapat dilacak, bahkan menghilang dari dunia maya ini.  Sebagai informasi, untuk Katz Forums sekarang sudah dapat diakses dengan  Url : http://katzforums.ws.  Pada Katz forums ini, kita juga dapat mengunduh aplikasi, movie dan lain-lain yang kita butuhkan, pada bagian "Katz Download".


Disini saya mencoba sharing untuk menemukan alternatif sebagai pengganti Katz.cd, diantarannya adalah :

1. http://www.phazeddl.com
2. http://www.ddl2.com
3. http://www.ddlsite.com
4. http://www.ddlshark.com
5. http://www.warezflow.us
6. http://www.dl4all.com
7. http://warez.ag
8. http://www.atomicwarez.com
9. http://www.warez-bb.org
10.http://softarchive.net
11.http://arefans.com
12.http://library.nu

Dari ke- 12 alternatif tersebut di atas, yang mirip tampilannya seperti Katz.cd adalah phazeddl.com
Semoga sharing ini bermanfat.

07 Mei 2011

Paket internet SMARTFREEN terbaru

Saya termasuk pelanggan smart, terutama dalam penggunaan fasilitas internet.  Sudah lama tidak update blog, saya terkejut saat akan menggunakan fasilitas internet yang ada, ternyata sudah ada perubahan aturan berlangganan paket internet Smart tmt 01 Mei 2011.

Berikut ini adalah aturan paket internet Smart tmt 01 Mei 2011 yang saya ambil dari situs Smart.

PAKET INTERNET SMARTFREN BERLAKU MULAI 1 MEI 2011

TRUE UNLIMITED, merupakan satu-satunya layanan data yang benar-benar tanpa batas saat ini.  Paket ini disediakan untuk kenyamanan anda agar dapat lebih menikmati layanan Smartfren.


VOLUME BASED, merupakan layanan data yang ekonomis, fleksibel dan berbagai pilihan masa berlangganan dari harian, mingguan dan bulanan.  Sesuai untuk anda yang membutuhkan layanan kecepatan akses data super cepat.


Pembelian paket dapat dilakukan  melalui short code atau SMS
SHORT CODE : Tekan KODE PAKET lalu tekan OK/CALL
Contoh: Untuk berlangganan paket internet Smartfreen Volume Based 12 GB selama 1 bulan :
tekan *123*3*1*12000 kemudian tekan "OK" atau "CALL"

SMS : Ketik  DATA spasi KODE PAKET lalu kirim ke 123
Contoh: Untuk berlangganan paket internet Smartfreen Volume Based 12 GB selama 1 bulan :
ketik : DATA VOL12000 kemudian kirim ke 123

POSTPAID UNLIMITED, Merupakan layanan premium yang menggabungkan fleksibilitas dan teknologi tinggi di Indonesia bagi pelanggan pascabayar dengan biaya bulanan yang sangat terjangkau.


Bagi pelanggan pascabayar, untuk mendapatkan paket khusus yang sangat eksklusif ini anda cukup datang ke galeri Smartfreen yang terdekat.

Bagi pelanggan Smart Mobile Broadband Prabayar dan Pascabayar yang telah aktif sebelum 1 Mei 2011, anda dapat menikmati penawaran khusus dengan cara melakukan registrasi satu kali dengan cara mengirim SMS : Ketik DATA spasi REG kirim ke 123 dengan dikenakan biaya sebesar Rp. 20.000,- .  Proses registrasi dilakukan hanya satu kali saja.  Jika proses registrasi sukses, maka akan menerima SMS balasan berikut ini : " Anda telah berhasil melakukan registrasi special program unlimited.  Biaya Rp.20.000,- sudah dikurangi dari pulsa anda. Info hubungi 881"


 Sebelum aturan baru ini berlaku, saya biasanya menggunakan paket SILVER harian dengan tarif Rp. 5.000,-  pada hari-hari libur.


Dibandingkan dengan paket lama yang maksimum kecepatan Paket untuk kecepatan download s.d 512 Kbps dan kecepatan upload s.d 128 Kbps, nampak menurun pada kecepatan donwload dari 512 Kbps ke 384 Kbps.  Ini jelas layanan internet SMART saya rasa agak mahal, hanya saja disaat saya menggunakan layanan baru (SmartFren Connex Premium Daily (up to 384 Kbps) ini dengan menggunakan FIREFOX 5 terasa agak cepat dibanding dengan layanan lama (paket SILVER). Saya tidak tahu apa memang sinyal SMART saat itu bagus atau karena kecanggihan dari FIREFOX 5, silahkan dicoba dan diamati sendiri.

Harapan saya sebagai pelanggan SMART, semoga dengan adanya perubahan ini konsekuensinya Smart semakin memberikan layanan yang terbaik sehingga nantinya tidak ditinggalkan oleh pelanggannya.

17 Februari 2011

Planning to exhibit at a trade show.

How long you have to get the attention of a potential customer walking by your trade show convention booth. Trade Show exhibiting is all about marketing your products or services at expositions, conferences, and trade shows. However, if you are new to exhibit or event marketing, you will be faced with more questions than answers: What size booth do I need? How much should I budget for show expenses? You spent months designing the perfect trade show displays, but still aren't getting enough traffic.

In today's competitive tradeshow environment, having the right trade show display is critical to your trade show exhibiting success. Your trade show exhibit booth needs to stand out from all the other exhibit booths and get your company noticed. It has to grab qualified prospects and draw them into your trade show booth. It has to get the job done. We recognize the importance of having an effective trade show display, and that is why we offer trade show display stand solutions. The result is an exhibit that achieves the client’s goals but also helps them be the talk of the show.

There are several factors to take into consideration when picking out the perfect give away product.

1. Who’s Your Target Audience?
2. You need to know your budget.
3. Find the Perfect Item.
4. Imprint Your Company’s Logo.
5. Let Your Audience Know About it

On making the trade show exhibition booth, we should create specific theme and design so it will stands out among the other trade show exhibition booths. The style of an expo display should reflect the message and image of the company. Many things must be considered when designing the perfect exhibit-graphics, colors and text, Logo floor mats, and of course, functionality. Each of these factors must be given time to ensure that they will represent your company well. If we have crazy and interesting idea, we can try to show it on our booth, but make sure that our idea works. Small crazy idea can be a genius idea if it is well-planned .

Another aspect that needs to be considered is the decoration truss, considering it is used at trade shows Also. Truss display create the outline of a display . They make it possible to realize an exhibition space with high strength and greater transparency . It can be custom made to fit your display needs and you can hang graphics and banners from them. Types of trusses include steel , which is popular for its light weight , with its reassuring strength .The combination of these two types enables us to achieve a variety of unique designs that fly, bend and overlap , thereby meeting virtually any need for display facilities.

Planning to exhibit at a trade show soon? If so, you're not alone. Many businesses find that trade shows can be one of their best sources of new business as well as a good way to attract media attention. Whether you need a simple trade show display booth, modular display, portable display, or kiosk, you can turn to Camelback for high quality products, knowledgeable advice, fast and friendly.
 
Foto saya
Ketidaktahuan anda adalah kepedulianku untuk selalu memberikan informasi, meski hanya sekedar hilangkan rasa ingin tahu saja.