Миф как найти значение

(греч. mythos — слово, рассказ, сказка)

форма творческого осмысления греками явлений природы, собственного происхождения, исторического прошлого, всего окружающего мира. Мифы греков вобрали многообразные влияния и фантазию др. народов как догреческого населения в местах постоянного поселения греков на Балканском п-ве, в Малой Азии и на островах Эгеиды (карийцы, пеласги, минойцы), так и народов Зап. Средиземноморья, Причерноморья, с которыми они сталкивались в процессе колонизации. Основное ядро греческих мифов — предания, относящиеся к крито-микенскому периоду, переосмысленные после переселений народов и создания на месте микенских царств новых гос. образований. Именно тогда сложились циклы мифов, героями которых стали цари и воины микенского времени, а также мореплаватели и торговцы, предшественники колонизаторов VIII — VI вв. до н.э. Осуществленная Гомером, Гесиодом, греческими трагиками и мифографами систематизация и переработка м. на многие столетия определила развитие литературы и искусства греков, а также этрусков, римлян, воспринявших богатство греческой мифологии. Античные ученые частично видели в мифах вымысел, фантазию, частично — подлинное свидетельство о прошлом, считая Гомера первым историком. Широкое распространение приобрело аллегорическое толкование мифов, когда в них пытались открыть глубокий, скрытый от непосредственного восприятия смысл.

Ботвинник М.Н., Коган Б.М., Рабинович М.Б., Селецкий Б.Н. Мифологический словарь. М., 1985; Голосовкер Я.Э. Сказания о титанах. М., 1955; Голосовкер Я.Э. Логика мифа. М., 1987; Кун Н.А. Легенды и мифы Древней Греции. Минск, 1985; Лосев А.Ф. Античная мифология в ее историческом развитии. М., 1957; Немировский А.И. Мифы древней Эллады. М., 1992; Тахо-Годи А.А. Греческая мифология. М., 1989; Тренчени-Вальдапфель И. Мифология / Пер. с венг. М., 1957.

(И.А. Лисовый, К.А. Ревяко. Античный мир в терминах, именах и названиях: Словарь-справочник по истории и культуре Древней Греции и Рима / Науч. ред. А.И. Немировский. — 3-е изд. — Мн: Беларусь, 2001)

* * *

