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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка данных и копирование результата на другой лист - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка данных и копирование результата на другой лист (Формулы/Formulas)
Вставка данных и копирование результата на другой лист
titov Дата: Среда, 26.09.2018, 11:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!
На листе "основа" находится формула где можно менять переменные параметры
На листе "результаты" нужно копировать строчку с получившимся результатом. Каждый результат на следующей строчке.
Далее по результатам можно проводить аналитику, поэтому нужен весь последовательный перебор значений.

Подскажите, пожалуйста, как ПРАВИЛЬНО вставлять диапазон значений, чтобы на другом листе копировались результаты.
Пока я делаю методом перебора:
- поменял значение
- копировать строчку
- открыть лист Результаты
- вставить и так каждую итерацию (от 2000 до 8000 вариантов).

Заранее Огромная благодарность всем откликнувшимся.
К сообщению приложен файл: __260918.xls(61.5 Kb)
 
Ответить
СообщениеДобрый день!
На листе "основа" находится формула где можно менять переменные параметры
На листе "результаты" нужно копировать строчку с получившимся результатом. Каждый результат на следующей строчке.
Далее по результатам можно проводить аналитику, поэтому нужен весь последовательный перебор значений.

Подскажите, пожалуйста, как ПРАВИЛЬНО вставлять диапазон значений, чтобы на другом листе копировались результаты.
Пока я делаю методом перебора:
- поменял значение
- копировать строчку
- открыть лист Результаты
- вставить и так каждую итерацию (от 2000 до 8000 вариантов).

Заранее Огромная благодарность всем откликнувшимся.

Автор - titov
Дата добавления - 26.09.2018 в 11:08
_Boroda_ Дата: Среда, 26.09.2018, 13:38 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13697
Репутация: 5585 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вам нужна кнопка добавления и макрос. Примерно вот такой
[vba]
Код
Sub Kopir()
    With Sheets("результаты")
        n_ = .Cells(.Rows.Count, 1).End(3).Row - 1
        ar = .Cells(2, 1).Resize(n_, 4)
        t_ = "Такие параметры уже есть. Все равно добавить строку?"
        Set slov = CreateObject("Scripting.Dictionary")
        With slov
            For i = 1 To n_
                k_ = ar(i, 1) & "_" & ar(i, 2) & "_" & ar(i, 3) & "_" & ar(i, 4)
                .Item(k_) = i
            Next i
            z_ = Cells(2, 1) & "_" & Cells(2, 2) & "_" & Cells(2, 3) & "_" & Cells(2, 4)
            If .Exists(z_) Then
                If MsgBox(t_, vbYesNo) <> 6 Then
                    Exit Sub
                End If
            End If
        End With
        .Cells(n_ + 2, 1).Resize(1, 14) = Cells(2, 1).Resize(1, 14).Value
    End With
End Sub
[/vba]
К сообщению приложен файл: _260918_2.xlsm(30.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВам нужна кнопка добавления и макрос. Примерно вот такой
[vba]
Код
Sub Kopir()
    With Sheets("результаты")
        n_ = .Cells(.Rows.Count, 1).End(3).Row - 1
        ar = .Cells(2, 1).Resize(n_, 4)
        t_ = "Такие параметры уже есть. Все равно добавить строку?"
        Set slov = CreateObject("Scripting.Dictionary")
        With slov
            For i = 1 To n_
                k_ = ar(i, 1) & "_" & ar(i, 2) & "_" & ar(i, 3) & "_" & ar(i, 4)
                .Item(k_) = i
            Next i
            z_ = Cells(2, 1) & "_" & Cells(2, 2) & "_" & Cells(2, 3) & "_" & Cells(2, 4)
            If .Exists(z_) Then
                If MsgBox(t_, vbYesNo) <> 6 Then
                    Exit Sub
                End If
            End If
        End With
        .Cells(n_ + 2, 1).Resize(1, 14) = Cells(2, 1).Resize(1, 14).Value
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.09.2018 в 13:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка данных и копирование результата на другой лист (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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