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

Страницы: 1
Подскажите, как можно форму предварительного просмотра листа Excel перед печатью вывести кодом VBA поверх формы UserForm1 ?, Подскажите, как можно форму предварительного просмотра листа Excel перед печатью вывести кодом VBA поверх формы UserForm1 ?
 
#
09.12.2024 17:54:22
Добрый день, форумчане!  
В Excel  использую форму UserForm1 и кнопки управления. UserForm1 соответственно визуализируется - UserForm1.Show
Одна из кнопок запускает Sub, которая заполняет лист и запускает перед печатью предварительный просмотр
Код
Worksheets("Лист").PrintPreview

И дело в том, что окно предварительного просмотра оказывается под формой UserForm1.
Невозможно посмотреть результат  и невозможно закрыть форму просмотра и код по сути висит.

1. Подскажите, как можно  форму предварительного просмотра листа Excell перед печатью вывести кодом VBA поверх формы UserForm1 ?
   (Ну или - как можно UserForm1 спрятать под окно  предварительного просмотра перед печатью и потом вернуть назад?)
2. Форму предварительного просмотра можно вообще-то потом закрыть,  нажав "Х".
   А как можно перехватить событие, что окно предварительного просмотра закрыто?

Спасибо за идеи и код!  
 
Перейти    
Подскажите по синтаксису строк соединения c файлом Excel в ADO
 
#
30.10.2024 15:48:40
Код
Public Sub Conn () 
Set Cnn= New ADODB.Connection
       Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Test\Test.xlsm;" & _
       "Extended Properties=Excel 12.0; xml;"
        Cnn.Open
       
       strQuery = "select Наименование, Марка  FROM [Лист1$] Where Артикул  =  ""RG58"""   
       Set rst = cnn.Execute(strQuery)    
       array1 = rst.GetRows()                
End
Изменено: YGrigor18 - 31.10.2024 09:26:50
 
Перейти    
Как макросом или кодом VBA посчитать в Эксель-столбце кол-во записей(строк) между выделенными цветом строками?, как макросом или кодом VBA посчитать в Эксель-столбце кол-во записей(строк) между выделенными цветом строками?
 
#
27.01.2023 16:36:19
Добрый день! Подскажите, как макросом или кодом VBA посчитать в Эксель-столбце кол-во записей(строк) между выделенными цветом строками?
В столбце ряд строк выделен серым цветом. Нужно найти эти выделенные цветом строки и посчитать между ними кол-во записей(строк).
И сумму строк записывать в "верхнюю" строку из каждой пары выделенных строк.
Как в файле примере.
Спасибо.
 
Перейти    
Нужен актуальный вариант функции "СУММА ПРОПИСЬЮ", Нужен актуальный вариант функции "СУММА ПРОПИСЬЮ"
 
#
14.06.2022 16:19:51
Добрый день!  Нашел на форуме 2012 года функцию написание числа ПРОПИСЬЮ.  (Автор Николай Павлов.)
Но там шли обсуждения, вносились какие-то изменения в код. И в итоге на форуме остался старый вариант.
https://www.planetaexcel.ru/techniques/7/46/#1620


Где бы найти актуальную функцию СУММА ПРОПИСЬЮ с  Исправлениями?
Спасибо.
 
Перейти    
Нужен календарь в Excel 2019, чтобы можно было использовать как объект в VBA
 
#
02.07.2021 16:10:52
Добрый день форумчане!

подскажите, пожалуйста, есть ли календарь в Excel 2019 ?
Чтобы его  можно было использовать в коде VBA и загружать календарь на форму с панели ToolBox.
Поиск на форумах результатов  не дал. В других, более ранних версиях офиса, такой календарь был.
На другом форуме посоветовали вытащить из Additional Controls  компонент Microsoft MonthView Control
и далее в CheckListBox. Но это все есть в Excel 2013, а в 2019 к сожалению, отсутствует.
Есть ли идеи?

Спасибо.
Изменено: vikttur - 02.07.2021 23:46:18
 
Перейти    
Подскажите, как можно в VBA использовать переменные в диапазоне функции Range ?
 
