Всем привет народ ! Вопрос про exel
Вопрос со звёздочкой, уровень сложности "Анатолий Вассерман". Как сравнить два файла exel а точнее их содержимое и чтобы программа выдала результат там то там то разница в том то ?)
Вопрос со звёздочкой, уровень сложности "Анатолий Вассерман". Как сравнить два файла exel а точнее их содержимое и чтобы программа выдала результат там то там то разница в том то ?)
Добрый день, потребовалось создать VSTO расширение для Outlook
Смысл какой: ADDIN приложение которые будет в виде отдельной формы ( по типу Calldav) в котором из выпадающего списка можно будет выбрать необходимые параметры и отсылать эти параметры письмом в тех. поддержку предприятия
Может есть у кого подобная разработка? Самому интересно посидеть по коду полазить, поделитесь товарищи Пикабутяне
Добрый день всем.
Я по профессии не программист. Но это мое мелкое хобби. Как оказалось, одно из полезных применений данному увлеченно - умение написать скрипт в Excel, т.к. по работе приходится иметь дело с большим объемом различных документов. В VBA получается, но мне не нравится. Выходит громоздко и без интеллиСенс неудобно. Недавно мне попалось на глаза VSTO (создание надстроек). Но не могу найти нормального и бесплатного курса(. Если у кого-нибудь есть чем поделиться -буду очень рад.
желательно видео с возможностью скачать, т.к. мне усваиваются азы проще в таком формате, а интернет под рукой далеко не всегда.
Для всех поклонников футбола Hisense подготовил крутой конкурс в соцсетях. Попытайте удачу, чтобы получить классный мерч и технику от глобального партнера чемпионата.
А если не любите полагаться на случай и сразу отправляетесь за техникой Hisense, не прячьте далеко чек. Загрузите на сайт и получите подписку на Wink на 3 месяца в подарок.
Реклама ООО «Горенье БТ», ИНН: 7704722037
Настроили красивый отчет, но при обновлении данных столбцы съезжают?
Для отключения изменения ширины столбцов Сводной таблицы при обновлении данных, установите курсор на любую ячейку таблицы.
Нажмите правую кнопку мыши и в появившемся меню выберите Параметры сводной таблицы:
На вкладке Макет и формат, уберите галку с пункта Автоматически изменять ширину столбцов при обновлении:
Готово! Теперь ширина столбцов будет такой, какую вы задали.
Если, часто работаете с сводными, есть смысл использовать макрос:
Sub PivotStaticColumn() 'Отключение автоматического изменения ширины столбцов при обновлении
Dim pvtTable As PivotTable
On Error Resume Next
Set pvtTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
On Error GoTo 0
If Not pvtTable Is Nothing Then
ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).HasAutoFormat = False
Else
MsgBox "Выделите ячейку Сводной таблицы!", vbExclamation, "Подсказка"
End If
End Sub
Копируйте нужный код и сохраните его в Личной книге макросов.
Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.
Спасибо, что дочитали до конца!
Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
Еще готовые решения:
Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?
Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .
Исключая "ручной привод", максимально просто решает проблему, такой макрос:
Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:
Sub DelEmptyRows() 'Удаление пустых строк на активном листе
Dim i As Long
Dim rMay1 As Range
Dim rMay2 As Range
Set rMay1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
'удаляем пустые строки
For i = 1 To rMay1.Rows.Count
If WorksheetFunction.CountA(rMay1.Rows(i).EntireRow) = 0 Then
If rMay2 Is Nothing Then
Set rMay2 = rMay1.Rows(i).EntireRow
Else
Set rMay2 = Application.Union(rMay2, rMay1.Rows(i).EntireRow)
End If
End If
Next
If rMay2 Is Nothing Then
MsgBox "Пустых строк не найдено.", vbInformation, "Информация"
Else:
rMay2.[Delete]
End If
Application.ScreenUpdating = True
End Sub
В продолжение к посту Макрос для удаления пустых столбцов в книгах Excel.
Вам необходимо использовать один и тот же макрос (пользовательскую функцию) в разных рабочих книгах? Нет ничего проще, сохраните его в Личной книге макросов, файл которой имеет название — PERSONAL.XLSB. Он скрыто открывается при запуске программы MS Excel и доступен только на вашем ПК.
Создание и сохранение кода в Личной книге макросов
1. В строке состояния, нажмите иконку записи макроса:
Или на вкладке Разработчик ► Запись макроса (Код):
Если вкладка Разработчик отсутствует, нажмите в Строке меню или на Панели инструментов правую кнопку мыши и выберите в меню вариант Настройка ленты...:
В окне настройки, установите галку Разработчик:
2. В открывшемся диалоговом окне Запись макроса, из выпадающего списка Сохранить в: выберите вариант Личная книга макросов, нажмите на кнопку Oк:
На вкладке Разработчик ► Остановить запись (Код).
3. Закройте текущую книгу нажав Сохранить в диалоговом окне:
Файл Личной книги макросов создан.
Чтобы узнать путь к файлу, откройте новую книгу, нажмите клавиши ALT + F11, редакторе Visual Basic (VBE) вставьте в «Project-VBAProject» (PERSONAL.XLSB) макрос:
Sub ПутькФайлу()
ActiveCell.Value = ThisWorkbook.Path
End Sub
В любом случае, книга PERSONAL.XLSB находится в папке XLSTART , которую можно найти с помощью поиска в проводнике Windows.
Закройте VBE и выполните макрос в окне MS Excel.
В любом случае, книга PERSONAL.XLSB находится в папке XLSTART, которую можно найти с помощью поиска в проводнике Windows.
Добавление макросов
Если вы хотите написать свой макрос (пользовательскую функцию) или добавить готовый из интернета, откройте редактор VBE (ALT + F11), выберите папку «Project-VBAProject» (PERSONAL.XLSB) и вставьте в модуль нужный код. Уже записанные в книгу макросы удалять не нужно, они не будут конфликтовать между собой, если в одном модуле не хранить макросы с одинаковыми именами.
Подпрограммы, размещенные в Личной книге макросов, можно просмотреть в окне Список макросов, открыв его из любой рабочей книги MS Excel (Alt + F8):
Они будут перечислены с приставкой PERSONAL.XLSB!.
Пользовательские функции в этом окне не отображаются:
Пользовательские функции, размещенные в Личной книге макросов, доступны для просмотра, выбора и вставки их в ячейки рабочего листа через Мастер функций, расположены в категории Определенные пользователем. Выбираются и вставляются в ячейки так же, как и все остальные функции.
Вызов процедур из Личной книги макросов осуществляется, как и запуск процедур из любой другой рабочей книги.
Удаление Личной книги макросов
Для удаления, найдите с помощью поиска в проводнике папку XLSTART и удалите из нее файл PERSONAL.XLSB.
Особенности работы с Личной книгой макросов
1. Возможны сложности, у корпоративных пользователей, т.к. файл в системной папке скрытой, для решения, обратитесь к своему Системному администратору;
2. На слабых компьютерах, при использовании, MS Excel будет запускаться медленнее;
3. Периодически очищайте от старых и ненужных макросов.
При выгрузке из 1С, часто файлы содержат пустые столбцы (в т.ч. и скрытые), которые мешают дальнейшей обработке данных. Приходится удалять их руками, что совсем не продуктивно. Макрос решит задачу мгновенно.
Копируйте код и сохраните его в Личной книге макросов.
Sub ColumnDel()
'Удаляем пустые столбцы
Dim i As Long
Dim rgMy1 As Range
Dim rgMy2 As Range
Set rgMy1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
For i = 1 To rgMy1.Columns.Count
If WorksheetFunction.CountA(rgMy1.Columns(i).EntireColumn) = 0 Then
If rgMy2 Is Nothing Then
Set rgMy2 = rgMy1.Columns(i).EntireColumn
Else
Set rgMy2 = Application.Union(rgMy2, rgMy1.Columns(i).EntireColumn)
End If
End If
Next
If rgMy2 Is Nothing Then
MsgBox "Не найдено пустых столбцов", vbInformation, "Для информации"
Else:
rgMy2.[Delete]
End If
Application.ScreenUpdating = True
End Sub
Открыть редактор VBA Alt +F11:
Вызвать меню для выполнения или изменения макросов Alt + F8:
На выполнение макроса можно назначить "Горячие клавиши", нажав в окне Параметры:
В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.
Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
«Чат на чат» — новое развлекательное шоу RUTUBE. В нем два известных гостя соревнуются, у кого смешнее друзья. Звезды создают групповые чаты с близкими людьми и в каждом раунде присылают им забавные челленджи и задания. Команда, которая окажется креативнее, побеждает.
Реклама ООО «РУФОРМ», ИНН: 7714886605
Работаю в головной организации, часто приходится собирать отчеты с подведомственных подразделений. Готовлю форму отчета в Excel, отправляю в подразделения, они присылают кто во что горазд. Там где были забиты формулы - вбиты числа с клавиатуры и как правило их подсчет неверный, там где стояли крестики (ячейки, которые заполнять не нужно) тоже заполнены числами, а то и буквами. То добавляют на свое усмотрение ячейки/строки/графы, то удаляют их. Каждый раз свод отчета превращается в тот еще квест. Вместо того чтобы открыть сводный файл, в котором заранее прописаны все связи на ячейки со всех подразделений и нажать кнопку «обновить данные», я начинаю заниматься хернёй (копипастить вручную). Подразделей, конечно, не миллион, но 44 тоже не мало, а таблицы бывают очень даже большие с большим количеством данных. Прошу их постоянно не проявлять инициативу, но все просьбы как горох об стену. И вот решил я как-то (лет 5 назад) этот вопрос устаканить. Запаролил всё, за исключением только тех ячеек, которые нужно заполнить. В сопроводительном сообщении опять ругательно попросил не менять ничего вплоть до цвета, запаха, вкуса ячеек и т.д. и т.п. Присылают они отчеты, а там всё то же самое. Все переделано на свой вкус. Да твою ж мать! Как вы это делаете? Позже я выяснил, что финансирование на лицензию Microsoft Office предусмотрено только в головной (моей) организации, а в подведомственных установлены LibreOffice или OpenOffice. Уж какие там у них версии установлены я не знаю, но практика показала, что этим двум продуктам на пароль ячеек, установленный в Microsoft Office:
Т.е. спец-ы просто открывали присланные мною файлы, в меню снимали защиту,
никакого запроса пароля нет, они опять редактировали всё по своему усмотрению и удобству. С тех пор идею я эту забраковал, приучить к порядку большинство из спец-ов всё же удалось, но некоторые из них просто непробиваемые. И если спец-т (уже ученый) уходит в отпуск, его замещающий пришлет отчет обязательно по-своему/по своей форме.
Так что, если забыли пароль, то просто попробуйте открыть файл OpenOffice и снять защиту.