Rechter drie cijfers bold gedrukt maken?

[Demeter]

Ik zou graag de laatste drie cijfers in mijn tel.lijst dikgedrukt hebben (bold).
Dacht dat het hiermee zou moeten lukken:

Sub telefoonnummers_dik()

  For Rij = 3 To 80
        Cells(Rij, "F") = Left(Cells(Rij, "F"), 8) & Right(Cells(Rij, "F"), 3)
        With Right(Cells(Rij, "F"), 3)
            textstyle = Bold
        End With
    Next

End Sub

maar nee, hij loopt al vast op op select.

Iemand?

Thanks,
Ferenc

 

[Spiderman]

Hoi Demeter,

Op deze manier werkt het wel.

  For Rij = 1 To 3
        With Cells(Rij, "F").Characters(Start:=Len(Cells(Rij, "F")) - 2, Length:=3).Font
            .Name = "Arial"
            .FontStyle = "Vet"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
    Next

suc6

 

[Demeter]

Spiderman,

Deze code werkt deels.
- Bij letters werkt deze code uitstekend.
- Bij een getal bestaande uit meer dan drie cijfers, welke aan elkaar gesloten zijn, doet deze het niet meer.

bv.
abcdefghij = abcdefghij
123 = 123
1 234 = 1 234

maar

1234 = 1234

Heb zelf al wat zitten puzzelen maar snap deze code niet geheel:

Characters(Start:=Len(Cells(rij, "F")) - 2, Length:=3)

Groet,
Ferenc

 

[Demeter]

Spiderman,

De spaties heb ik er ingeplaatst om het telefoonnr. beter lees baar te maken op een uitgeprinte lijst.
Heb het nu als volgt opgelost

Sub tel_spaties_invoegen()

    For rij = 3 To 80
        Cells(rij, "E") = Left(Cells(rij, "E"), 8) & " " & Right(Cells(rij, "E"), 3)
    Next
    
    For rij = 3 To 80
        Cells(rij, "E") = Left(Cells(rij, "E"), 6) & " " & Right(Cells(rij, "E"), 6)
    Next
    
    For rij = 3 To 80
        Cells(rij, "E") = Left(Cells(rij, "E"), 4) & " " & Right(Cells(rij, "E"), 9)
    Next

    For rij = 3 To 80
        Cells(rij, "E") = Left(Cells(rij, "E"), 3) & " " & Right(Cells(rij, "E"), 11)
    Next
    
For rij = 3 To 80
    If Cells(rij, "E") <> "" Then
        With Cells(rij, "E").Characters(Start:=Len(Cells(rij, "E")) - 2, Length:=3).Font
            .Name = "Arial"
            .FontStyle = "Vet"
        End With
    End If
Next

End Sub

Denk dat de code om de spaties er in te krijgen nog wel beter kan, daar kom ik later op terug.

Bedankt voor je snelle reactie.

Groet,
Ferenc

 

[Spiderman]

Hoi Demeter,

Ik ben ff aan het mee kijken en de reden waarom het niet lukt met 1234 is omdat (niet lachen) het van het format getal is, en niet van format tekst. Doordat je er spaties in zet, verander je het format dus van getal naar tekst, en is je probleem opgelost

 

[Wigi]

Denk dat de code om de spaties er in te krijgen nog wel beter kan, daar kom ik later op terug.

Sub tel_spaties_invoegen()
With Cells(rij, "E")
    For rij = 3 To 80
        .Value = Left(.Value, 8) & " " & Right(.Value, 3)
        .Value = Left(.Value, 6) & " " & Right(.Value, 6)
        .Value = Left(.Value, 4) & " " & Right(.Value, 9)
        .Value = Left(.Value, 3) & " " & Right(.Value, 11)
    
        If .Value <> "" Then
            With .Characters(Start:=Len(.Value) - 2, Length:=3).Font
                .Name = "Arial"
                .FontStyle = "Vet"
            End With
        End If
    Next
End With
End Sub

Wigi

 

[Demeter]

Ik begin het te snappen.
Als ik bij de invoer ook een - teken laat plaatsen dan pakt hij hem ook (tevens als de eigenschap op getal staat).

Zou je voor mij deze code willen ontleden, kom er niet echt uit:
Characters(Start:=Len(Cells(rij, "F")) - 2, Length:=3)

@Wigi,
Thanks, scheelt me een hoop tijd
Weer een voor bij mijn verzameling.


Dank je wel,
Ferenc

 

[Spiderman]

Hoi Demeter,

Simpel

Je zou de code ook kunnen gebruiken als

Cells(Rij, "F").Characters(Start:=Len(Cells(Rij, "F")) - 2, Length:=3).Font.FontStyle = "Vet"

Dus in het Nederlands:
Zet van de cel Rij,"F", de characters vanaf start=lengte( cel Rij,"F" )-2 en een Lengte van 3 characters, van het type font de fontstyle op vet.

Analyseren met een breakpoint levert ook een heleboel duidelijkheden op

Suc6

 

[Demeter]

Uhhhhhhhhhh,
Wat doet die -2 daarin?

Groet,
Ferenc

 

[Wigi]

Uhhhhhhhhhh,
Wat doet die -2 daarin?

Groet,
Ferenc

De start is

vanaf het einde (dus het aantal karakters (lengte dus)
-2 (2 teruggaan naar voor)

Als er 19 karakters in een cel staan, begin je vanaf 19-2 = 17, en neem je de 3 karakters die volgen.

Wigi

 

[Demeter]

Ahhhhh, na tien keer te hebben gelezen en zitten spelen. ben ik er achter.

vb:
123456789
ik wil de laatste 3 vet hebben.
123456789 - 2 karakters = 1234567
vanaf hier tel ik weer drie verder, dus vanaf de zeven naar achter (789).
geeft dan 123456789

Zo kan ik dus ook in het midden geen veranderen!!!
Sweet.


@Wigi.
heb je code iets veranderd, volgens mij moet de 1e With ook in de For loop vallen!
Volgens mij heb ik zo de test door staan (LOL):

Sub tel_spaties_invoegen()

    For rij = 3 To 80
        With Cells(rij, "E")
        .Value = Left(.Value, 8) & " " & Right(.Value, 3)
        .Value = Left(.Value, 6) & " " & Right(.Value, 6)
        .Value = Left(.Value, 4) & " " & Right(.Value, 9)
        .Value = Left(.Value, 3) & " " & Right(.Value, 11)
    
            If .Value <> "" Then
                With .Characters(Start:=Len(.Value) - 2, Length:=3).Font
                    .Name = "Arial"
                    .FontStyle = "Vet"
                End With
            End If
            
        End With
    Next

End Sub

Heren, Bedankt:thumb:

Groet,
Ferenc

 

[Wigi]

@Wigi.
heb je code iets veranderd, volgens mij moet de 1e With ook in de For loop vallen!
Volgens mij heb ik zo de test door staan (LOL)

Jij hebt de test doorstaan, ik had een typfout gemaakt.