» Excel FAQ

Grenky
Коли голова дымит, то можно так

Код: Sub proga()
CurrentRow = 2
CurrentCol = 2
CurrentMin = Cells(CurrentRow, CurrentCol)
For i = 2 To 6 ' по строчкам
For j = 2 To 8 ' по столбцам
If Cells(i, j) < CurrentMin Then
CurrentRow = i
CurrentCol = j
CurrentMin = Cells(CurrentRow, CurrentCol)
End If
Next j
Next i

Cells(10, 1) = "Значение"
Cells(10, 2) = "Шир"
Cells(10, 3) = "Долг"
Cells(11, 1) = CurrentMin
Cells(11, 2) = Cells(CurrentRow, 1)
Cells(11, 3) = Cells(1, CurrentCol)
End Sub

Grenky
наименьшее значение функция =НАИМЕНЬШИЙ(C3:I7;1), где С3:I7 массив чисел
для нахождения широты и долготы - один из вариантов:


Цитата:

Function ShirDolg(Nmin As Long, Mas As Range, WarDolg As Boolean)
'три параметра - Nmin - минимальное значение массива(ссылка на ячейку с формулой)
'Mas - сам массив - первые стоки и столбцы - значение широты и долготы
'WarDolg - логическое да/нет значение на выходе - широта либо долгота
MaxRow = Mas.Rows.Count
MaxCol = Mas.Columns.Count
For i = 2 To MaxRow
For j = 2 To MaxCol
If Mas.Cells(i, j) = Nmin Then
If WarDolg Then ShirDolg = Mas.Cells(i, 1).Value Else ShirDolg = Mas.Cells(1, j).Value

Exit Function
End If
Next j
Next i

ShirDolgErr:
ShirDolg = "Ошибка"
End Function

Вставка = функция = определенные пользователем = вставляем нашу функцию =ShirDolg( определяем три параметра) - получаем на выходе результат

Озаботитлась вопросом защиты содержимого (формул и vba-проекта) xls от любопытных глаз и умелых ручек. Очевидное решение - пароли. но они легко вскрываются _программами жлдя забывчивых юзеров_. Слышала краем уха, что в 2000 оффисе можно выбрать алгоритм шифрования RC4, который ломается с бОльшими проблемами, чем стандартный майкросовтовсикй. Но вот беда - я никак не могу найти, где производится выбор метода шифрования. Вроде бы стоит офис-2000 и я создаю там файл, и сохраяню с паролями - достаточно сложными! Но на вскрытие такого пароля уходят считанные секунды...

Хелп ми плиз, лбъясните популярно эту шнягу с RC4, он в офисе по умолчанию или выбирается, если выбирается - где. И почему файл в формате 2000 екселя так легко ломается?! %)

Все ОК. Все получилось.
Снес офис. Прорыл весь реестр на предмет поиска офисных ключиков - убил все что можно. Вновь поставил офис - наконец-то заработало...

hesper

Цитата:

где производится выбор метода шифрования

Файл => сохранить как => Сервис =>Общие параметры => Дополнительно...(рядом с "Пароль для открытия")

Alexdon
Спасибо большое за ответ, но у меня нет этой кнопки! в том-то и дело, что во всех мануалах указано именно там. Но у меня это выглядит так:


Может дело в версии excel? или в установленном-неустрановленном сервис-паке... Я ставила голый офис и не ставила никаких заплат-сервис-паков и прочего. Версия офис - 2000 проф...

hesper

Цитата:

Может дело в версии excel? или в установленном-неустрановленном сервис-паке... Я ставила голый офис и не ставила никаких заплат-сервис-паков и прочего. Версия офис - 2000 проф...

Да сорри - конечно дело в версии - выбор алгоритма шифрования только с Excel 2002.

Еще один вопрос. В столбце нужно заменить X10 на № 10
Х - в данном случае русская буква, а 10 может менятся, как угодно, но всегда остается числом. В общем нужно заменить Х на №, но т.к. Х встречается и в словах, то простой заменой тут не обойдешься. Можно ли как-то решить такую проблему?
Заранее благодарен.

А если в поле замены ввести Х#, где # - подстановочный знак для цифры в разделе "специальные" диалога "замена"?

Alexdon

Цитата:

Да сорри - конечно дело в версии - выбор алгоритма шифрования только с Excel 2002.

А шифрование паролей через RC4 - тоже только с ексель 2002 или все же в 2000 это реализовано?

bredonosec

Цитата:

А если в поле замены ввести Х#, где # - подстановочный знак для цифры в разделе "специальные" диалога "замена"?

Это в каком Excel? в W2K нет такого.
Magi
Если Х10 это значение в ячейке, тогда поставь галку ячейка целиком и область просматиривать по столбцам.
Если же нет, тогда прийдется макрос, который буде брать значение ячейки и определять есть ли перед/после этого значения буква или цифра, и заменять если там пробел, симолы пунктуации, или необходимые тебе символы.

bredonosec

Это не в Excel, это в Word, в Excel нету раздела Специальные в диалоге Замена, а подстановочные знаки разрешаются только * и ?.

Magi

Макрос, о котором говорит vserd, если Х10 встречается в середине текста ячейки:

Код: Public Sub Macros()
Dim Cell As Range
Dim Pos As Long
Dim Strng As String
Dim Chr As String * 1
For Each Cell In Application.Selection
Strng = Cell.Value
Pos = InStr(Strng, "Х")
Chr = Mid(Strng, Pos + 1, 1)
If (Chr = "0") Or (Val(Chr) > 0) Then Mid(Strng, Pos) = "№"
Cell.Value = Strng
Next Cell
End Sub

Господа коллекционеры! (и им сочувствующие)

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

Как этот вопрос решался раньше? Никак. Осмотр проводился вручную с помощью естественного интеллекта без признаков автоматизации, что порождало долгие копания в памяти своей и машинной "а есть ли у меня этот альбом/EP/LP/single/и проч.?". Эта рутина мне уже настолько надоела, что я решился на написание макроса. Вроде работает, но не очень торопливо, потому что сравнивает ячейки практически по принципу "каждая с каждой" (разумеется, не все ячейки, а только с информацией об исполнителе, релизе, битрейте) с небольшими оптимизациями.

Есть ли у кого-нибудь наработки в этой области, как то: алгоримты, макросы, готовые программы, констуктивные идеи и соображения, может быть, другие пути решения?

Da_Neil
Если не ограничиваться Excel, то быстрые алгоритмы обработки лучше организовывать в какой либо СУБД с использованием SQL-запросов

Спасибо огромное! Не знаю, чтобы я без этого топика делал
Еще один мелкий вопрос. есть конструкция

Selection.Replace What:="И/м", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Замена И/м на пустоту. А как сделать, чтобы И/м было регистрозависимым? А то сейчас заменяет и "и/м" - а это не нужно.

Looking
К сожалению, не имею опыта работы с БД, да и необходимость вышеописанного происходит не чаще раза в месяц.

Magi
Твой вопрос уже содержит ответ:

Цитата:

MatchCase:=True

Magi
MatchCase:=True

Спасибо! Тут стормозил

народ а есть ли такая фича или это ошибка?

Код: =СУММ(A2:A31/B2:B31)

Tropin
похоже на формулу массива, только должно быть вот так:

Цитата:

{=СУММ(A2:A31/B2:B31)}

Если так - результат сумма А2/B2, A3/B3,...A31/B31.

Alexdon
Точно, так оно и есть (надо читать доки :)....

У меня при попытке выстроить строки по алфавиту - верхняя строка никак не меняется - это хорошо, когда сверху шапка, но когда нет... - как это включается/выключается

GRIND
А ты не кнопкой с панели сортировку запускай, а через меню Данные\Сортировка.
Там диалог будет. В нем чекбокс есть - по имени столбца выбирать колонку для сортировки (отсортируются все, начиная с первой) или по подписям (первая считается шапкой и не сортируется).

2 nofate
Спасибо огромное - очень уж это глаза мазолило - теперь всё супер

люди, такая проблема:

в ячейку листа нужно считывать название данного листа

можно ли это сделать формулой?

Da_Neil

Свойство ScreenUpdating объекта Application устанавливает, надо ли обновлять изображение во время выполнения программы. Задание этому свойству значения False (в начале макроса вставить строку Application.ScreenUpdating = False) ускоряет выполнение программы. В конце программы необходимо свойству ScreenUpdating присвоить значение True. Для сравнения, мой макрос без этих строк выполнялся - 15 мин., с ними - 2 мин.

to all
когда подбиваю сумму по определённому наименованию (Данные - Итоги...), то Excel добавляет слово "Итог". Как его не выводить или выводить другое слово?

ru4room

Цитата:

в ячейку листа нужно считывать название данного листа

Встроенной формулы для имени листа нет. Можно макросом, например:
Код: Range("A1").Value = ActiveSheet.Name

Robert

Цитата:

Только потом сплошной заменой на что-то другое менять.

Я до сих пор этим и занимался. Решил спросить ради интереса, вдруг есть альтернатива.

Robert, thx