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

Страницы: 1 2 3 След.
Как открыть csv файл, содержащим коды проектов начинающихся с нуля, чтобы excel отображал их как текст, а не число без обрезки нуля?
 
Добрый день.
Имеется большой файл CSV, содержащий данные и коды проектов в формате 01001234567890.
Возможно ли открыть CSV файл так, чтобы коды проектов отображались без обрезки нулей в начале значения?
Если открыть файл блокнотом, то код в между разделителями записан верно, а эксель при открытии такого файла считает его числом и переводит в число, обрезая 0 и отображает как 1,00Е+12.
В инете решения не нашел (
Запись в массив видимых выделенных ячеек столбца работает если выделено больше чем одна ячейка.
 
Цитата
написал:
то, как вы собираете массив заслуживает отдельной темы —я на это внимание не обращаю…
Всем спасибо. Пошел пока по простому пути, сделав отдельную ветку отработки одиночной ячейки.
Код
    If Selection.Cells.Count = 1 Then
        ReDim Preserve arrV(i)
        arrV(i) = CStr(ActiveCell.Value)
    Else
        For Each cl In Selection.SpecialCells(xlCellTypeVisible)...
Запись в массив видимых выделенных ячеек столбца работает если выделено больше чем одна ячейка.
 
Добрый день.
Подскажите пожалуйста почему запись в массив видимых и выделенных (мышью) ячеек столбца работает если выделено больше чем одна ячейка, а если я выделена только одна ячейка, то циклом начинает перебираться весь лист, т.е. как будто одна ячейка не считается за выделение.
Код
    i = 1
    For Each cl In Selection.SpecialCells(xlCellTypeVisible)
        ReDim Preserve arrV(i)
        arrV(i) = CStr(cl.Value)
        If arrV(i) <> "" Then i = i + 1 'пропуск пустых ячееек
    Next
Проверка одной формулой наличия значений одного столбца в другом столбце
 
Большое спасибо!
Проверка одной формулой наличия значений одного столбца в другом столбце
 
Цитата
Ігор Гончаренко написал:
пока понятно, что хотите одной формулой, но не понятно что?
Там где у меня написано"ИСТИНА или ЛОЖЬ" я подразумевал, что в этой ячейке будет формула выдающая эти значения - одна формула только в этой конкретной одной ячейке. По данным на скриншоте должна быть ИСТИНА сейчас - все значения в столбце Заявка и с Условием1 Книги2 есть в Книге1.
Изменено: Карабас - 28.02.2021 12:17:55
Проверка одной формулой наличия значений одного столбца в другом столбце
 
Подскажите пожалуйста как проверить одной формулой (ИСТИНА или ЛОЖЬ) наличие значений столбца "Заявка" Книги2 при выполненном Условии1, в столбце "Заявка" Книги1.
Изменено: Карабас - 28.02.2021 11:44:26
Адаптировать макрос. Аналог ВПР.
 
Цитата
Marat Ta написал:
Прикрепите новый файл пример с макросами.
Приложил. Ускорить наверно через обработку в массиве и после запись в диапазон?
Код
    Sub DatVal()

    NumberLastRow1 = Range("a1").CurrentRegion.Rows.Count
    Range(Cells(2, 2), Cells(NumberLastRow1, 2)).Select
    Selection.NumberFormat = "dd/mm/yy h:mm;@"
    On Error Resume Next
    Set myRange = Intersect(Selection, ActiveSheet.UsedRange)
    For Each cl In myRange
    cl.Value = DateValue(cl.Value)
    cl.Value = cl.Value + 0.333333333
    Next
    
    End Sub
Изменено: Карабас - 26.02.2021 16:18:53
Адаптировать макрос. Аналог ВПР.
 
Цитата
Marat Ta написал: Переносить в ваш файл пример нет времени.
Спасибо! Адаптировал. Все работает с примером. Попробую "прикрутить" к рабочей таблице.
Может быть еще подскажете как ускорить этот код преобразования текста в дату?
Код
    Cnumb = Rows(1).Find("Контрольная дата", , xlValues, xlWhole).Column
    Range(Cells(2, Cnumb), Cells(NumberLastRow1, Cnumb)).Select
    Selection.NumberFormat = "dd/mm/yy h:mm;@"
    On Error Resume Next
    Set myRange = Intersect(Selection, ActiveSheet.UsedRange)
    For Each cl In myRange
    cl.Value = DateValue(cl.Value)
    cl.Value = cl.Value + 0.333333333
    Next
Изменено: Карабас - 26.02.2021 14:10:38
Адаптировать макрос. Аналог ВПР.
 
Пардон, поправил. Перепутал файлы когда игрался с размером файла для загрузки.
Адаптировать макрос. Аналог ВПР.
 
Учту. Макрос  был взят с другой подобной темы: https://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=31763
Адаптировать макрос. Аналог ВПР.
 
Спасибо, но с организовать через подстановку формулой проблем нет - это все очень медленно. В примере небольшая таблица,в реальности надо обработать таблицу больше 30 тыс. строк и и больше 200 столбцов. И делать это приходится каждый день и не раз.
Адаптировать макрос. Аналог ВПР.
 
Помогите пожалуйста адаптировать макрос уважаемого Hugo. Необходимо с Лист2 перенести на Лист1 данные из столбцов Заявка3, Дата1 и Дата2, сопоставив данные из столбцов Заявка1. Понимание как работает макрос есть, но не хватает знаний по синтаксису для адаптации. Макрос из темы: https://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=31763
Код
Option Explicit

Sub compare()
    Dim a, b, c, iLastrow As Long, i As Long, ii As Long

    '1. данные в два массива
    With Sheet1    'используется кодовое имя
        iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
        a = Range(.[a3], .Range("A" & iLastrow)).Value
    End With

    With Sheet2    'используется кодовое имя
        iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
        b = Range(.[c2], .Range("A" & iLastrow)).Value
    End With

    '2.пустой массив для результата
    ReDim c(1 To UBound(a), 1 To 2)

    With CreateObject("Scripting.Dictionary")
    
        '3.в словарь уникальные и номер строки из массива
        For i = 1 To UBound(b)
            .Item(b(i, 1)) = i
        Next

        '4.по словарю из массива b в массив c
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then
                c(i, 1) = b(.Item(a(i, 1)), 2)
                c(i, 2) = b(.Item(a(i, 1)), 3)
            End If
        Next
    End With

    '5. выгрузка всего массива
    With Sheet1    'используется кодовое имя
        .[B3].Resize(UBound(c), 2) = c
        .Activate
    End With
End Sub
Изменено: Карабас - 26.02.2021 11:34:48
После записи диапазона в массив он пуст
 
Да, On Error Resume Next имеется такая строка. Понял спасибо.
После записи диапазона в массив он пуст
 
Есть большая таблица, в массив записывается ее часть. Есть макрос, который работает по этой таблице.
Макрос работал до сегодняшнего дня, а вот сегодня нужного действия не происходит, т.к. массив записывается пустым.
В каком случае данные в массив могут не записаться? Какие-то "кривые" данные в таблице могут повлиять на это?
Код
NumberLastRow = Cells(Rows.Count, 13).End(xlUp).Row
art = Range("C1:J" & NumberLastRow).Value
Обрезается гиперссылка на сайт, хотя из оутлука ссылка открывается корректно
 
Цитата
Максим Зеленский написал: Точно всю-всю ссылку скопировали?
Да, точно.

И Word так же в корень выкидывает, но удалось заскриншотить промежуточную ссылку которая появляется при открытии потом выкидывает на корневую залогиненную страницу.
Повторюсь, что из отулука открывается корректно.
Обрезается гиперссылка на сайт, хотя из оутлука ссылка открывается корректно
 
Почему при открытии гиперссылки в Excel вида https://***************.ru/aggregator/3337620 открывается корневая страничка https://***************.ru?
На сайте требуетя авторизация, она заранее пройдена в отдельной вкладке, пробовал браузеры по умолчанию как IE, так и Хром - на всех выкидывает в корень сайта, хотя из оутлука ссылка открывается корректно.
Что это может быть? Находил тему где писали, что это не проблема Excel, но тогда бы и из отулука ссылка не открывалась.
Выбор книги для взятия значений из столбца
 
Цитата
Nordheim написал:
Это работает, но похоже не в вашем случае

Подскажите пожалуйста тогда, что я не так делаю? Почему когда эта часть когда отрабатывает и я выбираю Книгу2 и ячейку в ней ActiveWorkbook.Name все равно выдает имя Книги1?

Код
    Dim Index1
    On Error Resume Next
    Set Index1 = Application.InputBox("Индекс:", "Запрос данных", Selection.Address, Type:=8)
    If Index1 Is Nothing Then 'нажата кнопка Отмена - диапазон не выбран
        MsgBox "Отмена выполнения", vbCritical, "Нет данных"
        Exit Sub
    End If
Изменено: Карабас - 26.04.2018 10:02:00
Выбор книги для взятия значений из столбца
 
Цитата
Nordheim написал:
Определение всего что Вы перечислили активного на данный момент
Это все не работает, если запускать макрос из Книги1 и выбрать мышью ячейку в Книге2 - все это будет относиться к Книге1.

Цитата
Nordheim написал:
Или книга из которой берутся данные обязательно должна быть открыта?
Должна быть открыта.
Выбор книги для взятия значений из столбца
 
Цитата
ProFessor написал:
Это как вообще возможно? Мышь сломалась? Книга не активируется?
Я наверно запутал или Вы меня не поняли :)
Все просто:
Хотел запустить макрос в одной книге (условно Книга1) для которого нужны данные из книги имя которой для макроса неизвестно (условно Книга2). Дать имя книги и номер столбца хотел выбором этой книги и ячейки мышью. Возможно ли это при условии, что мышь не сломалась :)?
Выбор книги для взятия значений из столбца
 
