[dombol]

Chciałbym stworzyć skrypt w VBA, który zaznaczy poprzedni znak w aktywnej komórce i zamieni go na inną czcionkę, po czym będę mógł kontynuować pisanie w tym arkuszu. Pomoże ktoś?
#programowanie #vba

[croppz]

@dombol: Co masz na myśli jako "poprzedni znak"? Z tego co się orientuję nie można uruchomić makra podczas edytowania zawartości komórki.

A co do formatowania części tekstu: cells(x,y).characters(2,4).font.bold = true wrzuca bolda na 2, 3 i 4 znak w komórce.

[croppz]

spóźniony edit: characters(2,4) to znaki 2-5, pierwszy argument mówi od którego miejsca zacząć, drugi ile znaków.

[dombol]

@croppz: A jak pobrać liczbę znaków? Próbuję zrobić coś takiego, ale nie działa mi:

Dim r
r = Actvie.Cell.Range
Actvie.Cell.Characters(r - 1, r).Font.Name = "Symbol"

[croppz]

@dombol: len(application.activecell) jeżeli chcesz aktualnie wybranej komórki. I jeżeli to ma być font tylko dla ostatniego znaku to application.activecell.characters(len(application.activecell), 1).font