форма обществ. сознания, возникшая в условиях сравнительно низкого уровня социального развития и отражающая в виде образного повествования фантастич. представления о природе, обществе и личности. В М. также, находит отражение история познания человеком окружающего мира. Такого рода «познание» неразрывно связано с практикой. Так, мистич. акты воздействия на землю при обработке полей (священный брак, фесмофории и т.д.), ритуальные танцы и жертвоприношения перед охотой основывались на мифологич. представлениях о тогдашнем способе производства. М. дает объяснение многим ритуальным действиям людей (напр., архаич. М. о Прометее, обманувшем Зевса во время жертв. ритуала, объясняет др.-греч. обычай приносить в жертву богам именно кости животных, а истоки совершаемого вавилонским царем во время празднеств по случаю Нового года символич. обряда мироздания — в М. о сотворении Мардуком земли и неба). В тогдашних условиях М. представлял собой узаконен. теоретич. и практич способ освоения действительности. Специфика такого образного мышления — в очеловечивании природной среды. Природа и общество не отделены в нем друг от друга, т.к. все предметы окружающего мира наделяются человеч. мыслями, чувствами, желаниями. Сверхъестеств. существа, в том числе могуществ. боги, проявляют чисто человеч. качества, что делает их понятнее и создает иллюзию возможности повлиять на их поступки. Дождь, падающий с неба и оплодотворяющий землю, вызывал ассоциацию с половым актом и заставлял предполагать, что с помощью магич. действий можно повлиять на бога неба. Позднее приписываемые природным явлениям человеч. качества отделяются от них и принимают к.-л. конкретный образ. Так рождается образ Зевса, антропоморфного бога неба, проникающего к Данае в виде золотого дождя, и Деметры, одной из многих богинь — покровительниц земледелия. Сам факт раздельного существования земли и неба, благодаря чему вообще стала возможной жизнь на земле, трактуется в мифологич. аспекте и объясняется насильств. отделением их друг от друга. Уран соединен браком с Геей и потому прячет своих детей в ее чреве до тех пор, пока младший сын Кронос не оскопляет отца и тем самым не разделяет их. У данного М., как и у всех остальных, имеется своя социальная почва (распадение эндогамного коллектива на две экзогамные фратрии). Подобный М. встречается у различных народов. Это доказывает, что у них на аналогичных этапах социального развития происходили схожие обществ. процессы, получившие отражение в М. Поскольку в большинстве мифов речь идет о происхождении мира, они выполняют этиологич. функцию и тем самым как бы предвосхищают научную интерпретацию причинно-следств. связей. В понимании Гомера первоосновой всего сущего является океан, в представлении Фалеса — вода; в первом случае речь идет о мифологич., во втором — о рациональном понимании действительности. Еще одна особенность мифологии как системы мышления — конкретно-чувств. персонификация психич. особенностей человека. Эта персонификация рассматривается как некое самостоятельное существо. Все его мысли, чувства и желания кажутся волеизъявлением этого существа — сверхъестеств. создания, т. е. бога. Такой подход есть результат религиозного мышления создателя М. к отражает его стремление познать самого себя. Афродита олицетворяет такое сильное чувство, как любовь, и потому Елена, полюбив Париса, полагает, что это богиня завладела ею, т. к. она в состоянии аффекта уже не чувствует себя хозяйкой своей судьбы. Момент рационализации особенно ощущается у Еврипида, когда он под воздействием учения софистов выдвигает на первый план психологич. мотивы. В его понимании богиня трактуется как своего рода воплощение аффекта и рассматривается в неразрывной связи с психикой человека. Другие эмоции типа нейкос (сварливость) и фобос (страх) также предстают в виде конкретно-чувств. образов. Психика человека целиком подвластна богам. Все его свершения всего лишь результат «божественного дара»; если «дар» ниспослан Мнемосиной, он вспоминает; если же «дар» дают ему музы, на него находит вдохновение и он занимается художеств. творчеством. Так как мифологич. освоение действительности обусловливает возникновение идеи бога, М., религия и иск-во сперва не были отделены друг от друга. Это обьясняется тем, что, во-первых, последствием такой формы мышления неизбежно является олицетворение природных и социальных элементов в образах богов, а во-вторых, она сама представляет собой способ понимания окружающего мира (М). И если мифотворчество используется для обоснования религиозных церемоний — к.-л. специфич. обрядов (ритуалов) и культовых действий, — оно неизбежно становится элементом религии. Излишне спорить о том, кому отдать приоритет — М. или культу, ибо они, подобно теории и практике, развивались параллельно и влияли друг на друга. В Др. Риме преобладали культовые действия, в то время как мифотворчество др. греков дало такие же плодотворные результаты, как и происходившее на более высокой стадии развития обществ. сознания становление их философского мышления.

(Словарь античности. Пер. с нем. — М.: Эллис Лак; Прогресс, 1994)

Значение слова «миф»

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

Поиск перебором значений

Довольно простой в реализации способ. Например, найти в колонке «A» ячейку, содержащую «123» можно примерно так:

Sheets("Данные").Select
For y = 1 To Cells.SpecialCells(xlLastCell).Row
    If Cells(y, 1) = "123" Then
        Exit For
    End If
Next y
MsgBox "Нашел в строке: " + CStr(y)

Минусами этого так сказать «классического» способа являются: медленная работа и громоздкость. А плюсом является его гибкость, т.к. таким способом можно реализовать сколь угодно сложные варианты поиска с различными вычислениями и т.п.

Поиск функцией Find

Гораздо быстрее обычного перебора и при этом довольно гибкий. В простейшем случае, чтобы найти в колонке A ячейку, содержащую «123» достаточно такого кода:

Sheets("Данные").Select
Set fcell = Columns("A:A").Find("123")
If Not fcell Is Nothing Then
    MsgBox "Нашел в строке: " + CStr(fcell.Row)
End If

