Comments on: Conditionally Formatting Number Format http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/ Daily posts of Excel tips…and other stuff Wed, 08 Feb 2012 23:58:05 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Brett http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29374 Brett Thu, 13 Dec 2007 13:32:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29374 <p>Rachel,</p> <p> The preceeding code, with the usual logic operators in place of the lessthansign and equalsign, changes the fill color of A1 based on the value of A1 when the sheet calcs. Reference A2 from A1 and enter values in A2. A1 should change fill color. You can add cases.</p> <p>Brett</p> Rachel,

The preceeding code, with the usual logic operators in place of the lessthansign and equalsign, changes the fill color of A1 based on the value of A1 when the sheet calcs. Reference A2 from A1 and enter values in A2. A1 should change fill color. You can add cases.

Brett

]]> By: Brett http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29373 Brett Thu, 13 Dec 2007 13:27:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29373 <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Private</span> <span class="kw1">Sub</span> Worksheet_Calculate()<br> <span class="kw1">Dim</span> MyColor <span class="kw1">As</span> <span class="kw1">Integer</span><br> MyColor equalsign 0<br> <span class="kw1">With</span> Me.Range(<span class="st0">"a1"</span>)<br>  <span class="kw1">If</span> IsError(.Value) <span class="kw1">Then</span> <span class="kw1">Exit</span> <span class="kw1">Sub</span><br>   <span class="kw1">Select</span> <span class="kw1">Case</span> .Value<br>     <span class="kw1">Case</span> <span class="kw1">Is</span> lessthansign 1<br>        MyColor equalsign 3<br>     <span class="kw1">Case</span> <span class="kw1">Is</span> lessthansign 2<br>        MyColor equalsign 5<br>     <span class="kw1">Case</span> 3<br>        MyColor equalsign 7<br>    <span class="kw1">End</span> <span class="kw1">Select</span><br> .Interior.ColorIndex equalsign MyColor<br> <span class="kw1">End</span> <span class="kw1">With</span><br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div>
Private Sub Worksheet_Calculate()
Dim MyColor As Integer
MyColor equalsign 0
With Me.Range(“a1″)
 If IsError(.Value) Then Exit Sub
  Select Case .Value
    Case Is lessthansign 1
       MyColor equalsign 3
    Case Is lessthansign 2
       MyColor equalsign 5
    Case 3
       MyColor equalsign 7
   End Select
.Interior.ColorIndex equalsign MyColor
End With
End Sub
]]> By: Dick Kusleika http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29351 Dick Kusleika Wed, 12 Dec 2007 16:52:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29351 <p>Brett: Code in the comments has a few bugs in it. Eliminate all blank lines in your code - just put a single space. Also, make sure you close the VB tag with a slash, not a backslash.</p> Brett: Code in the comments has a few bugs in it. Eliminate all blank lines in your code – just put a single space. Also, make sure you close the VB tag with a slash, not a backslash.

]]> By: Brett http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29343 Brett Wed, 12 Dec 2007 02:36:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29343 <p>Rachel,</p> <p><code lang="vb"></code></p> <code lang="vb"> <p>Private Sub Worksheet_Calculate()<br> Dim MyColor As Integer<br> MyColor = 0</p> <p> With Me.Range("a1")</p> <p> If IsError(.Value) Then Exit Sub</p> <p> Select Case .Value<br> Case Is</p></code> <p></p> Rachel,

 

<p>Private Sub Worksheet_Calculate()<br>
 Dim MyColor As Integer<br>
  MyColor = 0</p>
<p>  With Me.Range("a1")</p>
<p>        If IsError(.Value) Then Exit Sub</p>
<p>        Select Case .Value<br>
             Case Is</p>

]]> By: Brett http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29342 Brett Wed, 12 Dec 2007 02:32:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29342 <p>Rachel,</p> <p> <code lang="vb"><br> Private Sub Worksheet_Calculate()<br> Dim MyColor As Integer<br> MyColor = 0</code></p> <code lang="vb"> <p> With Me.Range("a1")</p> <p> If IsError(.Value) Then Exit Sub</p> <p> Select Case .Value<br> Case Is</p></code> <p></p> Rachel,

<br>
Private Sub Worksheet_Calculate()<br>
 Dim MyColor As Integer<br>
  MyColor = 0

<p>  With Me.Range("a1")</p>
<p>        If IsError(.Value) Then Exit Sub</p>
<p>        Select Case .Value<br>
             Case Is</p>

]]> By: Rachel http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-29310 Rachel Mon, 10 Dec 2007 20:40:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-29310 <p>Can you do the same with the cell pattern? For example, if the cell's value is 1 or less, the cell is formatted as red background. If the cell's value is 2 or less, the cell is formatted as blue background. If the cell's value is 3-8, a different pattern for each value. I think it's a worksheet_calculate code, but just can't get it to behave.</p> Can you do the same with the cell pattern? For example, if the cell’s value is 1 or less, the cell is formatted as red background. If the cell’s value is 2 or less, the cell is formatted as blue background. If the cell’s value is 3-8, a different pattern for each value. I think it’s a worksheet_calculate code, but just can’t get it to behave.

]]> By: Jonathan Rynd http://www.dailydoseofexcel.com/archives/2004/06/21/conditionally-formatting-number-format/#comment-1787 Jonathan Rynd Tue, 22 Jun 2004 18:18:00 +0000 http://www.dailydoseofexcel.com/?p=643#comment-1787 <p>There's a much simpler way to do this without any VBA. Set the number format of the cell to:</p> <p>[<-1]#,##0.00;[<=1]0.00%;#,##0.00</p> <p>It's not as flexible as Conditional Formatting or VBA, but it's a lot simpler.</p> <p>The format is:<br> [Condition]Number format;[Condition]Number format;Default number format</p> There’s a much simpler way to do this without any VBA. Set the number format of the cell to:

[<-1]#,##0.00;[<=1]0.00%;#,##0.00

It’s not as flexible as Conditional Formatting or VBA, but it’s a lot simpler.

The format is:
[Condition]Number format;[Condition]Number format;Default number format

]]>