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

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

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

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

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

[Cartman]

Сосист, это файл XML. Просто видимо кто-то приделал к нему расширение xls.
_http://webforus.com.ru/w/s/?id=7
Небольшое описание. Но сейчас XML используется не только для веба, но и для хранения и передачи данных. Например для подачи сведений в налоговую в электронном виде.

[Сосист]

Использую автофильтр. Очень удобно. Очень хочу увеличить количество задаваемых параметров фильтрации. Возмно ли это сделать?

[Alex Dark]

Создай еще одну колонку со ссылкой на нужное поле и фильтруй еще по двум параметрам. И так до бесконечности

вообще то я бы условие фильтрации сделал через макрос, если условие сложное
____________________________
Будьте проще к вам потянуться

[Сосист]

Alex Dark на дняъ выложу, он объёмный, много резать надо.

использую автофильтр. Файл создавал сам, вставлял данные из Finereader. В первой колонке цифры - номер страниц. Бывает, что одна страница, а бывает список номеров страниц.

45 или 14,18,45,87

ставлю: показать содержащие 45.
Показывает только те, где есть только "45", а строку с "14,18,45,87" - не показывает.

Правда ли, что если встречается прустая строка, то автофильтр работает только до пустой строки? У меня, похоже, так. пришлось вписывать в пустые строки белеберду. Можно ли это обойти иначе?

[Alex Dark]

Сосист:
он объёмный, много резать надо

Не совсем понял, что объемный Файл или архив?
если и архив, то давай упростим задачу. Вырежи кусок и на этом куске (что бы тебе было понятней) будем разбираться что ты хочешь делать с фильтром

Я тут не долго думая нарисовал коряво примерчик, посмотри.
Не совсем понятно что ты имеешь и что ты хочешь.
В примере макрос (функция), который(ая) определяет удовлетворяет значение твоему фильтру или нет и возвращает 1 или 0
функция прописана в последней колонке, по ней можно применить автофильтр

Можно усложнить функцию и соответственно расширить фильтр
В виде параметра номер строки а колонки и значения выбирай програмно

[vuk]

есть данные формата A-01-01
нужно чтобы Exel заполнил следующие ячейки в виде А-02-01 А-03-01 и т.д. а он сволочь увеличивает последнюю цифру (А-01-02). Help.
P.S.: юзер мануал недоступен

[Cartman]

vuk:
есть данные формата A-01-01

А еще есть такая хорошая штука, как поиск.
Объединяю.

Ответ на твой вопрос такой, делаем 4 столбца
1 - "A-"
2 - 01 (его протягивай на увеличение)
3 - 01 (его протягивай без увеличения)
4 - =СЦЕПИТЬ(A1;A2;A3)

Назначить всем ячейкам тип текст изначально.
Потом если хочешь - можешь первые 3 столбца скрыть.

[Alex Dark]

Доброго времени суток
Вот есть у меня форма в Excell выдранная из консультанта, в формате XLS. А я хочу эту форму в формате MXL (1С его пользует). Как-то года 2 назад (уже точно не помню что, но) была у меня приблуда которая позволяла открывать файлы MXL в Excell и наоборот сохранять XLS в MXL.

Может кто просвятит как это из XLS сделать MXL

PS. параллельно кинул в разделе 1С этот вопрос, но немного модифицированный, дабы не нарушать правила

[Cartman]

Alex Dark, есть у 1С приблуда, называется конвертор табличных документов, но он позволяет открывать mxl в excel-е и только.
Так что про сохранение это ты загнул

[Сосист]

AlexDark по 226 тест.rar я ничего не понял. При чём там макросы?

[Alex Dark]

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

AlexDark по 226 тест.rar я ничего не понял. При чём там макросы?

Макрос возвращает 1 если ячейка удовлетворяет условиям поиска и 0 если нет.
Условие фильтрации описываешь внутри тела макроса, количество условий не ограниченно ни чем.

