Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 90 След.
Ошибки при чтении массивов
 
Alemox, тогда жду примера и, если будет время, обязательно гляну.

P.S.: ещё при определённых комбинациях проверка If Len(x) Then и If Instr(1,txt,x) Then вместо If Len(x)>0 Then и If Instr(1,txt,x)>0 Then могут выдать ошибку. НО это уже из области гадания — уверен, что мэтры ещё вагон таких нюансов могут выкатить, исходя из своего опыта…
Изменено: Jack Famous - 10 Дек 2018 14:57:14
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Ошибки при чтении массивов
 
Цитата
Alemox: Instr
у неё 4 аргумента, но часто (при точном сравнении) её записывают в коротком виде Instr(где_ищем, что_ищем). Таким образом, опуская первый аргумент (с какого символа искать), можно поймать ошибку: если "где_ищем" будет являться числом, то функция неправильно определит где_ищем, как первый аргумент и кирдык - я так попался разок и теперь записываю как положено Instr(1,strWhere, strFind), разумеется, если нужно искать с 1 символа - то есть по всей строке  ;)
Изменено: Jack Famous - 10 Дек 2018 14:11:41
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Запретить копи паст в определенные столбцы листа
 
Цитата
Jack Famous: вставлять "только значениями"
Цитата
lina_vertu: как это реализовать в коде
Код
Selection.Copy
    With Sheets("Лист1").Range("A1")
        .PasteSpecial Paste:=xlPasteColumnWidths ' вставить ширины столбцов
        .PasteSpecial Paste:=xlPasteValues ' вставить значения
        .PasteSpecial Paste:=xlPasteFormats ' вставить форматирование
    End With
Application.CutCopyMode = 0
данный участок кода выполняет вставку выделенного диапазона на лист "Лист1" с ячейки "A1". Оставьте нужное (форматирование вам не надо)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
«Выдёргивание» в VBA из текстовой строки даты
 
Юрий М, то-то я смотрю, что Андрей записан так необычно))
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Замена отдельных слов с помощью VBA
 
qwelip, здравствуйте. МАССОВАЯ ЗАМЕНА СЛОВ
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Ошибки при чтении массивов
 
Alemox,
Цитата
Jack Famous: Попробуйте объявить массив через Variant и/или цикл сделать For Each
отпишитесь — измениться ли что-либо
Цитата
Юрий М: Ни разу не встречался с подобным
+ не слышал о подобных проблемах (Win7 Домашняя базовая, SP1, x64)
Изменено: Jack Famous - 10 Дек 2018 11:12:15
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
база даных в виде таблицы для ВПР
 
azma, доброго утра! Вот примерно такая UDF сможет открыть файл/взять в массивы перечисленные диапазоны/закрыть файл
Код
Public Function GetArr1xFromFile(ByVal FilePath$, ByVal arrNames)
Dim arr, temp, x, n%
Workbooks.Open FilePath: ReDim temp(0 To UBound(arr)): n = -1
    For Each x In arrNames
        n = n + 1: temp(n) = Range(x).Value
    Next x
If n = 0 Then GetArr1xFromFile = temp(0) Else GetArr1xFromFile = temp
ex: ActiveWorkbook.Close False
End Function
Изменено: Jack Famous - 10 Дек 2018 10:44:29
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Сравнение списка с массивом
 
Цитата
Михаил Лебедев: черника
"чёрная смородина" там  :D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Ошибки при чтении массивов
 
Alemox, доброго утра! Первый раз такое вижу/слышу. А вы ТОЧНО уверены, что выводит именно не то? Если да, то это очень тревожный момент…

Попробуйте объявить массив через Variant и/или цикл сделать For Each. Проблема при этом сохраняется? Ещё может у вас Option Base стоит и границы массива не стандартные, отсюда и разброс в +-1 (хотя метод Range.Value от этого не зависит) — уж очень не хочется думать о том, что подобные "ошибки с выводом" могут иметь место быть
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
VBA. Событие изменения конкретных строк
 
Цитата
Diana Tailor: расчеты происходят не автоматически, а в VBA по нажатию кнопки
это, конечно правильно, но
Цитата
размерность моих данных - Range("A7:SW1006")
— это перебор  :D
Цитата
вот ищу
вангую, создав тему, результат будет лучше))
Цитата
JayBhagavan: Calculate можно применять к конкретному диапазону
да - я в курсе, спасибо  ;)
Изменено: Jack Famous - 7 Дек 2018 11:24:08
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
VBA. Событие изменения конкретных строк
 
