Хорошо, но все таки каких данных не может содержать таблица, фильтр по которым невозможен?

Я как обычно не смог сформулировать вопрос.
Мы создаем базу данных в экселе. Начинаем с шапки, в будущем на нее будем применять фильтр. Вопрос. Какие данные( символы, литералы, и т.д) не может содержать имя поля?
В каком случае невозможно применить фильтр на шапку. Вопросы возникают не у меня, а у моего препода. Благодарю =)

1.Что такое база данных в экселе? Я понимаю, что это таблица, которая не имеет пустых строк и ИМЕЕТ уникальные имена полей. На имена полей можно применять фильтр. Какова Ваша версия?
2. У нас есть шапка таблицы.По ней производится сортировка( фильтр). Какие данные нельзя вводить в эту шапку?

Добрый вечер снова.






Что значит s1,s2, p,a?





И почему здесь в первой строке p+a/3 что это?




И в  этой строчке это же выражение.

Основы программирования мне известны. Мне просто нужны комментарии по коду программы.

Добрый вечер, Антон. Спасибо за совет. Шаблон договора есть. Прикрепить его не получается.
Проблема в том, что я не понимаю этот код. И хотелось бы разобрать каждую строчку. Вбивать каждую строчку в гугл можно конечно, но с помощью этого не достичь полного понимания кода этой программы.

Добрый вечер. Не так давно я решил для себя освоить vba. Интересовался массовой рассылкой по базе данных. В интернете попался довольно таки интересный проект. Прошу помощи в разборе кода, если не сложно.
Синтаксис немного мне знаком, но работы в целом я не понимаю. Был бы рад помощи. Спасибо.
Прикладываю файл.
Для остальных код ниже:

Скрытый текст

Const ИмяФайлаШаблона = "шаблон.dot" Const КоличествоОбрабатываемыхСтолбцов = 8 Const РасширениеСоздаваемыхФайлов = ".doc" Sub СформироватьДоговоры() ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона) НоваяПапка = NewFolderName & Application.PathSeparator Dim row As Range, pi As New ProgressIndicator r = Cells(Rows.Count, "A"    .End(xlUp).row: rc = r - 2 If rc < 1 Then MsgBox "Строк для обработки не найдено", vbCritical: Exit Sub pi.Show "Формирование договоров": pi.ShowPercents = True: s1 = 10: s2 = 90: p = s1: a = (s2 - s1) / rc pi.StartNewAction , s1, "Запуск приложения Microsoft Word" ' Dim WA As Word.Application, WD As Word.Document: Set WA = New Word.Application ' c подключением библиотеки Word Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application"    ' без подключения библиотеки Word For Each row In ActiveSheet.Rows("3:" & r) With row ФИО = Trim$(.Cells(1)) & " " & Trim$(.Cells(2)) & " " & Trim$(.Cells(3)) Filename = НоваяПапка & ФИО & РасширениеСоздаваемыхФайлов pi.StartNewAction p, p + a / 3, "Создание нового файла на основании шаблона", ФИО Set WD = WA.Documents.Add(ПутьШаблона): DoEvents pi.StartNewAction p + a / 3, p + a * 2 / 3, "Замена данных ...", ФИО For i = 1 To КоличествоОбрабатываемыхСтолбцов FindText = Cells(1, i): ReplaceText = Trim$(.Cells(i)) ' так почему-то заменяет не всё (не затрагивает таблицу) 'WA.Selection.Find.Execute FindText, , , , , , , wdFindContinue, False, ReplaceText, True pi.line3 = "Заменяется поле " & FindText With WD.Range.Find .Text = FindText .Replacement.Text = ReplaceText .Forward = True .Wrap = 1 .Format = False: .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=2 End With DoEvents Next i pi.StartNewAction p + a * 2 / 3, p + a, "Сохранение файла ...", ФИО, " " WD.SaveAs Filename: WD.Close False: DoEvents p = p + a End With Next row pi.StartNewAction s2, , "Завершение работы приложения Microsoft Word", " ", " " WA.Quit False: pi.Hide msg = "Сформировано " & rc & " договоров. Все они находятся в папке" & vbNewLine & НоваяПапка MsgBox msg, vbInformation, "Готово" End Sub Function NewFolderName() As String NewFolderName = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "Договоры, сформированные " & Get_Now) MkDir NewFolderName End Function Function Get_Date() As String: Get_Date = Replace(Replace(DateValue(Now), "/", "-"    , ".", "-"    : End Function Function Get_Time() As String: Get_Time = Replace(TimeValue(Now), ":", "-"    : End Function Function Get_Now() As String: Get_Now = Get_Date & " в " & Get_Time: End Function

Спасибо...
Длинные "простыни" не нужно выкдадывать в сообщение, себе же тему портите. Или в файле в модуле, или в .txt, или прятать под спойлер
Для оформления сообщения (в т.ч. кода) есть кнопки с тэгами (над полем для письма) [МОДЕРАТОР]

Только щас смог зайти и прочитать. Большое спасибо.

Прошу прощения, что создаю подобную тему заново, но в моей теме есть немного уникальности.
Задача состоит в следующем:
Есть база данных с почтовыми адресами и личными данными в excel. Нужно сделать максимально удобный для пользователя способ, который позволит рассылать одинаковые письма с персональными именами.
Как вижу это я:
Я должен создать макрос( только я не могу понять, где его прописывать в excel`e или в outlook), который будет на каждый почтовый адрес высылать писать след. вида:
 
Привет, %Name%, ты не поверишь, я сбросил 10кг, сходив всего лишь один раз в туалет.
Записывай ся на тренинг, %name, surname , % и т.д%.
Все это создается для пользователя, которому нужно просто нажать кнопу и.. ГОТОВО.
То есть максимально просто и удобно.
В голове не укладывается, как такое делать. Понимаю, что очень и очень объемная работа, но буду признателен за подсказки.