Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
boomrest
10 / 10 / 3
Регистрация: 01.09.2011
Сообщений: 91
#1

Получить номера строк по нескольким выделенным ячейкам

10.06.2017, 11:28. Просмотров 156. Ответов 3
Метки нет (Все метки)

Здравствуйте!
Во вложении файл с двумя листами: на первом база автомобилей на другом шаблон для печати накладной.
Задача: при выделении ячейки в базе и нажатии кнопки, данные из строки этой ячейки заносятся в шаблон.
Получилось сделать для печати каждой накладной по очереди: выбрал ячейку -> нажал кнопку "Накладная" -> отправил на печать. Но если печатать нужно много накладных - муторно.

Вот что у меня:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Накладная()
 
Dim i As Integer
Dim arr(3) As String
activeRow = ActiveCell.Row
 
For i = 1 To 3
arr(i) = Лист.Cells(activeRow, i)
Next i
 
Лист2.Cells(2, 2) = arr(1) 'Дилер
Лист2.Cells(3, 2) = arr(2) 'Марка
Лист2.Cells(4, 2) = arr(3) 'Модель
 
End Sub
Можно ли получить номера нескольких произвольно выделенных сток?
Chebox не хотелось бы использовать - не удобно при расширении базы.
Есть ли решение без checkbox?
0
Вложения
Тип файла: zip Вопрос.zip (15.9 Кб, 4 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2017, 11:28
Ответы с готовыми решениями:

Доступ к выделенным ячейкам Excel
Добрый день. Прошу помогите. Знаю способ чтения данных из выделенных ячеек...

Как применить определенные свойства (в том числе объединение) ко всем выделенным ячейкам?
Всем привет! Пытаюсь научиться банальным операциям в VBA. Спорным, которые так...

Деление строки по нескольким ячейкам
Доброго времени суток! Нужна помощь! Имеется форма UserForm в которой есть...

Как получить номера строк с отфильтрованными данными?
Нужно программно отобрать в таблице Excel те записи (строки), где значения в...

Как получить номера строк для пар значений из разных столбцов и посчитать их количество?
Добрый день уважаемые форумчане! 😊 Помогите решить задачку с двумя известными...

3
Alex77755
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,722
10.06.2017, 12:42 #2
Visual Basic
1
2
3
4
5
For Each c In Selection.Cells
    activeRow = c.Row
    i = i + 1
    MsgBox "Номер выбранной строки " & i & "    " & activeRow
Next c
1
pashulka
2400 / 1223 / 498
Регистрация: 01.12.2010
Сообщений: 2,475
10.06.2017, 12:47 #3
Вариант без привязки к номерам строк

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Test()
    Dim s As Range, c As Range
    Set s = Intersect([A:A], Selection.EntireRow)
    
    For Each c In s
        Лист2.[B2:B4] = Application.Transpose(c.Resize(, 3))
        Лист2.PrintOut
    Next
End Sub
1
boomrest
10 / 10 / 3
Регистрация: 01.09.2011
Сообщений: 91
10.06.2017, 13:10  [ТС] #4
Отлично, спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2017, 13:10

Сложное объединение строк по нескольким параметрам
Добрый день, уважаемые форумчане. Не могли бы Вы помочь, со следующей...

Поиск дубликатов строк по нескольким столбцам
Добрый день уважаемые форумчане! Имеется excel файл с двумя листами X и Y. ...

Сортировка строк таблицы по нескольким столбцам
Доброго времени суток. Имеется код сортировки по одному столбцу. ...


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

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

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