Другие языки программирования и технологии
Exсel (промежуток)
Подскажите пожалуйста как сделать вот такую штуку. дана начальная величина , и конечная. Ставлю их в один столбец , между ними допустим 20 строк. Как сделать так чтоб EXCEL заполнил этот промежуток равными числами от начального к конечному ? заранее спасибо
Можно и без функций. Голову просто приложить. Высчитываем приращение на калькуляторе (Значение2-Значение1)/ЧислоЯчеек
Потом в следующую ячейку, после первого значения вставляем формулу =СсылкаНаПредЯчейку+Приращение и "протягиваем" ее в нужную сторону. Вот и все.
Потом в следующую ячейку, после первого значения вставляем формулу =СсылкаНаПредЯчейку+Приращение и "протягиваем" ее в нужную сторону. Вот и все.
Можно макросом, как сказал Demetry и как сказал Денис Акимкин - " Голову просто приложить" :-)
Вот такой код у меня получился
Sub Macros()
Set cel = Selection
c = 0: r = 0
rs = cel.Item(1).Row: rf = cel.Item(cel.Count).Row
cs = cel.Item(1).Column: cf = cel.Item(cel.Count).Column
If (rs = rf Or cs = cf) And (rs <> rf Or cs <> cf) Then
If rs = rf Then nc = cf - cs: c = 1
If cs = cf Then nc = rf - rs: r = 1
For i = 1 To nc - 1
Cells(i * r + rs, i * c + cs) = cel.Item(1) + i * (cel.Item(cel.Count) - cel.Item(1)) / nc
Next i
End If
End Sub
Alt+F11. В меню Insert проекта VBA нажать Module. В открывшееся окно Module1 вставить код. Закрыть окно VBA
Выделить диапазон ячеек, который начинается с первого значения и заканчивается конечным. Alt+F8, выбрать макрос и нажать "Выполнить"
Макрос работает со строками и столбцами. Начальное или конечное значение может быть пустая ячейка, макрос примет ее как нулевую.
Макрос не сработает, если диапазон одна, две ячейки и количество строк или столбцов больше одного.
Вот такой код у меня получился
Sub Macros()
Set cel = Selection
c = 0: r = 0
rs = cel.Item(1).Row: rf = cel.Item(cel.Count).Row
cs = cel.Item(1).Column: cf = cel.Item(cel.Count).Column
If (rs = rf Or cs = cf) And (rs <> rf Or cs <> cf) Then
If rs = rf Then nc = cf - cs: c = 1
If cs = cf Then nc = rf - rs: r = 1
For i = 1 To nc - 1
Cells(i * r + rs, i * c + cs) = cel.Item(1) + i * (cel.Item(cel.Count) - cel.Item(1)) / nc
Next i
End If
End Sub
Alt+F11. В меню Insert проекта VBA нажать Module. В открывшееся окно Module1 вставить код. Закрыть окно VBA
Выделить диапазон ячеек, который начинается с первого значения и заканчивается конечным. Alt+F8, выбрать макрос и нажать "Выполнить"
Макрос работает со строками и столбцами. Начальное или конечное значение может быть пустая ячейка, макрос примет ее как нулевую.
Макрос не сработает, если диапазон одна, две ячейки и количество строк или столбцов больше одного.
Это делается в макросе VBA с помощью Selection.Areas.
Насколько я знаю, такой функции в Эксель нет. Он не умеет высчитывать последовательность. И вообще редко встретишь программу, которая по 2-м значениям расчитает последовательность.
Похожие вопросы
- Запишите функцию для получения случайного числа x из промежутка: [0; 15) [0; 15] [-15; 15) [10; 15)
- Допустим, есть у меня промежуток от 1 до 10000. Компьютер даёт мне рандомное число из этого промежутка и спрашивает
- Дан массив размера N.Определить количество его промежутков монотонности.
- Задача по информатике: Найти все простые числа в промежутке от 20 до 70 ? Не могу решить
- Вопрос по VBA(В Excel) Нужно решить y=x^2*cos(2x)+1 в 0->50 промежутке Дайте польный ответ или подзказки
- Как назначить загрузку программ не сразу при включении, а через заданный промежуток времени?
- За какой промежуток времени реально научиться делать сайты HTML, CSS?
- Приведите алгоритмы нахождения простых чисел в заданном промежутке
- Упорядочить массив по убыванию из 10 случайных чисел на промежутке от -500 до 500. Информатика, 9 класс.
- Exсel Нужна помощь.