0
membuka
Suara
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
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
0
membuka
Suara
Hai syedsalman,
Untuk lembar kerja yang sama, Anda dapat membuat kode:
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
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
Untuk lembar kerja yang berbeda, Anda bisa mengubah "Perubahan Sub Pribadi (Target ByVal Sebagai Rentang)" dalam kode kedua Anda untuk "Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)".
Silakan coba. Setiap pertanyaan jangan ragu untuk menghubungi saya.
Amanda
Untuk lembar kerja yang sama, Anda dapat membuat kode:
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
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
Untuk lembar kerja yang berbeda, Anda bisa mengubah "Perubahan Sub Pribadi (Target ByVal Sebagai Rentang)" dalam kode kedua Anda untuk "Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)".
Silakan coba. Setiap pertanyaan jangan ragu untuk menghubungi saya.
Amanda
0
membuka
Suara
Ini berfungsi sekarang dengan koreksi Anda
terima kasih banyak atas bantuannya
Sama sama.
Amanda
- halaman:
- 1
Tidak ada balasan yang dibuat untuk posting ini.