Добрый день. Прошу помочь сделать макрос, т.к. сам не силен в этом. Опишу суть. Сделал таблицу, в которой собрал комплектующие и фирмы, которых они могут быть. В зависимости от тех задания нужно в сводную таблицу выбрать комплектующие определенных фирм и скалькулировать стоимость. Простое копирование ячеек не очень удобно, т.к. вариантов комплектаций много и таблицы довольно большие. Если можно, помогите сделать макрос, который при двойном нажатии на фирму- производителя будет подставлять ее название и цену изделия в сводную таблицу. Часть таблицы прилагаю. Красным выделил то, что нужно было добавить в сводную (при двойном нажатии на Е5 подставить ее значение в С29, а значение Е6 в D29). Можно на примере первых двух строк, остальные попробую сделать по аналогии. Заранее спасибо.
Добрый день. Прошу помочь сделать макрос, т.к. сам не силен в этом. Опишу суть. Сделал таблицу, в которой собрал комплектующие и фирмы, которых они могут быть. В зависимости от тех задания нужно в сводную таблицу выбрать комплектующие определенных фирм и скалькулировать стоимость. Простое копирование ячеек не очень удобно, т.к. вариантов комплектаций много и таблицы довольно большие. Если можно, помогите сделать макрос, который при двойном нажатии на фирму- производителя будет подставлять ее название и цену изделия в сводную таблицу. Часть таблицы прилагаю. Красным выделил то, что нужно было добавить в сводную (при двойном нажатии на Е5 подставить ее значение в С29, а значение Е6 в D29). Можно на примере первых двух строк, остальные попробую сделать по аналогии. Заранее спасибо.wxqzwxqz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 29 To 34 If Trim(Cells(i, 3)) = Trim(Target) Then s = Target.Row + 1 k = Target.Column Cells(i, 4) = Cells(s, k) End If Next Cancel = 1 ' что бы курсор не проваливался End Sub
[/vba]
На все [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For i = 29 To 34 If Trim(Cells(i, 3)) = Trim(Target) Then s = Target.Row + 1 k = Target.Column Cells(i, 4) = Cells(s, k) End If Next Cancel = 1 ' что бы курсор не проваливался End Sub
Спасибо огромное! Очень помогли. Wasilic, вопрос к вам: написано "чтобы курсор не проваливался", но при двойном клике все-равно переходит в режим редактирования. Или это не про это?
Спасибо огромное! Очень помогли. Wasilic, вопрос к вам: написано "чтобы курсор не проваливался", но при двойном клике все-равно переходит в режим редактирования. Или это не про это?wxqzwxqz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Range("C5:G21"), Target) Is Nothing Then S = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(S, 2) = Cells(Target.Row, 2) Cells(S, 3) = Target Cells(S, 4) = Target.Offset(1, 0) End If Cancel = 1 ' что бы курсор не проваливался End Sub
[/vba]
Видимо не понял задачу. Так что ли? [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Range("C5:G21"), Target) Is Nothing Then S = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(S, 2) = Cells(Target.Row, 2) Cells(S, 3) = Target Cells(S, 4) = Target.Offset(1, 0) End If Cancel = 1 ' что бы курсор не проваливался End Sub
Wasilic, таблица огонь получилась! Если не трудно, объясните, пожалуйста, что надо изменить, чтобы опустить кнопку и сводную таблицу вниз и сохранить ее работоспособность, т.к. основная таблица будет расширяться (как ее расширять я понял).
Wasilic, таблица огонь получилась! Если не трудно, объясните, пожалуйста, что надо изменить, чтобы опустить кнопку и сводную таблицу вниз и сохранить ее работоспособность, т.к. основная таблица будет расширяться (как ее расширять я понял).wxqzwxqz
что надо изменить, чтобы опустить кнопку и сводную таблицу вниз
Тяжелый случай! На номере 22 нумерации строк, нажимаете Левую Кнопку Мышки, удерживая протягиваете вниз помечая столько строк, сколько надо вставить. Отпустив левую кнопку мышки, находясь на нумераторе выделенных строк, нажмите правую кнопку мыши. В открывшемся окошке выберите - "Добавить ячейки". Вообще то, была надежда что,
что надо изменить, чтобы опустить кнопку и сводную таблицу вниз
Тяжелый случай! На номере 22 нумерации строк, нажимаете Левую Кнопку Мышки, удерживая протягиваете вниз помечая столько строк, сколько надо вставить. Отпустив левую кнопку мышки, находясь на нумераторе выделенных строк, нажмите правую кнопку мыши. В открывшемся окошке выберите - "Добавить ячейки". Вообще то, была надежда что,