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

Страницы: 1 2 След.
Парсер сметы с подчиненными строками 11 граф формулой в новых версиях Excel
 
#
07.02.2025 17:42:21
Пример прилагаю.
Основная проблема это подчиненные строки (например 1.1 относящиеся к работе 1) и необходимость вывести наименование раздела.
Там где раздел цена без НДС =0
Где есть подчиненные строки например п.60 60.1 60.2 60.3 60.4 работа п.60 равна всего по позиции минус сумма (стоимостей позиций 60.1+60.2+60.3+60.4)
Массив материалов примерно в столбце J получился а как условия подчиненности применить не могу сообразить
Изменено: Тимофеев - 07.02.2025 17:48:55
 
Перейти    
Еслиошибка в связке с динамическим массивом считает за ошибку строку более 255 символов
 
#
11.11.2023 11:27:26
Функция ЕСЛИОШИБКА - Служба поддержки Майкрософт (microsoft.com)
Столкнулся со странным поведением
Формируется динамический массив фильтруются данные по условию. Дописал еслиошибка, когда данных нет чтоб выводило прочерк, но получил неожиданный для себя вариант
Код
=ФИЛЬТР(A2:A6;B2:B6<>0)
=ЕСЛИОШИБКА(ФИЛЬТР(A2:A6;B2:B6<>0);"-")
Изменено: Тимофеев - 11.11.2023 11:41:28
 
Перейти    
На какой принтер excel экспортирует пдф?
 
#
06.07.2023 20:50:53
Добрый день столкнулся в очередной раз с разной формой вывода документа при экспорте в пдф через макрос, печати через принтер Microsoft print to pdf и adobe pdf.  Бывает не совпадает даже формат.
Хотелось бы повторять в точности пдф который настроен на листе Эксель, а не а4, другой формат, другая граница печати на настроенном формате, удовлетворяющим меня предварительным просмотром
Изменено: Тимофеев - 06.07.2023 21:28:23
 
Перейти    
Не отключается вывод сообщений во время макроса при создании папок и подпапок, Не могу понять причину почему некоторые папки не создаются
 
#
21.04.2023 17:43:10
Добрый день, поискал в интернете примеры макросов на создание папок и подпапок и попробовал что-то сделать для себя похожее.
Пример во вложении.
Вроде в коде отключаю вывод сообщений но при работе макроса они вылазят и довольно много
Не удается создать папку. Системе не удается найти указанный путь.
Не могу разобраться с причиной этой ситуации и не создания некоторых подпапок
В ячейке B1 формулой определяется путь где сохранен этот файл. Далее сам макрос циклом проходит по заполненным строкам столбца B и создает Основные папки и в нем вложенный цикл на создание подпапок.
Помогите пожалуйста разобраться почему эти сообщения выскакивают вообще?
Код
Sub Создать_папки()
Application.ScreenUpdating = False 'Отключаем обновление экрана
Application.EnableEvents = False 'Отключаем отслеживание событий
Application.DisplayAlerts = False 'Отключаем вывод сообщений во время макроса
Dim cell As Range, newPath$
    ' цикл с 4-й по 500-ю с запасом
    For i = 4 To 500
        If Cells(i, 2).Value <> 0 Then
        k = R_S(Cells(i, 2).Value) ' Убираем запрещенные символы имен
            For j = 3 To 12
                ' формируем путь
                newPath$ = Cells(1, 2).Value & k & "\" & Cells(i, j).Value
                ' создаем папки с подпапками
                SHCreateDirectoryEx Application.hwnd, newPath$, ByVal 0&
            Next j
        End If
    Next i
Exit Sub
Application.ScreenUpdating = True    'Включаем обновление экрана
Application.EnableEvents = True    'Включаем отслеживание событий
Application.DisplayAlerts = True    'Включаем вывод сообщений во время макроса
End Sub

#If VBA7 Then        ' Office 2010-2013
        Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
        (ByVal hwnd As LongPtr, ByVal pszPath As String, ByVal psa As Any) As LongPtr
