Программирование кнопки excel

28.06.2013, 17:44. **Показов** 6693. **Ответов** 7

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

здравствуйте! Помогите решить проблему:
Есть Лист1 в нем пойдут строки напротив каждой строки будет кнопка которая:
При нажатии должна скопировать данные всех столбцов принадлежащих именной строке этой кнопки!
Копирование производится в Лист2
Пример что есть в приложение
Заранее спасибо!

@Igor_Tr · 28.06.2013, 19:47

Ну Вы и трудоголик!!!

Столько кнопок - как в вертольоте. От такой нагрузки у Excel могут и ноги подогнуться.

Может, одной хватит? Нужную строку определить просто активной ячейкой в любом столбце. И еще сделать запрос через Msgbox "Копировать все или только указанную?"

@Igor_Tr · 28.06.2013, 21:58

Ну раз очень нужно, значит нужно... Появилось время - немного поигрался.
Создание кнопки можно привязать к Worksheet_Change. Но тогда любое изменение будет вызывать создание. Кнопки будут накладываться. Что б такого не было - нужно делать проверку есть она в определенном месте, или нет. Ваших широких условий не знаю, поэтому cделал проще. Дал на лист1 свою кнопку - создать. Нужны Вам кнопки - создали, понажимали, скопировали. Закрываете книгу - кнопки будут удаляться (ч/з процедуру DelButt). Или можна ЕЩЕ ОДНУ КНОПУ НА ЛИСТ1 - удалить. А вобще - я лично практически этими кнопочками - бантиками не пользуюсь.

30.06.2013, 04:28

Спасибо огромное!
Только вот задачка немного изменилась
Нужна обычная кнопка которая при нажатии забирает значение из активной ячейки и ищет его на втором листе в 6 столбце при совпадении выделяет эту строку. Задача легкая но ввела меня в тупик помогите пожалуууууууйййста!

@Pavel55 · 30.06.2013, 06:55

Привяжите этот макрос к своей кнопке

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
Sub mySearch()
    Dim iVal As Variant
    Dim Rng As Range
 
    If Selection.Cells.Count > 1 Then
        MsgBox "Выделите только одну ячейку!", vbExclamation, "Внимание"
        Exit Sub
    End If
    If Len(ActiveCell.Value) = 0 Then
        MsgBox "Активная ячейка не содержит данных!", vbExclamation, "Внимание"
        Exit Sub
    End If
    iVal = ActiveCell.Value
    With Worksheets("Лист2")
        Set Rng = .Columns(6).Find(iVal, , xlFormulas, xlWhole)    'xlWhole - точное соответствие, xlPart - частичное
        If Rng Is Nothing Then
            MsgBox "Значение '" & iVal & "' на Лист2 в 6-м столбце не найдено!", vbExclamation, "Внимание"
        Else
            .Activate
            Rng.Select
        End If
    End With
End Sub

@Igor_Tr · 30.06.2013, 10:16

To dnkarty. Не изменилась, быстрее расширилась...

Если Вам нужно строку, тогда, в коде от Pavel55, Rng.Select (строка 20) меняете на range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoright)).select. И все. Удачи.
P.S. A место еще для одной кнопки есть?

@Pavel55 · 30.06.2013, 10:21

Игорь, тогда уж проще написать 20-ю строку так )

Visual Basic
1
Rng.EntireRow.Select

@Igor_Tr · 30.06.2013, 10:44

Может, но Святая Мария знает, что он потом хочет с выделением.

Я почему-то вобще подозреваю, что это там не один раз операция. Но ТС какой-то загадочный...

Добавлено через 6 минут
Ха!

Я попутал лево и право. Вот range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoright)).select нужно писать как range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoleft)).select.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	28.06.2013, 19:47
	Ну Вы и трудоголик!!! Столько кнопок - как в вертольоте. От такой нагрузки у Excel могут и ноги подогнуться. Может, одной хватит? Нужную строку определить просто активной ячейкой в любом столбце. И еще сделать запрос через Msgbox "Копировать все или только указанную?" 1

dnkarty
	30.06.2013, 04:28
	Спасибо огромное! Только вот задачка немного изменилась Нужна обычная кнопка которая при нажатии забирает значение из активной ячейки и ищет его на втором листе в 6 столбце при совпадении выделяет эту строку. Задача легкая но ввела меня в тупик помогите пожалуууууууйййста!

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	30.06.2013, 10:16
	To dnkarty. Не изменилась, быстрее расширилась... Если Вам нужно строку, тогда, в коде от Pavel55, Rng.Select (строка 20) меняете на range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoright)).select. И все. Удачи. P.S. A место еще для одной кнопки есть? 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	30.06.2013, 10:44
	Может, но Святая Мария знает, что он потом хочет с выделением. Я почему-то вобще подозреваю, что это там не один раз операция. Но ТС какой-то загадочный... Добавлено через 6 минут Ха! Я попутал лево и право. Вот range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoright)).select нужно писать как range(Cells(Rng.Row,1), cells(Rng.row, columns.count).end(xltoleft)).select. 0