Harap perbaiki kode ke-2, keduanya untuk lembar kerja yang sama.

KODE PERTAMA BEKERJA DENGAN SEMPURNA
Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Tidak Berpotongan(Target, Rentang("D1")) Bukan Apa-apa Kemudian
Pilih Rentang Kasus("D1")
Kasus "0.5": Setengah
Kasus "1": Satu
Kasus "1.25": OneTwentyFive
End Select
End If
End Sub

KODE KEDUA TIDAK BERFUNGSI (tolong perbaiki di bawah ini)
Perubahan Sub Pribadi (Target ByVal Sebagai Rentang)
Jika Tidak Berpotongan(Target, Rentang("D2")) Bukan Apa-apa Kemudian
Pilih Rentang Kasus("D2")
Kasus "9.53": sembilan titik lima tiga
End Select
End If
End Sub