Opgelost Toevoegen van een 'subcript' in een samengestelde tekst!

[Pieter671]

Best forumlid,

Ik wil graag in een cel een samenstelling maken van tekst en getallen.
Een gedeelte van de tekst is opgemaakt met subscript (zie bijlage).

Het gaat om cel C4 | = "De waarde van " & C1 & " is: " & C2 & " punten."

Geeft als resultaat: De waarde van Qpunten is: 500 punten.

Gewenst resultaat: De waarde van Q_punten is: 500 punten.

Heeft iemand hier een oplossing voor?

 

[emields]

voldoet dit?

 

[Pieter671]

Beste emields,
Dank je wel, dit voldoet zekers.
Ik begrijp hieruit dat hiervoor niet direct in Excel een oplossing beschikbaar is?
Een oplossing via VBA is geen probleem.

Je opzet in VBA geeft mij tevens een hint om in een andere subroutine iets met een andere opmaak te doen.
Thanx.

 

[robdgr]

Als dit een niet vaak voorkomende actie is, kan het ook zonder VBA: Zet de totale tekst in een cel, markeer het deel dat subscript moet, ga via de linker muisknop naar celeigenschappen - tekst en klik daar subscript aan

 

[Pieter671]

Als dit een niet vaak voorkomende actie is, kan het ook zonder VBA: Zet de totale tekst in een cel, markeer het deel dat subscript moet, ga via de linker muisknop naar celeigenschappen - tekst en klik daar subscript aan

@Robdg, klopt dit is mij bekend. Het ging mij juist om de VBA-oplossing.

 

[snb]

Gebruik dan VBA consistent:
- vermijd 'Select' en 'Activate'
- gebruik niet de ene keer [d2].value en de andere keer [d2] voor hetzelfde resultaat
- gebruik zo min mogelijk 'vaste waarden', maar maak de code toepasbaar voor meer situaties (robuust)

Sub M_snb()
    With [c4]
        .Value = "De waarde van " & [c1] & [d2] & " is: " & [c2] & " " & [d2]
        .Characters(InStr(.Value, [c1]) + 1, Len([d2])).Font.Subscript = True
    End With
End Sub

 

[Enigmasmurf]

Het is te zeggen...
Omwille van "maak de code toepasbaar voor meer situaties" zou ik dan eerder pleiten voor:

Sub M_es()
    With [c4]
        .Value = "De waarde van " & [c1] & [d2] & " is: " & [c2] & " " & [d2]
        .Characters(InStr(.Value, [c1]) + Len([c1]), Len([d2])).Font.Subscript = True
    End With
End Sub

 

[snb]

Daar is inderdaad ook wat voor te zeggen