Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 След.
Русские символы в msgbox заменены символом вопроса
 
Попробуйте кодовые страницы "помучить". Предварительно сделав бэкапы...

Смотреть тут: https://remontka.pro/fix-cyrillic-windows-10/
EXCEL 2016 VBA редактор. Не меняется размер шрифта
 
... подозреваю, что дело в ИМЕНИ шрифтов. Но как это исправить??? :cry:

Скрытый текст

UPD: Ураааа!!! Справился...
Смотреть тут: https://remontka.pro/fix-cyrillic-windows-10/
Скрытый текст
Изменено: jack_21 - 15 окт 2020 00:41:51
EXCEL 2016 VBA редактор. Не меняется размер шрифта
 
Аналогичная проблема.

Win10x64
Office 2016 - был удалён. Следы вычещены (cclenaer + regorganizer).
Office 2010 - установлен. После этого возникла аналогичная проблема - не меняется шрифт представления для VBA редактора.
Скрытый текст


Изменение разрешения экрана н помогло, что, кажется естественным...
Изменено: jack_21 - 11 окт 2020 23:39:06
Макрос закрытия книги при бездействии пользователя
 
А если в Xx = записывать ActiveCell.Address, то отслеживаться будет адрес текущей ячейки в excel. И тогда действия юзера в другом приложении не влияет на таймер.

Скрытый текст

и не нужно к user32.dll обращаться.
Определение наличия скрытых столбцов
 
БМВ, уточняющий вопрос: "=TRUE" не нужен или не обязателен?
У мну и так, и так работает...
Изменено: jack_21 - 14 май 2020 22:46:28
Определение наличия скрытых столбцов
 
Александр Чекирда, вот такой модуль выведет сообщение о наличии/отсутствии скрытых колонок.

Код
Sub CheckIfHiddenColumns()
  If Cells.SpecialCells(xlCellTypeVisible).Columns.Count <> Cells.Columns.Count = True Then ' hint by BMW
       MsgBox "Hidden Columns Exist"
  Else
       MsgBox "No Hidden Columns"
  End If
End Sub

Определение наличия скрытых столбцов
 
Цитата
Александр Чекирда написал:
Что мне с этим делать?
Зависит от того, что вы хотите делать с этой информацией.
Что должно произойти, если есть?
Что должно произойти, если нет?
О проблеме совместимости библиотеки элементов MSForms в Win10, при системной запятой как разделителе целой и дробной частей числа
 
Возможное решение проблемы. Сам пока не пробовал - нету Win10 для испытаний.

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_other-mso_win10/office-2016-crashed-when-userform-added-to-vba/f2f16ffa-9a1f-4bfd-babb-1e93a78d5c65?auth=1)&page=3

цитата Paul Kettle:

"Resolution: I copied my current Windword.BOX and Excel.BOX files from my Windows 7 device (known working without issues) to my Windows 10 and that fixed the issue. Note: My Windows 7 and Windows 10 are both running Office 2016."

Сокращённый перевод: скопировать файл Excel.box с "рабочей" станции на "проблемную"

Файл *.BOX находится здесь:
C:\Users\(your computer user)\application data\Microsoft\forms\EXCEL.box

Кто-то файл *.box переименовывает и тогда создаётся новый файл. Но это на ОДИН раз. Переменовывать можно *.bat файлом, кмк...
Изменено: jack_21 - 26 сен 2019 00:06:47
Как подавить переключение в окно VBA?
 
Читал я этот источник. Имхо, шибко громоздко это всё. А у меня "громоздко" равняется "велика вероятность ошибки".
Так ещё и Declare Function надо дуально сделать - для х32 и х64.
Как подавить переключение в окно VBA?
 
При запуске макроса, который удаляет и тут же вставляет код в ThisWorkbook/ЭтаКнига, выскакивает окно VBA.
И показывается код только что внедрённый в ThisWorkbook/ЭтаКнига.
Программно закрыть его можно, но это вызывает дёргание окон:
Код
SendKeys "%{F4}"
или
ThisWorkbook.VBProject.VBE.MainWindow.Visible = False

Возможно ли подавить переключение в окно VBA?

процедура вставляющая код в ThisWorkbook/ЭтаКнига.
Скрытый текст
Изменено: jack_21 - 18 авг 2019 17:38:06
Проверка для активной книги - "ThisWorkbook" или "ЭтаКнига", для русской версии используется ссылка на ЭтаКнига. Для английской ThisWorkbook
 
Спасибо за решения! Вариант от ZVI наиболее подошёл, ибо без функции...
Спасибо!

upd: продолжаю пробовать оба варианта - что-то идёт не так...

upd2: всё заработало - с решением от ZVI :
Код
Set objVBComp = objVBProj.VBComponents(ActiveWorkbook.CodeName)
Изменено: jack_21 - 18 авг 2019 16:50:41
Проверка для активной книги - "ThisWorkbook" или "ЭтаКнига", для русской версии используется ссылка на ЭтаКнига. Для английской ThisWorkbook
 
