Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/массивная обработка данных при изменении переменных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » массивная обработка данных при изменении переменных (Макросы/Sub)
массивная обработка данных при изменении переменных
Аналитик2012 Дата: Среда, 03.01.2018, 14:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день,

К сожалению, в макросах полный ноль. Только начал изучение. Буду признателен тому, кто сможет помочь. Внутри файла есть данные в ячейке В3 (среднее) и В4 (Ст.отклонение). А в столбце I результат. Необходимо, чтобы в столбце результат значение посчиталось макросом (сейчас стоим формулой) и вставило как значение и после поменяло среднее и ст.отклонение на единицу больше и в столбце результат посчитало значение и вставило как значение ниже полученной ранее суммы и так изменяя среднее и ст.отклонение шагом на единицу до 40.
К сообщению приложен файл: 2099820.xlsx (9.1 Kb)
 
Ответить
СообщениеДобрый день,

К сожалению, в макросах полный ноль. Только начал изучение. Буду признателен тому, кто сможет помочь. Внутри файла есть данные в ячейке В3 (среднее) и В4 (Ст.отклонение). А в столбце I результат. Необходимо, чтобы в столбце результат значение посчиталось макросом (сейчас стоим формулой) и вставило как значение и после поменяло среднее и ст.отклонение на единицу больше и в столбце результат посчитало значение и вставило как значение ниже полученной ранее суммы и так изменяя среднее и ст.отклонение шагом на единицу до 40.

Автор - Аналитик2012
Дата добавления - 03.01.2018 в 14:41
Roman777 Дата: Среда, 03.01.2018, 15:20 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Аналитик2012,
[vba]
Код
Sub Solut()
Cells(3, 2) = 0
Cells(4, 2) = 0
For i = 1 To 40
    Cells(3, 2) = Cells(3, 2) + 1
    Cells(4, 2) = Cells(4, 2) + 1
    Application.Calculate
    Cells(2 + i, 9) = WorksheetFunction.Large(Range(Cells(4, 6), Cells(13, 6)), 2)
Next i
End Sub
[/vba]
поправил косяки.


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Среда, 03.01.2018, 16:01
 
Ответить
СообщениеАналитик2012,
[vba]
Код
Sub Solut()
Cells(3, 2) = 0
Cells(4, 2) = 0
For i = 1 To 40
    Cells(3, 2) = Cells(3, 2) + 1
    Cells(4, 2) = Cells(4, 2) + 1
    Application.Calculate
    Cells(2 + i, 9) = WorksheetFunction.Large(Range(Cells(4, 6), Cells(13, 6)), 2)
Next i
End Sub
[/vba]
поправил косяки.

Автор - Roman777
Дата добавления - 03.01.2018 в 15:20
Аналитик2012 Дата: Среда, 03.01.2018, 15:30 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 53
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Roman777, Спасибо большое. Все доступно и ясно написано. Даже код разобрал.
 
Ответить
СообщениеRoman777, Спасибо большое. Все доступно и ясно написано. Даже код разобрал.

Автор - Аналитик2012
Дата добавления - 03.01.2018 в 15:30
bmv98rus Дата: Четверг, 04.01.2018, 00:29 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
Было интересно сделать формулами.
К сообщению приложен файл: Copy_of_2099820.xlsx (11.7 Kb)


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеБыло интересно сделать формулами.

Автор - bmv98rus
Дата добавления - 04.01.2018 в 00:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » массивная обработка данных при изменении переменных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!