Auteur Topic: met VBA bestaande cel vullen in ander tekstgrootte (gelezen 649 keer)

rdcoster · « **Gepost op:** 09 februari 2021, 10:36:26 »

Ik heb een werkblad waar de cellen reeds tekst bevat met een bepaalde grootte (20pt).
Nu wil ik met VBA in die cellen tekst bijschrijven in een kleinere grootte, nl. 9pt.

Kan iemand mij daarvoor raad geven ?

In bijlage een voorbeeld met korte macro.

Mvg
René

pitufo · « **Reactie #1 Gepost op:** 09 februari 2021, 11:43:48 »

Dag René,

Op deze manier moet dat lukken:

Code: [Selecteer]

With Cells(1, 2)
    lengte = Len(.Value)
    .Value = .Value & Chr(10) & "test"
    totale_lengte = Len(.Value)
    .Characters(Start:=lengte + 1, Length:=totale_lengte - lengte).Font.Size = 9
End With

Groeten,
pitufo

RedHead · « **Reactie #2 Gepost op:** 09 februari 2021, 12:09:00 »

Dit zou een oplossing kunnen zijn...

Code: [Selecteer]

Sub KleineLetters()

    With ActiveCell
        .Value = .Value & Chr(10) & "nieuwe tekst"
        .Characters(Start:=Len(Split(.Value, Chr(10))(0)) + 2, Length:=Len(Mid(.Value, Len(Split(.Value, Chr(10))(0)) + 3)) + 1).Font.Size = 9
    End With

End Sub

Maar ik zou er persoonlijk voor kiezen om de dagnummers in een eigen regel te plaatsen. Dat geeft een stuk minder problemen met opmaak...

[EDIT] waarbij Pitufo me voor was, maar we in elk geval wél op een gelijk spoor zaten.

rdcoster · « **Reactie #3 Gepost op:** 09 februari 2021, 16:55:17 »

@Pitufo, @RedHead,

Bedankt voor jullie suggestie.

Waarom zoek ik toch altijd de moeilijke weg...
Daarom (quote van RedHead):

Citaat

ik zou er persoonlijk voor kiezen om de dagnummers in een eigen regel te plaatsen

Natuurlijk... gemakkelijker zo.

RedHead · « **Reactie #4 Gepost op:** 09 februari 2021, 22:17:39 »

rdcoster, altijd fijn om iemand met omdenken te kunnen helpen.

BlackDevil · « **Reactie #5 Gepost op:** 10 februari 2021, 05:46:07 »

@rdcoster,

Een vraagje...
Is het werkelijk de bedoeling om elke invoer in de cellen via VBA te doen?
Dus voor elke cel-invoer een apart lijntje in VBA? Zoja, om welke reden?
Is het niet makkelijker (en sneller) om dit gewoon rechtstreeks in de cel handmatig in te voeren?
Is geen kritiek ofzo hoor, is echt puur uit nieuwsgierigheid aangezien ik het uiteindelijke doel niet ken.
Afhankelijk van het antwoord heb ik dan mogelijks nog een bijkomende vraag.

groetjes,
BlackDevil

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: met VBA bestaande cel vullen in ander tekstgrootte (gelezen 649 keer)

rdcoster

met VBA bestaande cel vullen in ander tekstgrootte

pitufo

Re: met VBA bestaande cel vullen in ander tekstgrootte

RedHead

Re: met VBA bestaande cel vullen in ander tekstgrootte

rdcoster

Re: met VBA bestaande cel vullen in ander tekstgrootte

RedHead

Re: met VBA bestaande cel vullen in ander tekstgrootte

BlackDevil

Re: met VBA bestaande cel vullen in ander tekstgrootte