Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Diana Tailor
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
VBA. Использование символа "умножить" (крестик по диагонали) в string
 
#
12.05.2020 20:03:58
Здравствуйте.
Все знают символ "умножить" (вставка - символ - выбираем крестик, который по диагонали).
Как его в VBA реализовать?

Например msgbox "символ умножить".

Через chrw пробовала, но вместо данного символа вопросительный знак только получается.

Спасибо.
 
Перейти    
VBA. Событие изменения конкретных строк
 
#
07.12.2018 08:15:37
Здравствуйте.

Имеется необходимость отследить строки, в которых изменились ячейки.
Собственно, простейший макрос:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub

Если мы по одной ячейке изменяем, все корректно. Если работаем с диапазоном – не очень.

Пример: пустой лист.
Код
Range(“A1”)=1
Range(“A3”)=1

Как видно, в ячейке A2 значений нет. Если выделить диапазон A1:A3 нажать Delete, то Excel считает, что изменения произошли во всем диапазоне, хотя по факту только в 1 и 3 строке.

Как отследить значения именно измененных строк? (т.е. если не было значений и удалились – это уже не изменение, а если были и удалились/поменялись – уже изменение).

Спасибо.
Изменено: Diana Tailor - 07.12.2018 12:16:39
 
Перейти    
Время выполнения макроса из панели значительно дольше
 
#
03.12.2018 10:17:03
Здравствуйте.
Появился вопрос, с которым я никогда не сталкивалась.
Имеется надстройка, кнопочки выведены через Ribbon.
Следовательно, имеется RibbonCallbacks.
В RibbonCallbacks имеется:
Код
'btn15 (компонент: button, атрибут: onAction), 2007
Sub NullSave1(control As IRibbonControl)
Savetest
End Sub
Если я запускаю макрос через панель (через кнопку) он выполняется 17 секунд.
Если его запустить через VBA (макрос Savetest) напрямую, то время выполнения составляет 0,4 сек.

В чем может быть причина?
Спасибо.
 
Перейти    
VBA. Определение LastRow с учетом скрытых столбцов и форматирования
 
#
23.11.2018 18:00:05

Доброго времени суток, с прошедшими :) ноябрьскими праздниками!

Имеется xlsm файл.

Требуется найти последнюю заполненную строку видимым отображаемым значением (формул тут нет и не планируется, файл и так весит очень много в связи с форматированием 1006 строк).

На просторах интернета изучила материалы, задача-то простая, а вот решение не нашла для своего примера.

В примере 4 макроса, только один из них считает правильно с учетом скрытых столбцов – Primer1 (его я набросала сама). Но очень уж долго – больше 3-х секунд.

Возможно ли использовать какое-либо еще решение? Количество столбцов – постоянное – 664. Количество строк, максимально возможных заполненных – с 7-ой по 1006-ю. Строки отформатированы.

В диапазоне "A7:YN664" нет объединенных ячеек.

В данном примере пришлось убрать форматирование после 30-й строки и 34-столбца. А то файл весил почти 2 Мб.

Спасибо!
Изменено: Diana Tailor - 23.11.2018 18:00:29
 
Перейти    
Корректное отключение надстроек Excel в Office 365, Не получается отключить надстройки из настраиваемой панели
 
#
14.10.2018 20:23:07

Здравствуйте.

Используется Excel из набора Office 365.

Пользовалась кое-какими надстройками, теперь за ненадобностью решила их удалить. Оставила только две: Plex и Xlstatgeo2. (скрин №3)

Но! При переходе в «Надстройки» там все равно остаются панели инструментов тех надстроек, которые я отключила, переместила в другие места. Как от них избавиться? (скрин №4)

Спасибо.
 
Перейти    
"Слетают" ссылки на надстройки на разных компьютерах
 
#
05.04.2018 20:49:14

Доброго времени суток!

На одном компьютере создаю файл «Книга1.xlsx». Вписываю формулу (из надстройки PLEX, к примеру) в ячейку A2 (скрин1).

Открываю на другом компьютере, на котором тоже установлена надстройка Plex, и начинаются ошибки (скрин2).

Если положить созданный файл в папку OneDrive на одном компьютере, а открыть из этой же OneDrive на другом, - надстройка вообще ссылается в облако (скрин 3).

