Юрий М, спасибо.
Как можно заметить, теперь ссылка ведёт в начало темы. Это нормальное поведение…
Проблема только в том, что номер теперь неактуальный (особенно заметно будет при СДВИГЕ сообщений), но это не так страшно.

хоспади, на Кибере всё давно успешно работает — просто скопировать можно  
Редактировать можно несколько минут, но точно не более 5.
Следующие сообщения автоматом прикрепляются к предыдущим с пометкой времени добавления.
Цитату можно сделать только выделив текст.
Смена ника только один раз, после 100 сообщений и только с помощью супермодератора.
Система рейтинга тем и участников. И много всего другого…
Всё просто и не требует постоянных напоминаний модераторов - их там вообще не видно (но они точно бдят).

ну не удивляйтесь тогда, когда в следующий раз помогающие будут ждать, пока вы сами получите нужный результат…
Успехов!

Давайте проверим, как работает привязка к постам  
Ссылаюсь на сообщение #15

такого немало и без этой опции. Для этого давно существуют (не на планете) динамические привязки. К тому же не удалив, а заменив всё сообщение на "del" информативнее (в сравнении с удалением) не станет.

nilske, сейчас ничего не мешает исправить своё сообщение на "del", например. Возможность удаления упростит работу модераторов, если сознательные пользователи будут САМИ удалять лишнее.
Для сохранения смысла можно цитировать фразу, на которую отвечаешь.

согласен, но не просто же так, а после слов ТСаесли ТС перебирает графики, то я и предложил просто сразу их построить… Не прав?

UPD: также есть предложение рассмотреть вопрос решения задачки математикой, чтобы не смотреть газами, а сразу понять, что "подходит" больше всего. Но, если предложение о построении всех графиков это просто да/нет, то математическое решение - точно для другой темы и другими примерами.

tchack, Dim Summ as Double
Вы не разбираетесь в типах переменных…

Напрямую нельзя, но можно в цикле (не медленее)
Код Option Explicit Sub t() Dim aV(), aL() As Long, i As Long aV = Array(11, 22, 33, 44) ReDim aL(UBound(aV)) For i = LBound(aV) To UBound(aV)     aL(i) = aV(i) Next i Debug.Print aL(3) End Sub

tchack, вопрос-то в чём? Сформулируйте. Пока что тема похожа на свалку…

tchack, а при чём тут массив типа Long тогда?
У вас обычный вариативный массив, любым элементом которого может быть что угодно - в том числе и Long.

testuser, у вас вопрос про массив типа Long — все ответы тоже про него. При чём тут обычный вариативный массив arr()?

P.S.: Лунтик вернулся?…

testuser, удаление темы это не удаление сообщения из неё. Создайте новую тему с таким предложением или найдите старую, если такая есть. Я поддерживаю предложение.

я дал вариант с формой. Тебе он не понравился. tutochkin про это ответа не дал.
Если моё предложениеявляется отклонением от темы, то не ты ли (и не только ты) в каждой теме пытаешься выяснить СУТЬ ЗАДАЧИ и решаешь её, а не строго по названию темы…

Я так понимаю, меня снова также забанят, если я просто буду отвечать на вопросы модератора?

bedvit, ты не ответил на прямо поставленный вопрос.
Переформулирую: Твой Like равносилен по возможностям штатному, если в штатном использовать из спецсимволов только *?

Dim Arr() As Long (то же самое, что a&())
Только Arr = Array(2.6, 2.8, 2.8, 2.2, 3.76) уже нельзя. Эта функция только для вариативных массивов и переменных.

При присвоении в Long-массив Double значений произойдёт БАНКОВСКОЕ округление
Код Sub t() Dim Arr() As Long     ReDim Arr(1 To 3)     Arr(1) = 1.5     Arr(2) = 2.5     Debug.Print Arr(1), Arr(2) ' 2, 2 End Sub

tchack

tutochkin, может просто построить тем же макросом сразу все графики на отдельных листах?

Маски: "начало строки*", "*конец строки", "строка с пропущенными * или нет данными" — всё ищет?

bedvit, приветствую
ArrayCharLowerV, ArrayCharUpperV - как преобразуют числа? В текст или без изменений? Как преобразуют Empty?
ArrayNumToCharV: Как преобразует Empty?
ArrayCharToNumV: Как преобразует Empty? Как преобразует текст?

БМВ, в условии сказано, а у тебя они используются, если я правильно понял.

С формой не сложно (как я делаю):
    1. Один раз рисуем форму с поиском и насыщаем её нужным кодом.
    2. Создаём стандартный модуль и прописываем туда функцию вызова формы с нужными параметрами типа
    3. Вызываем форму по событию или кнопке одной строкой и получаем ответ в виде массива или значения (как угодно).
    4. При необходимости использования формы в очередном файле, переносим модуль формы и стандартный модуль в этот файл.

БМВ, не понял - можно пример?
С формой всё должно быть как минимум, не сложнее, а также, в отличие от штатной проверки данных, реализуемо при указанных условиях…

передаём в форму результат функции, выбираем только с помощью формы.

Если же выбирать не надо, а только контролировать, то вешаем макрос проверки на событие листа/книги или кнопку. Макрос берёт результат функции в словарь и проверяет заданный диапазон на корректность. Результат подсвечивает, выводит сообщением или как-то ещё.
То же, можно сделать и без макроса - с помощью УФ, как было сказано выше.

смысл — в осуществлении задуманного. А в чём поломка наглядности?

tutochkin, здравствуйте
По вопросу - не знаю, но можно вместо штатного инструмента использовать простенькую пользовательскую форму (с поиском, если нужно), а уж она примет массив, как родной  

шта…  

Ольга Помогаева, здравствуйте
Макросом можно открыть книгу по пути подключения, сформировать нужный список, закрыть источник и …
    1. Выгрузить список на скрытый лист и использовать, как обычный источник для выпадающего списка.
    2. Использовать этот список в пользовательской форме для выбора.

Сергей Киселев, здравствуйтеОткрывайте (wb.OpenText) с другими разделителями

Volonar, здравствуйте
1. Разделить ключи в отдельные ячейки и потом тянуть штатным способом: ИНДЕКС+ПОИСКПОЗ или ВПР.
2. Макрос, который сам найдёт ключ в тексте и всё подтянет

Бахтиёр, списались, но мне не перезвонили  
Не претендую  

откуда такая уверенность?Переменная для Split'а | Variable for Split

testuser, тема не про скорость, а ваши заявления слишком размыты.
Хотите скорости замерить - делайте полноценные тесты в отдельной теме (или давайте ссылки на существующие), а фразы "я где-то видел" оставьте для тех, кому этого достаточно. Можно сделать такой тест, в котором в лучшем виде себя покажет именно нужный метод, но корректным такой тест назвать будет нельзя.

разбивает строку по заданному разделителю в  СТРОКОВЫЙ массив с нижней границей 0 (всегда). В качестве переменной лучше использовать вариативную (Dim arr) (быстрее), но можно и динамический СТРИНГОВЫЙ (Dim arr() As String) массив (медленнее). Если разделитель в строке не найден то будет массив с одним элементом (arr(0)=StringIn) - исходной строкой.

лучше не сплитовать 2 раза (у вас как раз 1 раз сплитуется):

Можно после folder  через двоеточие писать - чтобы в одну строку, но это совсем некрасиво
Код Sub test()     Dim folder     folder = Split(ThisWorkbook.FullName, "\"): MsgBox folder(UBound(folder) - 1) End Sub