#Else        ' Office 2003-2007
    #If Win64 Then
        Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As LongPtr
    #Else
        Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" _
        (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
    #End If
#End If

Function CreateFolderWithSubfolders(ByVal newPath$) '--- создает папки по пути (Path)
    ' функция получает в качестве параметра путь к папке
    ' если такой папки ещё нет - она создаётся
    ' может создаваться сразу несколько подпапок
    If Len(Dir(newPath$, vbDirectory)) = 0 Then    ' если папка отсутствует
        SHCreateDirectoryEx Application.hwnd, newPath$, ByVal 0&    ' создаём путь
    End If
End Function

Function R_S(ByVal txt As String) As String
    St$ = "~!@/\#$%^&*=|`"""
    For i% = 1 To Len(St$)
        txt = Replace(txt, Mid(St$, i, 1), "_")
    Next
    R_S = txt
End Function
Изменено: Тимофеев - 21.04.2023 17:51:52
 
Перейти    
Вытянуть и скачать информацию по ссылкам из текстового файла json
 
#
23.03.2023 16:59:52
Добрый день.
Имеется файл PageText.txt на рабочем столе
Пробую скопировать с него информацию в эксель
Код
Sub Открыть()
    ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Workbooks.OpenText ПутьКРабочемуСтолу & "\PageText.txt", , , xlDelimited
End Sub
Информация открывается в эксель урезанная из-за ограничения символов в ячейке
Почитал интернет содержимое похоже на json.
Хочу получить по столбцам fileName | linkDownload | statusAttach и скачать все linkDownload в папку или гиперссылкой кликабельной в эксель
Изменено: Тимофеев - 23.03.2023 17:41:25
 
Перейти    
Запуск макроса дистанционно
 
#
07.02.2023 17:18:45
Какие способы есть запустить макрос дистанционно, кроме метода Application.OnTime и Планировщика Windows? (Запуск макроса по времени (planetaexcel.ru))
Изменено: Тимофеев - 07.02.2023 17:20:19
 
Перейти    
Массовая замена текстового вхождения в пдф файле на многих листах
 
#
03.02.2023 09:25:53
Установлен Adobe Acrobat XI Pro
Есть файл pdf с графикой и текстом.
Если его открывать и заменять вхождение слова на другое, то будет заменять по одному найденному вхождению и следующая замена опять надо клацать пробелом или мышкой. Если таких слов нужно заменить много - то довольно муторное занятие.
Есть какие-то способы массовой замены текстового вхождения в пдф файле?
При открытии файла pdf с помощью блокнота - нужные слова не ищет, может там как-то можно кодировку поменять чтоб слова найти заменить и перекодировать обратно, сохранить и открыть файл и все волшебным образом измениться?
Я попробовал сохранить как .html - затем открыл блокнотом и заменил сразу нужное вхождение. А вот обратно файл создать pdf из веб страницы - не получилось.
Изменено: Тимофеев - 03.02.2023 09:35:05
 
Перейти    
Склонение существительных в Эксель
 
#
02.02.2023 15:10:24
Хотелось бы склонять существительные стандартными средствами Excel. Поискал в интернете где вообще можно просклонять слово или словосочетания. Толкового ничего не нашёл.
Допустим в A1 вводим в именительном падеже слово для склонения, например картошка или генеральный директор
Может кто-нибудь знает какие то веб сервисы которые позволят это сделать?
Код
=ПСТР(
ВЕБСЛУЖБА("https://bezbukv.ru/inflect/"&A1);
ПОИСК("родительный";ВЕБСЛУЖБА("https://bezbukv.ru/inflect/"&A1));32767)
Изменено: Тимофеев - 02.02.2023 15:27:42
 
Перейти    
Уменьшение файла -
 
#
20.01.2023 17:04:41
Добрый вечер.
Вопрос изъезженный, но не могу понять почему у файла такой вес
Обычно файлы такого типа должны быть поменьше - почему так генерируется не пойму
https://docs.google.com/spreadsheets/d/1Gzrq2e5AZk7PjfepgtdmvEjimIHNDR9K/edit?usp=share_link&amp...
 
Перейти    
Вставка изображения в ячейку =ИЗОБРАЖЕНИЕ, новая функция
 
#
16.01.2023 10:07:25
В Excel появилась новая функция для вставки изображений в ячейки (pcrentgen.ru)
Excel IMAGE function to insert picture in cell (ablebits.com)
Код
=ИЗОБРАЖЕНИЕ("https://www.ejin.ru/wp-content/uploads/2019/05/zakat-zimoj-na-gore.jpg";0;2)
Изменено: Тимофеев - 16.01.2023 10:24:45
 
Перейти    
Как в коллекции перебор элементов сделать согласно сортировки по имени в папке?
 
#
10.01.2023 11:00:37
Добрый день, Есть код загрузки списка файлов
Файлы находящиеся в папке имеют вид 1-2.1-а, 2-2.1-а, 3-2.1-а и.т.д. и порядок сортировки по имени в папке совпадает с тем порядком который я бы хотел видеть в таблице
Но В коллекцию добавляются  1-2.1-а, 10-2.1-а, 11-2.1-а, и.т.д.
Можно ли побороть этот эффект?
Код
Sub ЗагрузкаСпискаФайлов()
    Dim coll As Collection, ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%
    ПутьКПапке$ = [C1]    ' берём из ячейки c1
    МаскаПоиска$ = [c2]    ' берём из ячейки c2
    ГлубинаПоиска% = Val([C3])    ' берём из ячейки c3
    If ГлубинаПоиска% = 0 Then ГлубинаПоиска% = 999    ' без ограничения по глубине
    Set coll = FilenamesCollection(ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%)
    Application.ScreenUpdating = False    ' отключаем обновление экрана
    For i = 1 To coll.Count    ' перебираем все элементы коллекции, содержащей пути к файлам
        НомерФайла = i
        ПутьКФайлу = coll(i)
        ИмяФайла = Dir(ПутьКФайлу)
        Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = _
        Array(НомерФайла, ИмяФайла, ПутьКФайлу)
        ActiveSheet.Hyperlinks.Add Range("b" & Rows.Count).End(xlUp), ПутьКФайлу, "", _
                                   "Открыть файл" & vbNewLine & ИмяФайла
        DoEvents    ' временно передаём управление ОС
    Next
End Sub
 
Перейти    
Фильтрация объединенных строк, чтобы при выборе параметра оставались все строки объединенной ячейки
 
#
27.12.2022 19:09:54
Как осуществить фильтрация по "параметр 1", чтобы строки 8-11 не скрывались?
 
Перейти    
Очистка неиспользуемых строк на листе, Вручную удалить выделенный диапазон не хватает памяти и книга виснет
 
#
01.11.2022 14:43:27
Добрый день!
(Файл уже достаточно нагруженный 25 Мб - в сети)
Как можно очистить неиспользуемые строки на одном из листов начиная с 500 до 1048438
Становлюсь на 500 и вниз - строки - удалить не хватает памяти, после чего грузит процессор на 100 и только снять задачу помогает
Изменено: Тимофеев - 01.11.2022 15:04:18
 
Перейти    
Офис 21 пропала справка по функциям
 
#
19.10.2022 11:35:38
Вот собственно в 21 офисе вызов справки не выводит
Это запретили для РФ или у меня что слетело?
Изменено: Тимофеев - 19.10.2022 11:36:55
 
Перейти    
VBA как компактнее написать перечисление условий
 
#
17.09.2022 13:56:29
Добрый день, подскажите пожалуйста как запись вида
Код
If Cells(i, 1) = "6.3" Or Cells(i, 1) = "9.27" Or Cells(i, 1) = "9.30" Or Cells(i, 1) = "4.2" Or Cells(i, 1) = "2.32" _
Or Cells(i, 1) = "5.3" Or Cells(i, 1) = "12.1" Or Cells(i, 1) = "12.3" Or Cells(i, 1) = "12.9" Or Cells(i, 1) = "12.14" _
Or Cells(i, 1) = "12.15" Or Cells(i, 1) = "12.16" Or Cells(i, 1) = "12.17" Or Cells(i, 1) = "12.18" Or Cells(i, 1) = "12.19" _
Or Cells(i, 1) = "12.22" Or Cells(i, 1) = "12.25" Then
написать покороче
 
Перейти    
Вызов формы по двойному клику не отрабатывает
 
#
21.07.2022 15:38:31
Добрый день.
3 монитора установлено. На главном двойной клик вызывает форму, переношу Excel на второй монитор - форма тоже вызывается, а на третьем не хочет
Почему такое поведение? (Все мониторы разные - и по диагонали и по ориентации книжный и 2 альбомных)
И форма улетает на разные места хотя в макросе Gigant позиционирована вроде
Изменено: Тимофеев - 21.07.2022 15:46:33
 
Перейти    
Отобразить в диалоговом окне только листы выбранной книги
 
#
20.06.2022 20:48:42
Добрый вечер!
Есть функция открывающая диалоговое окно, При открытии показываются имена листов всех открытых книг и листы книги, которую нужно открыть, причем в диалоге уже стоит выбор на каком -то листе.
Как не показывать листы всех открытых книг, а только выбранной и как сделать так чтобы в диалоговом окне не был выделен какой-либо из листов?
Код
Function ShowFileDialog() As Workbook
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выбрать файлы" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        '.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = ThisWorkbook.Name 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewList 'вид диалогового окна(доступно 9 вариантов)
        If oFD.Show = 0 Then Exit Function 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To 1 '.SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Set ShowFileDialog = Workbooks.Open(x) 'открытие книги
            'можно также без х
            'Workbooks.Open .SelectedItems(lf)
        Next
    End With
End Function
Изменено: Тимофеев - 20.06.2022 20:57:17
 
Перейти    
Поиск и вывод результатов по неточному соответствию с применением словаря
 
#
26.04.2022 18:35:28
Суть макроса сбор из файлов с одинаковой структурой в папке в словарь и вывод результата по неточному соответствию
Пример файлы типа п1.xlsx, п2.xlsx, п3.xlsx находятся в одной папке с файлом макроса. Макрос собирает словарь все находящиеся файлы .xlsx из папки. Далее в файле с макросом в ячейке H1 при изменении значения например на 2 в диапазон A2:F вставляются значения, которые содержат 2 во втором столбце файлов .xlsx.
Сейчас сущ. макрос делает это только по полному соответствию, а нужно чтобы выводил все цифры содержащие 2.
Если в H1 поставить 4, то все содержащее четверку должно вывести
Изменено: Тимофеев - 26.04.2022 18:40:44
 
Перейти    
Сбор книг в одну
 
#
19.04.2022 10:02:49
Есть код, который работает при небольшом количестве строк в книгах
Книга СБ собирает последовательно файлы 1,2,3  лежащие в одной папке
Код
For Each Filename In coll
Set WB = Nothing: Set WB = Workbooks.Open(Filename, False, True)
If WB Is Nothing Then    ' не удалось открыть файл
pi.Log vbTab & "ОШИБКА при загрузке файла. Файл не обработан."
Else    ' файл успешно открыт            
   Set sh = WB.Worksheets("Сбор")
   LastRow = WorksheetFunction.CountIf(sh.Range(sh.Cells(4, 2), sh.Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)), ">" & 0) + 5            
   Set ra = sh.Range(sh.Range("a4"), sh.Range("b" & LastRow + 1)).Resize(, 36)
   ' ==== переносим данные в наш файл (shd - кодовое имя листа, куда помещаем данные)            
   shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value            
   WB.Close False: DoEvents    ' закрываем обработанный файл без сохранения изменений
   pi.Log vbTab & "Файл успешно обработан."
End If
Next
Если строк в оригиналах в книге 5000 допустим, то обрабатываются все книги прогресс баром, а результат выгрузка только из первой открытой. Структура оригиналов такая же как и файлы 1,2,3.
Не могу понять в чем причина. подскажите пожалуйста где ошибки
Изменено: Тимофеев - 19.04.2022 10:18:29
 
Перейти    
При передачи переменной через SendKeys +7 меняется на & (последующий вызов на ?)
 
#
25.03.2022 08:55:08
Доброе утро. Помогите пожалуйста поправить.
Код
Dim Phone As String
Dim ReturnValue 'As нужен какой-то для приложения?
Phone = CStr(Cells(3, 2))
ReturnValue = Shell("C:\Users\*****\AppData\Local\Приложение.exe")
Application.Wait (Now + TimeValue("00:00:01")) 'Ждем, когда отработает приложение
ActiveWindow.Application.SendKeys ("{TAB 2}") 'Жмем tab 2 для перехода к номеру
Application.Wait (Now + TimeValue("00:00:01")) 'Ждем, когда отработает приложение
SendKeys (Phone), True 'Тут неожиданный результат
Формат номера: +7**********              На выходе: &**********
Вызываю повторно:                           На выходе: ?**********
Иногда остается только 8 последних символов: ********

- После отработки надо включить NumLock постоянно выключает (Макрорекордер данное действие не видит)
- Не понятно как переключаться между окнами (не работает AppActivate ReturnValue - как в примере отсюда Оператор SendKeys (VBA) | Microsoft Docs)
- Application.Wait нужен ли вообще или Doevents можно?
Изменено: Тимофеев - 25.03.2022 09:21:31
 
Перейти    
Проблема пакетной печати листов в пдф. 2 раза запрос имени сохранения происходит
 
#
24.02.2022 10:17:25
Добрый день.
Во вложении пример - выделяем все 3 листа через Ctrl и отправляем на печать в пдф (принтер адоб пдф) . Печатается первый лист. затем выводит диалог с предложением нового имени и после ввода имени печатаются остальные листы.
Вопрос как это убрать чтоб печать в один файл производилась?
Изменено: Тимофеев - 24.02.2022 10:22:44
 
Перейти    
Как формулой узнать номер каждого наибольшего/наименьшего в массиве
 
#
22.02.2022 15:06:50
Добрый день!
Допустим массив в примере на 12 строк. Как определить номера первого, второго и.т.д. наибольшего значения одной формулой
В примере что-то выдумал, но перемешал порядок
Изменено: Тимофеев - 22.02.2022 15:08:04
 
