Re: ]] XL-mania [[ Convert text to number (copy paste)

 

B'gini lho ya.. :

(CMIIW)

Dalam menampilkan data bilangan, komputer (kita batasi pembicaran hanya pada komputer dengan

o/s Windows saja) punya cara-cara khusus, misalnya  ada TandaPemisah Desimal (Decimal Symbol)

dan ada TandaPemisah Ribuan (Digit Grouping Symbol).  Karakter yg dipakai sebagai TandaPemisah

Desimal maupun TandaPemisah Ribuan dalam data Bilangan (Numbers) dapat diubah-ubah sesuai

selera pemilik komputer (melalui Control Panel > Regional & Lang Option).

 

Setting tsb akan berpengaruh kepada semua aplikasi yg jalan di o/s Windows (misalnya Excel)

Jadi Decimal Symbol (TandaPemisah Desimal) TIDAK HARUS SELALU  berupa KOMA.

 

TandaPemisah Desimal bisa berupa: .(TITIK), bisa berupa ,(KOMA); TandaPemisah Ribuan

bisa berupa ,(KOMA), bisa berupa .(TITIK); tetapi dalam satu setting: keduanya harus berbeda.

TandaPemisah Desimal memberi batas antara bagian bilangan utuh (whole number / integer)

dan bagian bilangan pecahan (fraction). TandaPemisah Desimal harus ada jika memang

bilangan mengandung pecahan.

 

TandaPemisah Ribuan (Digit Grouping Symbol) memberi tanda pemisah tiap "grup 3 digit"

pada bagian bilangan utuh dihitung dari kanan ke kiri. TandaPemisah Ribuan hanya berupa

kosmetik, berupa cara tampil saja.

Cara tampil data bilangan di cell Excel dapat diatur melalui pemformatan cell (cell formatting).

TandaPemisah Ribuan hanya bertujuan untuk mempermudah ORANG membaca (menangkap arti/nilai)

bilangan tsb (komputer sendiri seperti tidak memerlukannya).

 

(Lho mau kemana kita ? Ndak Nyambung dengan yg ditanyakan ya ??)

 

Jika setting DESIMAL SYMBOL di komputer anda adalah karakter TITIK, lalu anda mengedit

menjadi KOMA, maka data tersebut bukan lagi bertype data bilangan, ia berubah menjadi

bertype data Text / String.

Data seperti ini (text seperti bilangan, yg DESIMAL SYMBOL ataupun DIGIT GROUPING SYMBOL

nya tidak sesuai dengan setting komputer nya) tidak dapat dikonversi ke bilangan lagi dengan

fungsi VALUE atau dengan cara lain ***

Data tsb dapat dikembalikan menjadi bilangan lagi hanya dengan mengedit kembali DESIMAL SYMBOL 

ataupun DIGIT GROUPING SYMBOL nya (bila ada) menjadi sesuai dengan setting komputernya.

(mengedit termasuk mengubah karakter-karakter di dalam data misalnya dengan fungsi

SUBSTITURE dan/atau cara lain yg setujuan)

 

Itu SATU !

 

Yang KEDUA adalah mengenai Method Copy > PasteSpecial > Value .

Kata Value di sini kayaknya masih sering disalah-artikan, dia dianggap dapat mengubah Data-Text

berupa karakter angka menjadi Data Bilangan.

Yang benar adalah : metoda tsb mengubah data YG SEMULA MASIH BERUPA VARIABLE (BERUPA

FORMULA) manjadi data yg tetap BERUPA KONSTANTA (Tetapan).

Bila cell yg semula berisi data yg bertype TEXT (baik Formula maupun Konstanta), maka data tsb

tidak akan menjadi data type Bilangan hanya dengan di Copy > PasteSpecial > Value saja.

 

Jadi ..

Dalam kasus pak Zasli tsb, kita menduga bahwa komputer yg digunakan: setting Decimal Symbol -

nya adalah TITIK.

Pak Zasli telah mengubah data bilangan pecahan misal 1.50 menjadi "1,50" (dlm emailnya dikatakan

"saya replace dengan tenda koma".)

Misal data (yg telah diubah tsb) ada di  range A10:A1000 (sheet X, workbook Y)

ingin dicopy ke  workbook P, sheet A  mulai di Cell C1 ke bawah...

 

Jika dengan formula  (notasi nama workbook dan sheet tidak kita contohkan di sini)

=VALUE(SUBSTITUTE(A10; ","; "."))

 

Jika dengan makro:

(begini saja..kirimkan contoh workbooknya, supaya kita-kita tidak perlu "mengarang dan membuat" nya

sendiri; padahal hanya ingin menjawabnya,.. dan lagi belum tentu betul...)

 

 

 

---

----- Original Message -----

From: ZASLI AFANDI B

To: XL Mania

Sent: Friday, February 12, 2010 4:48 PM

Subject: ]] XL-mania [[ Convert text to number (copy paste)

Hallo para xl-mania
Saya mempunyai ,masalah saat mengcopy dan paste data.

Sebelumnya data tersebut hanya menggunakan tada titik sebagai penanda koma.

Sehingga saya replace dengan tenda koma.
Akan tetapi masalah terjadi ketika saya meng copy data tersebut ke workbook lain

(pake makro), data tersebut dibaca sebagai text, (see attachment)

Yang saya ingin tanyakan adalah, bagaimana cara sehingga, saat data tersebut

saya paste maka disimpan dalam angka bukan teks

Sub COPY_DATA()
SOURCE_DATA = ActiveWorkbook.Name
FILE_NAME = Application.GetOpenFilename("Excel Files  (*.xls), *.xls", , "Buka File Tujuan", , False)
DEST_BOOK = ActiveWorkbook.Name
Windows(SOURCE_DATA).Activate
Range("A10:P10").Select
' misalnya angka yang ingin saya paste di kolom B, pada kolom selainnya berisi data text
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(DEST_BOOK).Activate
Sheets("Sheet2").Select
Cells(B, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gambar berikut menampilkan data sebelumnya kemudian data sesudah saya replace

tanda titik mencajdi koma kemudian copy-paste

Terima kasih
wassalam
Zasli

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

• New Members 97

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Happy Valentine's Day! Gong Xi Fat Choi! Jangan lupa kiriman      |
| coklatnya buat momods... kekekekekeke....                         |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___