Цитата
Diana Tailor: пересчитать только те строки, в которых были произведены изменения
почитайте про Application.Calculate, Application.CalculateFull и Application.CalculateFullRebuild (обычно мне хватает первого). Если он пересчитывает очень долго, то стоит пересмотреть структуру организации данных и связей между ними.
Цитата
Diana Tailor: сравнить массивы
…можно очень быстро. Создавайте отдельную тему с примером и поможем  ;) Опять же, если Application.Calculate справится, то и сравнивать ничего не придётся.
Изменено: Jack Famous - 7 Дек 2018 10:58:57
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
List.Generate (Power Query) Не могу понять как работает.
 
PooHkrd, не знал, что у Максима есть свой блог. Спасибо вам за ссылку — много интересного и полезного  ;)  :idea:
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Запретить копи паст в определенные столбцы листа
 
Цитата
lina_vertu: при копировании данных в ячейку из другого столбца, изменяется область применения условного форматирования
при вставке обычным способом вставляется ВСЯ информация (формулы и всё форматирование, в том числе и условное) — таким образом правила УФ дублируются и наслаиваются. Это ведёт к увеличению размера файла и "тормозам". Если вставлять "только значениями" всех этих проблем можно легко избежать.
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
VBA. Событие изменения конкретных строк
 
Diana Tailor, доброго утра  :)
Цитата
Diana Tailor: отследить строки, в которых изменились ячейки
а для чего? Если для отката, то есть хороший способ: задублировать лист, на котором макрос выполняет изменения и, при отмене, просто удалить его, а при подтверждении удалить исходник
Изменено: Jack Famous - 7 Дек 2018 10:25:39
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Задание по VBA на собеседовании
 
Цитата
Чебурашка: Вот вы вспомнили тему
это OblivionR её откопал, а я просто увидел в топе  :D
Изменено: Jack Famous - 6 Дек 2018 14:39:20
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Задание по VBA на собеседовании
 
OFF
Цитата
The_Prist: задание само по себе составлено таким образом, чтобы всегда можно было отшить кандидата и обосновать это … я лично склоняюсь к первому варианту
приветствую, Дмитрий! С каких это пор работодателям стали нужны какие-то обоснование для НЕприёма на работу? :D
Если это не ошибка ТС в запоминании, то я почти на 100% уверен, что это безграмотность составителей "теста". Я достаточно насмотрелся на подобные "высеры", с помощью которых пытаются оценивать знания людей…
Изменено: Jack Famous - 6 Дек 2018 14:13:14
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Регулярные выражения (RegExp). Преобразовать коллекцию совпадений в массив
 
Пытливый, убрал "лишние" вопросы из стартового сообщения, т.к. имел ввиду работу с результатом пользовательской функции, возвращающей .Execute(str) и сам потестирую  :) спасибо)
Изменено: Jack Famous - 4 Дек 2018 12:48:05
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Регулярные выражения (RegExp). Преобразовать коллекцию совпадений в массив
 
Доброго времени суток, Планетяне!

Насколько я понял из интернетов, это невозможно, но, на всякий случай, уточню у местных мастеров пару вопросов:
1. Можно ли полученную коллекцию совпадений .Execute(strVal) преобразовать в массив без цикла?
1. 1. Если нет, то можно ли сцепить эти элементы через разделитель без цикла (типа Join)?

P.S.: закомментированное работает (сбор массива в цикле)
Код
Option Explicit
'===========================================================================================
Public Function PRDX_RegExp_Execute(strVal$, ptrn$)
Dim m As Object, arr, n&, txt$
n = -1: ReDim arr(0 To 1000): PRDX_RegExp_Extract = ""
    With CreateObject("VBScript.RegExp")
        .Global = 1: .IgnoreCase = 0: .MultiLine = 1: .Pattern = ptrn
        If Not .Test(strVal) Then Exit Function
'        For Each m In .Execute(strVal)
'            n = n + 1: arr(n) = m.Value
'        Next
        Set m = .Execute(strVal)
    End With
PRDX_RegExp_Extract = Join(m)
'ReDim Preserve arr(0 To n): PRDX_RegExp_Extract = Join(arr)
End Function
Изменено: Jack Famous - 4 Дек 2018 18:23:32
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
ячейки с зада :), и такое бывает
 
