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

Új

Javításra szorul a VBA kód

Excel

syedsalman

Szerda, 24 november 2021

3 Válaszok

7.8K látogatás

Szavazatok

Kibont

Kérjük, javítsa ki a 2. kódot, mindkettő ugyanarra a munkalapra vonatkozik.

AZ ELSŐ KÓD TÖKÉLETESEN MŰKÖDIK
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
End Sub

A MÁSODIK KÓD NEM MŰKÖDIK (kérjük, javítsa ki az alábbiakat)
Privát almódosítás (ByVal cél tartományként)
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

Amanda Lee

2 éve

#2357

Szavazatok

Kibont

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

syedsalman

2 éve

#2358

Szavazatok

Kibont

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

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

Amanda Lee

2 éve

#2359

Szavazatok

Kibont

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

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

Szívesen.

Amanda

Oldal:
1

Erre a bejegyzésre még nem válaszoltak.

Kérjük, jelentkezzen be a válasz elküldéséhez

A válasz elküldéséhez be kell jelentkeznie. Jelentkezzen be a jobb oldali űrlap segítségével, vagy regisztráljon egy fiókot, ha új itt. Itt regisztrálj "