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

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

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

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

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

[Hubbitus]

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

[earcher]

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

но без пустых строк...

не писал я такого. внимательнее.

то что мне нужно, я описал. какой функционал и что там возможно в экселе я не знаю, потому и задаю вопрос. если такой штуки как интервал между строками нет(а я предположил что есть), то как сделать автоматом пустые строки "через одну"... (всего строк около 3000)

p.s. куда ещё понятнее и так всё разжевал уже)

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

Покажите файл.

мдааааа

[Alex Dark]

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

p.s. куда ещё понятнее и так всё разжевал уже)

Спокойнее. Ты в "своем котле варишься" давно, а совета спрашиваешь у людей не имеющих представления ни о тебе ни о том чем ты занимаешься и тем более для чего.

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

Тебе нужно делать бирки.
1. границу меджду строк делай из двойной линии у тебя получится вместо
-------
| 1 |
-------
| 2 |
-------
| 3 |
-------
вот так
-------
| 1 |
======
| 2 |
======
| 3 |
-------
и после работы с ножницами получишь
-------
| 1 |
------
и
------
| 2 |
-------


2. макросом. встань в ячейку с нее всё и начнется. Если в ячейку А1 напишешь цифру (например 10, подберешь сам нужную величину) то сможешь регулировать расстояние между строк.
И самое главное. Работать будет до первой пустой ячейки в колонке на которую встанешь

Sub макрос()
    r = ActiveCell.Row
    c = ActiveCell.Column
    r1 = r
    Do While Not IsEmpty(Cells(r1, c).Value)
        ActiveSheet.Rows(r1 + 1).Select
        Selection.Insert Shift:=xlDown
        If IsNumeric(Cells(1, 1).Value) Then
            If (Cells(1, 1).Value) > 0 Then
                Selection.RowHeight = Cells(1, 1).Value
            End If
        End If
        r1 = r1 + 1
        r1 = r1 + 1
    Loop
End Sub

[earcher]

ок. отлично. спасибо.
один момент.
можно сделать чтоб он добавлял эти самые пустые строки, и при этом бока у этих строк были без "Границы"?

То есть сейчас так:

до:

-----
| 1 |
-----
| 2 |
-----

после:

-----
| 1 |
-----
|....|
-----
| 2 |
-----

а нужно чтоб было так:

до:

-----
| 1 |
-----
| 2 |
-----

после:

-----
| 1 |
-----
....
-----
| 2 |
-----

p.s. .... - пустая строка

[Alex Dark]

добавь в код три строки

        Selection.Insert Shift:=xlDown
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        If IsNumeric(Cells(1, 1).Value) Then

[earcher]

отлично. спасибо.

ещё такой вопрос. в моей таблице два столбца и около 2000 строк. 1 столбец = ширине страницы.

Если мне нужно напечатать второй столбец (B), то приходится каждый раз узнавать отдельно его номер (361 какой нить).

То есть, как сделать чтоб номерация страниц считалась не так:

A | B
1 | 362
|
2 | 363
|
3 | 364

а так:

A | B
1 | 2
|
3 | 4
|
5 | 6

[Alex Dark]

ничего не понял...

Но если не задумываться над написаным, то ...

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

Если мне нужно напечатать второй столбец (B),

выдели нужную колонку, скажи файл, область печати, задать.
И печатай.

[Evgeshka]

кто знет, как автоматом вставлять пустую строку между разными числами в одной колонке, тоесть разделять. речь идёт о 10-значных числах, которые идут по порядку от меньшего к большему. Мне нужна пустая строка, чтобы было визуальное пространство между каждой группой одинаковых чисел.

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

[Alex Dark]

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

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

Думаю сделать это можно только при помощи макроса на основе макроса в посте 683.

[eap]

Поставил замдиректору 2007 Эксель. Он привык к 2003, знает все быстрые клавиши. В 2007 они не совпадают. Когда нажимает привычную комбинацию - выскакивает сообщение, что это быстрая клавиша от 2003 Офиса. Можно ли их как-то вернуть - чтобы работали на 2007 Excel'е клавиши от 2003? Все сразу вернуть, не по одной прописывать?

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

кто знет, как автоматом вставлять пустую строку между разными числами в одной колонке, тоесть разделять. речь идёт о 10-значных числах, которые идут по порядку от меньшего к большему. Мне нужна пустая строка, чтобы было визуальное пространство между каждой группой одинаковых чисел.

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

