Format selected character in a cell

[Guest]

I have an protected spreadsheet and I want to create a macro that when the
user select a portion of the text in a cell (not the cell), I apply a
standard formating to this particular selection.

How can I do that??

Thanks

 

[Don Guillett]

record a macro while doing it manually and you will see how to use
CHARACTERS. Then, just use what you need. Comment out or delete lines not
needed.

sub dochar
With ActiveCell.Characters(Start:=4, Length:=2).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 11
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
end sub

 

[Gord Dibben]

Biche

Macros won't run when in Edit mode.

You'll have to find some other method.


Gord Dibben MS Excel MVP

 

[Guest]

This is what I'm trying to find...

Biche

Macros won't run when in Edit mode.

You'll have to find some other method.


Gord Dibben MS Excel MVP

 

[Gord Dibben]

Something like this for example?

Sub CellFont()
Dim ostart As Integer
Dim onum As Integer
ostart = InputBox("enter character start number")
onum = InputBox("enter numbers of characters to format")
ActiveSheet.Unprotect Password:="justme"
With ActiveCell.Characters(Start:=ostart, Length:=onum).Font
.ColorIndex = 3
.Bold = True
.Underline = True
.Size = 14
End With
ActiveSheet.Protect Password:="justme"
End Sub


Gord

 

[Guest]

I think I will be using InputBox and/or form do that, since I can't do it
more easily.

Thanks