Ели использовать пользовательские функции через персональную книгу макросов (Personal.xlsb), то проблем никаких нет, открывается и там, и тут.

Но тут другая проблемка – такая же персональная книга макросов должна быть и на другом компьютере, и в ней нельзя создать такую же панельку, как в XLAM (вкладка «PLEX», например).

И вопрос:

Что можно сделать, чтобы надстройки, созданные на одном компьютере, могли без проблем открываться и на другом? В том числе и через OneDrive.
 
Перейти    
VBA. Запуск Excel с надстройками из другого приложения, Не загружаются надстройки
 
#
01.04.2018 08:43:51
Доброго времени суток!
Вот если из проводника открывать Excel-файл, то этот файл открывается с пользовательскими надстройками, например, с Plex и другими.
Возникла необходимость открыть его из другого приложения (в моем случае это AutoCad, но, полагаю, разницы-то нет никакой).

Я, как более ли менее разбирающаяся на своем микроуровне макросах, пользуюсь таким кодом:

Код
Set oExcel = CreateObject("Excel.Application")
oExcel.workbooks.Open sWB
oExcel.activeworkbook.SaveAs sFN

Но проблема в том, что книга после этой манипуляции открывается без надстроек (без Plex и без других, соответственно).
Как запустить с надстройками?

Спасибо.
Изменено: Diana Tailor - 01.04.2018 08:49:12
 
Перейти    
drug&drop в VBA (Внешний файл в UserForm)
 
#
29.03.2018 11:20:50

Здравствуйте.

Возможно ли средствами VBA Excel реализовать drug&drop?

Имеем Userform с ListBoxом.

Запускаем ее в режиме vbmodeless.

Тянем, например, с рабочего стола или любой другой папки, файл (неважно какой, txt, xls*, doc) в окошко ListBox.

И вот тут бы получить на выходе полное имя этого файла для последующей его обработки.

Как считаете, можно такое сделать?

Спасибо.
 
Перейти    
VBA. Преобразовать строку String в массив с датами
 
#
04.03.2018 15:47:18
Здравствуйте.
Необходимо вывести минимальное и максимальное значение.
Не соображу, что не так?
Помогите, пожалуйста.
Код
Sub subTemp1()
Dim s As String
Dim spl
Dim arr()
Dim i As Integer

s = "12.01.2017@18.01.17@20.02.18"' вот тут в разных форматах, как видно
spl = Split(s, "@")
ReDim arr(UBound(spl))
For i = 0 To UBound(spl)
    arr(i) = Format(spl(i), "DD.MM.YYYY")
Next i

MsgBox WorksheetFunction.Min(arr) & vbTab & WorksheetFunction.Max(arr)
End Sub

Спасибо.
 
Перейти    
Ошибка при направлении команды приложению
 
#
02.03.2018 19:54:54
Доброго времени суток. Тема точно не относится к Excel, уважаемые модераторы :) Пишу тут, так как с Excel у меня в том числе проблемы.
При запуске некоторых приложений (MS Office, Autocad), в частности, при открытии файла из проводника, возникает сообщение (скриншот:  Ошибка при направлении команды приложению).
При этом, при открытии из TotalCommander - все открывается замечательно.
Также обращу внимание, что при открытии документов Adobe Acrobat, например, такой проблемы нет.
Официальные методы, указанные на сайте https://support.microsoft.com/ru-ru/help/3001579/an-error-occurred-when-sending-commands-to-the-prog... результатов не дали.
Может, кто сталкивался, как можно решить?
Windows 8.1, MsOffice 2010 (Rus), Autodesk Autocad 2015 (En), Adobe Acrobat DC (этот один из всех работает нормально). Весь софт лицензионный.
Спасибо.
 
Перейти    
VBA. При изменении наименования контрола меняется его наименование в модулях
 
#
21.02.2018 15:36:49
Здравствуйте.
Вопрос не совсем по Excel, видимо, поэтому тему создала здесь.

Есть ли какая-нибудь настройка, которая позволяет делать нижеследующее:

к примеру, UserForm1 - в ней TextBox1

1. Переименовываем контрол "TextBox1" в "TextBox79" (ну или любое другое имя абсолютно);
2. Автоматически во всех модулях меняется наименование с "TextBox1" на "TextBox79" (ну или любое другое имя, которым переименовали "TextBox1").

