Генератор хештегов — как сделать своими руками или скачать готовый (хештеги в инстаграм)

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

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

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

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

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

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

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

 

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

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

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

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

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

Шаг 1 . Создаем лист «Excel» и называем его «База».База хэштегов
Шаг 2 . Создаем второй вспомогательный лист «chisla». На этом листе прописываем перечень названий столбцов из «базы» и при помощи функции счётз() считаем количество непустых ячеек в списках.лист chisla
Шаг 3. Создаем форму для внесения данных и размещения кнопок с макросами. Названия элементов формы подписаны на рисунке.UseRform1 с подписями
Шаг 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, чтобы быть в курсе новых решений.

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

 

 

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *