Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Outlook | VBA | папка с не отвеченными сообщениями, ОФФТОП, поиск сообщений которые были отправлены, но по ним не были получены ответы
 
Добрый день форумчани,
вопрос по Outlook, часто бывает по работе, что отправляешь сообщение, но получатель забывает о нем и не отвечает, и найти такие письма в куче отправленных очень сложно.
В папках для поиска в Outlook, такого варианта фильтрации писем не нашел.
Может кто-то уже сталкивался с этой проблемой?
Финансовый формат на всех ячейках, Финансовый формат на всех ячейках при открытии файла и создание нового листа
 
Добрый день форумчане.

Есть определенный файл, не могу его опубликовать из-за того что там много цен и конфиденциальной информации.
При открытии все ячейки имеют формат Финансовый и при создании нового листа тоже все ячейки имеют такой формат, как избавиться от этого глюка раз и навсегда, может у кого то была схожая проблема?

Буду рад за помощь!
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
 
Добрый день!

Отличный прием "Сборка данных со всех листов книги в одну таблицу", но мне нужно чтобы ячейки копировались без сохранения исходного формата.
Код
Sub CollectDataFromAllSheets()    Dim ws As Worksheet   
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
     
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
        Set rngData = ws.UsedRange                 'всё, что есть на листе или
        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)   
    Next ws
End Sub

Это возможно?

Спасибо за ответы!
Изменено: argyman - 07.12.2019 12:15:21
Копирование в буфер обмен файлов по прямой ссылке на них
 
Добрый день!

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

Пример не прикрепляю, т.к. у Вас на компьютере он будет бесполезен, т.к. файлов нет.

Заранее спасибо!
Вывод всех наименований по условию
 
Добрый день!

задача такая, ищу в таблице значение по нескольким другим, но совпадений может быть больше одного, а ПОИСКПОЗ + ИНДЕКС показывают первое найденное.
Как показать последующие, например с пом доп. ячейки с номером найденных значений.
Это первая задача.
Вторая вывески весь список найденных значений.

Пример прикреплен.

Помоги пожалуйста!
Получение списка только имен папок из пути в ячейки
 
Добрый день!

Никак не могу заставить макрос из приема "Список файлов в папке" заставить выдавать только имена папок, выводить их в другой диапазон задаваемый, и чтобы путь брался из определенной ячейки.
https://www.planetaexcel.ru/techniques/3/45/https://www.planetaexcel.ru/techniques/3/45/

Sub FileList()    Dim V As String
   Dim BrowseFolder As String
   
   'открываем диалоговое окно выбора папки
   With Application.FileDialog(msoFileDialogFolderPicker)
       .Title = "Выберите папку или диск"
       .Show
       On Error Resume Next
       Err.Clear
       V = .SelectedItems(1)
       If Err.Number <> 0 Then
           MsgBox "Вы ничего не выбрали!"
           Exit Sub
       End If
   End With
   BrowseFolder = CStr(V)
   
   'добавляем лист и выводим на него шапку таблицы
   ActiveWorkbook.Sheets.Add
   With Range("A1:E1")
       .Font.Bold = True
       .Font.Size = 12
   End With
   Range("A1").Value = "Имя файла"
   Range("B1").Value = "Путь"
   Range("C1").Value = "Размер"
   Range("D1").Value = "Дата создания"
   Range("E1").Value = "Дата изменения"
   
   'вызываем процедуру вывода списка файлов
   'измените True на False, если не нужно выводить файлы из вложенных папок
   ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

   Dim FSO As Object
   Dim SourceFolder As Object
   Dim SubFolder As Object
   Dim FileItem As Object
   Dim r As Long

   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set SourceFolder = FSO.getfolder(SourceFolderName)

   r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
   'выводим данные по файлу
   For Each FileItem In SourceFolder.Files
       Cells(r, 1).Formula = FileItem.Name
       Cells(r, 2).Formula = FileItem.Path
       Cells(r, 3).Formula = FileItem.Size
       Cells(r, 4).Formula = FileItem.DateCreated
       Cells(r, 5).Formula = FileItem.DateLastModified
       r = r + 1
       X = SourceFolder.Path
   Next FileItem
   
   'вызываем процедуру повторно для каждой вложенной папки
   If IncludeSubfolders Then
       For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
       Next SubFolder
   End If

   Columns("A:E").AutoFit

   Set FileItem = Nothing
   Set SourceFolder = Nothing
   Set FSO = Nothing

End Sub

Прошу Вашей помощи!
Аналог формулы FILTER из Google Sheet в Excel
 
Добрый день, есть ли аналогичная формула или способ реализовать формулу из Google Sheet?
Ниже её описание и синтаксис:

FILTER(диапазон; условие_1;[условие_2; ...])Пример
FILTER(A2:B26; A2:A26 > 5; D2:D26 < 10)

Описание
Отображает только те строки или столбцы в диапазоне, которые соответствуют заданным условиям.
диапазон
Фильтруемые данные.
условие_1
Столбец или строка, которые содержат истинные и ложные значения, соответствующие первой строке или первому столбцу в диапазоне, либо формула массива для оценки истинного или ложного значения.
условие_2... - [необязательный] повторяющийся
Дополнительные строки или столбцы, содержащие логические значения TRUE или FALSE. Они указывают на то, пройдет ли строка или столбец через фильтр. Вместо логических значений можно ввести формулу массива. Все условия должны касаться либо только столбцов, либо только строк. Смешанные условия работать не будут.

Буду благодарен за помощь!
Создание вариаций на основе данных
 
ДД,

подскажите можно ли в Excel создать вариации, на подобие как в Woocomerce
На примере обуви: в столбце А записываешь размеры, B цвет обуви, C вид.
А на другом листе бы создавались все возможные вариации.

Существует ли такое решение?
Копирование листа и переименование по списку
 
Здравствуйте уважаемые форумчане!

Есть основной лист Pivot, со списком необходимых листов и изначальных данных, также есть лист Sample_List, который необходимо скопировать по количеству наименований в диапазоне C1:C26, переименовав соответственно, скопировав предварительно диапазон С1:I2 и вставить транспорнировав на каждый продублированный лист на диапазон G4:G11 (образец создал последним листом "10"). И все это запускается после нажатие кнопки Create Lists.
И реально ли реализовать, чтобы этот файл сохранялся в другой по определенному пути, но без макроса и формул?

Буду очень благодарен за помощь!
Изменено: argyman - 24.01.2019 14:32:12
Макрос для поиска и замены текста в ячейках согласно списка
 
Добрый день!

Прошу Вашей помощи!
В примере есть лист 1 - Specification, в первом столбце(его положение может меняться, поэтому лучше использовать выделенный диапазон) слова с ошибками, в них нужно исправить ошибки с помощью замены, из листа 2 - ReplaceList, в нём два столбца, в первом слова с ошибками, во втором правильный, он будет постоянно дополняться.

Нужен макрос, который бы находил и заменял текст в выделенном диапазоне ячеек согласно списку, объем достаточно большой от 2 500 до 10 000 ячеек.

Буду очень благодарен за помощь!

Спасибо!
Распределить данные, записанные по шаблону 1-2/3-4
 
Добрый день! Прошу Вашей помощи.
В ячейку записаны данные по шаблону А1: 1-2/3-4, необходимы распределить следующим образом
AB C D E
1-2/3-4    1 2 3 4
Пример в приложении, я там распределил первые строки вручную.
Очень жду Вашей помощи :)
Спасибо!
Изменение формата текста с помощью формул, Изменение формата текста с помощью формул или макроса
 
Всем здравствуйте!

Возможно ли изменять формат отдельных слов в предложении соединенных с помощью формулы СЦЕПИТЬ?
Пример прилагается

Заранее благодарю!
Поиск приближенного числа по условиям, Нужно найти в столбце искомое число при условиях
 
Всем здравствуйте!
Мне необходимо найти число в столбце со значениями по условиям. Пример:
Столбцы:
А    B     C      В
H   DN  Упр  удл
Искомое число K2="308",ищется по столбцу A, условия число не больше K2+O2, и не меньше чем B1-P2, и условия I2,J2, которые исключают нахождения нескольких чисел выполняющие первые два условия. И число должно быть наиболее приближенное к искомому. M2 будет реализовано через ВПР.
Результат должен быть E2="307"
А если условия не выполняются, то в L2 должно наиболее приближенное большое число из столбца A. Пример, при I2=25, J2=т, K1="1667", условия не выполняются и L2="2115"
Спасибо!
Пример приложил
Изменено: argyman - 21.10.2015 09:59:01
Вывод информации с одного листа на другой с условиями, СУММЕСЛИМН при различных условиях и ПРОСМОТР
 
Прошу помощи! Не могу вывести информацию с одного листа на другой, при различных условиях, и выводе одной сумме, и прибавлении к ней различных удлинений также при выборе его обозначения
Страницы: 1
Наверх