Спасибо.
 
Перейти    
Закрытие ВСЕХ окон в проекте VBA
 
#
16.02.2018 14:33:05
Здравствуйте всем! Всех с прошедшим Днем Святого Валентина!
Имеется несколько окон проектов VBA (во вложении скриншот).
Как быстро их все закрыть можно, не закрывая каждое по отдельности?
Можно стандартными средствами, можно VBA.
Спасибо.
 
Перейти    
Формула. Выбор данных из массива.
 
#
11.12.2014 14:17:04
Здравствуйте.
Не имела опыта ни со сводными таблицами, ни с формулами массива (кроме ТРАНСП). Прошу помощи:
Имеется массив данных, отсортированный по, допустим, глубине. Как из этого массива извлечь средние значения для какой-нибудь определенной глубины?
Заранее извиняюсь, за формулировку, и, я даже не представляю, что мне в поиске набивать, так что говорю прямо – не искала.
Нужно именно формулой какой-нибудь одной… Просто выделять средние значения (как в примере) – это неудобно, так как глубин достаточно много. Макросом я знаю как можно сделать, но нужна формула.
Пример прилагаю.
Спасибо всем огромное заранее!
 
Перейти    
Строка состояния Excel
 
#
30.11.2014 13:25:04
Здравствуйте всем!
Имеется самый обычный лист Excel.
Как можно добавить в строку состояния не только среднее, максимальное, минимальное.... и т.д. при выделении диапазона чисел, но и свои пользовательские функции, например, "Больше 1".
Т.е. функцию, написанную на vba...

Надеюсь, понятно выразилась... Пример во вложении:
 
Перейти    
VBA Экспорт документа в PDF
 
#
26.07.2013 13:24:02
Здравствуйте.
Конвертирую Excel-документ в PDF, используя код:

...
ActiveWorkbook.Sheets(arr2).Select
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ActiveWorkbook.FullName & ".pdf", OpenAfterPublish:=True
...

в каждом листе заданы области печати, за пределами области печати тоже есть данные, которые не должны выводиться, и на каждом листе документа на печать выводится 2 страницы.
Когда листов в книге больше 1, все конвертируется отлично. Когда лист 1 - конвертируется только часть второй страницы листа документа.

С чем это может быть связано?

Excel 2010.
Спасибо.
 
Перейти    
VBA Узнать числовой формат ячейки
 
#
17.05.2013 23:00:33
Здравствуйте.
Как в VBA можно определить количество десятичных знаков ячейки типа range?
Например, в ячейке A1 введено значение "0,1234", формат ячейки - числовой, десятичных знаков -2, т.е. на экране отображается "0,12". Как в VBA получить ответ, что десятичных знаков в формате этой ячейки именно два!, а не три или четыре.
Спасибо.
 
Перейти    
VBA. Убрать Picture из контрола
 
#
29.01.2013 07:59:31
Здравствуйте.
Есть UserForm со множеством контролов (Multipage, Frame и др..). Пыталась сделать текстуру с помощью методов Picture (bitmap) и PictureTiling = True. Получилось. Но как теперь убрать эту текстуру без помощи макросов? Т.е. чтобы было значение Picture (None)?
Спасибо.
 
Перейти    
VBA Пароль надстройки XLA
 
#
10.12.2012 14:48:51
Здравствуйте, создала надстройку XLA, пользовалась, редактировала. Решила изменить IsAddin на False, теперь меня просят ввести пароль к проекту, который я не создавала! Проект защищен, говорят.  
Как быть?  
Спасибо.
 
Перейти    
With Userform1.Frame - Type Mismatch
 
#
23.11.2012 13:35:29
Здравствуйте, собственно, вопрос в теме.  
На одних машинках макрос работает нормально, на других выдает Type Mismatch и выделяет строку "With Userform1.Frame"  
С чем это может быть связано?  
Спасибо!
 
Перейти    
Горячие клавиши на MultiPage VBA
 
#
17.09.2012 14:52:46
Доброго времени суток.  
Как в Userform назначить сочетания клавиш для MultiPage?  
Т.е. когда запущена Userform, допустим нажимаю "^y" получалось MultiPage1.value = 1?  
Использовала Application.OnKey Key:=.... но это работает только когда Userform не загружена.  
Поиском пользовалась - не нашла.  
Спасибо.
 
