Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 147 След.
Не работают макросы на сетевом диске, Майкрософт блокирует макросы
 
Цитата
ArsB написал:
...В надёжные расположения тоже пытался добавить этот диск, но Эксель не позволяет это сделать...
Добрый день.
Закройте Excel и в реестре в ветке HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Excel\Security\Trusted Locations
создайте/измените параметр DWORD (32 бита) с именем AllowNetworkLocations и присвойте ему значение 1
Максимальное количество повторяющихся значений, Максимальное количество повторяющихся значений
 
Один из множества вариантов:
Количество мужчин: =СЧЁТЕСЛИМН(A2:A11;"м";B2:B11;">0")
Количество женщин: =СЧЁТЕСЛИМН(A2:A11;"ж";B2:B11;">0")
Сравните самостоятельно.
Автоподбор в выпадающем списке
 
Новую функциональность получают сначала те, кто подписан на план Microsoft 365 Insider (бета тестирование):
"The AutoComplete for dropdown lists feature is rolling out to Office Insiders running Beta Channel Version 2202 (Build 14907.20000) or later."

При этом обновления для тестирования новой функциональности рассылаются по времени случайным образом: могут прийти через 1 месяц и позже.
Очередное обновление вполне могло и отобрать что-то )
"Sometimes we remove elements to further improve them based on your feedback"

При переустановке Excel подписка на Beta Channel отключена, но даже если ее включить, то придется опять ждать, когда пришлют что-то новенькое, не до конца протестированное.
Изменено: ZVI - 14.03.2024 04:07:17
Workbook_Open() в Excel Online
 
Цитата
evgeniygeo написал:
"...что, куда и в какой момент нужно вставлять"
Крутой вопрос вообще-то.
В Excel нет встроенных средств для этого.
Надстройка для on-line Excel создаётся либо в Visual Studio, либо в Yeoman generator for Office Add-ins. И требуется подписка на Microsoft 365 E5 subscription (including Office on the web). Еще и IIS (веб-сервер) нужно установить локально для отладки.
Вот ссылка на инструкцию, что и где скачать с примером простейшей надстройки -  Build an Excel task pane add-in
Если/когда разберётесь, то, может, и  поделитесь здесь впечатлениями.
Изменено: ZVI - 14.03.2024 00:51:37
Workbook_Open() в Excel Online
 
В Java Script точно нет такого события.
Есть кривая имитация:
https://learn.microsoft.com/en-us/office/dev/add-ins/develop/run-code-on-document-open
Заметки (примечания) "убегают" в конец листа
 
Цитата
rybacot написал: ZVI, благодарю, все работает
Рад, что помогло
Заметки (примечания) "убегают" в конец листа
 
Цитата
rybacot написал: ... только к выделенным ячейкам ...
Например так:
Код
Sub FixComments()
  Dim Rng As Range, Cell As Range
  On Error Resume Next
  Set Rng = Selection.SpecialCells(xlCellTypeComments)
  If Rng Is Nothing Then
    If ActiveSheet.ProtectContents Then
      MsgBox "Сначала снимите защиту листа", vbExclamation, "FixComments"
    Else
      MsgBox "Нет примечаний в выделенном диапазоне", vbExclamation, "FixComments"
    End If
    Exit Sub
  End If
  On Error GoTo exit_
  For Each Cell In Rng
    With Cell.Comment.Shape
      .Top = Cell.Top - 10
      .Left = Cell.Left + Cell.Width + 10
      .Height = 50
      .Width = 110
    End With
  Next
  MsgBox "Исправлено примечаний: " & Rng.Cells.Count, vbInformation, "FixComments"
exit_:
  If Err Then MsgBox Err.Description, vbCritical, "FixComments"
End Sub

Здесь, как и в коде Виктора, для упрощения ширина и высота примечаний задаются фиксированными.
Правильнее эти параметры вычислять и задавать индивидуально, учитывая ещё и масштаб (zoom) листа, но это посложнее.
Изменено: ZVI - 06.03.2024 21:16:03 (Учтена защита листа)
Проблемы с подключением
 