Цитата
ProFessor написал:
Вообще я обычно делаю так:
Выбор книги вручную из списка планировал использовать если мышью нельзя активировать нужную книгу.
Значит никак не выбрать другую книгу и ячейку кликом мыши?
Выбор книги для взятия значений из столбца
 
Цитата
ProFessor написал:
Тогда попробуйте это (берётся 2-я книга, которая не первая  ) Ну сами того хотели же. Можете адаптировать как пожелаете
Виноват, не подробно расписал условие (поправил), что книгу хотел выбрать через Application.InputBox  и клик мыши нужного столбца и ячейки этой книги. Она может быть и не вторая, т.к. книг открыто может быть больше чем две.
Или как еще можно по другому выбрать мышью нужную книгу и столбец запуская макрос из Книги1?
Изменено: Карабас - 25.04.2018 10:49:29
Выбор книги для взятия значений из столбца
 
Цитата
ProFessor написал:
То есть сейчас у вас 2 активные книги и нужно взять данные из другой книги, но не из той из которой Вы запускаете макрос?
Да, переключиться на нужную книгу и нужный столбец я планировал через выбор открытой книги мышью и  Application.InputBox.
Выбор книги для взятия значений из столбца
 
Цитата
ProFessor написал:
Замените ваш кусочек на вот этот (это обращение к конкретной книге и листу) По умолчанию у Вас стоит текущая книга.
На самом деле имя Книги2 не известно. Я думал, что через Application.InputBox выбрав ячейку условной Книги2, можно подтянуть имя этой книги, адрес ячейки выбранной и т.д.
Изменено: Карабас - 25.04.2018 10:15:23
Выбор книги для взятия значений из столбца
 
