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

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

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

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

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

[Judge]

Помогите создать формулу: вычисляется с округлением среднее значение; если это значение находится в диапазоне от Х до Y, то в соседний столбец этой же строки вставляется Слово 1, если в диапазоне от Y до Z - Слово 2...
Немного подробнее и нагляднее в самом файле.
Заранее спасибо.

[eap]

Читаешь в Справке описание математической функции ОКРУГЛ и логической функции ЕСЛИ и пишешь длинную формулу с условиями.
Вопрос к постановке задачи: что должно выводиться при значении 9?

[Vellion]

to Judge

Либо вот так: G1 ячейка в которой среднее округленное значение находиться, оно нормально и так считается

=ЕСЛИ(G1<5;"ХЗ";ЕСЛИ(G1<=8;"Бронза";ЕСЛИ(G1<10;"ХЗ";ЕСЛИ(G1<=12;"Серебро";ЕСЛИ(G1<=15;"Золото";"ХЗ")))))

Либо функцию писать типа такой:

Public Function Test(A) As String
If A >= 5 And A <= 8 Then
  Test = "Бронза"
Else
  If A >= 10 And A <= 12 Then
    Test = "Серебро"
  Else
    If A >= 13 And A <= 15 Then
      Test = "Золото"
    Else
      Test = "ХЗ"
    End If
  End If
End If
End Function

P.S. Только в файлике почему то числа в я чейках f3, g3, h3 и так далее, строками себя считают.

Как вариант если промежуточные значения не нужны такое использовать:

Public Function Test(M) As String
i = 0
s = 0
For Each k In M
  s = s + k
  i = i + 1
Next k

A = s \ i
If (s Mod i) * 2 >= i Then
  A = A + 1
End If

If A >= 5 And A <= 8 Then
  Test = "Бронза"
Else
  If A >= 10 And A <= 12 Then
    Test = "Серебро"
  Else
    If A >= 13 And A <= 15 Then
      Test = "Золото"
    Else
      Test = "ХЗ"
    End If
  End If
End If
End Function

В качестве параметра передавать массив из чего среднее считать, а выдает сразу строку "Бронза", "Серебро" или "Золото"

[Judge]

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

Читаешь в Справке описание математической функции ОКРУГЛ и логической функции ЕСЛИ и пишешь длинную формулу с условиями.

У меня даже "Библия пользователя Excel 2003" есть, но для меня Excel = и


Vellion,
спасибо: получилось; правда, пришлось немного подредактировать, чтобы формула приобрела необходимый вид:

=ЕСЛИ(G1<10;"Бронза";ЕСЛИ(G1<=12;"Серебро";ЕСЛИ(G1<=15;"Золото";"")))

[earcher]

Есть таблица:

Столбик A:
name1.com
name2.com
name3.com
name4.com
name5.com
name6.com
name7.com
name8.com
name9.com
name10.com
name1.com
name3.com

Столбик B:
host1.net
name5.com
host2.net
name1.com
host3.net
name8.com
host4.net
host5.net
host6.net
host7.net
host8.net
host9.net
host10.net

В столбике C, должно появиться:
name5.com
name8.com


То есть, скрипт(или формула) ищет ячейки из столбца А которые совпадают с ячейками из столбца B и показывает их в столбце C.

Спасибо.

ps. примерчик для наглядности прилогаю

[V0land]

earcher,
пока на ум приходит только vlookup, iserror + autofilter

[earcher]

2V0lan2: Благодарю.

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

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

Спасибо

[V0land]

earcher,
насчет "по цвету" - хз. но есть гугл =)

[korotetsky]

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

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

2007-й эксель может. и сортировать, и фильтровать..

[Judge]

Очередной вопрос:
есть некий список фамилий и имён (~300), некоторые из которых (~40) имеют форматирование. Требуется, чтобы при продолжении списка фамилия и имя, имеющие форматирование отображались с форматированием, а если форматирования нет, то и нет.

[Alex Dark]

ну... что бы сразу ... наверное не получится.
можно постфактум.
1. создаешь временно лист (1 колонка - уникальный список имен, 2 колонка указатель на строку)
2. перебор строк,
2.1 если в списке (1) нет, то добавляешь
2.2 Если есть, то форматируешь по образцу.
3 лист удалил

[Judge]

Alex Dark, спасибо, но только то, что ты предлагаешь, мне непонятно, потому что

для меня Excel = и