Цитата
БМВ написал:
application.LanguageSettings.LanguageID
Это же идентификатор языка приложения. Русской версией Офиса я открываю книгу в которой фигурирует ThisWorkbook...

Вот эта часть выдаёт ошибку:
Код
    Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)
            Case 1033: Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("ThisWorkbook")
            Case 1049: Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
            Case Else: Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("ThisWorkbook")
    End Select
Проверка для активной книги - "ThisWorkbook" или "ЭтаКнига", для русской версии используется ссылка на ЭтаКнига. Для английской ThisWorkbook
 
Есть макрос вставляющий в ThisWoorkbook/ЭтаКнига код событийной процедуры.  у меня это Workbook_AfterSave.

Код
Sub CreateEventProcedure()
'https://www.excel-vba.ru/chto-umeet-excel/kak-dobavit-kod-procedury-programmno-skopirovat-modul/
    Dim objVBProj As Object, objVBComp As Object, objCodeMod As Object
    Dim lLineNum As Long
    'добавляем новую книгу
    Workbooks.Add
    'получаем ссылку на проект и модуль книги
    Set objVBProj = ActiveWorkbook.VBProject
    Set objVBComp = objVBProj.VBComponents("ЭтаКнига")
    Set objCodeMod = objVBComp.CodeModule
    'вставляем код
    With objCodeMod
        lLineNum = .CreateEventProc("Open", "Workbook")
        lLineNum = lLineNum + 1
        .InsertLines lLineNum, "    MsgBox ""Hello World"""
    End With
End Sub


Есть нюанс: "для русской версии используется ссылка на ЭтаКнига. Для английской ThisWorkbook"

Код
Set objVBComp = objVBProj.VBComponents("ThisWorkbook")


??? КАК организовать проверку для активной книги - в ней ThisWorkbook или ЭтаКнига ???
Файлы все однотипные, но одни созданы на MSO2007 EN, а другие в MSO2010 RU...
Отформатировать все файлы по одному образцу
 
я вот таким пользуюсь:
https://excelvba.ru/code/GetFileOrFolderPath

Только надо макрос вставить для действия с каждым файлом.
О проблеме совместимости библиотеки элементов MSForms в Win10, при системной запятой как разделителе целой и дробной частей числа
 
Кто-нибудь пробовал заменить FM20.dll в Win10x64? Проблема пропадает?
Взять этот файл предполагается из Win8.1x64...
При переходе из Wind7 в Wind10 в TextBox значение с точкой, в региональніх стандартах азделитель запятая
 
Цитата
ZVI написал:
Есть такая проблема, она связана не с версией Office, и не с его битностью 32/64, а именно с версией операционной системы, точнее с библиотекой FM20.DLL
Вот тут что-то похожее - использование VBA кода на win7 и win10. Грешат на FM20.dll
https://www.mrexcel.com/forum/excel-questions/922318-moving-excel-vba-code-windows-7-windows-10-h-e-l-p.html
Цитата:
Скрытый текст

Я наталкнулся "на стену недопонимания" подключив надстройку в Win10+office2007.
Показав собщение об отсутствии библиотеки, в коде подсвечивается функция ChrW(257)...

Эта часть была не очень важна и я эти строки с ChrW функцией закоментировал.
Это заполнение было -> ComboBox5.AddItem "Pied" & ChrW(257) & "v" & ChrW(257) & "jums"

После этого выдало ту же ошибку, но уже ругнулось на другую часть кода без ChrW. Даже не запомнил на какую, поняв, что проблема не в коде.
Изменено: jack_21 - 6 июл 2019 01:05:24
Сохранение файла. Не изменять свойства/даты файла.
 
Помогите, плиз!
Как переделать этот код (перебирает ВСЕ файлы в папке), что бы можно было выбрать несколько файлов из папки (используя Ctrl и Shift)???
Скрытый текст

Как под эту задачу можно использовать нижеследующий код? Если это возможно...
https://excelvba.ru/code/GetFileOrFolderPath
Скрытый текст
Изменено: jack_21 - 21 июн 2019 13:44:29
Макрос закрытия книги при бездействии пользователя
 
А в этом коде обязательно отслеживать ОБЕ координаты курсора?
Может достаточно следить только за одной из них? Ибо практически невозможно сдвинуть мышь, чтобы X или Y оставались константой.
Изменено: jack_21 - 12 мар 2019 04:56:54
Как задать значение переменной - время в минутах, в секундах, Макрос закрытия книги при бездействии
 
Цитата
БМВ написал:
set уберите, простого присвоения более чем. xTime = "00:03:00"
Вот так, вроде, работает...  :)

Цитата
Ігор Гончаренко написал:
Вам не кажется странным что в записи 12:03:00 нет секунд, зато есть часы?
Это я списал из какого-то кода из сети. Показалось странным, но там писали, что так надо. А оказывается - это устанавливает время после полуночи.
Как задать значение переменной - время в минутах, в секундах, Макрос закрытия книги при бездействии
 
