Site icon RuExcel.Ru

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

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

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

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

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

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

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

 

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

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

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

Шаг 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, чтобы быть в курсе новых решений.

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

 

Exit mobile version