Можно попробовать такой прием.
Основная мысль приема - добавить служебный столбец, в котором расположить частное от деления чисел пользователя на друга по порядку сверху вниз. Во всех строках служебного столбца, где частное не равно единице, нужно вставять пустую строку.
Допустим, числа расположены в столбце А, начиная с A1. Тогда в ячейке B2 ставим формулу =A2/A1 и протягиваем формулу вниз. Т.е. в ячейке B3 будет формула =A3/A2 и т.д.
Затем фильтруем по служебному столбцу и оставляем все числа, кроме единицы.
Вставляем пустую строку после каждого числа в служебном столбце.
Снимаем фильтр и удаляем служебный столбец.
Результат получен!

[Dr.Dre]

Пожалуйста подскажите как организовать такую вещь:
В список добавляется строка, в одной ячейки строки стоит дата, а в другой число. Необходимо чтобы каждую неделю в ячейку число добавлялось +0.1

Просто вот так тупо, чтобы программа проверяла текущую дату и если прошла неделя то прибавила к числу +0.1

[EvroStandart]

Неделя прошла после чего?
С начала нужно вычеслить даты. Потом подставить результат в функцию IF

ЗЫ
Формулировка "каждую неделю" непонятна. Можно проверять что текущий день понедельник. "каждую неделю" проверить невозможно.

[Georgen]

Сообщение от Dr.Dre

Пожалуйста подскажите как организовать такую вещь

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

=((ЦЕЛОЕ((ТДАТА()-ячейка с датой)/7))*0,1+ячейка со значением)

Формат - числовой.

[Alex Dark]

Dr.Dre, ты явно чего то не додумал

ну вот так можно, если правильно понял

Нажмите здесь, чтобы увидеть текст полностью

__ Дата __|_результат__
01.01.2010 2,20
02.01.2010 2,20
03.01.2010 2,20
04.01.2010 2,10
05.01.2010 2,10
06.01.2010 2,10
07.01.2010 2,10
08.01.2010 2,10
09.01.2010 2,10
10.01.2010 2,10
17.05.2010 0,20
18.05.2010 0,20
19.05.2010 0,20
20.05.2010 0,20
21.05.2010 0,20
22.05.2010 0,20
23.05.2010 0,20
24.05.2010 0,10
25.05.2010 0,10
26.05.2010 0,10
27.05.2010 0,10
28.05.2010 0,10
29.05.2010 0,10
30.05.2010 0,10
31.05.2010 0,10
01.06.2010 0,00
02.06.2010 0,00
03.06.2010 0,00
04.06.2010 0,00
05.06.2010 0,00
06.06.2010 0,00
07.06.2010 0,00

ну а это формула

=ЦЕЛОЕ(ДНЕЙ360(B3;ТДАТА();ИСТИНА)/7)*0,1

где В3 - ячейка с датой
соответственно высчитывает разницу между сегодняшним днем и датой и умножает на 0,1

[Afed]

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

[Borland]

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

можно ли как-нить это упростить, чтобы выполнялось по нажатию одной кнопки?

Можно. Путём написания VBA-макроса и навешивания его на соответствующую кнопку.
Макрос пишется под конкретную таблицу...

[Badger]

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

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

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

Можно. Путём написания VBA-макроса и навешивания его на соответствующую кнопку.

Для быстрого создания скрипта сортировки можно использовать макрорекордер в Excel. Для Excel 2003: выбрать команду "Сервис-Макрос-Начать запись" - задать имя макроса - для начала записи макроса необходимо нажать кнопку "ОК" -далее выделить нужные для сортировки столбцы - далее настроить нужную сортировку + выполнить другие действия по обработке данных таблицы - далее "Сервис-Макрос-Остановить запись". Этот способ очень удобен, когда нужно быстро создать скрипт для обработки нескольких одинаковых таблиц.

[Lover_N001]

Всем привет!
Ребята, нуждаюсь в вашей помощи:
Есть две системы, нужно подогнать таблицы из одной системы в формат таблиц другой системы.
Отличия только в периодах:
В первой таблице формат периода такой:

[table]14.06.2010<br>30.06.2010[/table]
Нужно переделать вот в такую:

[table]14.06.2010-30.06.2010[/table]
В книге 600 страниц, в каждой странице как минимум 10 таких ячеек...

[EvroStandart]

=SUBSTITUTE(A1;"<br>";"-")

Это если простой вариант. Для полной автоматизации нужно макрос писать.