Как сделать своими руками или скачать готовый генератор хештегов для соц. сетей: youtube, ВК, одноклассники и т.д.

Скачать генератор хештегов.

***

Скачать генератор хештегов НА Андроид.

 

Хештеги (хэштеги) — это слова (метки), обозначенные специальным символом «#» (решетка) отображающие содержание публикуемого Вами контента (наполнения): видео, картинок, текста.
При помощи хештегов происходит поиск опубликованного вами материала другими пользователями.
Поэтому, если вы хотите иметь раскрученную группу или профиль в соц. сетях, Вам следует уделять особое внимание наполнению публикаций хештегами.
Пытаясь «раскрутить» («продвигать») свой профиль, привлечь подписчиков, я столкнулся с небольшим неудобством:
Ключевых слов по моей тематике можно написать больше трех сотен,  а допускается публикация не более 30. Поэтому, чтобы не повторять в каждой публикации одни и те же ключевые слова, мне приходилось выбирать из 300 слов 30 случайных.

Работа довольно кропотливая и неблагодарная.
Когда мне это занятие вконец надоело, я решил составить генератор хештегов на базе таблицы «Excel» и макросов VBA.

Вот какой генератор хештегов у меня получился:

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

• таблица excel, которая назыаается «База». В этой таблице содержатся базы хештегов. На данном этапе это 5 списков фиксированной тематики: «автомобили», «семья и дети», «путешествия», «юмор», «города».
  И один список, который можно менять на свое усмотрение «свой список».

 

• вторая часть генератора хештегов — это соьственно сама форма (окно) генератора с кнопками и полями для внесения данных.

Как работает генератор хештегов.

• Генератор по умолчанию создает перечень из 30 хештегов, смешивая слова из списка (столбца) нужной Вам тематики со списком городов.
• Процент содержания наименований городов можно изменять.
• Количество генерируемых слов тоже изменяется.
• Если вы хотите в обязательном порядке включить какие-нибудь слова, можете добавить их в поле «Обязательные тэги…».
• На панели имеется кнопка сохранить сохраняющая базу.
• Кнопка сбросить для сброса параметров.
• Кнопка копировать для тех, кому неудобно пользоваться сочетанием клавиш ctrl+A и ctrl+C.

Скачать готовый генератор хештегов можно здесь по ссылке.

Как создать генератор ключевых слов, опишу далее:

Шаг 1 . Создаем лист «Excel» и называем его «База».
Шаг 2 . Создаем второй вспомогательный лист «chisla». На этом листе прописываем перечень названий столбцов из «базы» и при помощи функции счётз() считаем количество непустых ячеек в списках.
Шаг 3. Создаем форму для внесения данных и размещения кнопок с макросами. Названия элементов формы подписаны на рисунке.
Шаг 4. Прописываем макрос для кнопки «Сохранить».

Private Sub CommandButton3_Click()

ActiveWorkbook.Save

End Sub

Шаг 5. Прописываем макрос для кнопки «Сбросить».

Private Sub CommandButton2_Click()
TextBox1.Value = «»
TextBox3.Value = «»
TextBox4.Value = 30
TextBox2.Value = 10
ComboBox1.Value = «Свой список слов»
End Sub

Шаг 6. Прописываем макрос для кнопки «Генерировать».

Private Sub CommandButton1_Click()
Dim gorod As Integer
Dim proc As Integer
Dim i As Integer
Dim k As Integer
Dim ch As Integer
Dim r1 As Integer
Dim r2 As String
Dim S As Integer
Dim TegGorod As String
Dim Tegrazn As String
Dim kolfix As Integer
Dim kolfix2 As String
If UserForm1.TextBox4.Value <> «0» And IsNumeric(UserForm1.TextBox4.Value) = False Then
MsgBox («Некорректно заполнено поле «Общее количество тэгов»»)
Else
If UserForm1.TextBox2.Value <> «0» And IsNumeric(UserForm1.TextBox2.Value) = False Then
MsgBox («Некорректно заполнено поле «Процент тэгов с городами»»)
Else
If UserForm1.TextBox2.Value < 0 Or UserForm1.TextBox2.Value > 100 Then
MsgBox («Процент не должен быть менее 0 или более 100»)
Else

If ComboBox1.Value = «Свой список слов» Then S = 1
If ComboBox1.Value = «Автомобили» Then S = 2
If ComboBox1.Value = «Психология» Then S = 3
If ComboBox1.Value = «Дети» Then S = 4
If ComboBox1.Value = «Юмор» Then S = 5

If TextBox3.Value = vbNullString Then kolfix = 0 Else kolfix = UBound(Split(TextBox3.Value, «#»))

gorod = Int(TextBox4.Value * TextBox2.Value / 100)
proc = TextBox4.Value — gorod — kolfix
TegGorod = TextBox3.Value

ch = Worksheets(«chisla»).Cells(1, 1)
If ch > 0 Then
i = 1
Do Until i > gorod
r1 = Int(Rnd * ch + 2)
If InStr(TegGorod, Worksheets(«База»).Cells(r1, 2)) = 0 Then TegGorod = TegGorod + » #» + Worksheets(«База»).Cells(r1, 2) Else i = i — 1
i = i + 1
Loop
End If

Select Case S

Case 1:
ch = Worksheets(«chisla»).Cells(2, 1)
If ch > 0 Then
i = 1
Do Until i > proc
r1 = Int(Rnd * ch + 2)
If InStr(Tegrazn, Worksheets(«База»).Cells(r1, 1)) = 0 Then Tegrazn = Tegrazn + » #» + Worksheets(«База»).Cells(r1, 1) Else i = i — 1
i = i + 1
Loop
End If
Case 2:
ch = Worksheets(«chisla»).Cells(3, 1)
If ch > 0 Then
i = 1
Do Until i > proc
r1 = Int(Rnd * ch + 2)
If InStr(Tegrazn, Worksheets(«База»).Cells(r1, 3)) = 0 Then Tegrazn = Tegrazn + » #» + Worksheets(«База»).Cells(r1, 3) Else i = i — 1
i = i + 1
Loop
End If
Case 3:
ch = Worksheets(«chisla»).Cells(4, 1)
If ch > 0 Then
i = 1
Do Until i > proc
r1 = Int(Rnd * ch + 2)
If InStr(Tegrazn, Worksheets(«База»).Cells(r1, 4)) = 0 Then Tegrazn = Tegrazn + » #» + Worksheets(«База»).Cells(r1, 4) Else i = i — 1
i = i + 1
Loop
End If
Case 4:
ch = Worksheets(«chisla»).Cells(5, 1)
If ch > 0 Then
i = 1
Do Until i > proc
r1 = Int(Rnd * ch + 2)
If InStr(Tegrazn, Worksheets(«База»).Cells(r1, 5)) = 0 Then Tegrazn = Tegrazn + » #» + Worksheets(«База»).Cells(r1, 5) Else i = i — 1
i = i + 1
Loop
End If
Case 5:
ch = Worksheets(«chisla»).Cells(6, 1)
If ch > 0 Then
i = 1
Do Until i > proc
r1 = Int(Rnd * ch + 2)
If InStr(Tegrazn, Worksheets(«База»).Cells(r1, 6)) = 0 Then Tegrazn = Tegrazn + » #» + Worksheets(«База»).Cells(r1, 6) Else i = i — 1
i = i + 1
Loop
End If
End Select
TextBox1.Value = TegGorod + » » + Tegrazn
End If
End If
End If
End Sub

Шаг 7. Прописываем макрос для кнопки «Копировать»

Шаг 8. Прописываем диапазон значений для combobox1.
Шаг 9. Прописываем макрос для textbox2 и textbox4.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox2.Value = «»
End Sub
Шаг 10. Сохраняем документ и пользуемся для генерации наборов хэштэгов.

Спасибо. Подписывайтесь на рассылку нашего сайта и канал в youtube, чтобы быть в курсе новых решений.

Скачать генератор хештегов.