Отправляет email-рассылки с помощью сервиса Sendsay

Форум по Microsoft Excel

  Все выпуски  

KuklP>> Re: Импорт данных из текстового файла


Форум по Microsoft Excel

Выпуск 14
от 2014-04-10

Подписчиков: 623

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".



KuklP>> Re: Импорт данных из текстового файла
2014-04-02 00:20 http://forum.msexcel.ru/index.php?action=profile;u=
Не привередничай, это макрорекордером можно:

Sub Макрос2()
    Workbooks.OpenText Filename:="H:\ex.txt", Origin:=866, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
        (3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
End Sub
:)

0mega>> Кол-во занятых строк в массиве
2014-04-02 09:41 http://forum.msexcel.ru/index.php?action=profile;u=
Доброго времени суток
2003
sub no

Двумерный массив
В массиве есть нулевые и/или незаполненные ячейки
Посчитать кол-во  строк где нет нулей или пробелов
P.S.
можно через  ctrl+shift+enter, а лучше через суммпроизв()


cheshiki1>> Re: Кол-во занятых строк в массиве
2014-04-02 10:03 http://forum.msexcel.ru/index.php?action=profile;u=
=СУММПРОИЗВ(Ч(СЧЁТЕСЛИ(СМЕЩ($B$4;СТРОКА($A$1:$A$11);;1;3);">0")=3))

Алексей Хестанов>> Re: Динамический выбор диапазона для графика
2014-04-02 11:51 http://forum.msexcel.ru/index.php?action=profile;u=
Это делается очень просто для данных. Но, к сожалению, в графике реализовать подобное без VBA невозможно так как графики почему-то не поддерживают косвенную адресацию (ДВССЫЛ, ИНДЕКС, СМЕЩ). Только что сам проверил - говорит - неверная функция.

0mega>> Re: Кол-во занятых строк в массиве
2014-04-02 14:00 http://forum.msexcel.ru/index.php?action=profile;u=
cheshiki1, благодарю.
Очень интересное решение.
Никак  не могу разобраться с синтаксисом. В своей формуле вы используете совершенно сторонние адреса и массивы.
Тем не менеее, считает формула именно то что должна считать ?!
Как формула "видит" начало и конец массива ?


cheshiki1>> Re: Кол-во занятых строк в массиве
2014-04-02 14:14 http://forum.msexcel.ru/index.php?action=profile;u=
разберитесь с работой ф-ции СМЕЩ, может тогда понятней станет.
пошагово формулу проходили?

Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-02 16:09 http://forum.msexcel.ru/index.php?action=profile;u=
Сегодня заметил еще одну особенность. Когда в Excel 2013 применяется [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] и запускается долгий пересчет, то если в этот момент нажать кнопку Esc, то пересчет прекращается. Хотя через пару секунд  снова запускается.

KuklP>> Re: Импорт данных из текстового файла
2014-04-02 20:32 http://forum.msexcel.ru/index.php?action=profile;u=
Андрей желанием не воспылал, придется мне. :) Появилось немного времени.
Оба файла д.б в одной папке. Файл называется ex.txt.
[code]Public Sub www()
    Dim a, i&, n&, j&
    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\ex.txt", Origin:=866, StartRow:=1, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
        :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
        Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
        (3, 1), Array(4, 1), Array(5, 1))
    a = ActiveSheet.[a1].CurrentRegion.Value
    ActiveWorkbook.Close 0
    ReDim b(1 To 4)
      For i = 1 To UBound(a)
        If Len(Trim(a(i, 2))) Then
            If n Then
                For j = 1 To 4
                    a(n, j) = Application.Trim(b(j))
                Next
            End If
            n = n + 1
            For j = 1 To 4: b(j) = a(i, j): Next
        Else
            b(1) = b(1) & " " & a(i, 1): b(4) = b(4) & " "...

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-02 20:39 http://forum.msexcel.ru/index.php?action=profile;u=
это закономерно. можно выключить автоматический пересчет и когда нужно пересчитать лист/книгу нажать f9/shift+f9

badhabit>> Re: Импорт данных из текстового файла
2014-04-02 21:07 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо большое, завтра попробую. Напишу по результатам...

