Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
124 / 3 / 0
Регистрация: 29.07.2013
Сообщений: 245
1

Выбрать в диапазоне значения по заданному промежутку и перенести на другой лист Excel

27.10.2014, 17:16. Просмотров 924. Ответов 5
Метки нет (Все метки)

Уважаемые форумчане!

Пожалуйста, подскажите как сделать выборку значений в диапазоне по заданному промежутку. (Из-за отсутствия функции between, не знаю как это решается).
Диапазон включает в себя 3 столбца.
После выборки, в каждой строке этого диапазона нужно определить минимальное значение и перенести это минимальное значение на лист results так же (т.е. если минимальное значение из 1-го столбца диапазона, то и перенести его в 1-й и т.д.)
Файл в скрепке (попытка начала кода).
0
Вложения
Тип файла: rar Тест.rar (38.0 Кб, 4 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2014, 17:16
Ответы с готовыми решениями:

Макрос. Выбрать отмеченные позиции и перенести на другой лист
Доброго времени суток В Книге 2 листа На листе "Общий" есть таблица состоящая из 6 столбцов...

Если в ячейках столбца есть значения, перенести некоторые ячейки из строки на другой лист
Доброго времени суток, профессионалы и увлекающиеся) Очень надеюсь, что есть среди Вас...

Копирование значения при после ввода на другой лист в первую пустую ячейку в определенном диапазоне
Добрый вечер! Помогите, пожалуйста, с проблемой. В VBA не силен, но формулами не получается...

Перенести данные с листа на другой лист
Добрый вечер! у меня такая проблема: у меня на Лист1 есть 20 чисел, которые генерируются...

5
3183 / 938 / 216
Регистрация: 29.05.2010
Сообщений: 2,046
27.10.2014, 19:01 2
А переносить надо целую строку или только min значения?
0
124 / 3 / 0
Регистрация: 29.07.2013
Сообщений: 245
27.10.2014, 19:13  [ТС] 3
Можно и целую, но желательно только значение первого столбца (т.е. "Task Number") и min из диапазона.
0
3183 / 938 / 216
Регистрация: 29.05.2010
Сообщений: 2,046
27.10.2014, 20:30 4
Вот вариант с использованием массивов:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButtonPrepare_Click()
    Dim iLastRow As Long
    Dim a(), b(), c()
    iLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    a = Range("a1:a" & iLastRow)
    b = Range("c1:e" & iLastRow)
    
    ReDim c(1 To UBound(a, 1), 1 To UBound(b, 2) + 1)
    j = 2
    For i = 2 To UBound(a, 1)
        aMin = Application.Min(Application.Index(b, i, , 1))
        If aMin >= Val(Me.TextBoxFrom.Value) And aMin <= Val(Me.TextBoxTo.Value) Then
            c(j, 1) = a(i, 1)
            For k = 1 To UBound(b, 2)
                If b(i, k) = aMin Then
                    c(j, k + 1) = b(i, k)
                    j = j + 1
                    Exit For
                End If
            Next
        End If
    Next
    Sheets("results").Cells(1, 1).Resize(UBound(c, 1), UBound(c, 2)) = c
End Sub
1
124 / 3 / 0
Регистрация: 29.07.2013
Сообщений: 245
28.10.2014, 13:49  [ТС] 5
Уважаемый toiai, подскажите пожалуйста, а как это будет выглядеть если вместо листа main это будет другая книга? например такая:
Visual Basic
1
2
3
4
Dim WbMP As Workbook
Set WbMP = Workbooks.Open("C:\Users\A. Shvechkov\Desktop\A300_MP_Task_Status.xlsm")
    
    With WbMP.Sheets("A300_MP_Task_Status")
0
3183 / 938 / 216
Регистрация: 29.05.2010
Сообщений: 2,046
28.10.2014, 18:26 6
Вполне возможно, можно просто обратится открытому листу:
Visual Basic
1
With ActiveSheet
и потом запускать макрос
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2014, 18:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перенести данные на другой лист по условию
Добрый вечер друзья! Нужна опять ваша помощь!!!! В ячейке А1-А31 стоят даты (например в А1-01.11,...

Как перенести Range на другой лист
Public shet As Worksheet Public rng As Range Private Sub CommandButton1_Click() Set shet =...

Определить сумму и количество элементов массива значения которых принадлежат заданному промежутку
Дан массив размерностью в 25 элементов. Заполнить массив случайными числами от -20 до 50....

Перенести на другой лист по названию второго столбца
Не получается никак разобраться самостоятельно: переносит куда только хочет... Пожалуйста,...

Выделенный текст перенести на другой лист или другую ячейку
помогите сделать таблицу, в которой изначально есть строки с красным выделением. как только ячейка...

Можно ли как-то перенести таблицу на новый лист в Excel?
В Excel на одном листе есть несколько таблиц. Из скрипта таблицы расширяются по вертикали и туда...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.