По условию макрос запускается из Книги1, выбираю нужный столбец и ячейку Книги2 мышью, чтобы получить номер столбца и количество строк, но данные выдает по столбцу Книги1. Подскажите пожалуйста как получить данные Книги2. Имя Книга2 условное и оно не известно, планировал переключиться на нужную книгу через Application.InputBox и выбор ее мышью.

Или как еще можно по другому выбрать мышью нужную книгу и столбец запуская макрос из Книги1?
Код
Sub Тест()
    Dim Index1
    On Error Resume Next
    Set Index1 = Application.InputBox("Индекс:", "Запрос данных", Selection.Address, Type:=8)
    If Index1 Is Nothing Then 'нажата кнопка Отмена - диапазон не выбран
        MsgBox "Отмена выполнения", vbCritical, "Нет данных"
        Exit Sub
    End If
    LrOW1 = Cells(Rows.Count, Index1.Column).End(xlUp).Row
    MsgBox LrOW1
End Sub
Изменено: Карабас - 25.04.2018 10:47:11
Ширина столбцов при раскрытии значения сводной таблицы.
 
В поисковике не нашел... При клике на значение сводной таблицы возможно ли заранее задавать ширину столбцов в таблице, открываемой на новом листе, чтобы столбцы были не на ширину названия столбца?
Проверка нажания (удержания) клавиши Ctrl при выполнении макроса
 
Подскажите пожалуйста команду (оператор).
Поиск зачения в диапазоне
 
АlехМ, спасибо!
Изменено: Карабас - 15.06.2017 10:04:27
Поиск зачения в диапазоне
 
Пардон, если накосячил с примером. Всем большое спасибо за помощь!

Использовал формулу: =СУММПРОИЗВ(($A$3:$A$15=K3)*ЕЧИСЛО(НАЙТИ("\"&L3&"\";"\"&$B$3:$B$15&"\"))) и все получилось.
Поиск зачения в диапазоне
 
АlехМ, Bema, Вы немного не так поняли. Надо найти значение из Таблицы2 в Таблице1, а не наоборот.
Поиск зачения в диапазоне
 
Можно ли через формулу узнать, что значение из Таблицы2 имеется в Таблице1 для соотв. кода? Мне кроме как предварительно расцеплять значения в Таблице1 ничего на ум не приходит.
Изменено: Карабас - 15.06.2017 08:40:48
Страницы: 1 2 3 След.
Наверх