Opprette hevet og senket Knapper

Når du redigerer en celle i Excel, har du tilgang til flere av de formateringsverktøyknapper som kan gjøre formatere cellen litt enklere. For eksempel kan du bruke Fet eller Kursiv verktøy for å endre disse to attributter for noen valgte i en celle tekst. På et tidspunkt kan det være lurt å lage andre knappene på verktøylinjen for å håndtere annen formatering, for eksempel bruk av hevet eller senket.

Excel, men ikke tillater deg å lage dine egne formateringsverktøyene og ha dem tilgjengelig mens du redigerer en celle. Dette er fordi Excel "deaktiverer" alle brukerdefinerte makroer mens du gjør redigering. Du sitter igjen med formatering celleinnholdet via Format | Cells, eller ved å trykke Ctrl + 1 for å vise dialogboksen Formater celler direkte.

Det er en slu måte du kan bruke til å lage dine egne formateringsverktøyene, imidlertid. Dette innebærer bruk av brukerskjemaer og VBA til å lage din egen formatering "i dialogboksen." (Jeg vet-dette er egentlig ikke en dialogboks, men et skjema.) Lage din egen bruker form er ikke veldig vanskelig, men det er ikke for svak til hjertet når det gjelder makroer. Følg disse trinnene for å lage din egen form:

1. Trykk Ctrl + F11 for å vise VBA Editor.
2. I VBA Editor, velg User Form fra Sett inn-menyen. En ny, tom brukerSkjema vises, sammen med skjemaet verktøykasse.
3. Ved hjelp av kontrollene i form verktøykasse, legge til tre Command kontroller langs toppen av skjemaet.
4. Endre egenskapene for venstre Command så dens navn er btnSuper og dens Caption er Hevet.
5. Endre egenskapene for sentrum Command så dens navn er btnSub og dens Caption er Senket.
6. Endre egenskapene for retten Command så dens navn er btnNormal og dens Caption er Normal.
7. I underkant av tre knapper, legge til en tekstboks kontroll. Du trenger ikke å endre noen egenskaper for denne kontrollen.
8. Bare under TextBox kontroll, legge en fjerde Command.
9. Endre egenskapene for denne siste Command så dens navn er btnExit og dens Caption er Exit.

Det er det; du har opprettet din bruker form, og du er klar til å knytte makrokoden med kontrollene du bare plassert. Med brukerskjemaet valgt, trykker du F7 vise Kode vindu for skjemaet. Vinduet kan inneholde en linje eller to av automatisk generert kode. Erstatte denne med følgende kode:

Private Sub UserForm_Activate ()
TextBox1.Text = ActiveCell.Formula
End Sub

Private Sub btnSuper_Click ()
Dim intStart As Integer
Dim intLength As Integer
intLength = TextBox1.SelLength
Hvis intLength> 0 Then
intStart = TextBox1.SelStart + 1
ActiveCell.Characters (intStart, intLength) .Font.Superscript = True
End If
End Sub

Private Sub btnSub_Click ()
Dim intStart As Integer
Dim intLength As Integer
intLength = TextBox1.SelLength
Hvis intLength> 0 Then
intStart = TextBox1.SelStart + 1
ActiveCell.Characters (intStart, intLength) .Font.Subscript = True
End If
End Sub
Private Sub btnExit_Click ()
Losse UserForm1
End Sub

Private Sub btnNormal_Click ()
Dim intStart As Integer
Dim intLength As Integer
intLength = TextBox1.SelLength
Hvis intLength> 0 Then
intStart = TextBox1.SelStart + 1
ActiveCell.Characters (intStart, intLength) .Font.Superscript = False
ActiveCell.Characters (intStart, intLength) .Font.Subscript = False
End If
End Sub

Lukk vinduet Kode for brukeren form, og lukke skjemaet vinduet selv. Nå må du lage en veldig kort makro som vil vise den faktiske brukerskjemaet. Denne makroen er laget det samme som alle andre Excel makro, og skal se slik ut:

Sub DoForm ()
UserForm1.Show
End Sub

Du kan nå lukke vinduet VBA Editor. Velg for å bruke makroen cellen du vil redigere, og deretter kjøre DoForm makro. Excel viser din bruker form, som inneholder teksten i den valgte cellen. Du kan deretter velge tekst i brukerskjemaet og bruke knappene (hevet, senket, og Normal) for å endre formateringen av selve celleinnholdet. Makro påvirker innholdet i cellen, ikke innholdet i bruksform. Dermed er det nyttig å kunne se både den valgte cellen og brukerskjemaet på skjermen samtidig.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (1945) gjelder for Microsoft Excel 97, 2000, 2002, og 2003.