Att tvinga Ingång till versaler

August 3

Om du utvecklar ett kalkylblad för andra att använda, kanske du vill att de alltid in information i versaler. Excel innehåller en kalkylbladsfunktionen som låter dig konvertera informationen till versaler, men det gäller inte som människor faktiskt anger informationen. Till exempel, om någon matar in information i cell B6, sedan kalkylbladsfunktionen kan inte användas för att konvertera informationen i B6 till versaler.

Istället måste du använda ett makro för att göra din byte för dig. Vid programmering i VBA, kan du tvinga Excel för att köra ett visst makro när något ändras i en kalkylbladscell. Följande makro kan användas för att konvertera alla kalkylblad ingång till versaler:

Private Sub Worksheet_Change (ByVal Target As Range)
Med Target
Om Inte .HasFormula Därefter
.Value = Ucase (.Value)
End If
End Med
End Sub

För makro att arbeta, men det måste skrivas in på en viss plats. Följ dessa steg för att placera makrot:

  1. Visa VBA Editor genom att trycka på Alt + F11.
  2. I fönstret Projekt på vänster sida av Editor, dubbelklicka på namnet på kalkylbladet som du använder. (Du kan behöva först öppna mappen VBAProject, och öppna sedan Microsoft Excel objekt mapp under den.)
  3. I koden fönster för kalkylbladet, klistra in ovanstående makro.
  4. Stäng VBA Editor.

Nu något (förutom formler) som förs in i en cell i kalkylbladet automatiskt konverteras till versaler. Om du inte vill att allt omvandlas, men endast celler i ett visst område i kalkylbladet kan du ändra makrot något:

Private Sub Worksheet_Change (ByVal Target As Range)
Om inte (Application.Intersect (Target, Range ("A1: B10")) är ingenting) Sedan
Med Target
Om Inte .HasFormula Därefter
.Value = Ucase (.Value)
End If
End Med
End If
End Sub

I detta exempel, bara text in i cellerna A1: B10 kommer att konverteras; allt annat kommer att lämnas som anges. Om du behöver ha en annan intervall konverteras, ange att utbudet i den andra raden i makrot.

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (2568) gäller för Microsoft Excel 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliksområdet i Excel (Excel 2007 och senare) här: Tvinga Ingång till versaler.