Hallå!

Hur kan jag ställa in en datavalideringslista så att om rullgardinsmenyn i cellen raderas, kommer cellen automatiskt att visa ett standardvärde (dvs "-Select-")?

Till exempel har jag ett kalkylblad med flera rullgardinslistor som jag vill visa ett standardvärde på "-Select-" när arket öppnas. En användare kommer att välja värden från listorna som kommer att påverka resultatet av beräkningar i hela kalkylarket. En användare kan av misstag "radera" cellinnehållet i listorna. Om detta händer, istället för att cellen blir tom, vill jag att cellen ska visa standardvärdet "-Select-". Det här scenariot inträffar på flera slumpmässiga platser i kalkylarket, inte bara på en lokaliserad plats.

Jag har hittills kunnat hitta följande VBA-kod, men den tillämpar bara konceptet över ett intervall, snarare än bara enskilda celler som innehåller rullgardinslistor. Problemet med det jag har kodat hittills är att varje enskild tom cell i intervallet hamnar med "-Select-" i den. Vissa av listorna är i intervall, men vissa är också utspridda över hela arket. Problemet jag har med min nuvarande kod är att varje enskild tom cell i intervallet slutar med "-Select-" i den. Jag försöker få detta att gälla över hela kalkylbladet på ENDAST celler som är rullgardinslistor.

Är det jag försöker åstadkomma ens möjligt?

Exempelfil kan hittas här:
https://drive.google.com/file/d/1VoO8VgFs3IJ0ALwqfk0i8gt69UE4vEKW/view?usp=sharing

Exempelkod:

Explicit alternativ

Privata delarkivsförändring (ByVal-mål som område)
Dim cel som intervall
' Om Target.Cells.Count > 1 Then Exit Sub 'om du stänger av detta kan flera celler markeras och raderas samtidigt
If Not Intersect(Target, Range("f2:p17")) är ingenting då
För varje cell i intervallet("f2:p17")
Application.EnableEvents = False
If IsEmpty(cel.Value) Then cel.Value = "-Select-"
Nästa cel
End If
Application.EnableEvents = True
End Sub


Tack på förhand!

Hej, Hur kan jag få definierad värdegräns i excel-rullgardinsmenyn, som att jag vill ange Apple i produkten mot tre namn och det ska inte sätta 4:e posten och ge fel om jag gör det, någon lösning tack.