Kita biking yang baru saja..* Cari semua cell yg berisi FORMULA Jika ketemu di HAPUS formulanya (jadi blank dech..) *Sub hapusSemuahFormulah() Dim xCel As Range For Each xCel In ActiveSheet.UsedRange If xCel.HasFormula = True Then xCel.ClearContents Next End Sub * Cari semua cell yg berisi FORMULA Jika ketemu formula diganti dengan VALUE (hasil) formula tsb *Sub ValueSemuahFormulah() Dim xCel As Range For Each xCel In ActiveSheet.UsedRange If xCel.HasFormula = True Then xCel = xCel.Value Next End Sub
2009/8/21 sh.ronald <[email protected]> > > 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
ctv_ContohSheetBerformula_truss_MauDihapus.xls
Description: MS-Excel spreadsheet