Вкратце опишу что делают строчки данного кода:
1-я строка: Выбираем в книге лист «Данные»;
2-я строка: Осуществляем поиск значения «123» в колонке «A», результат поиска будет в fcell;
3-я строка: Если удалось найти значение, то fcell будет содержать Range-объект, в противном случае — будет пустой, т.е. Nothing.

Полностью синтаксис оператора поиска выглядит так:

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

What — Строка с текстом, который ищем или любой другой тип данных Excel

After — Ячейка, после которой начать поиск. Обратите внимание, что это должна быть именно единичная ячейка, а не диапазон. Поиск начинается после этой ячейки, а не с нее. Поиск в этой ячейке произойдет только когда весь диапазон будет просмотрен и поиск начнется с начала диапазона и до этой ячейки включительно.

LookIn — Тип искомых данных. Может принимать одно из значений: xlFormulas (формулы), xlValues (значения), или xlNotes (примечания).

LookAt — Одно из значений: xlWhole (полное совпадение) или xlPart (частичное совпадение).

SearchOrder — Одно из значений: xlByRows (просматривать по строкам) или xlByColumns (просматривать по столбцам)

SearchDirection — Одно из значений: xlNext (поиск вперед) или xlPrevious (поиск назад)

MatchCase — Одно из значений: True (поиск чувствительный к регистру) или False (поиск без учета регистра)

MatchByte — Применяется при использовании мультибайтных кодировок: True (найденный мультибайтный символ должен соответствовать только мультибайтному символу) или False (найденный мультибайтный символ может соответствовать однобайтному символу)

SearchFormat — Используется вместе с FindFormat. Сначала задается значение FindFormat (например, для поиска ячеек с курсивным шрифтом так: Application.FindFormat.Font.Italic = True), а потом при использовании метода Find указываем параметр SearchFormat = True. Если при поиске не нужно учитывать формат ячеек, то нужно указать SearchFormat = False.

Чтобы продолжить поиск, можно использовать FindNext (искать «далее») или FindPrevious (искать «назад»).

Примеры поиска функцией Find

Пример 1: Найти в диапазоне «A1:A50» все ячейки с текстом «asd» и поменять их все на «qwe»

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", LookIn:=xlValues)
  Do While Not c Is Nothing
    c.Value = "qwe"
    Set c = .FindNext(c)
  Loop
End With

Обратите внимание: Когда поиск достигнет конца диапазона, функция продолжит искать с начала диапазона. Таким образом, если значение найденной ячейки не менять, то приведенный выше пример зациклится в бесконечном цикле. Поэтому, чтобы этого избежать (зацикливания), можно сделать следующим образом:

Пример 2: Правильный поиск значения с использованием FindNext, не приводящий к зацикливанию.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

В ниже следующем примере используется другой вариант продолжения поиска — с помощью той же функции Find с параметром After. Когда найдена очередная ячейка, следующий поиск будет осуществляться уже после нее. Однако, как и с FindNext, когда будет достигнут конец диапазона, Find продолжит поиск с его начала, поэтому, чтобы не произошло зацикливания, необходимо проверять совпадение с первым результатом поиска.

Пример 3: Продолжение поиска с использованием Find с параметром After.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .Find("asd", After:=c, lookin:=xlValues)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Следующий пример демонстрирует применение SearchFormat для поиска по формату ячейки. Для указания формата необходимо задать свойство FindFormat.

Пример 4: Найти все ячейки с шрифтом «курсив» и поменять их формат на обычный (не «курсив»)

lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastCol = Cells.SpecialCells(xlLastCell).Column
Application.FindFormat.Font.Italic = True
With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol))
  Set c = .Find("", SearchFormat:=True)
  Do While Not c Is Nothing
    c.Font.Italic = False
    Set c = .Find("", After:=c, SearchFormat:=True)
  Loop
End With