Viking>> Работа с выпадающим списком
2014-04-02 22:14 http://forum.msexcel.ru/index.php?action=profile;u=
Вечер добрый, нужна помощь в решении следующей задачи. Имеется список с повторяющимися значениями, в файле столбец А2:А37, необходимо в ячейке В3 создать выпадающий список, но чтобы повторений не было, то есть выглядеть должен как выпадающий список в ячейке К3.

Czeslaw>> Re: Работа с выпадающим списком
2014-04-02 23:13 http://forum.msexcel.ru/index.php?action=profile;u=
Первая ячейка (А1)--> Data-->Advanced-->Unique records only-->Copy--Paste.

Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-02 23:32 http://forum.msexcel.ru/index.php?action=profile;u=
это закономерно. можно выключить автоматический пересчет и когда нужно пересчитать лист/книгу нажать f9/shift+f9

Так в чем закономерность?
на компьютере1 стоит Excel 2010, выставлен автоматический расчет, при смене [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а перерасчет 5 с.
этот же файл на
на компьютере2 стоит Excel 2013, выставлен автоматический расчет, при смене [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а перерасчет 45-60 с.

компьютер1 намного слабее чем компьютер 2

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 00:01 http://forum.msexcel.ru/index.php?action=profile;u=
закономерность в том, что начинается повторный пересчет

я ведь говорил на счет макросов. выложите коды макросов сюда, может их можно упростить

Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 00:12 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо за желание помочь.
тормозит и при изменении _автофильтр_а вручную, а не только через макрос.

сам файл прикреплен в первом посте

Вот текст макроса
Sub S_Filter_Дата_сбора()
'
' S_Filter_Дата_сбора Макрос
' Макрос записан 07.06.2000 (Sergey Skripay)
'

'

    Dim F1 As String ' От
    Dim F2 As String ' До
   
    F1 = Range("_D1").Value
    F2 = Range("_D2").Value
   
    F1 = ">=" + F1
    F2 = "<=" + F2
    Selection.AutoFilter Field:=4, Criteria1:=F1, Operator:=xlAnd, _
        Criteria2:=F2
   
End Sub

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 00:14 http://forum.msexcel.ru/index.php?action=profile;u=
я ведь вам вчера ответил, что после удаления макросов книга пересчиталась за 5 сек

Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 00:25 http://forum.msexcel.ru/index.php?action=profile;u=
я ведь вам вчера ответил, что после удаления макросов книга пересчиталась за 5 сек

Странно, я только что в файле удалил все макросы. Поменял/применил [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] по полю Дата (стобец D) и после этого файл пересчитывался 40с в Excel 2013

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 00:34 http://forum.msexcel.ru/index.php?action=profile;u=
вы хоть тогда характеристики ПК дайте

Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 01:08 http://forum.msexcel.ru/index.php?action=profile;u=
Core i5 2.8GHz ОЗУ 8Gb

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 01:44 http://forum.msexcel.ru/index.php?action=profile;u=
ай 7 2.4, тоже 8 опертивы :o

qwedert>> Текст в ячейке
2014-04-03 12:11 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте дорогие форумчане! Конструкторско-чертежный формат А4 привожу к эксцелю. И вот в ходе работы мне необходимо написать обширный текст в одной ячейке которую я объеденил из нескольких (см. вложенный файл). Почему то когда строчку пишу и при переходе на другую строку курсор уходит вниз на другую ячейку. А мне необходимо чтобы было строчка за строчкой о одной большой объединенной ячейке. как это сделать?

badhabit>> Re: Импорт данных из текстового файла
2014-04-03 13:43 http://forum.msexcel.ru/index.php?action=profile;u=
все понятно и работает! Спасибо!

AlWin>> ComboBox и DropDown не запоминают выбранные значения после закрытия книги
2014-04-03 18:32 http://forum.msexcel.ru/index.php?action=profile;u=
В прилагаемом файле на пользовательской вкладке находятся dropDown, к которому привязан динамический список и comboBox с 2-мя элементами, определенными в XML-редакторе.
После выбора элементов списка в каждом меню запоминаем изменения в книге и закрываем файл. После повторного открытия документа видим одну и ту же картину:
в dropDown - "item1", в comboBox – "".
Помогите, пожалуйста.


gling>> Re: Текст в ячейке
2014-04-03 19:47 http://forum.msexcel.ru/index.php?action=profile;u=
Для перехода на новую строку в той же ячейке используйте Alt+Enter.

babai1928>> УПРАВЛЕНИЕ ПОЛЯМИ
2014-04-03 20:13 http://forum.msexcel.ru/index.php?action=profile;u=
При распечатке Экселевского листа мне нужно максимально заполнить лист бумаги набранной таблицей, минимизировать поля. С этой целью я а) Не ввожу колонтитулы; б)Устанавливаю значения всех четырёх полей =0; в) Подгоняю ширину и высоту ячеек до такой величины, что увеличение на 1 пиксель уже переводит столбец или строку на следующую страницу.
Понятно, что при печати поля не могут буквально снижаться до нуля, какой-то зазор должен оставаться. Поддаётся ли его величина какой-то регулировке? Мне кажется эти "добавочные поля" великоваты. И почему-то больше всего получается левое поле.
Может быть, вопрос очень детский, но я уж обыскался, где могут сидеть настройки этих "сверхполей"

gorushek>> экспорт данных в эксель с веб страниц
2014-04-03 21:56 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте, хотелось бы договориться с опытным пограмистом экселя. Необходимо настроить экспорт данных с нескольких веб страниц в эксель.


Sergey Skripay>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-03 22:16 http://forum.msexcel.ru/index.php?action=profile;u=
ай 7 2.4, тоже 8 опертивы :o

Вот и я не могу этого понять.
Что то намутили с Excel 2013

gling>> Re: Работа с выпадающим списком
2014-04-04 00:49 http://forum.msexcel.ru/index.php?action=profile;u=
Посмотрите может подойдет. Выделенный список можно перенести на другой лист.

Viking>> Re: Работа с выпадающим списком
2014-04-04 01:08 http://forum.msexcel.ru/index.php?action=profile;u=
В принципе да. Премного благодарен. sm_beer А впихнуть формулу в окно появляющееся при создании списка как то можно или нет?

iron priest>> Re: Excel 2013 считает намного дольше Excel 2010
2014-04-04 01:11 http://forum.msexcel.ru/index.php?action=profile;u=
попробуйте переустановить 2013-й

Viking>> создание связанного выпадающего списка
2014-04-04 01:14 http://forum.msexcel.ru/index.php?action=profile;u=
необходимо создать связанный выпадающий список, что бы при выборе первого критерия, во втором списке выпадали значения соответствующие только выбранному критерию и так далее.

ShAM>> Re: создание связанного выпадающего списка
2014-04-04 04:01 http://forum.msexcel.ru/index.php?action=profile;u=
http://www.planetaexcel.ru/techniques/1/38/


cheshiki1>> Re: Работа с выпадающим списком
2014-04-04 09:34 http://forum.msexcel.ru/index.php?action=profile;u=
А впихнуть формулу в окно появляющееся при создании списка как то можно или нет?
НЕТ. можно формулу написать на другом листе и скрыть его - чтобы глаза не мозолил.
так покороче. :)
=ЕСЛИОШИБКА(ИНДЕКС(Родня;ПОИСКПОЗ(0;СЧЁТЕСЛИ($P$1:P1;Родня);0));"")
формулу вставлять во вторую строку и вводить как [abbr=Вводится через Ctrl+Shift+Enter]формулу массива[/abbr].
П.С. если сразу уникальный список в выпадающий список то это делается макросом.

ckop1986>> Протяжка массива с графиком и автозамена данных для графиков
2014-04-04 11:15 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте! Вторые сутки бьюсь над решением вопроса, но ничего толкового так и не придумал. Есть массив данных с графиком, который нужно будет протянуть вниз (A1:M26), откопировав около 1500 раз. Данные в ячейках меняются, с этим всё в порядке, однако графики всегда ссылаются на данные первого массива. Если кто сталкивался с подобной проблемой, пожалуйста, подскажите или направьте в нужную сторону. Спасибо!


На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel.

Добро пожаловать на форум!


В избранное