Действия со случайными столбцами

@Andrew66 · Регистрация: 23.12.2012

Author24 — интернет-сервис помощи студентам

Задача следующая , имеем столбцы с данными(числовыми) ,предположим столбцы с данными по выпуску и с данными по плану выпуска. Необходимо выделить два столбца ( не рядом стоящих через ctrl) и чтобы вывело разницу(или определенный текст в зависимости от результата) рядом.
Проблема заключается в том что я не нашел как обозначить два выделенных столбца, поэтому может разбить данные по разным страницам , ума не приложу.
Может у кого есть идеи или ссылки на материал где можно глянуть как это делается.
Заранее спасибо за помощь и ответы.

@aequit · 31.03.2017, 18:42

Сообщение от Andrew66

Необходимо выделить два столбца ( не рядом стоящих

Visual Basic

1	Range("A:A,D:D").Select

Пример приложите в файле и там опишите внятно, что хотите, из Вашего поста ничего не понятно.

@Andrew66 · 31.03.2017, 21:01 **[ТС]**

Ну вот такой пример, выделяем столбец выпуском(А) и выделяем столбец с планом(А), нажимаем макрос и рядом выводится таблица с разницей между выпуском и планом по каждой детали,
задумка такая.

@aequit · 31.03.2017, 22:29

Сообщение от Andrew66

рядом

Рядом это где? Почему количество деталей дробное?

Добавлено через 6 минут
Обязательно вручную выделять эти столбцы или можно это программно сделать? Количество строк фиксировано или неизвестно?

Добавлено через 41 минуту
Если условие

Сообщение от Andrew66

Необходимо выделить два столбца ( не рядом стоящих через ctrl)

обязательно, то значение ячеек не смежных диапазонов считать в переменную или массив нельзя, нужно выводить дополнительное диалоговое окно (типа "Теперь выделите столбец "План" и нажмите продолжить)

@Andrew66 · 31.03.2017, 23:18 **[ТС]**

Да значения просто генерацией задал, а детали просто как вариант сказал.
Думаю программно тоже можно будет хорошо,кол-во строк не фиксировано, а вывод в соседнем столбце)

@aequit · 01.04.2017, 09:41

Сообщение от Andrew66

кол-во строк не фиксировано, а вывод в соседнем столбце

Если так, то проще:

Visual Basic

Sub test4()
Dim i As Long
Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To lLastRow
    Cells(i, 4) = Cells(i, 2) - Cells(i, 3)
Next i
End Sub

Первая строка с данными = 3, столбцы фиксированы.
Если нужно вручную (без Ctrl) выделить в соседних столбцах значения и подсчитать их разницу, получается совсем бредовый код, но работает )

Кликните здесь для просмотра всего текста

Visual Basic

Sub bred()
Dim rA As Range
Dim a, s, d, i
Dim arr()
 
Set rA = Selection
a = rA(1).Row
d = rA(1).Column + 2
arr = rA
s = UBound(arr) + a - 1
For i = (a - a + 1) To s
    If (i + a - 1) > s Then Exit For
    Cells(i + a - 1, d) = arr(i, 1) - arr(i, 2)
Next i
 
End Sub

Можно ещё формулу программно вставить в столбец результатов и "протянуть её", вариантов много.

@Andrew66 · 01.04.2017, 11:06 **[ТС]**

Огромное спасибо, есть еще два необязательных вопроса)
А можно добавить еще например условие типа таких
If (arr(i, 1) - arr(i, 2)) > 0 Then Selection.Offset(, 3) = "много"
If (arr(i, 1) - arr(i, 2)) < 0 Then Selection.Offset(, 3) = "мало"
И второй вопрос можете посоветовать литературу по VBA чтоб больше не отвлекать не кого на форумах))

@aequit · 01.04.2017, 11:33

Сообщение от Andrew66

добавить еще например условие типа таких

Предварительно выделить 2 не смежных столбца и только со значениями

Visual Basic

Sub bred()
Dim rA As Range
Dim a, s, d, i
Dim arr()
 
Set rA = Selection
a = rA(1).Row
d = rA(1).Column + 2
arr = rA
s = UBound(arr) + a - 1
For i = (a - a + 1) To s
    If (i + a - 1) > s Then Exit For
    Cells(i + a - 1, d) = arr(i, 1) - arr(i, 2)
    If (arr(i, 1) - arr(i, 2)) > 0 Then Cells(i + a - 1, d + 1) = "много"
If (arr(i, 1) - arr(i, 2)) < 0 Then Cells(i + a - 1, d + 1) = "мало"
Next i
 
End Sub

Сообщение от Andrew66

можете посоветовать литературу по VBA

Уокенбах "Профессиональное программирование на VBA".

@Andrew66 · 01.04.2017, 13:16 **[ТС]**

Ещё раз большое спасибо

@Andrew66 1 / 1 / 1 Регистрация: 23.12.2012 Сообщений: 35
		1
	Действия со случайными столбцами 31.03.2017, 17:53. Показов 577. Ответов 8 Метки нет (Все метки) Задача следующая , имеем столбцы с данными(числовыми) ,предположим столбцы с данными по выпуску и с данными по плану выпуска. Необходимо выделить два столбца ( не рядом стоящих через ctrl) и чтобы вывело разницу(или определенный текст в зависимости от результата) рядом. Проблема заключается в том что я не нашел как обозначить два выделенных столбца, поэтому может разбить данные по разным страницам , ума не приложу. Может у кого есть идеи или ссылки на материал где можно глянуть как это делается. Заранее спасибо за помощь и ответы. 0

@aequit 223 / 134 / 45 Регистрация: 08.09.2012 Сообщений: 283 Записей в блоге: 1
	31.03.2017, 22:29	4
	Сообщение от Andrew66 рядом Рядом это где? Почему количество деталей дробное? Добавлено через 6 минут Обязательно вручную выделять эти столбцы или можно это программно сделать? Количество строк фиксировано или неизвестно? Добавлено через 41 минуту Если условие Сообщение от Andrew66 Необходимо выделить два столбца ( не рядом стоящих через ctrl) обязательно, то значение ячеек не смежных диапазонов считать в переменную или массив нельзя, нужно выводить дополнительное диалоговое окно (типа "Теперь выделите столбец "План" и нажмите продолжить) 0

@Andrew66 1 / 1 / 1 Регистрация: 23.12.2012 Сообщений: 35
	01.04.2017, 11:06 [ТС]	7
	Огромное спасибо, есть еще два необязательных вопроса) А можно добавить еще например условие типа таких If (arr(i, 1) - arr(i, 2)) > 0 Then Selection.Offset(, 3) = "много" If (arr(i, 1) - arr(i, 2)) < 0 Then Selection.Offset(, 3) = "мало" И второй вопрос можете посоветовать литературу по VBA чтоб больше не отвлекать не кого на форумах)) 0

@Andrew66 1 / 1 / 1 Регистрация: 23.12.2012 Сообщений: 35
	01.04.2017, 13:16 [ТС]	9
	Ещё раз большое спасибо 0