Добрый день!
Есть такой код :

При старте файла требуется указать время простоя для xTime As String через Application.InputBox.
Хотелось бы обойти этот запрос и "зафиксировать" значение xTime, скажем в 3 минуты.
Не смог найти как указать значение переменной.

Set xTime = "00:03:00"
Set xTime = #12:03:00 AM# - оба эти варианта приводят к ошибке Object Requered.

Как задать значение xTime в обход InputBox?


Автоматически сохранить и закрыть файл Excel после определенного простоя (https://www.extendoffice.com/ru/documents/excel/4745-auto-close-excel-file-after-idle-time.html)
Скрытый текст
Изменено: jack_21 - 10 мар 2019 23:45:49
Сохранение файла с макросами *.xlsb, Постоянно просит сохранить файл *.xlsb
 
Спасибо! Сработало!!!  :idea:
Сохранение файла с макросами *.xlsb, Постоянно просит сохранить файл *.xlsb
 
Есть 2 файла с макросами:
- personal.xlsb (находится в папке по умолчанию - XLSTART)
- MACROS.xlsb (находится в другой папке и путь прописан в альтернативную автозагрузку при старте Excel).
Есть один ньюанс - файл MACROS.XLSB сохраняется в облачную папку для доступности дома и на работе.

Так вот этот MACROS.XLSB постоянно просит сохранить при выходе из EXCEL. Даже если я с ним не проделывал никаких действий.
При этом изредка позволяет сохранить по нажатию "ОК", а чаще всего не позволяет сохранить и тогда я жму "Отмена" и Excel вылетает...

Что может быть не так? Сам файл испорчен или что-то с настройками Excel'a?

win8.1x64ru+mso2010x64ru
win8.1x64en+mso2007x32en
Изменить файл-источник из UserForm
 
Мда... Ни черта у мну не получилось. Решил просто объединять 2 книги...  :oops:
Изменить файл-источник из UserForm
 
Hugo, да - f надо менять.
Написание в одну строку сбило меня...  :oops:

А "связанные чекбоксы" и "боксы в группе" это не одно и тоже?
Изменено: jack_21 - 22 янв 2019 00:55:48
Изменить файл-источник из UserForm
 
Добрый день!

Есть код для UserForm: (автор SAS888)
Скрытый текст

Посоветуйте, плиз, как можно было бы изменять значение переменной p=... каким-либо из Control'ов на UserForm?
CheckBox, ControlButton, ToggleButton, CommandButton.

Смысл такой, что сейчас, при инициализации формы UserForm, ListBox заполняется данными из файла %desktop% / ALL.xlsb.
У меня на Рабочем столе 2 идентичных файла - ALL.xlsb и ALL2.xlsb - с разными данными.

Хотелось бы реализовать переключение файла-источника из UserForm.
Изменено: jack_21 - 21 янв 2019 19:48:20
Сохранение файла. Не изменять свойства/даты файла.
 
Спасибо большое. Сработало...

Функция в таком виде (пост№8) может работать или ОБЯЗАТЕЛЬНО назначать тип переменных?
Поэтому ОНО выдавало мне ошибку "91" (run-time error '91' : Object variable or with block variable not set) ?

Код
Function GEtModFileDT(strDir, strFileName)
...
Function ModFileDT(strDir, strFileName, DateTime)


Код
Function GEtModFileDT(ByVal strDir As Variant, ByVal strFileName As Variant)
...  
Function ModFileDT(ByVal strDir As Variant, ByVal strFileName As Variant, ByVal DateTime As Date)
Объединить значения текстовых ячеек, Вопрос по переносу в EXCEL
 
Название темы:
Объединить значения текстовых ячеек.
Изменено: jack_21 - 29 апр 2018 18:46:40
Сохранение файла. Не изменять свойства/даты файла.
 
Сдаюсь. Не могу сообразить как этим пользоваться...

Есть макрос перебора файлов в папке. Что, куда, как? Запутался я с этими функциями.

Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом = macros
        'Запишем на первый лист книги в ячейку А1 - NEW VERSION
        ActiveWorkbook.Sheets(1).Range("A1").Value = "NEW VERSION"
        'Закрываем книгу с сохранением изменений
        ActiveWorkbook.Close True
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
После работы макроса пропали значки выпадающих списков., как восстановить?
 
Пересохранение файла в XLSB и сразу же в XLS вот таким макросом организовал.
Найдено в интернете http://excelvba.ru/code/ChangeWorkbookFormat

Скрытый текст
После работы макроса пропали значки выпадающих списков., как восстановить?
 
Да пробовал я многие аналоги. Проблема в том, что я хочу понимать что именно ОНО делает. А я пока не дорос. А по-сему - сначала в ручную... :)
Страницы: 1 2 3 4 След.
Наверх