Hello There, Guest! - Silahkan Daftar atau Login Cepat via Facebook
Post Terbaru Sejak Login Terakhir   Post Terbaru 24 Jam Terakhir



 
  • 76 Vote(s) - 2.97 Average
Tools    New reply


9 May 2011 12:22
YKS
Kapten
Posts 1.291
Reputation: 103
Awards:
Anti Child Po rnFacebook NetworkMember Telah DewasaPahlawan

Trik Mengatasi Masalah Excel untuk Penulisan Angka 16 Digit


Ijin share Ndan, siapa tau ada gunanya........
Ketika mengetik di Microsoft Excel saya pernah kesulitan memasukkan Nomor Induk Pegawai yang panjang karakternya lebih dari 15 digit. Setiap teks atau nilai yang lebih dari 15 digit dalam satu cell maka kelebihannya akan dibulatkan menjadi angka nol,
Untuk mengakalinya saya lakukan langkah-langkah dibawah ini :
1. Klik kanan lalu pilih format cell tersebut sebagai Text,
2. Lalu klik cell yang dimaksud
3.Pencet Alt - F8
3. Creat dan jalankan skrip Macro dibawah ini :

Sub AddOne()
Dim vTemp1 As Variant
Dim vTemp2 As Variant
vTemp1 = CDec(ActiveCell.Value)
vTemp2 = vTemp1 + 1
ActiveCell.NumberFormat = "@"
ActiveCell.Value = CStr(vTemp2)
End Sub

Pencet run (seperti icon play)
kalau langkahnya benar, maka kita bisa memasukkan angka 16 digit dengan benar tanpa pembulatan

Semoga berhasil

trims untuk blogger yg sudah membantu, ini link nya Ndan
http://erakomputer.com/category/topik/tip?page=12






signature
[font=Courier][size=large][color=#0000CD][b][i]Sedang belajar toleransi di FBI[/i][/b][/color][/size][/font]

9 May 2011 12:41
jirep@sem
PENGELANA
Posts 3.924
Reputation: 431
Awards:
Pembayar PajakFacebook NetworkAnti Child Po rnMember ChoiceFBI Mania

Thank's ndan sharingnya, siapa tahu kapan-kapan kepakai Smile

9 May 2011 16:19
liquor
.            .
Posts 3.621
Reputation: 567
Awards:
FBI FansPembayar PajakFacebook NetworkAnti Child Po rn

Walau Bersusah dikit, Tapi dengan menambah Tanda Petik Satu ( ' ) sebelum angka
berapapun angkanya akan kebaca penuh Mis = '1234567890123456789
hasil di cell Exel akan keluar penuh =1234567890123456789
nah kalau angka tersebut akan di olah dalam numeric
tinggal menggunakan Function Charakter to Numeric =VAL(Cell yg akan diganti ke numeric)

BTW Nice Share Ndan Top
Reps +  YKS






signature
Lost of FBI Nono

10 May 2011 07:32
YKS
Kapten
Posts 1.291
Reputation: 103
Awards:
Anti Child Po rnFacebook NetworkMember Telah DewasaPahlawan

Trims Ndan Liquor atas solusi jitunya, sangat membantu. Ane belajar komputer dan aplikasinya semua otodidak, nggak pernah sekolah.... jadi musti banyak nanya sama ahlinya






signature
[font=Courier][size=large][color=#0000CD][b][i]Sedang belajar toleransi di FBI[/i][/b][/color][/size][/font]

10 May 2011 09:16
liquor
.            .
Posts 3.621
Reputation: 567
Awards:
FBI FansPembayar PajakFacebook NetworkAnti Child Po rn

(10 May 2011 07:32)YKS Wrote:
 
Trims Ndan Liquor atas solusi jitunya, sangat membantu. Ane belajar komputer dan aplikasinya semua otodidak, nggak pernah sekolah.... jadi musti banyak nanya sama ahlinya

Sama Ndan, brarti qt satu Jalur Dong Top






signature
Lost of FBI Nono

10 May 2011 09:43
koy
Dewan Jenderal
Posts 2.967
Reputation: 180
Awards:
Facebook NetworkPembayar PajakGood CitizenAnti Child Po rn

info² yg sangat bermanfaat Handshake



Nicethread

10 May 2011 09:56
Herman Dexter
Mayor
Posts 1.865
Reputation: 54
Awards:

thank's ilmunya ndan


   New reply




User(s) browsing this thread:
1 Guest(s)

Forum Bebas Indonesia
Demokrasi & Kebebasan temukan jalannya!
Respecting others will make you happy here
© 2004-2013 by Adimin | Fan Page | Group Discussion | Twitter | Google+ | Instagram