Please correct the 2nd code, both for the same worksheet. FIRST CODE WORKING PERFECTLY Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D1")) Is Nothing Then Select Case Range("D1") Case "0.5": Half Case "1": One Case "1.25": OneTwentyFive End Select End If End Sub SECOND CODE NOT WORKING (plz correct the below) Private Sub Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Select Case Range("D2") Case "9.53": ninepointfivethree End Select End If End Sub

VBA kodunda düzeltme gerekiyor

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

Amanda Lee

·

2 yıl önce

·

0 Beğeni

·

0 Oy

·

0 Yorumlar

·

#2357

Şimdi düzeltmenizle çalışıyor

yardımın için çok teşekkür ederim

seyidsalman

·

2 yıl önce

·

0 Beğeni

·

0 Oy

·

0 Yorumlar

·

#2358

Şimdi düzeltmenizle çalışıyor

yardımın için çok teşekkür ederim

Rica ederim.

Amanda

Amanda Lee

·

2 yıl önce

·

0 Beğeni

·

0 Oy

·

0 Yorumlar

·

#2359