Hot Fox: Re: ]] XL-mania [[ Fungsi F2 dalam VBA

quinta-feira, 3 de setembro de 2009

Re: ]] XL-mania [[ Fungsi F2 dalam VBA

kalau ingin penggantiannya hanya diberlakukan kepada cells
dengan Value tertentu (berdasarkan kriteria)
versi pendeknya begini:

'----------------------
Sub UbahBilanganToFormulaNol()
Dim x As Range, Krite As Variant

Krite = Application.InputBox( _
"Ketikkan Kriteria Bilangan " & vbCrLf & _
"yg akan di ganti menjadi [Bilangan * 0] :", _
"Ubah Bilangan menjadi Formula =x*0", 0, , , , , 1)

For Each x In ActiveSheet.UsedRange
If x <> "" Then
If IsNumeric(x.Value) And x.Value = Krite _
And (Not x.HasFormula) Then
x.Formula = "=" & x.Value & "*0"
End If
End If
Next x

End Sub

Kalau diinginkan SEMUA BILANGAN diganti menjadi =Bilangan*0
tanpa ada kriteria

Sub UbahBilanganToFormulaNol_2()
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x <> "" And IsNumeric(x.Value) _
And (Not x.HasFormula) Then
x.Formula = "=" & x.Value & "*0"
End If
Next x
End Sub

Kalalu ingin membatalkan proses yg sudah dikerjakan (Undo)

Sub Ubah_Ke_Semula()
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.HasFormula And Right(CStr(x.Formula), 2) = "*0" Then
x.Value = Val(Mid(x.Formula, 2, Len(x.Formula) - 3))
End If
Next x
End Sub

attachment: ctv_Ubah Bilangan ke Formula Nol.xls

> 2009/8/31 onidj_82 <onidj_82@yahoo.co.id>
>> Selamat sore....
>> Saya bekerja sebagai accounting di salah satau perusahaan, sekarang ini saya sedang melakukan pekerjaan mengedit data angka menjadi 0, contohnya angka 200 dikalikan 0, hasilnya 0. dan angka tersebut diharuskan pakai rumus =200*0 tidak bisa langsung di ganti 0 supaya dilain waktu kita ambil kembali angka tsb jika dibutuhkan, sekarang ini saya lakukan secara manual, sedangkan jumlah angka sekitar seribuan baris, coba anda bayangkan jika dilakukan manual harus menekan F2 lalu Home lalu pakai = dan di kali 0,bukannya saya malas untuk mengerjakan tetapi siapa tau Anda yg selaku mahir dalam VBA bisa membuat satu listing macro yang mana jika di klik tombol tersebut maka secara otomatis angka tersebut dari angka sebelumnya 200 menjadi =200*0 sehingga hasilnya 0.
>> Terima kasih atas bantuannya.
>> Terima kasih
>> Wassalam

__._,_.___

Messages in this topic (5) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Papa ga pulang beibeh... Papa ga bawa uang beibeh...              |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other