verschillende opmaak in 1 cel

[westra77]

hallo

ik wil graag een verschillende opmaak in 1 cel; ofwel in de cellen d6-d10 moeten de waarden tussen haakjes in lettertype 10 weergegeven worden, de overige getallen in lettertype 14 en vet. zie vb
het onderwerp is al eerder behandeld in een ander topic. Echter hier kan ik niet uitkomen.
wie kan mij hierbij helpen?

 

[danny147]

Beste westra77

Volgens mij kan het niet, maar met VBA code ???

Weet je nog welke topic dat was ?

Groetjes Danny :thumb:

 

[westra77]

het is volgens mij wel mogelijk
zie topic:verschillende opmaken in 1 cel van stone 52 op 21-4-08

 

[danny147]

Beste westra77

Moet mijn mening herzien.
Zelfs hier lukt het met het woordje herzien in het midden is het vet.

Kijk volgend bestandje met jouw aanpassingen.

Groetjes Danny. :thumb:

 

[bandito bob]

Met gewone tekst gaat dat wel ja, maar bij gebruik van formules kan het - zonder VBA - volgens mij niet.

 

[westra77]

dit klopt, ik hoop dat iemand in vba hier wel een oplossing voor heeft

 

[bandito bob]

dit klopt, ik hoop dat iemand in vba hier wel een oplossing voor heeft

Dan ga je toch ff naar het topic van stone52 welke je hierboven aanhaalde, daar staat VBA code.

 

[westra77]

hallo bandito ik heb dit geprobeerd, maar kom hier niet uit.
daarom graag hulp, zoals ik in de vraag probeerde aan te geven.

 

[Wigi]

hallo bandito ik heb dit geprobeerd, maar kom hier niet uit.

Zet dan de code hier neer die jij al gebouwd hebt op basis van de andere topic. Dan kan men daarvan vertrekken.

 

[westra77]

Zet dan de code hier neer die jij al gebouwd hebt op basis van de andere topic. Dan kan men daarvan vertrekken.

ik begrijp dat het de bedoeling is om eerst zelf een opzet te maken, vanuit een al bestaande code.
Echter voordat dit mogelijk is moet ik eerst de code begrijpen. Ik heb het bestand in het voorbeeld geopend en de code proberen te begrijpen, echter deze werkt niet in het voorbeeldbestand.
uit het boek: programeren met excel wordt een ander oplossing gegeven nl:
sub
dim myCell as range
Dim strFirst,strlast, strAllCells,strCategory as String

strfirst = inputbox ("enter the first cell.")
strLast = inputbox("enter the last cell.")
strAllcells = strFirst & ":"& strLast

For each Mycell In Range(strAllCells).Cells
Range (MyCell.Adress).Select
MyCell.Characters(4, 5).Font.Bold = True
Next myCell
end sub

ook met deze (evenutele)oplossing? kom ik er niet uit.
Ik wil best zelf de formule uitwerken
Ik hoop dat jullie mij een voorzet willen geven, of uitleg willen geven over de codes

 

[Wigi]

Je kan ook met F8 stap voor stap door de code gaan.

Telkens ga je 1 regeltje verder met een druk op F8.

Neem het bereik dat wil doen, niet te groot om niet te veel keer F8 te moeten drukken in de lus. Die lus gaat nl. doorheen alle cellen die jij opgeeft in de inputboxen.

De regel met Select in de lus zal telkens de cel aanduiden waarvan een stuk in het vet wordt gezet. Zo kan je makkelijk volgen waar je zit. In echte code is die regel met Select overbodig.

Wigi

 

[Wigi]

Vooruit dan maar.

Wigi