Hot Fox

Re: ]] XL-mania [[ Mengganti file import dari program akuntansi Zahir menjadi format angka diexcel

O iyya ya,.. tidak perlu memisah bagian BULAT dan bagian PECAHAN ya..!

karena data pasti mengandung "text pecahan" dua digit

Saya ingin menambahkan rumus cerdas Bung Tomz_Zlow agar tidak perlu

mengingat apakan separator Ribuan &/ Pecahan =KOMA atau TITIK

=SUBSTITUTE(SUBSTITUTE(A1, ".", ""), ",", "") / 100

atau

=SUBSTITUTE(SUBSTITUTE(A1; "."; ""); ","; "") / 100

( KOMA dan TITIK dihilangkan/ hasilnya dibagi seratus! )

Double-Negasi (--) kayaknya tidak perlu lagi, karena pengoperasian / 100 sudah sambil mengkonversi

Text-Angka menjadi Bilangan. CMIIW

terima kasih ideanya bung TOMZ..!

o'Seno

2012/1/27 Tommy <tomz.zlow@gmail.com>

mungkin formula ini bisa (belum dicoba sih, tapi harusnya bisa).

misal yang mau diubah ada di cell A1:

=--substitute(a1,".","")/100

atau

=--substitute(a1;".";"")/100 ----->kalau region setting kompi anda Indonesia

(dibaca: nilai angka dari A1 tanpa tanda titik dibagi 100)

jangan lupa untuk membuat format angka di cell hasil tersebut jika Anda ingin penampakan angka menjadi seperti yang Anda inginkan.

Salam,

tomz

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

From: dodi

To: XL-mania@yahoogroups.com

Sent: Tuesday, January 24, 2012 4:46 PM

Subject: ]] XL-mania [[ Mengganti file import dari program akuntansi Zahir menjadi format angka diexcel

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

New Members 55

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| Gong Xi Fat Choi! Mana angpaonya... wkwkwkwkwk...                 |
+-------------------------------------------------------------------+
| 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

__,_._,___

Re: ]] XL-mania [[ For-Next

"Ufortunately"... Jika kita berfikir lebih kedepan lagi... object CheckBox tidak

harus diberi nama sebagai "CheckBox1", "CheckBox2", "CheckBox3" dst.

Banyak sekali VBA Project menggunaan checkbox yg diberinama sesuai tugasnya

(demi kemudhan penulisan codenya) dan tidak ada pola nomor yg bisa di LOOP

dan....

statement seperti yg disarankan Hachi itupun

Checkbox & i &.value = false

tidak dikenal oleh VBA

Demikian juga setelah diganti-ganti antara lain menjadi sbb

"Checkbox" & i &".value" = false

karena ruas kiri itu tidak bakalan menghasilkan OBJECT

(sudahkah Mr. Hatchi men-test di lembar modul sebelum di siarkan di sini ?

(saya sudah mencobanya dan sudah mencoba mengganti-ganti dengan tujuan

merujuk Object CheckBox yg ber-Index i, dan karena goblog-ku = tidak berhasil

Akhirnya kembali ke project lawas.... (walaupun tetap mengandalkan bahwa

nama control Check masih berupa nama generik Checkbox1, 2,3 dst...

'--- Procedure dalam Userform Module ---

' Note index object control dimuli dengan 0 (nol) bukan 1 !

Dim i As Integer

On Error Resume Next

For i = 0 To Controls.Count

If LCase(Controls(i).Name) Like "checkbox*" Then

Controls(i).Value = False

End If

Next i

"KALAU MENURUT SAYA"

diberi nama apapun suatu object CheckBox tetap punya sesuatu yg pasti

yaitu TypeName nya, seperti yg telah diimplementasikan oleh indri Hapsari dlm thread ini.

If TypeName(oCtrx) = "CheckBox" Then

Oleh karen itu saya lebih prefer memilih / meniru trick yg iHaps pakai tsb.

o'Seno

2012/1/26 Hachi Rizki <hachiuz_ld27@yahoo.co.id>

Kalau menurut saya error karena format untuk textBox tidak pakai tanda kurung,

Coba ditulisnya
Checkbox & i &.value=false

Dari: "taufikef@ipb.ac.id" <taufikef@ipb.ac.id>
Dikirim: Jumat, 20 Januari 2012 10:47

Dear XL-mania,
Sy punya 10 control checkbox yang akan sy definisikan ke dalam perintah
For-Next. Jelasnya seperti berikut :

Checkbox1.Value=False
Checkbox2.Value=False
Checkbox3.Value=False
Checkbox4.Value=False
Checkbox5.Value=False...dst sampai Checkbox10
perintah diatas sy sederhanakan ke dalam perintah For-Next, yaitu :
Dim Checkbox(10) As Boolean
For i=1 to 10
Checkbox(i).Value=False
Next i
Masalahnya adalah : Saat perintah di atas dieksekusi (run), terjadi
kesalahan (error) pada baris ke 3 (Checkbox(i).Value).
Mohon saran dan solusinya. Trims

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

New Members 55

Visit Your Group

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

__,_._,___

Re: ]] XL-mania [[ informasi harga terakhir

Hai Makmur,

Coba array formula :
=LOOKUP(2,IF($A$7:$A$20=A7,,""),$D$7:$D$20)
(Enter dengan Ctrl Shift Enter)
copy ke cell bawahnya.

Wassalam,
Kid.

2012/1/24 Makmur Sentosa <mursentosa80@yahoo.co.id>

Salam hormat buat Pakar Excel di XL Mania . . .

Mohon bantunannya bagaimana rumus untuk menunjukan data terakhir, dalam hal ini yang saya mau tanyakan adalah informasi harga yang terakhir dari sekian banyak harga yang sudah diupdate pada suatu barang/produk.

Atas bantuannya saya ucapkan banyak terimakasih.

Makmurs.

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 61

Visit Your Group

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

__,_._,___

Hot Fox

sexta-feira, 27 de janeiro de 2012

Re: ]] XL-mania [[ Mengganti file import dari program akuntansi Zahir menjadi format angka diexcel

Re: ]] XL-mania [[ For-Next

Re: ]] XL-mania [[ informasi harga terakhir

Arquivo do blog