Microsoft Excel: Вопросы и ответы

Нет ли у кого программки соответствующей ? Существует такая вещь - Office Recovery, пакет программ для восстановления файлов MS Ofiice и т.п., нужна хотя бы Excel Recovery - ни одна из найденных ссылок не работает :-(((

Демо версия восстанавливает лишь частично - т.е. не катит..

Пожелание
Вопросы типа помогите написать макрос или помогите разобраться как работает макрос и т.д. не связанные с общими принципами работы Excell желательно не только подробно описывать но и сопровождать примером

Читаем правила, за треп не по теме здесь наказывают, поэтому спасибы в репутацию или в приват.

[Plague]

на самом деле я вопрос еще проще решил, через UltraCompare, сравнивая имеющееся и непрерывный отчет, и наложив фильтр "показывать только измененные строки". Но вообще интересно было бы посмотреть варианты решения, так сказать для общего развития. Вариант со скриптом, не смейтесь, но я как мартышка и очки с ним - так и не нашел куда его приладить

Сообщение от Alex Dark

приаттач пример на 10-20 строк

да чего атачить-то? сделай колонку с последовательностью от 1 до 10, удали оттуда несколько строк:
1
2
4
5
7
9
10

а потом заставь эксель найти недостающие и вывести в другую колонку...

[EvroStandart]

для общего развития набросал процедуру.

[Рудко]

Как сделать так, чтоб таблица не учитывала некоторые элемент? А именно графику и буквы. Дело в том, что когда вносишь эти элементы в ячейку, формула не работает.
Речь идет о таблице подсчета времени и без графических элементов и букв она теряет смысл.

[EvroStandart]

Сообщение от Рудко

Как сделать так, чтоб таблица не учитывала некоторые элемент?

Пример в студию!

[Alex Dark]

Рудко, так как до примера дело не дошло, то могу предположить что в ячейку ты заносишь некоторую информацию которая не соответствует принятым в экселе стандартам. Соответственно формула у тебя не считается. Выхода два:
1. откажись от "графики и букв"
2. пиши свой макрос, который будет понимать и отсеивать "графику и буквы" перед расчетом

[grooogler]

Вот скрипт, http://slil.ru/27685747

Он должен работать как фильтр. Если посмотреть, там всё понятно.
В общих словах, он сравнивает инфу из первого и второго листа, и повторяющиеся строки пишет в листе 3, а не повторяющие в листе 4.

Лист 1
1111 1111
2222 2222
333 333
444 444
555 555

Лист 2
2222 2222
333 333
444 444


В листе 3 показывает:
2222 2222
333 333
444 444
2222 2222
333 333
444 444


То есть почему то два раза одно и тоже.

Как исправить?

[EvroStandart]

Этот скрипт в каком формате?

[Alex Dark]

это 2007 эксель

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

PS Этот код сравнивает любое количество колонок на точное совпадение листа2 с со строкой на листе1 и данные листа1 скидываются соответственно на 3 и 4 листы. т.е если на листе2 будет строка отсутствующая на листе1 то она вообще ни куда не попадет

Sub Main2()
    Sheets(3).Cells.ClearContents:
    Sheets(4).Cells.ClearContents:
    Sheets(3).Activate
    i = 1
    i3 = 1
    i4 = 1
    Do While Not IsEmpty(Sheets(1).Cells(i, 1).Value)
        j = 1
        Sheets(1).Rows(i).Copy Sheets(3).Rows(i3)
        Sheets(1).Rows(i).Copy Sheets(4).Rows(i4)
        ok2 = 0
        Do While Not IsEmpty(Sheets(2).Cells(j, 1).Value)
            ok = 0
            For ii = 1 To Sheets(1).Cells(i, Columns.Count).End(xlToLeft).Column
                If Sheets(1).Cells(i, ii).Value = Sheets(2).Cells(j, ii).Value Then
                    ok = ok + 1
                End If
            Next
            If ok = Sheets(1).Cells(i, Columns.Count).End(xlToLeft).Column Then
                'совпадение
                Sheets(4).Select
                Rows(i4).Delete
                i3 = i3 + 1
                ok2 = 0
                Exit Do
            Else
                'нет совпадения
                ok2 = ok2 + 1
            End If
            j = j + 1
        Loop
        If ok2 = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column Then
            Sheets(3).Select
            Rows(i3).Delete
            i4 = i4 + 1
        End If
        i = i + 1
    Loop
End Sub

[grooogler]

Убрал старый код, поставил этот.

Теперь так:

1 лист

1111 1111
2222 2222
333 333
444 444
555 555

2 лист
2222 2222
333 333
444 444





3 лист
2222 2222
333 333
444 444
555 555

4 лист
555 555


А должно быть:

3 лист
2222 2222
333 333
444 444

4 лист
1111 1111
555 555

Скрипт должен сравнивать ячейки в столбцах А листа 1 и 2.
Если ячески совпадают - всю соответствующая строка помещается в Лист 3
Если ячески не совпадают - всю соответствующая строка помещается в Лист 4

p.s. http://slil.ru/27696874

[Alex Dark]

Извините был напуган (из анекдота)

Подправь две строки выделенные красным.

            If ok = Sheets(1).Cells(i, Columns.Count).End(xlToLeft).Column Then
                'Совпадение
                Sheets(4).Select
                Rows(i4).Delete
                i3 = i3 + 1
                ok2 = -1
                Exit Do
            Else
...

        If Not ok2 = -1 Then
            Sheets(3).Select
            Rows(i3).Delete
            i4 = i4 + 1
        End If

[grooogler]

Теперь верно.
Но нужно чтоб было немного не так.
Сравниваться должны в первом и втором листе только ячейки в столбце А.

Примеры:

А)

(1
1 1
2 2
3 3
4 4

(2
2 2
3 3

(3
2 2
3 3


(4
1 1
4 4


Б)

(1
1 1
2 2
3 3
4 4zzzzzzz

(2
2 2
3 3
4 yyyyyyyyyyyy

(3
2 2
3 3
4 4zzzzzzz

(4
1 1

[Alex Dark]

Сообщение от grooogler

Но нужно чтоб было немного не так

Ну извиняй... В твоем алгоритме сравнение шло по вертикали и по горизонтали. Я его просто правильно переписал.

PS

Sub Main3()
    Sheets(3).Cells.ClearContents:
    Sheets(4).Cells.ClearContents:
    Sheets(3).Activate
    i = 1
    i3 = 1
    i4 = 1
    Do While Not IsEmpty(Sheets(1).Cells(i, 1).Value)
        j = 1
        Sheets(1).Rows(i).Copy Sheets(3).Rows(i3)
        Sheets(1).Rows(i).Copy Sheets(4).Rows(i4)
        ok2 = 0
        Do While Not IsEmpty(Sheets(2).Cells(j, 1).Value)
            If Sheets(1).Cells(i, 1).Value = Sheets(2).Cells(j, 1).Value Then
                Sheets(4).Select
                Rows(i4).Delete
                i3 = i3 + 1
                ok2 = -1
                Exit Do
            Else
                'разные
                ok2 = ok2 + 1
            End If
            j = j + 1
        Loop
        If Not ok2 = -1 Then
            Sheets(3).Select
            Rows(i3).Delete
            i4 = i4 + 1
        End If
        i = i + 1
    Loop
End Sub

[sysser]

ПРивет ребята!

Задача такая: имеем 123.txt файл с четкой структурой

Шапка
|п\п|фам|имя|отч|статус|некий номер|
|1|Иванов|Иван|Иваныч|инвалид|123-456-789 00|
|2|Петров|Петр|Петрович|ветеран|321-654-987 11|
...
|879|Семенов|Семен|Семенович||213-546-879 22|

Необходима возможность сортировки по разным полям, например по "некий номер" или по "фам".
В самом текстовике не сделаеш, но можно в Экселе.
Когда капируеш через буфер в Эксел, то он вставляет каждую строчку в одну ячейку.
Но если проставить после "|" ТАБ (Tab), то копируется в другую (следующую) ячейку, и после легко сортируется.
Но в ручную проставлять ТАБы сил не хватает.
Помогите автоматизировать процесс.

И подскажите толковый справочник по VBA

[Borland]

sysser, в экселе есть замечательный модуль импорта данных. И если текст импортировать им - накакое предварительное редактирование текстовика не понадобится. Просто при импорте надо будет указать ему символ "|" в качестве разделителя ячеек...

Проблеммы:
1. знак равно и плюс возле цифер прячутся(не отображаться визуально)
2. дата: например вордовская "11.10" становиться "11.01.1900 2:24:00"

В архиве: искодный док(так должно быть в ексель), файл ексель в который я скопировал, файл ексель который изменил типы http://rapidshare.com/files/247806263/berezani.rar.html. Тип "дата" и "текст".
Изменяется только при нажатии F2 и enter по каждой ячейке.

CTRL+SHIFT+ALT+F9 не помогает.

Как можно обновить весь лист?

Заранее спасибо.

[Judge]

Я, конечно, в Excel совсем не спец, но у меня получилось так:
1. Формат - Ячейки - выбрать Текстовый.
2. Знак "+" будет при таком формате ячейки отображаться.
3. А перед знаком равенства поставить пробел и тогда знак "=" тоже отображается.

Спасибо, получилось. Скажите пожалуйста, как быть с датой?

[PavelKraft]

Сообщение от razik

Скажите пожалуйста, как быть с датой?

После копирования текста из Word'a в Excel выделяешь все нужные строчки -> формат ячеек... -> дата -> тип 14.3
Дата будет в формате 11.10.2009, а отображаться как "11.10"
Удачи!

Сообщение от PavelKraft

После копирования текста из Word'a в Excel выделяешь все нужные строчки -> формат ячеек... -> дата -> тип 14.3
Дата будет в формате 11.10.2009, а отображаться как "11.10"
Удачи!

Не сработало

[Alex Dark]

razik, даты в экселе это великое шаманство. Могу только посочувствовать. Дело в том, что в старое доброе DOS-овское время дату записывали в формате 01/10/1980, а микрософт через точку. Теперь он часто путает числа с датами и не полные даты конвертит так как хочет.
Единственный выход из этой ситуации записывать даты всетаки через наклонную черточку. т.к. наклонную черточку он пока еще понимает правильно

PS Учти число 1,3 он у тебя обязательно воспримет как дату не зависимо от твоего желания