About Us

Pierre[_21_]

Ok, I'll do that

keiji kounoike wrote:
Ignore my comment about "Application.EnableEvents = False". In this case
this doesn't have nothing with slowness. Sorry about misinformation.

keiji

keiji kounoike wrote:
Inserting a new row invokes SheetChange event, so it takes some time
to loop all cells in Target range. But it's strange for me this would
take so long time as you said. Besides in my thought, It seems the
line "For Each R In Target" is useless in your case and the code
"Application.EnableEvents = False" will stop to go into this series of
SheetChange event.

Keiji

Pierre62 wrote:
Hello Rick,

I understand what you mean but I don't think I need it.

But I have another problem.
When i.e. inserting a new row, it takes a lot of time before it happens.
It seems the macro is working the whole sheet updating the symbols,
or something else.
Is it possible to limit the size of a worksheet to let's say 100
columns and 500 rows?

I am starting to feel guilty asking things everytime....

Kind regards from Pierre

"Rick Rothstein" wrote:

I use your latest macro from 23-03-2009.
Changing this macro to what it is now, does it mean you might want
to change
something in the other one, the non-macro?
I don't think so. The macro visited each cell in each worksheet and
(at first) changed all text to black (actually, Automatic) before
applying the colors to those characters needing the change. The
event code (what you are calling "the non-macro") only applies the
color to the symbols in the actual cell being edited. Now, I might
have to change the code for you IF you ever have a mixture of
existing, pre-colored non-symbol text together with your symbols and
you choose to edit only part of that text. The reason I would have
to change the code in that circumstance is because the event code
changes all the existing text in the cell to black (Automatic)
before applying the symbol coloring... so if you had existing
colored non-symbol text in the cell, it would be made black
(Automatic) and only the symbols would be colored. Do you, or would
you ever, have such a situation?

--
Rick (MVP - Excel)

"Pierre62" wrote in message
...
Hello Rick,

one more question....

I use your latest macro from 23-03-2009.
Changing this macro to what it is now, does it mean you might want
to change
something in the other one, the non-macro?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target
As Range)
Dim X As Long
Dim R As Range
For Each R In Target
R.Characters.Font.ColorIndex = xlColorIndexAutomatic
For X = 1 To Len(R.Value)
Select Case AscW(Mid(R.Value, X, 1))
Case 9824 'Spade symbol
R.Characters(X, 1).Font.ColorIndex = 23
Case 9827 'Club symbol
R.Characters(X, 1).Font.ColorIndex = 10
Case 9829 'Heart symbol
R.Characters(X, 1).Font.ColorIndex = 3
Case 9830 'Diamond symbol
R.Characters(X, 1).Font.ColorIndex = 45
End Select
If X 1 Then 'SA text
If Mid(R.Value, X - 1, 2) = "SA" Then
R.Characters(X - 1, 2).Font.ColorIndex = 7
End If
End If
Next
Next
End Sub

As you can see I changed the colors and NT is SA.

Kind regards,
Pierre

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formatting Conditional Formatting Icon Sets	The Rook[_2_]	Excel Discussion (Misc queries)	3	March 7th 09 08:48 PM
Formatting cells in a column with conditional formatting?	shamor	Excel Discussion (Misc queries)	8	May 19th 08 10:11 PM
Protect Cell Formatting including Conditional Formatting	Mick Jennings	Excel Discussion (Misc queries)	5	November 13th 07 05:32 PM
conditional Formatting based on cell formatting	Totom	Excel Worksheet Functions	3	January 20th 07 02:02 PM
Conditional Formatting that will display conditional data	BrainFart	Excel Worksheet Functions	1	September 13th 05 05:45 PM

Menu

About Us