В месте компьютерной WiFi-антенны может быть слабый прием или мешающие каналы в том же или в соседних каналах.
Это легко посмотреть в приложениях на мобильном.
Например, в этих картинках Wifi Analyzer показывает проблему в диапазоне 2-6 каналов:
Изменено: ZVI - 06.03.2024 12:58:47
Оставить на листе только отфильтрованные строки, Без временных листов и других костылей
 
Можно мышкой:
Файл - Сведения - Найти проблемы - Проверить документ - Да (сохранить и проч) -
Проверить - Скрытые строки и столбцы - Удалить все
Невидимые кавычки в ячейках, Удаление невидимых символов
 
Цитата
Jack Famous написал:...ZVI , приветствую!
Добрый день, Алексей!
Да, известно, что все параметры в диалоге сохраняются. Это бывает и полезно - не нужно каждый раз повторять ввод. Там еще много нюансов, например, с форматами - отвечал только по конкретной проблеме.
Невидимые кавычки в ячейках, Удаление невидимых символов
 
Добрый день, Кирилл.
Там не кавычки, в символ перевода строки и пробел.
Как исправить:
1. Сделать активной ячейку, например, A2
2. Нажать Ctrl-H для отображения диалога замен
3. В поле 'Найти' нажать Ctrl-J и ввести пробел
4. Нажать 'Заменить все'

Пояснение: нажатие Ctrl-J вводит символ перевода строки
Изменено: ZVI - 05.03.2024 03:53:25
Изменить значения в файлах pdf, Vba
 
Михаил, сделал немного по-другому: проще, быстрее и надежнее.
И размер подправил под Legal, как в исходных PDF файлах.
Код
Изменено: ZVI - 09.02.2024 13:50:21
Изменить значения в файлах pdf, Vba
 
Цитата
nilske написал:... в #10 всё-таки были слова более точные - экспорт документа word в формат pdf )
Алексей, напомнило:
- Выпить не хочете?
- Нужно говорить "не хотите"!
- Ну, не хотите, как хочете.
:)
Изменено: ZVI - 09.02.2024 13:57:33
Изменить значения в файлах pdf, Vba
 
Цитата
Sanja написал:... Владимир, Со всем Уважением, но...
Добрый день, Виталий!
Конечно, пусть тема будет здесь.
Кто же знал, куда заведет решение  ;)
Код для VBA Excel, но, как я отметил в сообщении #10, с использованием объектной модели Word для редактирования PDF.

Цитата
Михаил Л написал:... Макрос не осилил этот файл. Как смог изменил код. В принципе результат подходит, только как бы назначить черный цвет для 0.00UZS
Михаил, уточните, пожалуйста, что конкретно не сработало с моей версией кода из сообщения #12.
Вроде все норм., включая цвет результата - посмотрите приложенный результат.
Изменено: ZVI - 09.02.2024 07:15:21
Изменить значения в файлах pdf, Vba
 
Цитата
Михаил Л написал: ...Надеюсь кто-нибудь поможет добавить код для поиска и замены значений...
Доброе утро, Михаил!
Вот вариант кода:
Код
Изменено: ZVI - 07.02.2024 10:06:05
Изменить значения в файлах pdf, Vba
 
Добрый день, Михаил.
Файлы PDF с помощью VBA можно открывать в Word, менять их там и экспортировать в PDF.
Вот шаблон кода для этого:
Код

В том, что конкретно и на что менять в WordContent - не разбирался, это уже самостоятельно
Изменено: ZVI - 06.02.2024 08:38:08
Подключить модуль user32
 
Всё работает:
Код
Option Explicit
Declare PtrSafe Function GetInputState Lib "user32" () As Long
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr

Sub Test1()
  MsgBox "GetActiveWindow = " & GetActiveWindow
End Sub
Изменено: ZVI - 04.02.2024 00:10:14
Соответствие уравнений на калькуляторе и Exel
 
