barangkali dengan makro lebih otomatis misal untuk sheet yg sedang aktif Sub UbahBilanganToFormulaNol() Dim x As Range For Each x In ActiveSheet.UsedRange If x <> "" And IsNumeric(x.Value) Then x.Formula = "=" & x.Value & "*0" End If Next x End Sub
2009/8/31 onidj_82 <[email protected]> > > > 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 > > >