Перейти    
VBA Прокрутка формы
 
#
14.09.2012 21:47:10
Доброго времени суток!  
Скажите, пожалуйста, на нетбуке userform не влазит на экран, если делать zoom, то шрифты становятся нечитаемыми совсем. Возможно ли сделать прокрутку по горизонтали и вертикали?  
Спасибо.
 
Перейти    
VBA. Фокус с UserForm на лист.
 
#
28.08.2012 12:51:30
Здравствуйте.  
Имеется Userform (vbModeless)  
На листе выбирается ячейка, нажимается кнопочка на форме и в текстбокс вставляется номер столбца ячейки.  
Как можно сделать, чтобы после нажатия кнопки на userform, автоматически активировалось окно листа, а не userform?  
т.е. фокус чтобы переходил обратно на ячейку?  
Спасибо.
 
Перейти    
VBA Управление USERFORMой другой книги
 
#
15.08.2012 14:07:16
Здравствуйте.  
В ходе выполнения макроса необходимо открыть другую книгу, в которой автоматически всплывает userform. Возможно ли как-то программно закрыть этот Userform другой книги? Что-нибудь вроде Workbooks("XXX.xls").unload userform1?  
Спасибо.
 
Перейти    
Защита VBA сторонними приложениями
 
#
25.07.2012 08:32:31
Здравствуйте.  
Возможно, что оффтоп, извиняюсь заранее.  
Существуют ли сторонние программы, позволяющие защитить VBA проект от взлома сторонними приложениями? Возможно, платные, надежные. Можете что-нибудь посоветовать?  
Спасибо.
 
Перейти    
VBA. Экспорт сгруппированных объектов с листа в GIF
 
#
15.05.2012 10:55:14
Здравствуйте.  
На листе Excel имеются две диаграммы, сгруппированные вместе с "надписями".  
Возможно ли экспортировать их в GIF с помощью VBA?  
Пример прилагается.  
Спасибо.
 
Перейти    
VBA автоматизация подключения библиотеки
 
#
28.04.2012 06:34:53
Доброе утро.  
Возможно ли с помощью VBA получить массив всех библиотек, доступных в Tools--References с их полным наименованием (Location:), проверить, подключена ли какая из них, которая в имени содержит, например "MSO.DLL" (это для примера, нужна будет другая), и, если нет, то поключить? :)  
 
Спасибо :)
 
Перейти    
VBA. Снять ограничение String по количеству символов
 
#
02.02.2012 10:18:41
Здравствуйте.  
Возможно ли снять ограничение string по количеству символов?  
Или возможно объявить некую переменную, которая бы могла содержать 10-15 млрд.символов?  
Спасибо.
 
Перейти    
VBA. "Плавающий" контрол в UserForm
 
#
30.12.2011 12:28:41
Здравствуйте.  
Возможно ли где-нибудь посмотреть пример оформления "Плавающего котрола" в UserForm?  
Т.е. в UserForm, например, есть некий Frame, который можно перетаскивать по полю с места на место?  
Спасибо.
 
Перейти    
VBA. Извлечение текста между известными символами
 
#
13.12.2011 14:11:40
Добрый вечер.  
Вопрос простой, но решение сложноватое.  
Как можно быстро извлечь текст, находящийся в String между символами ">" и "<"?  
Например:  
String = "    <data>18</data>"    
результат = 18  
 
Мой алгоритм: поиск позиций символов ">" и "<" и с помощью mid(...) извлекаю. Долго и длинно.  
Есть ли функция/алгоритм проще?  
Спасибо.
 
Перейти    
VBA. Переход режима отображения Userform в vbModeless
 
#
09.12.2011 13:04:28
Здравствуйте. Всех с наступающими праздниками!  
Вопрос: При загрузке книги происходит запуск Userform (userform1.show). При работе с формой открываются другие книги, подгружаются данные из них, потом они закрываются. Userform не закрывается. Через некоторое время Userform оказывается в режиме vbModeless, т.е. становятся доступными для редактирования листы. Возможно ли от этого избавиться? Или при загрузке других книг выгружать и загружать форму заново?  
Спасибо.
 
Перейти    
Страницы: 1 2 3 След.
Loading...