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

Страницы: 1
Как убрать лишние строки из ячейки (VBA) ?, Как убрать лишние строки из ячейки (VBA) ?
 
#
17.10.2025 12:17:40
Добрый день,  на листе в ячейку A2 копируется Дата из вордовского документа.  
После копирования Дата помещается в ячейке в третьей строке.  (см. файл)
Не могу кодом VBA убрать лишние строки из этой ячейки.
Пытаюсь делать так, (даже лишнее):

Код
Dim cell As Range
    Range("A2").Value = Replace(Range("A2").Value, Chr(160), " ")
    Range("A2").Value = Replace(Range("A2").Value, Chr(9), " ")
    Range("A2").Value = Application.WorksheetFunction.Trim(Range("A2").Value)
             
   excelWorksheet.Range("F2").Select
   For Each cell In Selection
          cells(2, 1).Value = Replace(cells(2, 6).Value, vbCrLf, vbCr) ' Удалить пустые строки
          'cells(2, 1).Value = Replace(cells(2, 6).Value, Chr(10), "")  ' ?
   Next cell

Что делаю не так и как исправить ?
Спасибо.
 
Перейти    
Как данные столбца перевести в одну строку (ячейку) в Excel или с помощью PQuery?
 
#
08.10.2025 13:50:10
Добрый день! Есть много xls-файлов одинаковой структуры.
1). Нужно в каждом предварительно очистить колонки [Наименование], [Ед.] и [Кол-во] от знаков, типа ";" и "~"
2). Далее поля(ячейки) сложить по правилу: [Наименование] & ";" [Ед.] & ";" & [Кол-во] & "~"
3). А потом данные итогового столбца перевести по сути в одну строку и записать в одну ячейку. (поле)
    Но как это сделать?

Попробовал использовать PQuery.  1, 2 - выполняется достаточно просто.
Далее нужно столбец записать в одну строку и в одно поле.
Применил Транспонирование, но оно переводит столбец строку и данные расписываются по разным полям.
А мне нужно в одно поле.  Можно конечно потом и сложить поля, но в каждом файле свое кол-во полей в строке получается.
И так не получается....

Может есть идеи как это делается в PQuery?
Ну или может не в PQuery

Спасибо.
 
Перейти    
Выделение цветом несовпадающих фрагментов строк (Excel, VBA)
 
#
18.07.2025 13:26:59

Добрый день! Задача сравнения строк в Excel (VBA) и выделения цветом несовпадающих фрагментов строк.
Посмотрел решения и нужного как-то не нашел. В файле есть код, который ближе всего к желаемому, нашел в инете.
Например, сравниваем строки :
1) Мама мыла раму и 2) Мама намылила раму

Результат, цветом выделяется : намылила раму
Но по идее выделен должен быть текст: "намылила"

Т.е находится несовпадение и выделяется строка цветом  с этого места и до конца.

И сравнение строк и выделение цветом после нахождения совпадения не до конца корректный.
Слово "рама" есть и в строке 1 и 2, его не нужно цветом выделять.

или
1) Мама мыла раму и 2) мама намылила раму - выделено цветом: "мама намылила раму"
Выделяется вся строка, так как играет роль регистр.

А если вставлять в строки пробелы или запятые, типа : мама    намылила,     раму
то результат вообще неправильный, так как идет сравнение строк по-позиционное.

Может кто видел более интеллектуальное решение?

Чтобы цветом выделялось именно несовпадение строк и не более того, и не важно, где оно найдено вначале строки, в середине или конце.
И чтобы был выбор - искать "НЕ совпадение в строках" или "Совпадение в строках".
Чтобы запятые и лишние пробелы(вначале строк, в конце и между словами) по выбору оператора исключить из поиска.  Чтобы они не влияли таким кардинальным образом.

Спасибо!
 
Перейти    
Подскажите, как можно форму предварительного просмотра листа 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
Наверх