Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub

Try:

Col width 1.6
Rowheight 12.75

"David" wrote:

Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub

Actually on a close up a CELL looks more square on 2.0 in col width to a
12.75 rowheight
Try looking at it at 25% then changing ths column width to your satisfaction


"David" wrote:

Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub

Sub asdf()
Dim AspectRatio As Single
AspectRatio = Cells(1, 1).Width / Cells(1, 1).Height
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, Int(j / AspectRatio)).Interior.ColorIndex = 46
End If
Next
Next
End Sub

--
- K Dales


"David" wrote:

Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub

I tried your code and some of the cells inside the circle do not get colored
do you know why?

Thanks for your help

"K Dales" wrote:

Sub asdf()
Dim AspectRatio As Single
AspectRatio = Cells(1, 1).Width / Cells(1, 1).Height
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, Int(j / AspectRatio)).Interior.ColorIndex = 46
End If
Next
Next
End Sub

--
- K Dales


"David" wrote:

Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub