Но на самом деле я хотел бы поговорить не об этом. Существует довольно много способов для составления анкор листов (этаких текстов для ссылок на сайт).  О том как правильно составлять эти самые тексты для ссылок в интернете написано довольно много, но честно говоря большинство из написанного это просто разведение воды. Люди пишут “тысячи знаков”, по другому это никак не назвать, а КПД от прочитанного стремиться к нулю. Возможно вам будет интересно прочитать вот эту статью. В качестве бонуса к статье, лично мой Вам совет: тратьте больше времени на анализ конкурентов…

    Всё, перейдём к делу. Как я уже сказал, существует довольно много способ для составления текста ссылки + около ссылочного текста. Один из них: относительно недавно  на сайте Maulnet’a появился сервис Maulnet Tools и одной из множества возможностей этого сервиса является функция “Работа со строками” (перемешивание, удаление дубликатов, вычитание, пересечение, склейка). С этой функцией можно легко составлять различного вида анкоры, но единственный минус – Вы должны быть подключены к интернет(такая же проблема и у других подобных сервисов).  Понятное дело, что порой у Вас нет доступа к интернету, но Вам очень хочется занять своё время составление текста для ссылок, для суперпупер нового проекта =) В принципе для этого Вам будет достаточно и блокнота, но использую Excel Вы не только сэкономите время, но и избавите себя от выполнения скучной, монотонной работы.

    На первый взгляд сортировка ячеек Excel в случайном порядке (аналог перемешивания) кажется тривиальной задачей. Однако не всё так просто, Excel поддерживает сортировку по значению(по алфавиту или возрастание-убывание). Как же реализовать перемешивание ячеек? Допустим в столбце A(строки 1-100) у вас текст, который требуется отсортировать в случайном порядке. Добавьте в первую ячейку столбца B формулу =СЛЧИС() (или =RAND(), если у вас англ. версия), затем размножьте эту формулу на все строки (1-100 строк) . Теперь осталось выполнить сортировку столбца B.

    Что касается удаления полных дублей строк в Excel, то на мой взгляд это не сложная задача, достаточно воспользоваться функцией Данные – Работа с Данными – Удалить дубликаты… Или воспользовался макросом на подобие этого:

Private Sub CommandButton1_Click()
For i = 1 To n ‘вместо n нужно поставить количество строк

For j = i + 1 To n
If Cells(i, 1).Value = Cells(j, 1).Value Then ‘будет проходить быстрее если строки отсортированы
Rows(j).Delete ‘удаление строки
j = j – 1
End If
Next j
Next i

End Sub

    Мне же хотелось поговорить об удаление дублированных слов в строках. Не знаю как Вам, но мне приходилось сталкиваться с ситуацией, когда список анкоров(текстов ссылок) был сформирован с помощью замены в блокноте. Пример того, что могло бы получиться: ( Было-стало:   фото двери деревянные – фото окна деревянные;  продаём двери и окна – продаём окна и окна). В ссылке вида “продаём окна и окна” нет ничего плохого, но на мой взгляд, не каждый вебмастер захочет, чтобы на его сайте была ссылка такого вида. Давайте приведём эту ссылку к виду “продаём окна”, для этого нужно запустить макрос.

Private Sub CommandButton2_Click()
Dim arr(20) As Variant
For i = 1 To n ‘ вместо n нужно поставить количество строк
For q = 0 To 10 ‘10 это максимальное количество слов в тексте строки, если больше то, ставьте больше

arr(q) = Empty
Next q
n = 0
For j = 1 To Len(Cells(i, 1).Value)
If Mid(Cells(i, 1).Value, j, 1) <> ” ” Then arr(n) = arr(n) & Mid(Cells(i, 1).Value, j, 1) Else n = n + 1 ‘разбиваем текст на отдельные слова
Next j
For m = 0 To n

For k = m + 1 To n ‘далее идут условия одинаковости слов: “пример” = “пример”; “пример,” = “пример”; “пример = и пример”;
If arr(k) = “и” And (arr(m) = arr(k + 1) Xor arr(m) & “,” = arr(k + 1)) Then
n = n – 1
arr(k) = “”
End If
If arr(m) = arr(k)  Then

n = n – 1
arr(k) = arr(k + 1)
End If
If arr(m) = arr(k) & “,” Then
n = n – 1
arr(m) = arr(k)
arr(k) = arr(k + 1)
End If

Next k
Next m
Cells(i, 1).Value = “”
For m = 0 To n
If arr(m) <> “” Then Cells(i, 1).Value = Cells(i, 1).Value & Trim(arr(m)) & ” ”
Next m

Next i
End Sub

Все лишние пробелы в конце текста легко убрать с помощью функции Rtrim.

    Ну и для того чтобы как-то подытожить всё написанное выше, давайте составим свой небольшой список текстов ссылок. Раз тематика у данного блога весьма размыта, то для него пойдут ссылки вида: блог без критики, продвижение сайта, уроки excel,  оптимизация и продвижение сайтов, учимся выбирать домен, честный заработок, увеличение посещаемости, do-follow blog

В столбце B тексты для наших ссылок, в столбце A открывающий ссылку код, в C – закрывающий(учитывая особенности Сапы).  Используем простенький макрос для объединения ячеек:

Private Sub CommandButton1_Click()
For i = 1 To 10

Cells(i, 2).Value = Cells(i, 1).Value &  Cells(i, 2).Value & Cells(i, 3).Value
Next i
End Sub

Теперь в столбце B у нас правильно сформированные ссылки. Давайте теперь в столбцы A и С добавим немного около ссылочного текста:

    На данном этапе, если текстов формируется довольно много(в моём случае текстов мало и всё легко сделать вручную), вам помогут описанные выше способы: перемешивание, удаление дубликатов – для формирования качественного списка текстов. Снова воспользуемся макросом для объединения значений в ячейках(не забудьте поставить пробелы в качестве разделителей) и можем смело добавлять полученный список текстов в любимую биржу ссылок. Разумеется на этом возможности взаимодействия Excel и SEO не заканчиваются, так что дерзайте и делитесь своим опытом.

p.s. всё предоставленное здесь удовлетворяет критерию “работает да и ладно”, если у вас есть какие-то замечания, всегда рад пообщаться с умными людьми в комментариях.

     Судя по всему Excel не поддерживает явное(я бы это назвал так) заполнение ”Поля со списком”, но ведь Excel программа - работа которой в большинтсве своих случаев построено на работе с ячейками. У Combobox, есть свойство ListFillRange, введите в него какой-нибудь диапазон ячеек, к примеру A1:A5. Если в этих ячейках были цифры от 1 до 5, то у вас получится Список, такой как на картинке.

     Единственное неудобство такого способо это то, что у вас на листе должны быть специальные ячейки, в которых будут храниться данные для Полей со списками. Скорее всего вам бы не хотелось, чтобы кто-то редактировал эти данные. Поэтому вам придётся, либо: 

• делать цвет текста в ячейках = цвету фона, чтобы защитить их от любопытных глаз;
• защищать их, способом описанным в статье Защита ячеек в Excel;
• разместить их к примеру в ячейке ZZ999 

     Самый разумный из этих способов - второй(+первый) =)

     Хотелось бы отметить, что у меня был один файлик(проектик), в котором было два Combobox. Причем значения одного из них зависили от выбранного значения второго, к примеру:

     Так вот, сохранив и закрыв этот файл, после его открытия появляется ошибка “Object doesn’t support this property or method (Error 438)“… Если кто-то знает как это исправить, прошу отписаться в комментариях… Вы можете проделать тоже самое у себя, вот код для Combobox1 (месяцы):

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0, 2, 4, 6, 7, 9, 11
    Worksheets(”gualan”).ComboBox2.ListFillRange = “A1:A31″

Case 1
    Worksheets(”gualan”).ComboBox2.ListFillRange = “A1:A29″
Case Else
    Worksheets(”gualan”).ComboBox2.ListFillRange = “A1:A30″
End Select
End Sub

    Есть и другой способ заполнить Поле со список,  не использую ListFillRange - программное заполнение(с помощью макроса). Разумеется нам нужно, чтобы данные в Поле со списком появлялись сразу при открытии файла, поэтому способ с заполнением Combobox при нажатии определённой кнопки(CommandButton_Click) или Активации листа(выбора, Worksheet_Activate) нас не строит. Становится интуитивно понятно, что загрузку Combobox нужно привязывать к открытию книги, но как это сделать?

     Откройте редактор VBA (alt(зажать) + x(нажать и отпустить) + i) и в панели Project – VBAProject(если у вас нет этой панели, то нажмите ctrl+r) вы увидите Microsoft Excel Objects, далее названия всех ваших Листов и в конце “Эта книга”(на английском скорее всего ThisWorkbook section) – откройте её. Появится окно для редактирования событий привязанных к Книге (WorkBook), нам нужно событие Open. Введём туда код:

Private Sub Workbook_Open()
Worksheets(”gualan”).ComboBox2.Clear
For i = 1 To 32
Worksheets(”gualan”).ComboBox2.AddItem i
Next i
Worksheets(”gualan”).ComboBox1.Clear

Worksheets(”gualan”).ComboBox1.AddItem “январь”
//тоже самое для других месяцев
Worksheets(”gualan”).ComboBox1.AddItem “декабрь”
End Sub

     Теперь при открытии файла у нас будут заполнены оба Combobox. Я думаю вам не составит труда изменить макрос Combobox_Change, чтобы он работал правильно без использоваия ListFillRange. Как обычно, буду рад ответить на все ваши вопросы в комментариях.

© Блог гордого владельца говносайтов – автор текста gualan.

     В чём же может возникнуть трудность с защитой ячеек в Excel. Во-первых во вкладке “рецензирование” в меню “изменения” есть кнопка “защитить лист”. 

     Отметим галочку на “защитить лист и содержимое защищаемых ячеек”, далее введём пароль, остальные checkbox’ы оставим без галочек, нажмём “OK”, потом подтвердим пароль и вот все ячейки листа стали заблокированными.  Отмечу, что по умолчанию в Excel  при создание нового листа, у всех ячеек  в свойствах “формат ячеек” – “защита” отмечено “защищаемая ячейка”. Так что если Вы захотите, чтобы какая-то ячейка была не защищенная, т.е. была доступна для изменений, то всего лишь уберите эту галочку. После этого и возникнут трудности, во всяком случае у меня возникли… 

     Итак, у меня была таблица, в которой находились ячейки доступные для изменений, а также ячейки в которых информация вычислялась автоматически (к примеры сумма чисел) – и они должны быть защищены от изменений. Впринципе в этом нет ничего трудного, с одних ячеек(доступных для ввода данных) убираем ”защищаемая ячейка”, на других(вычисления в которых происходят автоматически) оставляем. Жмём “защитить лист” и радуемся результату.

     Изменяя значения в ячейках E7, F7,G7 в ячейке M7(нельзя выделить) вычисляется их сумма. НО…не всё так просто. Если в защищенных ячейках значение вычисляется по стандартным формулам Excel из меню “формулы”, то проблем не будет, а вот если вы написали макрос на VBA для вычисления более сложных значений, то при запуске этого макроса у вас появится ошибка

      Что же делать в этом случае?  Первое что мне пришло в голову, сейчас многие из вас будут смеятся =) это оставить все ячейки незащищенными, а далее над ячейками значения в которых вычисляются автоматически разместить Вставка – Фигуры – Прямоуголньник..в свойствах которого установить Прозрачность 100%… Таким образом значения в ячейках будут видны, но наведя на них курсор мышки Вы не сможете их выделить и изменить… Минус такой “фишки” в том, что продвинутый пользователь “может догадаться” воспользоваться  клавишами “стрелки” на клавиатуре, и попав в ячейку, которую мы “прикрыли” прозрачным прямоугольником, именить в ней значения. Этого как раз нам свами больше всего и не хотелось…

     Выход из данной ситуации:

     Ячейки, информация в которых должна быть не доступна для изменений, мы  оставляем защищенными. Далее в макросе, который производит вычисление по хитрой формуле, прописываем Worksheets(”Имя листа”).Unprotect Password:=”пароль” …текст макроса… Worksheets(”Имя листа”).Protect Password:=”пароль”

Напоследок пример такого макроса:

        Private Sub CommandButton1_Click()
        Worksheets(”Gualanland”).Unprotect Password:=”gualan”
        Range(”A3″).Value = Range(”A1″).Value * Val(Range(”A2″).Value)

        Worksheets(”Gualanland”).Protect Password:=”gualan”
        End Sub

© Блог гордого владельца говносайтов – автор текста gualan.