View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Ron Rosenfeld
 
Posts: n/a
Default Function/Programming help with excel

On Sun, 2 Apr 2006 20:18:59 -0500, Excel_Newbie09
wrote:


Hey guys. I am new here and new to excel so go easy on me :)

I have a colum with 21 random characters in each cell. Is it possible
to find the 11th character in each cell within only that colum and to
make that character bold or red or something else so as to make it
stand out. Not sure if this could be done in excel so I thought I might
seek some expert help :D

Cheers


It can be done if the contents of the cell is a text string. It cannot be done
if the string is constructed as the result of an equation.

You can go into each cell, select the eleventh character, and then select the
font characteristics of that character.

Or you can do it with a macro. To enter the macro, <alt<F11 opens the VB
Editor. Ensure your project is highlighted in the project explorer window,
then Insert/Module and paste the code below into the window that opens.

<alt-F8 will open the macro dialog box. Select Bold11 and <Run.

Note that, as written, the macro assumes that your range to be process is
A1:A100. You can easily change this.

The macro also rewrites the range so that it is a Text string, and NOT an
equation. Any equation you had in there will be destroyed. So BACKUP your
worksheet before running this.

==========================
Option Explicit

Sub Bold11()
Dim Src As Range
Dim c As Range
Dim AC As Range

'set range with the 21 random characters
Set Src = [A1:A100]
'remember where the cursor was
Set AC = ActiveCell

'ensure range is only text strings; this may not be necessary
Src.Copy
Src.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
AC.Select


'Bold and redden the 11th charcter in each
For Each c In Src
c.Characters(11, 1).Font.Bold = True
c.Characters(11, 1).Font.Color = vbRed
Next c

End Sub
============================


--ron