Novo

Potreben popravek kode VBA

  Excel
syedsalman
  syedsalman
  Sreda, 24 november 2021
  3 odgovori
  7.8 tisoč obiskov
0
Glasov
Razveljavi
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
0
Najprej najstarejše Najprej  
Amanda Lee
Amanda Lee
Pred 2 leti
·
#2357
0
Glasov
Razveljavi
Ž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
syedsalman
syedsalman
Pred 2 leti
·
#2358
0
Glasov
Razveljavi
Zdaj deluje z vašim popravkom

najlepša hvala za pomoč :)
Amanda Lee
Amanda Lee
Pred 2 leti
·
#2359
0
Glasov
Razveljavi
Zdaj deluje z vašim popravkom

najlepša hvala za pomoč :)

Ni za kaj. :)

Amanda
  • Stran:
  • 1
Za to objavo še ni odgovorov.