Уточняю свой вопрос: есть некая таблица для регистрации (прицеплена ниже). В этой таблице есть скрытый список (СС). Надо, чтобы

при продолжении списка фамилия и имя, имеющие форматирование отображались с форматированием, а если форматирования нет, то и нет.

Времени на создание дополнительных списков и проч. просто нет: эта регистрация идёт перед началом соревнования, времени на дополнительную сверку и иные манипуляции нет. Вот и хотелось бы, для оперативного контроля, иметь инструмент сверки с СС.
Мож макрос какой? Типа, ввёл Фамилию и Имя (Ф и И), нажал на кнопку с макросом, он сверил бы введённые Ф и И со СС и, если необходимо, отформатировал введённое.
+++++++++++++++++++

К посту 515: Класс! Это то, что нужно!

[Alex Dark]

Judge, гы... яж это и предложил...
Просто то о чем спросил ты, было не совсем понятно (первый пример)

добавлено через 10 минут
Щаз на втором примере помозгую. Если получится то сегодня нацарапаю, нет (извиняйте) завтра...

добавлено через 41 минуту
я вот тут накорябал.
работает для твоего второго примера, для ячейки на которой стот. Лучше всего зацепить на какую нить клавишу (CTRL+Н русская ) вроде свободна

Sub Макрос2()
Dim К, С, AC, aa, aa1
  С = ActiveCell.Row
  К = ActiveCell.Column
  AC = ActiveCell
  aa1 = UCase(ActiveCell.Value)
  For i = 8 To С
    aa = Cells(i, К).Value
    aa = UCase(Cells(i, К).Value)
    If aa = aa1 Then
      Cells(i, К).Select
      Selection.Copy
      Cells(С, К).Select
      Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
      Exit For
    End If
  Next
End Sub

[Judge]

В продолжение к посту 514: осталось сделать ещё пару макросов. В аттаче 2 файла; в файле Макрос_Соло - описание проблемы наглядно. Если коротко: надо, чтобы Фамилия Имя и результат при нажатии на кнопку с макросом, прописывался в другой лист (Диплом).
Заранее премного благодарен!

И ещё такой вопрос (извините моё дилетантство): И ещё такой вопрос: при сохранении макроса в книге создаётся модуль с этим макросом; если требуется записать ещё 1-2 макроса, то записывать его надо в другой модуль или можно в этот же?

[korotetsky]

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

И ещё такой вопрос: при сохранении макроса в книге создаётся модуль с этим макросом; если требуется записать ещё 1-2 макроса, то записывать его надо в другой модуль или можно в этот же?

можно и в тот же. он сам разделит линией перед каждой строкой Sub ___ ()

[korotetsky]

получилось малость через задницу (дохрена лишних итераций), но работает. см. макрос "копипаст"

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

[Alex Dark]

или так
см кнопку "печать" в шапке и лист "Диплом (2)"
В ячейеку Т14 скидывается номер строки, а =ИНДЕКС() вставляет значения в ячейки
копипаст2 делает именно это и отправляет на печать

на листе "Диплом (2)" есть список для выбора
Выбираешь из списка, нажимаешь печать - тоже самое без перехода на первый лист

[earcher]

V0land
ты делал скриптик:

earcher,
пока на ум приходит только vlookup, iserror + autofilter
Вложения prim1_.rar (2.2 Кбайт, 5 просмотров - Кто скачивал? )

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

[earcher]

Есть таблица:

Столбик A:
name1.com
name2.com
name3.com
name4.com
name5.com
name6.com
name7.com
name8.com
name9.com
name10.com
name1.com
name3.com

Столбик B:
host1.net
name5.com
host2.net
name1.com
host3.net
name8.com
host4.net
host5.net
host6.net
host7.net
host8.net
host9.net
host10.net

В столбике C, должно появиться:
name5.com
name8.com

В столбике D, должно появиться:
host1.net
host2.net
host3.net
host4.net
host5.net
host6.net
host7.net
host8.net
host9.net
host10.net


То есть, скрипт(или формула) ищет ячейки из столбца А которые совпадают с ячейками из столбца B и показывает их в столбце C. Все остальные показывает в столбце D.

Спасибо.

ps. примерчик для наглядности прилогаю
pp.s. я уже похожий скрипт спрашивал, только этот с вышеуказанными дополнениями

[V0land]

earcher,
ну и нафига казе баян? делаешь фильтр по blanks, вот тебе и будут все, которые не совпадают