А конечный фильтр делаешь по последней колонке, в которой выдается результат выполнения макроса. А именно там 1 или 0. Включай автофильтр и получай данные

[deimos]

Доброго времени суток.
В общем есть такая проблемка: есть большая таблица в экселе, в которой столбцами забиты данные. При попытке сортировать данные, эксель ругается, что ячейки разного размера.
Автоматом записал макрос, который разбивает объединенные ячейки, добавляет столбец "Примечание", переносит из разъединенных столбцов содержимое в ячейку столбца примечание и объединяет столбцы чтобы все ячейки в строке были одинаковыми.
Теперь вопрос: как изменить макрос чтобы он автоматом изменил всю таблицу, а не только то, что я изменил, т.е. первые две строки?

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 31.08.2006 (user)
'

'
    Selection.EntireColumn.Insert
    Columns("I:I").ColumnWidth = 22.43
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Примечание"
    With ActiveCell.Characters(Start:=1, Length:=10).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 2
    End With
    Range("E4:H4").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.UnMerge
    Range("E4").Select
    Selection.Cut Destination:=Range("I3")
    Range("E3:E4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("F3:F4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("G3:G4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("H3:H4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("I3:I4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub

просто сам я не программист и поэтому сам исправить как надо не могу :-(
Данные для сортировки начинаются с 3 строки. 1,2 строка - это шапка.

[Cartman]

Тебе надо организовать цикл по стокам:
For Num = 1 To ПоследняяСтрока
...
...
...
Next
Внутри твой код. Num - нумератор цикла, Последняя строка - номер последней строки.
Можешь вписать число, можешь завести такую переменную и присвоить ей значение.

В Range() меняешь так:
Было Range("E4:H4").Select
Надо Range("E" & Num & ":H" & Num).Select
Если выделяешь одну ячейку соответсвенно только до двоеточия.

[Комбинатор]

Как в экселе сделать
чтоб при клике по ячейке, к числу в ячейке прибaвлялась единица
можно ли такое сделать?

[Alex Dark]

Комбинатор:
Как в экселе сделать
чтоб при клике по ячейке, к числу в ячейке прибaвлялась единица

в модуле листа следующий кусок
If IsEmpty(Target) Then
Target.Value = 1
Else
Target.Value = Target.Value + 1
End If
можно вставить в любую процедуру

Если вставишь в процедуру:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
любое перемещение по ячейкам. Не только мышкой но и стрелками
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) по правой клавише мыши
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) по двойному нажатию

PS и не забудь, что сработает как ошибка на любое другое значение кромечисла и пустоты
Это самые простые, можно усложнить - но надо ли?

Трямм, подскажите, мож кто знает как в Excel используя макрос узнать папку откуда запущена данная книга ?

[Alex Dark]

в отладчике посмотри ME (me.fullname)
в модуле MsgBox Me.FullName

[Seva]

Cardi:
Трямм, подскажите, мож кто знает как в Excel используя макрос узнать папку откуда запущена данная книга ?

попробуй этой командой - возвращает путь к папке, при желании можно получить только имя
ActiveWorkbook.Path

[Alex Dark]

Cardi:
Трямм, подскажите, мож кто знает как в Excel используя макрос

Немного не в тему... справочника по VB у меня нет, поэтому...
я, если что то надо узнать, торможу в отладчике и смотрю ME. Дерево там огромное. Сначала по возможному названию, потом по значениям (долго смотреть приходится), потом уже по хелперу (но это самый крайний случай. Сколько раз было - ищешь одно находишь другое).

И не перепутай, свойства книги, листа, ячейки и тд. ME тебе все это даст, главное не запутаться
me.ActiveSheet текущий лист
me.Sheets доступ к листам книги
и т.д. пишу просто на память

[Pride Assa$$in™]

Требуется из ячеек в которых есть и буквы и цифры подсчитать только цифры. Я понимаю что это наверное просто очень, но никак не могу сообразить