почему мой внутренний голос (диктор) читает это сообщение, как грузинский тост?…  :D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Размышление о C API Functions для Excel, Испольpование C API Functions для Excel в .xll
 
bedvit, спасибо вам) попробую, как проект закончу  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Размышление о C API Functions для Excel, Испольpование C API Functions для Excel в .xll
 
Цитата
bedvit: Я вам могу сбросить и .dll-файл
вот это было бы здорово  :)
Расскажите пожалуйста, как его прописать в реестре (один раз и менять при обновлении), чтобы можно было подключать при необходимости, как в примере со словарём...
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Размышление о C API Functions для Excel, Испольpование C API Functions для Excel в .xll
 
bedvit, я бы с радостью, как и всегда, но не могу использовать ваши наработки без самой надстройки.
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
О погоде
 
А мы тут в Питере просто снежку радуемся)))
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
На что перейти с Excel ?, Финансово-политический вопрос. И досужие домыслы, обусловленные поверхстным взглядом на ситуацию.
 
Цитата
БМВ: почти аналогичный вопрос задал один молодой человек нам с  Андрей VG
вот чё началось-то щас  :D
я никогда не был против разумного использования БД там, где это нужно и подчёркивал, что "при росте объёмов, от хранения их в Excel придётся отойти"  ;)
Изменено: Jack Famous - 27 Ноя 2018 10:58:43
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Не делать по-тупому )
 
БМВ, нашёл)))
Цитата
vikttur: Леонид Филатов. Сказ про Федота-стрельца, удалого молодца
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Не делать по-тупому )
 
vikttur, остросоциальная сатира))) почему в эту тему?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Изменить начало отсчета массива с 0 на 1
 
Михаил С., прошу прощения — я попутал размерность с количеством измерений  :)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
Alexandr59, в адвокаты я не записывался…
Скажу от себя — парсер неплох. Надстройка FillDocuments вообще огонь. Писать ложные говнокоменты (меня там не "на##ывали") — только карму портить  :D
Изменено: Jack Famous - 23 Ноя 2018 17:41:48
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Анекдот дня, Постим сюда понравившиеся:)
 
Цитата
Лунтик: с моей шутки все смеялись до слёз
ну раз уж на то пошло, то я тоже вообще не понял окончание вашей шутки. Писал это сразу, но модераторы удалили комментарий. Также полностью согласен с тем, что
Цитата
БМВ: остановится бы автору на восклицательном знаке
— хоть смысл игры слов останется  ;)

А вообще, ребят, хорош уже обсуждать "юморность" данного анекдота — пора двигаться дальше  :D
Цитата
JayBhagavan: Да, уж... просто шок
а мне этот понравился намного больше, чем про интеллектуальных землекопов — я прямо прочувствовал боль  святого отца :D

Видите — всё субъективно  :)
Изменено: Jack Famous - 23 Ноя 2018 17:26:33
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
Alexandr59, не стоит так драматизировать. Видеоинструкция по парсеру помогает спарсить простые сайты (со страницами и т.д.) без проблем. Делать видеоинструкцию "на все случаи жизни" не представляется возможным, т.к. эта программа универсальная, а чем шире возможности — тем сложнее настройка, как правило… Когда я оплачивал настройку парсера под парсинг сложного сайта, то спросил о возможности "научить". В 2х словах вам расскажут (да и настройка открыта для анализа), а подробно разжёвывать "за бесплатно" — это себе в убыток (тут я понимаю разработчика).

Лично мне Игорь немного подсказывал пару раз (в скайпе, а не в чате на сайте). Странно, что о возможности создания макроса FillDone, который будет запускаться непосредственно перед печатью (надстройка FillDocuments) пришлось узнать из "техподдержки" (или долго листая все сообщения к теме). Вот такие моменты, конечно, неудобны…

Насчёт скрипта не в курсе.

По поводу "разругались": выпуская коммерческий продукт, должна осуществляться какая-то его поддержка (если в соглашении не указано иное, как я понимаю), поэтому разработчик просто не имеет права "обидеться". Тут нужно выслушать другую сторону. Игорь бывает на Планете…
Изменено: Jack Famous - 23 Ноя 2018 17:14:33
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 90 След.
Наверх