Перейти    
Как осуществить перенос строки при вставке в стороннее приложение
 
#
04.02.2022 17:55:59
Добрый день.
Текст такого плана записан в ячейке C3 (отступы через Alt+Enter делались):
АБВ
ГДЕ
ЖЗИ
Текст в переменную:
Код
Dim a As String
a = CStr(Cells(1, 3))

ThisWorkbook.FollowHyperlink "https:***="& a
Далее вставляю в приложение через браузер (Edge) с помощью гиперссылки и все переносы пропадают
АБВГДЕЖЗИ
Что можно сделать в этом случае?
Может есть какой-то знак, на который можно будет сначала заменить символ(10) и переносы осуществятся в браузере?
Изменено: Тимофеев - 04.02.2022 18:26:49
 
Перейти    
Формула подсчета только видимых ячеек
 
#
24.01.2022 19:16:58
Формула выводит видимые строки столбца B Листа 1 на новый лист и подсчитывает их сумму
Как обойтись в нижеприведенной конструкции без ДВССЫЛ("Скрыть!B"&СТРОКА(1:50))? - Альтернатива СМЕЩ (#2)
Офис 365/21:
Код
=LET(a;ФИЛЬТР(Скрыть!B1:B50;ПРОМЕЖУТОЧНЫЕ.ИТОГИ(103;ДВССЫЛ("Скрыть!B"&СТРОКА(1:50)))=1);
ЕСЛИОШИБКА(ЧАСТОТА(МАКС(a)+1;a)+a;СУММ(a)))
 
Перейти    
Формула сумма прописью, Доработка большой формулы
 
#
12.01.2022 13:37:27
Может у кого есть время/желание/необходимые знания добавить склонение рублей и копеек и увеличить до 999 999 999 999.99
Формула работает до 999 999 999.99 без склонения рублей и копеек (2986 символов)
Системный разделитель "."
Код
=ЕСЛИ(A2>999999999.99;"слишком большое число"; ЕСЛИ(ОКРВНИЗ.МАТ(A2;1)=0;"ноль";
ВЫБОР(ЛЕВБ(ТЕКСТ(A2;"000000000.00"))+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");2;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");2;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");3;1)+1;;"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");
ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");3;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))
&ЕСЛИ((--ЛЕВБ(ТЕКСТ(A2;"000000000.00"))+ПСТР(ТЕКСТ(A2;"000000000.00");2;1)+ПСТР(ТЕКСТ(A2;"000000000.00");3;1))>0;"миллион"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000.00");3;1))=0;(--(ПСТР(ТЕКСТ(A2;"000000000.00");3;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000.00");2;1))=1));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");3;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");4;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");4;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000.00");5;1)=0;--ПСТР(ТЕКСТ(A2;"000000000.00");6;1)=0);"";""))
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");5;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");5;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");6;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");6;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))
&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");4;1)+ПСТР(ТЕКСТ(A2;"000000000.00");5;1)+ПСТР(ТЕКСТ(A2;"000000000.00");6;1))>0;"тысяч"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000.00");5;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000.00");6;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000.00");6;1))=0));" ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");6;1))=1;"а ";"и "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");7;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");7;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000.00");8;1)=0;--ПСТР(ТЕКСТ(A2;"000000000.00");9;1)=0);"";""))&
ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");8;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");8;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");9;1)+1;;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");9;1)+1;"десять";"одинадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать")))&" руб. "&ПРАВБ(ТЕКСТ(A2;"00.00");2)&" коп.")
Изменено: Тимофеев - 13.01.2022 19:37:53
 