#
21.06.2021 12:54:55
Подскажите, как можно в VBA использовать переменные в диапазоне функции Range ?
Например, выражение 1 работает корректно.
Код
1). Range(Cells(1, 10), Cells(1, 10)).Value = 300
Далее вместо Cell (1,10) хотел бы использовать Cell (I,K) ....
Код
Пытаюсь по аналогии заменить Range("$A2:$D$61") на Range(Cells(2, 1), Cells(61, 4)) - вылетает ошибка 1004
Применяю совместно с LOOKUP. Выражение 2 работает корректно, выражение 3 с ошибкой 1004.
Код
2). Rezult3 = WorksheetFunction.VLookup(Range(Cells(7, 4), Cells(7, 4)), Workbooks("bill.xlsx").Sheets("Phone").Range("$A2:$D$61"), 4, 0)
Код
3). Rezult3 = WorksheetFunction.VLookup(Range(Cells(7, 4), Cells(7, 4)), Workbooks("bill.xlsx").Sheets("Phone").Range(Cells(2, 1), Cells(61, 4)), 4, 0)
При этом доступ к файлу и листу есть.
Код
Workbooks.Open "D:\Test\Bill.xlsx"
ActiveSheet.Name = "Phone"
Может есть какие идеи?
Спасибо!
Изменено: YGrigor18 - 22.06.2021 10:19:26 (получил замечание)
 
Перейти    
Повторяющиеся значения в Условном форматировании ("некорректность" отображения данных), Повторяющиеся значения в Условном форматировании ("некорректность" отображения данных)
 
#
01.12.2020 18:02:52
Добрый день, помогите советом!
Ищу повторяющиеся значения Условным форматированием.
Столкнулся с тем, что там, где есть в ячейке символ "*"  звездочка,  там неправильно определяются эти повторяющиеся значения.
Возможно и правильно, но не совсем понятно как?

Пример:  

1. ABC (ABC)-J 3*6 0,66

2. ABC (ABC)-J 3*16 0,66

первое значение определяется как повторяющееся.
а второе значение в обратную сторону повторяющимся не считается.
Заменяешь символ "*"  на другой, все работает корректно.
Получается, что часть строки после звездочки как то обрабатывается, а вот как не понятно.
Спасибо.  
 
Перейти    
Поискув строке по нескольким условиям
 
#
07.09.2018 08:21:06
Добрый день,
Кто подскажет приемы по поиску в строке - по нескольким условиям одновременно...

если кратко, то в формуле  при не выполнении  одного из условий в функции ПОИСК или в  функции ЕСЛИ, генерится ошибка и результат всей формулы  также ошибка..  перехват  функцией ЕСЛИОШИБКА результата нужного не приносит ..

Например,  есть строки в колонке A,  ячейках A1, A2, ....A15000
АВВГ 3х4 мс(N, PE)-0.66
АВВГ 3х4 мк(N, PE)-1
................
.................

Нужна формула-
если в ячейке в строке   есть "мк" или "мс",  в ячейку колонки "В" нужно записать слово - "многожильный".
если в ячейке есть "ок"- нужно в ячейку колонки "В" записать слово -  "одножильный".
если в строке нет - "мк", "мс", "ок",  то нужно в ячейку колонки "В" записать слово "ошибка".

Использую функции  ЕСЛИ , ПОИСК, ЕСЛИОШИБКА

=ИЛИ(ПОИСК("мк";"A1"; 1);ПОИСК("мс";"A1"; 1))
 выдаст ошибку,  потому как одновременно в строке может быть или мк или мс.
результат #знач!

использование вложенных ЕСЛИ(ПОИСК("мк";"A1"; 1);"многожильный"; ЕСЛИ (ПОИСК("мс";"A1"; 1);"многожильный";"")
также результата нужного не приносит...
а ведь еще нужно добавить несколько вложений для поиска "ок"...и анализ отсутствия в строке "мк", "мс","ок"
Проблема в том, что в каждой строке выполняется корректно поиск только по одному из условий поиска.

кто подскажет идеи как корректно можно реализовать одновременный поиск в строке по многим условиям?

спасибо
 
Перейти    
Как в Excel реализовать в строке поиск справа налево?
 
#
25.07.2018 18:03:51
Добрый день,
Как в Excel реализовать в строке поиск справа налево?

1). Как найти, между словами второй пробел справа в строке?
2). Как найти в строке определенный символ, например "*" и найти слева от него ближайший пробел?

Поиск слева направо в принципе понятно. И с помощью VBA тоже, а как сделать с помощью функций Excel?

Примеры:
1) яблоко вишня слива персик
Нужно найти справа второй пробел и слева первый и оставить слово "вишня".
Как слева найти все понятно.

2) яблоко вишня слива персик NN*25
где NN - это может быть число из одной или двух цифр.
И надо найти "x" и от него найти позицию первого пробела слева.

В интернете, к сожалению, видел идеи, но решения не нашел.
Спасибо за помощь!
сегодня, 18:00    [21602259]     Ответить | Цитировать Сообщить модератору
 
Перейти    
Страницы: 1
Наверх