=(500-100)*5*120%
"Этот тип файлов не поддерживается в режиме защищенного просмотра" - появляется при открытии любого файла
 
Ответил здесь
Начали умирать все файлы excel расположенные на сервере
 
Добрый день.

В версии обновления 2311 от 17 ноября были немыслимые ошибки, связанные с VBA , не стану даже перечислять их проявления.

Без особой шумихи через несколько дней стала доступна исправленная версия, которую можно было загрузить вручную, не дожидаясь планового периода - через Файл - Учетная запись - Параметры обновления - Обновить.
С тех пор уже было несколько обновлений: 2311, 2312, на сегодня актуальная версия 2401 (сборка 17231.20182)
Просто обновите Excel вручную )
Изменено: ZVI - 01.02.2024 16:21:45
Выгрузка данных из Outlook в Excell, нужно из писем выгрузить данные в ексель.
 
Цитата
Ольга написала: Спасибо! помогло!  
Рад, что помогло, удачи Вам! 🙂
Выгрузка данных из Outlook в Excell, нужно из писем выгрузить данные в ексель.
 
Цитата
Ольга написала:...Просьба помочь найти ошибку...
Добрый день, Ольга.
Ошибка - в утечках памяти из-за того, что объект инспектора (Outlook Inspector) явно не закрывается (Close) .
В цикле такая утечка накапливается и приводит к ошибке.
Исправить можно так:
Код
Private Sub Start_Click()
    Dim objInspector As Object
    '...
    For Each objMItem In objOutlook.GetNamespace("MAPI").GetDefaultFolder(6).Folders("оценки").Items
        '...
        Set objInspector = objMItem.GetInspector
        Set xDoc = objInspector.WordEditor
        '...
        objInspector.Close 1   ' olDiscard = 1
        Set objInspector = Nothing
    Next
    '...
End Sub
Выгрузка данных из Outlook в Excell, нужно из писем выгрузить данные в ексель.
 
Внутри цикла проверяйте, письмо ли это:
Код
If objMItem.Class = 43 Then  ' Const olMail = 43
'... Обработка
End If
скрытие колонок одновременно в группе листов
 
Или немного покороче:
Код
Sub HideColumns()
  Dim Sh As Worksheet, Cols As String, Shts
  Shts = Array("1.16", "1.8", "1.4", "1.2")
  Cols = "H:S,W:AH,AL:AW,BA:BL,BP:CA,CE:CP,CT:DE,DI:DT,DX:EI,EM:EX"
  For Each Sh In Sheets(Shts)
    Sh.Range(Cols).EntireColumn.Hidden = True
  Next
End Sub
Горячие клавиши для вызова окна редактора VBA не работают, alt+F11
 
Рад, что помогло! 🙂
Горячие клавиши для вызова окна редактора VBA не работают, alt+F11
 
Добрый день!
Причиной может быть драйвер видеокарты GeForce, в котором включен перехват  Alt-F11. Нужно в настройках драйвера видеокарты снять галочку использования Alt-F11. Для GeForce Experience это где-то здесь:
1. Settings
2. General
3. In-Game Overlay -> Settings
4. Keyboard Shortcuts
Доработать таблицу по расчету стоимости фрезеровки на ЧПУ, Есть набросок, нужно доделать таблицу правильно. Но понятным оброзом изменять стоимость.
 
Цитата
БМВ написал: эмоции и поэмы позже почищу
Добрый день, Михаил!  :)

Типичная ошибка в этой ветке и в данной теме заключается в том, что заказчик вместо того, чтобы посчитать свою экономику: затраты старого решения с последующими многократными выгодами нового, пытается оценить то, в чем он обычно слабо ориентируется – затраты исполнителя.
Поэтому бывает трудно понять логику:
1. «наверное, на час работы»
2. «уже 3 сутки не сплю» (потрачена зарплата за 3 дня)
3. «финансово скромно отблагодарю»
4. «думал скромно предложить, чтобы не обидеть до 5 тысяч» (5т.р. за час это не скромно + в начале никакая сумма вообще не упоминалась, а оценка все же была)

