• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Uitkomst samenvoeging diverse cellen voorzien van verschillende opmaak

Status
Niet open voor verdere reacties.
J

Jap3600

Gebruiker
Lid geworden
19 mei 2015
Berichten
91
Hallo,

Ik heb in bijgaand bestand een voorbeeldje gemaakt. Ik zou graag bij een samenvoeging van een aantal cellen verschillende opmaken willen zien. Wellicht is de enige oplossing te maken met VB?

Mogelijk kan iemand me hierin verder helpen...
Bekijk bijlage Samenvoeging.xlsx
 
Een gedeelte reeds opgelost....

Had Option Explicit erboven staan wat niet werkt natuurlijk....

Rest van de code aangepast zoals hieronder weergegeven. Nu stap 2 nog uitzoeken.....

Code: 
Sub test()
Dim txtZ As String
Dim iSt As Integer, iEnd As Integer, iFnt As Integer
Dim txt(7) As Variant, sK As Variant
Dim rng As Range

    txt(0) = Range("Formule1") 
    txt(1) = Range("Formule2") 
    txt(2) = Range("Formule3") 
    txt(3) = Range("Formule4") 
    txt(4) = Range("Formule5") 
    txt(5) = Range("Formule6") 
    txt(6) = Range("Formule7") 
    txt(7) = Range("Formule8") 

    Set rng = Range("F15")
    With rng
        .Value = "datum: " & Date & vbCrLf _
            & "Dr. " & txt(0) & ", " & txt(1) & vbCrLf _
            & txt(2) & " " & txt(3) & vbCrLf _
            & txt(4) & " " & txt(5) & vbCrLf _
            & "Tel: " & txt(6) & " --- " & "Rizivnr: " & txt(7) & vbCrLf _
            & "verklaart dat voor de aangevraagde testen met $ aan de diagnoseregel is voldaan"
        .Font.Color = RGB(0, 0, 0)
        .Font.Size = 8
        For i = 0 To 7
            iSt = InStr(1, txt(i), .Value)
            iEnd = Len(txt(i))
            iSt = InStr(1, .Text, txt(i))
            Select Case i
                Case 0, 2, 3, 5
                    sK = "RGB(255, 0, 0)"
                    sK = RGB(255, 0, 0)
                    iFnt = 9
                Case 2, 4, 6
                    sK = RGB(0, 255, 0)
                    iFnt = 7
                Case 1, 7
                    sK = RGB(0, 0, 255)
                    iFnt = 10
            End Select
            .Characters(Start:=iSt, Length:=iEnd).Font.Color = sK
            .Characters(Start:=iSt, Length:=iEnd).Font.Size = iFnt
        Next i
    End With
End Sub
 
Kom nu bij een gedeelte waarbij ik ook graag stukken wil aangeven als zijnde onderstreept, vet of cursief.....

Heb daar onderstaande mee geprobeerd maar helaas werkt het niet. Wat doe ik verkeerd.

Code: 
iStl = "Bold" '"Vet"
            End Select
            .Characters(Start:=iSt, Length:=iEnd).Font.Color = sK
            .Characters(Start:=iSt, Length:=iEnd).Font.Size = iFnt
            .Characters(Start:=iSt, Length:=iEnd).Font.Bold = iStl
 
"Bold" is onderdeel van .FontStyle

Code: 
.Characters(Start:=iSt, Length:=iEnd).Font.FontStyle = iStl

Nog even wat opgezocht. Het kan ook als boolean. Dan wordt het zoiets.
Code: 
.Characters(Start:=iSt, Length:=iEnd).Font.Bold = TRUE
 
Laatst bewerkt:
Je maakt het je veel te moeilijk met je variabelen.
Code: 
.Characters(Start:=iSt, Length:=iEnd).Font.Bold = true
 
Jap3600 zei:
Had Option Explicit erboven staan wat niet werkt natuurlijk....
Klik om te vergroten...

Option Explicit heeft niks met de werking je code te maken. Die zorgt er alleen voor dat de compiler controleert of je alle gebruikte variabelen wel netjes hebt gedeclareerd, wat je in dit geval met de variabele i niet hebt gedaan.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan