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

Javításra szorul a VBA kód

Szia syedsalman!

Ugyanahhoz a munkalaphoz használhatja a következő kódot:

Private Sub Worksheet_Change (ByVal Target mint Range)

Ha nem metszik(cél, tartomány("D1")) akkor semmi
Esettartomány kiválasztása ("D1")
"0.5" eset: Fél
"1" eset: Egy
"1.25" eset: OneTwentyFive
Vége kiválasztása
Ha véget

Ha nem metszik(cél, tartomány("D2")) akkor semmi
Esettartomány kiválasztása ("D2")
"9.53" eset: kilencpont öthárom
Vége kiválasztása
Ha véget

End Sub

A különböző munkalapoknál egyszerűen módosíthatja a "Privát almódosítás (ByVal cél tartományként)" a második kódodban "Private Sub Worksheet_Change (ByVal Target mint Range)".

Kérlek próbáld meg. Bármilyen kérdése van, forduljon hozzám bizalommal.

Amanda

Amanda Lee

·

2 éve

·

0 szereti

·

0 szavazat

·

0 Comments

·

#2357

Most már működik a javításoddal

köszönöm szépen a segítséget

syedsalman

·

2 éve

·

0 szereti

·

0 szavazat

·

0 Comments

·

#2358

Most már működik a javításoddal

köszönöm szépen a segítséget

Szívesen.

Amanda

Amanda Lee

·

2 éve

·

0 szereti

·

0 szavazat

·

0 Comments

·

#2359