Извиняюсь перед автором и участниками темы за вклинивание, весь мой оффтоп можно удалить.
Просто хотел помочь потенциальным заказчикам в оценке своей экономики и исключении лишних эмоций.

Удачи всем!
Изменено: ZVI - 07.01.2024 01:24:47
Доработать таблицу по расчету стоимости фрезеровки на ЧПУ, Есть набросок, нужно доделать таблицу правильно. Но понятным оброзом изменять стоимость.
 
Цитата
Unrea1 написал: ШЕФ искал на профи.ру человека который сможет починить  замок дверной к нему в кабинет, подклеить обои над дверью и уложить провод интернета в короб который спускался с потолка над дверью. приходило 3 или 4 человека называли за все безумно разные цены , как было потом понятно, что ему минимум говорили 30 тысяч,
Добрый день!

Забавно то, что шеф оплатил 3*5=15 тыс.руб наличкой, плюс "эти выходные поставили как рабочий день", а это, как минимум, еще столько же. Итого те же 30+ т.р., где тут экономия?  ;)

Чтобы Заказчику оценить стоимость заказываемых работ, нужно оценить стоимость решаемой проблемы и выбрать срок окупаемости.
1. Допустим, затраты должны окупиться за 1 месяц.
2. Стоимость проблемы:
2.1. Оценить трудоемкость за месяц (п.1.) в чел.часах, затрачиваемую сейчас, которую предполагается сократить
2.2. Оценить  стоимость трудоемкости по п. 2.1, умножив количество чел.часов (п.2.1.) на среднюю стоимость 1 чел.часа
Это и будет оценка Заказчиком стоимости заказа сверху.

А Исполнитель оценит свои затраты на решение проблемы и либо возьмется за выполнение работ, либо предложит свою оценку.

P.S. Может, это в правила ветки записать? Тогда и эмоций здесь будет меньше.
Изменено: ZVI - 06.01.2024 14:34:02
Microsoft встроила Python в Excel
 
Цитата
seggi написал: ...Брать вместо этого какой-то новый коммерческий программный язык, который поддерживается фактически двумя людьми (как я понимаю - мужем и женой) - ну, так себе решение
Добрый день, seggi! Согласен полностью.

Цитата
bedvit написал:
Да, и еще просвятите меня - чем Python будет лучше VBA в контексте использования в Excel?
Виталий, привет!

Сравнивать VBA с Python не буду, это преждевременно и вряд ли корректно.
Отмечу только , что чего только не пытались внедрить в Excel - VBA устойчиво выживает.
Пока видится плюс в готовых и достаточно навороченных библиотеках Python, даже если будут доступны только часть из них.
Недостатки очевидны:
- Работа только в Excel 365+
- Проблемы совместимости со всеми предыдущими версиями Excel. Использование нового синтаксиса в формулах создаст некоторый хаос на 5+ лет, пока предыдущие версии не перестанут массово использоваться.
- Невозможность подключения своих или чьих-то иных библиотек.

Вообще-то, есть и альтернативные решения по подключению Python к Excel текущих версий.
Не отслеживаю это, но и в данном разделе форума была тема на эту тему )
Изменено: ZVI - 19.12.2023 21:50:21
Microsoft встроила Python в Excel
 
Цитата
Jack Famous написал: очень интересный проект.
День добрый!

Бесплатная версия twinBasic: запуск кода в exe/dll с 5 секундной заставкой, не поддерживает 64 бит, нет оптимизации скомпилированного кода. Кому сейчас нужны только 32 бит?
Pro - 35$ в месяц, ultra - 52$, и как платить будете? И всё ещё в разработке.
Точно интересный вариант? 😏

А пайтону в Excel 365 для исключения проблем безопасности будут разрешены только библиотеки, одобреные MS, и только из их облака. Но и при таких ограничениях там может быть немало интересного и, наверное, есть перспектива расширения списка библиотек.
Изменено: ZVI - 18.12.2023 22:39:53
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 147 След.
Наверх