Перейти    
Перо Эксель. Замена содержимого ячейки
 
#
10.01.2022 17:40:38
Рукописный рукописный Excel (microsoft.com)
VBA рекордер тоже данные причуды не видит
 
Перейти    
.Rows.Count не учитывать ячейки, возвращающие пусто формулой
 
#
21.12.2021 12:46:29
Добрый день, подскажите как определить .Rows.Count без учета ячеек со строками нулевой длины или возвращающие 0
' берем диапазон ячеек с ячейки A6 до последней заполненной в столбце B
     Set ra = sh.Range(sh.Range("a6"), sh.Range("b" & sh.Rows.Count).End(xlUp)).Resize(, 24)
' переносим данные в наш файл (shd - кодовое имя листа, куда помещаем данные)
      shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value
в ячейке B формула типа: =[****.xlsm]***!A144
До определенного момента возвращает формула цифры 1,2,3 далее пусто. Цифры взять, а ячейки нулевой длины не брать и не переносить на новый лист
Изменено: Тимофеев - 21.12.2021 13:16:50
 
Перейти    
Вставка и ориентирование изображения в объединенную ячейку
 
#
05.12.2021 13:54:18
Во вложении пример. Макрос с диалоговым окном вставляет в выбранную ячейку фото растягивая ее только по ширине не учитывая высоту
Нужно Вставка изображений по имени из ячейки B из папки с файлом
Изменено: vikttur - 05.12.2021 14:24:39
 
Перейти    
Извлечь из таблицы только строки со стоимостью работ при наличии подчиненных строк
 
#
24.11.2021 09:03:16
Добрый день, пример во вложении:
Вывод результата необходим на отдельный лист
Есть у кого-то что-то подобное в наработках?
Изменено: vikttur - 24.11.2021 14:42:02
 
Перейти    
Открыть скрытые первые 9 строк листа
 
#
30.06.2021 10:40:40
Не могу открыть первые 9 скрытых строк в файле
Какой порядок действий?
Изменено: Тимофеев - 30.06.2021 10:40:54
 
Перейти    
Страницы: 1 2 След.
Наверх