0
geri al
Oy
Lütfen her ikisi de aynı çalışma sayfası için 2. kodu düzeltin.
İLK KOD MÜKEMMEL ÇALIŞIYOR
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("D1")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D1")
Durum "0.5": Yarım
Durum "1": Bir
Vaka "1.25": OneTwentyFive
Select End
Eğer son
End Sub
İKİNCİ KOD ÇALIŞMIYOR (lütfen aşağıdakini düzeltin)
Özel Alt Değişiklik (Aralık Olarak ByVal Hedefi)
Kesişmiyorsa(Hedef, Aralık("D2")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D2")
Durum "9.53": dokuz noktabeşüç
Select End
Eğer son
End Sub
İLK KOD MÜKEMMEL ÇALIŞIYOR
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("D1")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D1")
Durum "0.5": Yarım
Durum "1": Bir
Vaka "1.25": OneTwentyFive
Select End
Eğer son
End Sub
İKİNCİ KOD ÇALIŞMIYOR (lütfen aşağıdakini düzeltin)
Özel Alt Değişiklik (Aralık Olarak ByVal Hedefi)
Kesişmiyorsa(Hedef, Aralık("D2")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D2")
Durum "9.53": dokuz noktabeşüç
Select End
Eğer son
End Sub
0
geri al
Oy
Merhaba sedsalman,
Aynı çalışma sayfası için şu kodu yapabilirsiniz:
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("D1")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D1")
Durum "0.5": Yarım
Durum "1": Bir
Vaka "1.25": OneTwentyFive
Select End
Eğer son
Kesişmiyorsa(Hedef, Aralık("D2")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D2")
Durum "9.53": dokuz noktabeşüç
Select End
Eğer son
End Sub
Farklı çalışma sayfaları için sadece değiştirebilirsiniz "Özel Alt Değişiklik (Aralık Olarak ByVal Hedefi)" ikinci kodunuzda "Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)".
Deneyin lütfen. Herhangi bir sorunuz lütfen benimle iletişime geçmekten çekinmeyin.
Amanda
Aynı çalışma sayfası için şu kodu yapabilirsiniz:
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("D1")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D1")
Durum "0.5": Yarım
Durum "1": Bir
Vaka "1.25": OneTwentyFive
Select End
Eğer son
Kesişmiyorsa(Hedef, Aralık("D2")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D2")
Durum "9.53": dokuz noktabeşüç
Select End
Eğer son
End Sub
Farklı çalışma sayfaları için sadece değiştirebilirsiniz "Özel Alt Değişiklik (Aralık Olarak ByVal Hedefi)" ikinci kodunuzda "Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)".
Deneyin lütfen. Herhangi bir sorunuz lütfen benimle iletişime geçmekten çekinmeyin.
Amanda
- Sayfa:
- 1
Bu gönderi için henüz cevap yok.