Iya mbak Siti,
begitulah, kalau mau copy paste values yang punya formula saja, memang perlu loop. Tapi ya itu tadi, ndak masalah ada formula atau tidak, kalau paste values hasilnya sama, jadi ndak perlu pilih-pilih, semua aja sekalian.
Lhaa.....
Kalau mau hapus semua isi cell yang punya formula saja, itu baru....
masih bisa dengan :
Activesheet.
Kid.
good stuffs... mas kid..
iyya ya..
semua cell itu "isinya" hanya = 3 jenis: konstanta, formula. blank
ketika semua formula ingin di jadikan konstanta
tidak perlu loop, cukup usedRange di-"PasteValues"
n ketika semua cell (di area berdata) ingin dihapus tinggal "ngapus" ajah...
ndak ada masalah menghapus blank cells
barangkali ada yg masih perlu loop...
for each CEL in Activesheet.UsedRange
if CEL.HasFormula then CEL.clearcontents
next
yaitu kalau diinginkan cel berformula dihapus
cel berisi konstanta dibiarkan tetap berisi konstanta...
geetoo kalee yee...
ctv
[ngeyelmode: false]2009/8/22 kid <nmkid.family@gmail.com >
Ikutan ah...
Semua formula di sebuah sheet. Berarti sama saja semua di paste values.
Activesheet.Usedrange. Copy
Activesheet.Usedrange. Pastespecial (xlPastevalues)
Kalau mau dibersihkan dari seluruh isi :
Activesheet.Usedrange. Clearcontents
Selama bisa tidak Loop maka tidak perlu Loop. Selama bisa pakai objects, pakai objects saja. Selama bisa pakai 1 object pakai 1 object saja. selama bisa 1 baris pakai 1 baris saja. Itu prinsip dasarnya.
Kid.2009/8/21 sh.ronald <sh.ronald@yahoo.co.id >Sore rekan rekan,
Beberapa tahun yang lalu ada VBA untuk menghapus seluruh formula/rumus dlam satu worksheet secara singkat menggunakan VBA.
Kalo ada boleh donk di share.
Ronald
| Selamat menjalankan ibadah puasa... |
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário