Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск уникальных ячеек и сложение их значений - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск уникальных ячеек и сложение их значений (Макросы/Sub)
Поиск уникальных ячеек и сложение их значений
HoBi4ek Дата: Понедельник, 09.04.2018, 11:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Приветствую всех!
Подскажите кто в курсе. В макросах слабоват. Но есть задача.
Необходимо в Книге с несколькими листами (1,2,3), скопировать столбец с данными и сложить их значения из всех листов.
То есть. В лист "Итог" переносятся все столбцы из листов, по значению столбца "Е". Столбец "Е" не содержит дубликатов. А столбцы "F" и "G" имеют сумму всех значений Столбца "Е" из всех листов.
К сообщению приложен файл: __-2-.xlsx(13.2 Kb)


Сообщение отредактировал HoBi4ek - Понедельник, 09.04.2018, 11:16
 
Ответить
СообщениеПриветствую всех!
Подскажите кто в курсе. В макросах слабоват. Но есть задача.
Необходимо в Книге с несколькими листами (1,2,3), скопировать столбец с данными и сложить их значения из всех листов.
То есть. В лист "Итог" переносятся все столбцы из листов, по значению столбца "Е". Столбец "Е" не содержит дубликатов. А столбцы "F" и "G" имеют сумму всех значений Столбца "Е" из всех листов.

Автор - HoBi4ek
Дата добавления - 09.04.2018 в 11:15
InExSu Дата: Вторник, 10.04.2018, 00:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 50 ±
Замечаний: 20% ±

Excel 2010
Привет!
во вложении
К сообщению приложен файл: HoBi4ek.xlsb___.xlsb(28.5 Kb)


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
во вложении

Автор - InExSu
Дата добавления - 10.04.2018 в 00:56
HoBi4ek Дата: Среда, 11.04.2018, 13:47 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо, проверяю.

Не получается кнопку вставить для выполнения макроса. Если без неё, все отрабатывает замечательно. Добавляю кнопку, ошибка
К сообщению приложен файл: 8507860.jpg(17.6 Kb) · 5041324.jpg(72.2 Kb)


Сообщение отредактировал HoBi4ek - Среда, 11.04.2018, 14:14
 
Ответить
СообщениеСпасибо, проверяю.

Не получается кнопку вставить для выполнения макроса. Если без неё, все отрабатывает замечательно. Добавляю кнопку, ошибка

Автор - HoBi4ek
Дата добавления - 11.04.2018 в 13:47
InExSu Дата: Среда, 11.04.2018, 20:58 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 50 ±
Замечаний: 20% ±

Excel 2010
кнопку вставить

Привет!
Пожалуйста, замените в макросе
[vba]
Код
ActiveSheet
[/vba]
на
[vba]
Код
wsDest
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
Сообщение
кнопку вставить

Привет!
Пожалуйста, замените в макросе
[vba]
Код
ActiveSheet
[/vba]
на
[vba]
Код
wsDest
[/vba]

Автор - InExSu
Дата добавления - 11.04.2018 в 20:58
HoBi4ek Дата: Пятница, 13.04.2018, 11:40 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо.
Я так понимаю при работе макрос создает колонки которые потом удаляет, так как кнопка смещается постоянно после выполнения влево. Не подскажите, Её можно как-то закрепить?
 
Ответить
СообщениеСпасибо.
Я так понимаю при работе макрос создает колонки которые потом удаляет, так как кнопка смещается постоянно после выполнения влево. Не подскажите, Её можно как-то закрепить?

Автор - HoBi4ek
Дата добавления - 13.04.2018 в 11:40
InExSu Дата: Пятница, 13.04.2018, 21:38 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 50 ±
Замечаний: 20% ±

Excel 2010
Привет!
G
закрепить

может проще создавать заново?
[vba]
Код
Public Sub MakeButton(ByVal sTxt As String, _
                      ByVal sMacroName)
  'Создать программно кнопку и назначить ей макрос
  Dim btn  As Button
  Set btn = ActiveSheet.Buttons.Add(264, 10, 125.25, 45)
  With btn
    .OnAction = sTxt '"ЗакрытьКнигуПоИмениБезСохранения"
    .Characters.Text = sMacroName '"Закрыть без вопросов"
  End With
End Sub
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
G
закрепить

может проще создавать заново?
[vba]
Код
Public Sub MakeButton(ByVal sTxt As String, _
                      ByVal sMacroName)
  'Создать программно кнопку и назначить ей макрос
  Dim btn  As Button
  Set btn = ActiveSheet.Buttons.Add(264, 10, 125.25, 45)
  With btn
    .OnAction = sTxt '"ЗакрытьКнигуПоИмениБезСохранения"
    .Characters.Text = sMacroName '"Закрыть без вопросов"
  End With
End Sub
[/vba]

Автор - InExSu
Дата добавления - 13.04.2018 в 21:38
HoBi4ek Дата: Четверг, 19.04.2018, 15:27 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо большое.
 
Ответить
СообщениеСпасибо большое.

Автор - HoBi4ek
Дата добавления - 19.04.2018 в 15:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск уникальных ячеек и сложение их значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!