Log In
Register
Home
November 9, 2012
Offline
See Answer
Trusted Members
October 18, 2018
Offline
What does adding cells spiraly mean? Attach a file showing us what you are trying to do. Are you trying to
Create a Fibonacci Sequence
November 9, 2012
Offline
Hi
I added an attachment.
Trusted Members
October 18, 2018
Offline
Your attachment is unreadable for me. It has appeared as all WingDings.
Moderators
January 31, 2022
Offline
"Your attachment is unreadable for me. It has appeared as all WingDings"
Right-click on the file and select 'Save link as'. Now you can save the file where you want and then open it.
The following users say thank you to Riny van Eekelen for this useful post:
Alan SidmanNovember 9, 2012
Offline
Hi Dear
H attached a simple file.
start from a cell like I10 and move spiraling to cell J10 , J11 , I11 , ... anf fill cells by counter.
Trusted Members
October 17, 2018
Offline
And what's the maximum value you want?
November 9, 2012
Offline
I find the way by myself!
I change it a little, it works. you can see that:
Sub Spiral_new()
Dim userinput As Long, n As Long, i As Long, j As Long, rngAddr As Range
userinput = InputBox("How many cells for Spiralling?")
n = 1: j = 0: i = 1
Set rngAddr = Cells(10, 10)
Do Until n > userinput
Do Until j >= i
If n <= userinput Then
Set rngAddr = rngAddr.Offset(0, 1)
rngAddr.Value = n
j = j + 1
n = n + 1
Else
Exit Sub
End If
Loop
j = 1
Do Until j >= i
If n <= userinput Then
Set rngAddr = rngAddr.Offset(-1, 0)
rngAddr.Value = n
j = j + 1
n = n + 1
Else
Exit Sub
End If
Loop
i = i + 1
j = 1
Do Until j >= i
If n <= userinput Then
Set rngAddr = rngAddr.Offset(0, -1)
rngAddr.Value = n
j = j + 1
n = n + 1
Else
Exit Sub
End If
Loop
j = 1
Do Until j >= i
If n <= userinput Then
Set rngAddr = rngAddr.Offset(1, 0)
rngAddr.Value = n
j = j + 1
n = n + 1
Else
Exit Sub
End If
Loop
i = i + 1
j = 1
Loop
Set rngAddr = Nothing
End Sub
Answers Post
1 Guest(s)
