Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
boomrest
10 / 10 / 0
Регистрация: 01.09.2011
Сообщений: 91
#1

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

10.06.2017, 11:28. Просмотров 148. Ответов 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 Кб, 3 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2017, 11:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить номера строк по нескольким выделенным ячейкам (VBA):

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

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

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

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

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

Сортировка строк таблицы по нескольким столбцам - VBA
Доброго времени суток. Имеется код сортировки по одному столбцу. Sheets("Общие списки").Copy After:=Sheets("Общие списки") ...

3
Alex77755
10685 / 3260 / 538
Регистрация: 13.02.2009
Сообщений: 9,617
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
2326 / 1158 / 467
Регистрация: 01.12.2010
Сообщений: 2,383
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Цикл по выделенным ячейкам DataGrid - C# WPF
foreach(var a in cdgTICKERS.SelectedItems) MessageBox.Show(a.ToString()); Я сделал такую реализацию, он...

Создание книг по выделенным цветом ячейкам - MS Excel
Всем привет! Кто-нибудь может подсказать как написать макрос который будет сохранять выделенные цветом ячейки в отдельные книги? К...

Прибавить ко всем выделенным ячейкам число - MS Excel
Подскажите пожалуйста как ко всем выделенным ячейкам прибавить число?


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

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

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