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

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

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

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

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

[Alex Dark]

korotetsky, не совсем понял. У тебя задача сделать это формулой или макрос тоже подойдет?

добавлено через 28 минут

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

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

а в какую строку, если например 5 повторений.

Другими словами.
1 действие: сортируем данные по первой колонке
2 действие: сумируем однотипные данные

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

приходится постоянно для вновь созданной таблицы писать функции Сумесли или ВПР...
Хотелось бы рабочий макрос это быстрее и эффективнее

Да вобщем то макрос простой

стр = 2
Do While Not IsEmpty(Cells(стр, 1))
Cells(стр, 3).Select
ActiveCell.Formula = "=B" + CStr(стр) + "+7"  'здесь твоя формула
стр = стр + 1
Loop

можно воспользоваться FormulaR1C1

добавлено через 49 минут
Li2n, если я тебя правильно понял то:

Sub Макрос1()
стр = 2
Do While Not IsEmpty(Cells(стр, 1))
  стр2 = стр + 1
  Стр3 = 0
  If IsEmpty(Cells(стр, 3)) Then
    F = "=RC[-1]"
    Do While Not IsEmpty(Cells(стр2, 1))
      If Cells(стр, 1).Value = Cells(стр2, 1).Value Then
        Стр3 = Стр3 + 1
        Sheets(2).Cells(Стр3, 1).Formula = "=" + CStr(стр2)
        Sheets(2).Cells(Стр3 + 1, 1).Formula = ""
        F = F + "+R[" + CStr(стр2 - стр) + "]C[-1]"
      End If
      стр2 = стр2 + 1
    Loop

    Cells(стр, 3).FormulaR1C1 = F
    стр2 = 1
    Do While Not IsEmpty(Sheets(2).Cells(стр2, 1))
      Cells(Sheets(2).Cells(стр2, 1).Value, 3).Formula = Cells(стр, 3).Formula
      стр2 = стр2 + 1
    Loop

  End If
  стр = стр + 1
Loop
End Sub

делает следующее
на текущем листе смотрит колонку 1 на совпадение и в колонку 3 вставляет формулу которая складывает колонку 2 для совпавших
Условие: Sheets(2) используется для хранения найденных данных

[Dede]

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

[Alex Dark]

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

В ячейке записан текст, выделяю произвольный символ этого текста и задаю ему смену шрифта на "symbol".
Хотелось бы вывести на кнопку.

У меня это не получилось. Кнопка отключается. Макросы не доступны.

[Dede]

Alex Dark, а без кнопки? Запускать можно по горячим клавишам

[Alex Dark]

Dede

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

Макросы не доступны.

можно форматировать фиксированные слова или с символа 5 до символа 10
Можно попробовать прописать логику. Но как это хочешь ты похоже что не возможно

[korotetsky]

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

не совсем понял. У тебя задача сделать это формулой или макрос тоже подойдет?

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

Li2n,
это имя файла в обменнике

суммпроизв.zip 7 3.74 Kb 25.04.2008 03:42

[Jeff]

англоязычный эксель.

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

Например |машина 10| где 10 это результат какой-то формулы.

[V0land]

[Jeff]

V0land,
Сенкс, но теперь новая проблема. Допустим получается по формуле длинное дробное число. Мне никак не отформатировать эту ячейку, чтобы было допустим два знака после запятой. Она тупо никак не форматируется, если текст и формула вместе.
То есть из |равно 10,9218463| надо сделать |равно 10,92| , а округлять оно не хочет

[Alex Dark]

Jeff, Round(число,КоличествоЗнаков)
Быстрее все так
PS
=Round(A3+A2;4)&" wwwww" -> 0,7778 wwwww
=Round(A3+A2;2)&" wwwww" -> 0,78 wwwww

[V0land]

Alex Dark,
о! а я-то уже в VBA полез ))))

[korotetsky]

V0land, та да


Alex Dark, стянул я приблуду твоего изготовления, руки дойти до нее никак не могут. видать конец месяца нам поможет

в любом случае, спасибо

вдогонку еще вопрос: никто не задумывался как научить мышь скролить в выпадающих списках?

[kasha]

подскажите пожалуйсто.

есть ячейка формата text. в ней запись следующего вида.

There are a lot of free space.a1

мне бы как-нибудь считать в другую клетку последние 2 символа т.б. "a1".

сам в интернете нашел такой макрос:

Private Sub Worksheet_Activate()
a = Лист1.Cells(1, 1)
i = Len(a)
lastsymbol = Mid(a, i, 1)
Лист1.Cells(2, 1) = lastsymbol
End Sub

но с макросами вообще не знаком. и Если вы считаете что он мне подходит, то разьясните пожалуйста хотя бы, что значат строки все, кроме i = Len(a) - это я так понимаю в переменную заносится длина строки(кол=во символов в ячейке) .
спасибо

[Jeff]

kasha,
=right(X;Y)
Х - адрес ячейки
Y - кол-во символов справа

[Alex Dark]

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

никто не задумывался как научить мышь скролить в выпадающих списках

Это к разработчикам ПО

kasha
Объявление процедуры обработки
В данном случае это стандартная процедура вызываемая автоматом при активизации листа
Private Sub Worksheet_Activate()

переменной А присваиваем значение ячейки 1 по горизонтали и 1 по вертикали из листа1
a = Лист1.Cells(1, 1)

Присваиваем I значение равное количеству символов в переменной А
i = Len(a)

Присваиваем lastsymbol значение равное значению последнего символа из переменной А
lastsymbol = Mid(a, i, 1)

Устанавливаем в ячейке листа1 в первой строке во второй колонке значение lastsymbol
Лист1.Cells(2, 1) = lastsymbol

Конец процедуры
End Sub

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

Если вы считаете что он мне подходит

проще написать как предложил Jeff
и не заморачиваться с макросами.

Макросы используются (мое мнение) только когда сложно или невозможно решить задачу стандартными средствами

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

[earcher]

Здраствуйте.
Нужны два скрипта:

1. База такого вида: "логин:пароль@хост"
То есть например: alc11:hry7K5lc@alc11.ru
Нужно чтоб скрипт нашол те строки в которых "логин" содержится в "хосте"
То есть:
alc11:hry7K5lc@alc11.ru - подходит!
alc_22:hry7K5lc@alc22.ru - не подходит
w_alc33:hry7K5lc@alc33.ru - не подходит
alc44:hry7K5lc@alc-44.ru - не подходит
alc55:hry7K5lc@aaaaaaaaaaaaaalc55.ru - подходит!
alc66:hry7K@5lc@alc66.ru - подходит!

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

2.
Первый лист:
alc11:hry7K5lc@alc11.ru
alc_22:hry7K5lc@alc22.ru
w_alc33:hry7K5lc@alc33.ru
alc44:hry7K5lc@alc-44.ru
alc55:hry7K5lc@aaaaaaaaaaaaaalc55.ru
alc66:hry7K@5lc@alc66.ru

Второй лист:
alc11:hry7K5lc@alc11.ru
alc66:hry7K@5lc@alc66.ru

Третий лист (Результат):
alc_22:hry7K5lc@alc22.ru
w_alc33:hry7K5lc@alc33.ru
alc44:hry7K5lc@alc-44.ru
alc55:hry7K5lc@aaaaaaaaaaaaaalc55.ru

То есть скрипт берет строки с первого листа, отнимает от него строки второго листа, и показывает в третьем


Огромное спасибо!!!

[Alex Dark]

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

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

не городи огород. Добавь колонку в которой по условию выставляются 1/0 и используй фильтр

условие простое
если текст после собаки равен тексту с начала до двоеточия

[Alex Dark]

В колонке А исходные данные

=ЕСЛИ(ЛЕВСИМВ(A9;НАЙТИ(":";A9;1)-1)=ПСТР(A9;НАЙТИ("@";A9;1)+1;ДЛСТР(ЛЕВСИМВ(A9;НАЙТИ(":";A9;1)-1)));1;0)

Проверка левой части
=ЛЕВСИМВ(A9;НАЙТИ(":";A9;1)-1)

Проверка после @
=ПСТР(A9;НАЙТИ("@";A9;1)+1;ДЛСТР(ЛЕВСИМВ(A9;НАЙТИ(":";A9;1)-1)))

Результат
alc11:hry7K5lc@alc11.ru 1 alc11 alc11
alc_22:hry7K5lc@alc22.ru 0 alc_22 alc22.
w_alc33:hry7K5lc@alc33.ru 0 w_alc33 alc33.r
alc44:hry7K5lc@alc-44.ru 0 alc44 alc-4
alc55:hry7K5lc@aaaaaaaaaaaaaalc55.ru 0 alc55 aaaaa
alc66:hry7K@5lc@alc66.ru 0 alc66 5lc@a
alc66:hry7K@ALC66_.ru 1 alc66 ALC66
alc66:hry7K@ALC66.ru 1 alc66 ALC66
Обрати внимание на последние 2 строки

добавлено через 22 минуты

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

То есть скрипт берет строки с первого листа, отнимает от него строки второго листа, и показывает в третьем

опять же зачем городить огород скриптами

=ПОИСКПОЗ(A1;Лист2!A$1:A$20;0)
результат:
alc11:hry7K5lc@alc11.ru 1
alc_22:hry7K5lc@alc22.ru #Н/Д
w_alc33:hry7K5lc@alc33.ru #Н/Д
alc44:hry7K5lc@alc-44.ru #Н/Д
alc55:hry7K5lc@aaaaaaaaaaaaaalc55.ru #Н/Д
alc66:hry7K@5lc@alc66.ru 2

выдает позицию на втором листе.
добавляй условие =если(ПОИСКПОЗ(A1;Лист2!A$1:A$20;0)>0;1;0)

включай фильтр и пользуй

[earcher]

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

В колонке А исходные данные

Ок.
Сработало на всех кроме:
nilonis:98fduiudhdfh@www.nilonis.com.ua 0 nilonis www.nil
alc66:hry7K@5lc@alc66.ru 0 alc66 5lc@a
file4e:swdj34535@ftp.file4e.net 0 file4e ftp.fi
такого типа...


Со вторым вариантом не понял. Куда исходные значения ставить, куда формулы...

p.s. кстати, когда поставлял =ПОИСКПОЗ(A1;Лист2!A$1:A$20;0) на третьем листе, появилось сообщение экселя о запрете какойто циклической ссылки...

[Alex Dark]

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

Нужно чтоб скрипт нашол те строки в которых "логин" содержится в "хосте"

Я посчитал что ты опечатался со словом содержиться
т.е. пример:
alc1:hry7K5lc@alc1.ru - подходит
alc1:hry7K5lc@Kalc11.ru - Тоже подходит?
alc:hry7K5lc@Kalculator.ru - Тоже подходит?

поэтому проверка идет на совпадение логина с началом хоста. Вообще то это то же не совсем верно.