Potreben popravek kode VBA
By syedsalman v sredo, 24. novembra 2021
Objavljeno v Excel
odgovori 3
všeč mi je 0
Ogledov 7.8K
Glasov 0
Prosimo, popravite 2. kodo, obe za isti delovni list.

PRVA KODA DELUJE POPOLNO
Zasebni poddelovni list_Spremeni (ByVal Target As Range)
Če se ne seka(Cilj, obseg("D1")) je potem nič
Izberite obseg primerov ("D1")
Primer "0.5": polovica
Primer "1": ena
Primer "1.25": OneTwentyFive
Konec Izberi
Konec Če
End Sub

DRUGA KODA NE DELUJE (popravite spodaj)
Zasebna sprememba podpore (ByVal Target As Range)
Če se ne seka(Cilj, obseg("D2")) je potem nič
Izberite obseg primerov ("D2")
Primer "9.53": devetinpetintri
Konec Izberi
Konec Če
End Sub
Živjo syedsalman,

Za isti delovni list lahko kodo:

Zasebni poddelovni list_Spremeni (ByVal Target As Range)


Če se ne seka(Cilj, obseg("D1")) je potem nič
Izberite obseg primerov ("D1")
Primer "0.5": polovica
Primer "1": ena
Primer "1.25": OneTwentyFive
Konec Izberi
Konec Če

Če se ne seka(Cilj, obseg("D2")) je potem nič
Izberite obseg primerov ("D2")
Primer "9.53": devetinpetintri
Konec Izberi
Konec Če


End Sub

Za različne delovne liste lahko preprosto spremenite "Zasebna sprememba podpore (ByVal Target As Range)" v vaši drugi kodi za "Zasebni poddelovni list_Spremeni (ByVal Target As Range)".

Prosim poskusi. Vsa vprašanja me kontaktirajte.

Amanda
Amanda Lee
·
Pred 2 leti
·
0 Likes
·
0 Glasovi
·
0 Komentarji
·
Zdaj deluje z vašim popravkom

najlepša hvala za pomoč
syedsalman
·
Pred 2 leti
·
0 Likes
·
0 Glasovi
·
0 Komentarji
·
Zdaj deluje z vašim popravkom

najlepša hvala za pomoč

Ni za kaj.

Amanda
Amanda Lee
·
Pred 2 leti
·
0 Likes
·
0 Glasovi
·
0 Komentarji
·
Ogled celotne objave