Промежуточные значения

[rzrwolf]

Никак не могу решить такую проблему- вроде все просто, но не соображу: имеются 2 точки с заданными координатами. Нужно сделать так, чтобы в одном столбце выстроился список координат точек начиная с первой и кончая второй через заданный промежуток (например -20,-10,0,10,20). Как можно так сделать? (формулами)

[Тупой]

Если я правильно понимаю, то:
1. Вы в екселе работаете 2-й раз в жизни.
2. Имеются 2 точки на прямой с целочисленными координатами, и нужно с заданным шагом протащить интервал от первой точки до второй.

Делается это очень просто: пусть в ячейке а1 у Вас значение первой координаты, в ячейке а2 - значение второй, а в ячейке а3 - шаг.

в ячейку b1 введите

=A1

в ячейку b2

=A1+A3

Наведите курсор мыши на ПРАВЫЙ НИЖНИЙ угол ячейки b2, нажмите левую кнопку мыши и тащите все вниз

[rzrwolf]

нужно чтобы все считалась автоматически (формулами)...

[Тупой]

а в моем примере формул нет чтоли?
Или Вам макрос нужен?

[rzrwolf]

Спасибо за предложенный алгоритм, но я имел ввиду чтобы весь расчет проходил автоматом и без участия пользователяя (можно и макросом)...

Суть этих промежутков в том что они появляются когда пользователь задает координаты точек - а далее должен произойти расчет без участия самого пользователя

П.С работаю в Екселе далеко не второй раз в жизни - но впал в ступор - не могу сообразить такой алгоритм...

[Тупой]

Sub Макрос1()
Dim na4alo, konec As Integer
Dim kolvo As Integer
Dim shag
Dim i As Integer
na4alo = Cells(2, 1) 'Начальная координата должна быть в A2
konec = Cells(3, 1) ' Конечная координата в A3
 shag = Cells(4, 1) ' шаг A4
 kolvo = (Cells(3, 1) - Cells(2, 1)) / Cells(4, 1)

For i = 1 To kolvo
    Cells(i, 3) = na4alo + (i - 1) * shag 'Печатаем результат в столбецC
Next i
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Запускает Макрос1 при тыкании мышкой на А2 или А3
  If (Target.Row = 2 And Target.Column = 1) Or (Target.Row = 3 And Target.Column = 1) Then Макрос1
End Sub

Ну чтото типа такого... Можно переписать процедуру Worksheet_SelectionChange, чтобы реагировала не на тыкание, а на изменение... Плохо, конечно то, что при последующем вызове Макроса1 остаются предыдущие значения... Я не очень понимаю зачем Вам это нужно, может быть в Вашем случае лучше хранить результат в массиве, чем печатать его в столбец..Короче, дерзайте, удачи!

[IgorGO]

см.вложение...

[rzrwolf]

Спасибо большое за оба варианта- применил в одном месте 1 а в другом второй...

[Serge_Bliznykov]

Тупой, просто малюсенькое замечание на будущее:

	
	

			
				Dim na4alo, konec As Integer
			
		

когда Вы так описываете переменные, то переменная na4alo получается типа Variant, а не Integer, как Вами предполагалось ;-) (эта строчка эквивалентна строке:
Dim na4alo As Variant, konec As Integer

а нужно так:
Dim na4alo As Integer, konec As Integer
или так, коротко:
Dim na4alo%, konec%

знак % означает "As Integer"
знак & означание "As Long"
знак $ означает "As String"

p.s. несмотря на то, что я рассказал азбучные истины, надеюсь я никого не обидел :-)
p.p.s. Всех с Новым 2009 Годом!!

[Тупой]

Serge_Bliznykov, спс, реально не знал. Всех с наступившим!