Видео

Только что проверил, без расширения выдает ошибку (MS Office 2019)

Я описываю все возможные варианты, а там уже кому как удобно. Я лично сам не всегда использую "Option Explicit".

Большое спасибо!

не за что ))🙂

У меня такого видео нет) но сделать это можно очень даже легко)

' Например данные находятся в первом столбце начиная с ячейки А1 Sub test() Dim i&, s&, Count& Count = 0 ' задаем значение переменной arr = Range("A1", Cells(Rows.Count, 1).End(xlUp)) 'берем данные в двумерный массив Dim Rcoll As New Collection ' объявляем новый экземпляр коллекции For i = 1 To UBound(arr) 'цикл по массиву On Error Resume Next 'если ошибка переходим к следующему значению Rcoll.Add CStr(arr(i, 1)), CStr(arr(i, 1)) ' выбираем уникальные значения в коллекцию Next For i = 1 To Rcoll.Count 'цикл по элементам коллекции Cells(i, 3) = Rcoll.Item(i) 'выгружаем уникальные значения в столбец "C" For s = 1 To UBound(arr) 'цикл по массиву If arr(s, 1) = Rcoll.Item(i) Then Count = Count + 1 'считаем кол-во повторений End If Next Cells(i, 4) = Count 'выгружаем кол-во в столбец "D" Count = 0 'обнуляем переменную Next End Sub

спасибо@@ak-vba8006

Dim сount& - объявляем переменную типа Long, почему у вас ошибка я же откуда знаю)) нужно смотреть ваш файл

Спасибо! Старался как можно проще объяснять, чтобы было понятно.

Ну пока что не планирую больше записывать

Не собирался удалять)

а ни надо думать, смотрите все уроки сначала, там все объясняется подробно))

@@ak-vba8006 попробую еще раз по новой))

ну извините я не знаю как вам еще более популярно пояснить, поищите другие уроки на эти темы! Примеров в видео полно! Еще раз тему урока прочитайте и смотрите внимательно, а потом пишите чушь всякую....

Я инженер по автоматизации, по сути программист. Для меня эти уроки просто идеально сделаны. Огромное спасибо автору. Все четко структурировано и по делу. Смотрел другие уроки, не впечатлили. Здесь уже на втором уроке показана иерархия объектов Excell. IMHO основа основ. В других курсах люди либо не понимают насколько это важно, либо не догадываются о её существовании, хаотично используя отдельные объекты и понятные им свойства и методы.

Спасибо!

Полностью поддерживаю! Удивлен, что крайне мало лайков.

Нужно более детальное описание, какой именно диапазон (строку, столбец, несколько строк и столбцов) нужно копировать

@@ak-vba8006 я думаю вопрос был, можно ли в качестве элемента массива использовать сразу 6 ячеек в строке. Тогда непонятно, как задать критерий поиска ..

@@iskanderdoom6247 В качестве одного элемента массива можно использовать хоть 100 ячеек. Просто перед этим их нужно объединить, но смысла в этом не вижу. Что касается поиска, то всегда можно применить функцию InStr

Если все правильно понял, то этот код необходимо вставить в "модуль листа" (левой кнопкой мыши на нужном листе - просмотреть код): Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G9")) Is Nothing Then If Range("f9") = "" And Range("F9").NumberFormat = "@" Then If IsNumeric(Range("G9")) Then Range("G9") = "" End If If Range("f9") <> "" And Range("F9").NumberFormat = "@" Then If Not IsNumeric(Range("G9")) Then Range("G9") = "" End If End If End Sub

Спасибо)

Спасибо!))) Да вроде не собираюсь бросать, времени просто мало

Спасибо!)))

Добрый день! Сделать можно, но такого парсера в настоящий момент нет. Могу просто проверить для вас, цена будет зависеть от количества пользователей.

@@ak-vba8006 Мне нужно не на один конкурс, а для постоянного пользования! Если можно написать макрос, хотелось бы узнать сколько будет стоить. Проверять нужно около 500 аккаунтов

@@CryptoDGO Честно, пока занят, нет времени чтобы его написать. Как сделаю, выложу новое видео, тогда и цену озвучу. Так что пока "sorry"

@@ak-vba8006 Спасибо за ответ!

Благодарю!

@@ak-vba8006 Звук, правда, в этом видео почему-то не очень. Обратите внимание, может с микрофоном что.

​@@ExcelStore Ок

Спасибо! Я бы не сказал, что недооценённый, просто его как и любой другой канал нужно развивать )))

@@ak-vba8006 ну да, я про то же - ваш канал явно заслуживает на пару тысяч, но никак не сотен подписчиков. У вас очень сильные примеры, которые очень заслуживают внимания многих людей :)

@Стас Гуцал Дальше будет интересней 🙂

Не знал что у instagram есть API. Пиши на почту (AK-VBA@yandex.ru), договоримся.

Добрый день! Для этого необходимо, там где выбираем символ-разделитель, выбрать "другой" и нажать комбинацию клавиш "Ctrl+J". Затем жмите готово!))

Спасибо огромное!!! Получилось!

Добрый день! В настоящее время Instagram прекратил поддерживать браузер IE. Поэтому данный парсер сейчас не работает.

Добрый день! Ни понятно что за таблица у вас используется? Ну если это обычная таблица то почему не воспользуетесь функцией StrReverse ? Допустим значение находится в ячейке A1 тогда: Range("A1") = StrReverse(Range("A1")). Либо используйте цикл по строкам и столбцам, чтобы изменить все значения.

Благодарю))

Спасибо!

Игорь я к сожалению ни телепат))) Покажите файл с вашим макросом. Я сниму отдельное видео и покажу что если делать все правильно - то все работает!

Благодарю ))

Добрый день! Да, обязательно буду снимать еще. Начну с декабря.

@@ak-vba8006 супер, очень жду)

Рад, что вам понравилось )

wellcome )))

Делаю на заказ

@@ak-vba8006 Сколько будет стоить?

@@user-xl2gn5qm2c Если что-то индивидуально нужно сделать для Вас то цена будет зависеть исходя из Ваших запросов. Если нужен именно такой парсер как в видео, то цена будет 3000 ₽. Использовать можно без ограничений, но только на 1 ПК.

@@ak-vba8006 хотела бы заказать данный парсер, как это можно сделать? куда писать?

@@kristinakefirova1814 ответил вам на почту

строку "case 1: Msgbox ..." и т.д. меняете на "case 1: call test" (где test - имя процедуры которую вы хотите запустить). Таким образом при нажатии кнопки OK будет запущена процедура с именем test. После нажатия кнопки "OK" диалоговое окно не будет доступно, поэтому вы не сможете затем нажать кнопку "Отмена". Для прерывания работы макроса достаточно пару раз нажать на клавиатуре кнопку "Esc".