Примечание: В данном примере намеренно не используется FindNext для поиска следующей ячейки, т.к. он не учитывает формат (статья об этом: https://support.microsoft.com/ru-ru/kb/282151)

Коротко опишу алгоритм поиска Примера 4. Первые две строки определяют последнюю строку (lLastRow) на листе и последний столбец (lLastCol). 3-я строка задает формат поиска, в данном случае, будем искать ячейки с шрифтом Italic. 4-я строка определяет область ячеек с которой будет работать программа (с ячейки A1 и до последней строки и последнего столбца). 5-я строка осуществляет поиск с использованием SearchFormat. 6-я строка — цикл пока результат поиска не будет пустым. 7-я строка — меняем шрифт на обычный (не курсив), 8-я строка продолжаем поиск после найденной ячейки.

Хочу обратить внимание на то, что в этом примере я не стал использовать «защиту от зацикливания», как в Примерах 2 и 3, т.к. шрифт меняется и после «прохождения» по всем ячейкам, больше не останется ни одной ячейки с курсивом.

Свойство FindFormat можно задавать разными способами, например, так:

With Application.FindFormat.Font 
  .Name = "Arial" 
  .FontStyle = "Regular" 
  .Size = 10 
End With

Поиск последней заполненной ячейки с помощью Find

Следующий пример — применение функции Find для поиска последней ячейки с заполненными данными. Использованные в Примере 4 SpecialCells находит последнюю ячейку даже если она не содержит ничего, но отформатирована или в ней раньше были данные, но были удалены.

Пример 5: Найти последнюю колонку и столбец, заполненные данными

Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious)
If Not c Is Nothing Then
  lLastRow = c.Row: lLastCol = c.Column 
Else
  lLastRow = 1: lLastCol = 1
End If
MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol

В этом примере используется UsedRange, который так же как и SpecialCells возвращает все используемые ячейки, в т.ч. и те, что были использованы ранее, а сейчас пустые. Функция Find ищет ячейку с любым значением с конца диапазона.

Поиск по шаблону (маске)

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

Пример 6: Выделить красным шрифтом ячейки, в которых текст начинается со слова из 4-х букв, первая и последняя буквы «т», при этом после этого слова может следовать любой текст.

With Worksheets(1).Cells
  Set c = .Find("т??т*", LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Color = RGB(255, 0, 0)
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Для поиска функцией Find по маске (шаблону) можно применять символы:
* — для обозначения любого количества любых символов;
? — для обозначения одного любого символа;
~ — для обозначения символов *, ? и ~. (т.е. чтобы искать в тексте вопросительный знак, нужно написать ~?, чтобы искать именно звездочку (*), нужно написать ~* и наконец, чтобы найти в тексте тильду, необходимо написать ~~)

Поиск в скрытых строках и столбцах

Для поиска в скрытых ячейках нужно учитывать лишь один нюанс: поиск нужно осуществлять в формулах, а не в значениях, т.е. нужно использовать LookIn:=xlFormulas

Поиск даты с помощью Find

Если необходимо найти текущую дату или какую-то другую дату на листе Excel или в диапазоне с помощью Find, необходимо учитывать несколько нюансов:

• Тип данных Date в VBA представляется в виде #[месяц]/[день]/[год]#, соответственно, если необходимо найти фиксированную дату, например, 01 марта 2018 года, необходимо искать #3/1/2018#, а не «01.03.2018»
• В зависимости от формата ячеек, дата может выглядеть по-разному, поэтому, чтобы искать дату независимо от формата, поиск нужно делать не в значениях, а в формулах, т.е. использовать LookIn:=xlFormulas

Приведу несколько примеров поиска даты.

Пример 7: Найти текущую дату на листе независимо от формата отображения даты.

d = Date
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Пример 8: Найти 1 марта 2018 г.

d = #3/1/2018#
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Искать часть даты — сложнее. Например, чтобы найти все ячейки, где месяц «март», недостаточно искать «03» или «3». Не работает с датами так же и поиск по шаблону. Единственный вариант, который я нашел — это выбрать формат в котором месяц прописью для ячеек с датами и искать слово «март» в xlValues.

Тем не менее, можно найти, например, 1 марта независимо от года.

Пример 9: Найти 1 марта любого года.

d = #3/1/1900#
Set c = Cells.Find(Format(d, "m/d/"), LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Миф – что означает? Определение, значение, примеры употребления

Ищешь, что значит слово миф? Пытаешься разобраться, что такое миф? Вот ответ на твой вопрос: