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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Сбор конкретных данных из разных книг в одну таблицу
 
Цитата
artyrH написал:
ни в одном файле не встретил
Привет, Артур.
Ну, марку и приход найти можно, а вот почему не представлен желаемый результат, как того требуют правила - загадка. Видимо ТС предпочитает медленный, но верный подход последовательных приближений. :)
Июльское обновление Windows 10
 
Цитата
БМВ написал:
упс . Не ту ссылку дал.
А можно ту? Сейчас система такая.
Судя по этой ссылке July 9, 2019—KB4507453 (OS Build 18362.239) - как раз июльская этого года.
Изменено: Андрей VG - 15 Июл 2019 19:07:36
Подбор груза для машины с условиями, Vba - задача в стиле рюкзака
 
Доброе время суток.
С учётом ваших ограничений, не вижу цели оптимизации. Скорее всего банальный жадный алгоритм бери больше, кидай дальше. Только в даже таком случае - это не 15 минут. Может что Михаил MCH присоветует.
Updated
А это условие
Цитата
Tverskoy_92 написал:
3. Если вариантов нет - любая ширина подойдет, при этом в машину помещаем не более 50 шт.
так ещё и ухудшает минимум машин. Максимальный остаток для 120 - 49 штук, а для 100 - 59 штук. Имеем смешанное решение по условию 3. Тогда потребуется 3 машины 50, 49 + 1 и на 8 штук :) , вместо того чтобы отправить две не полные машины.
Изменено: Андрей VG - 15 Июл 2019 19:13:29
Июльское обновление Windows 10
 
Цитата
БМВ написал:
у некоторых все отказалось работать
Привет, Михаил.
Это как бы про обновления 2018 года... А что с 2019 не так? Стоит Windows 10 64bit 1903 - указанных проблем со Skype, Outlook нет.
Настройка каскадного выпадающего списка в access
 
Цитата
Vancouver написал:
не могу найти инфу по склейке выпадающих списков в access
А искали, особенно на профильных форумах? ФАК: Связанные списки
VBA: Заполнение двумерного динамического массива
 
Доброе время суток.
Цитата
Framed написал:
что VBA выдает syntax error
Ошибка в синтаксисе здесь
Цитата
Framed написал:
arrAnotherMonth(, i)
Плюс ошибки
Цитата
Framed написал:
arrAnotherMonth(i)
Так как выше массив объявлен как двумерный
Цитата
Framed написал:
ReDim Preserve arrAnotherMonth(0 To i, 0 To i)
Здесь две ошибки.
Preserve допускает изменение только последнего индекса размерности.
Preserve нельзя использовать, если ранее массив не был создан ReDim arrAnotherMonth(1 to 100, 1 to 2) например.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
возможно ли его как то ускорить?
Этот вариант - нет. Можете попробовать другой подход
Цитата
Fsociety_ написал:
Selection.FormulaR1C1 = "=UPPER(RC[-1])"
Вместо Selection использовать параллельный по столбцам диапазон (естественно пустой), в котором формула рассчитает по данным выделения требуемое. Затем через Selection.Value = ParallelRange.Value записываем значения и очищаем параллельный диапазон. Аналогично можно сделать и с использованием временного листа.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Sanja написал:
И формула И значение
Коллега, результат формулы в ячейку, применённый к значению этой же ячейки, можно через
Код
ActiveCell.Value = Application.Evaluate("UPPER(""" & ActiveCell.Value & """)")
получить. Но это не отменяет правила использования констант в формулах.
Updated
Хотя, можно как-то где-то так, пусть и не быстро :)
Код
Public Sub ApplyFormulaToValueForSelection(ByVal formulaName As String)
    Dim pCell As Range
    For Each pCell In Selection
        pCell.Value = Application.Evaluate(formulaName & "(" & pCell.Address & ")")
    Next
End Sub

Public Sub test()
    ApplyFormulaToValueForSelection "UPPER"
End Sub
Изменено: Андрей VG - 15 Июл 2019 10:58:20
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
Они должны брать значения из выделенного диапазона обрабатывать их в соответствии с назначением формулы и возвращать результат работы формулы значением. как то так)
Не задумывались на таким вопросом, что ваше решение предполагает, что формулы вводятся в ячейку, в которой уже есть некоторое значение. Следовательно простая запись формулы затирает это значение. Следовательно вам нужно доработать макрос так, чтобы в формулу подставлялось константное значение, взятое из ячейки, с учётом правил размещения в формулах константных значений, а не ссылок, как написано в вашем первом посте, который привёл к ошибочным рассуждениям отвечающих.
Соответственно, написать универсальный макрос, которому вы задаёте только имя формулы, в силу разных требований на использование констант в формулах не получиться. Проще двигаться в сторону, Applicaiton.WorksheetFunctions - VBA сборника функций - аналогов формул рабочего листа.
Ну, а записать результат вычисления формул для выделения, как значение вы уже знаете. Selection.Value = Selection.Value
Дерзайте.
Изменено: Андрей VG - 15 Июл 2019 10:28:36
Сравнение двух таблиц на идентичность по двум условиям
 
Доброе время суток.
Вариант на Power Query
Изменено: Андрей VG - 14 Июл 2019 23:14:11 (Добавил пример, на мой взгляд, более правильного вывода результата сравнения по ключевым полям: даты, суммы, значения)
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Цитата
БМВ написал:
меня вводит в недопонимание. 1% от первой (как это у  artyrH ) или от предыдущей.
Ну, тут, Михаил, каждый ТС ожидает, что отвечать на вопрос будет корифей того же профиля, что и ТС, а не некоторые любопытствующие, пусть и не забывшие математику :)  Некоторые так об этом явно пишут. А если это корифей, то зачем ему писать об очевидном в данной отрасли знания - только по напрасну пальцы об клавиатуру отбивать - туннельный синдром приобретать?
Только вот часто ли сюда для оказания помощи заглядывают такие личности?
Изменено: Андрей VG - 14 Июл 2019 17:00:26
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
неверно поняли.
Как вопрос был поставлен, так был и понят. Вы серьёзно думаете, что можно догадаться по коду, который делает не то что нужно, что он на самом деле должен делать? Но и в этом случае подумать о пунктах 3, 4 не мешало бы :)
Изменено: Андрей VG - 14 Июл 2019 16:55:30
Ошибка method 'open' of object '_Recordset' failed при выполнении запроса, Запрос к MySQL
 
Доброе время суток
Цитата
Ronin751 написал:
FConn.ConnectionString
Экспериментируете? А почему бы классическим способом не открывать Recordset?
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Цитата
БМВ написал:
пока у меня низкая понимаемость что хотел ТС
Да вроде всё кристально ясно.
Для блока из шести последовательно идущих ячеек убедится, что есть только положительные и нулевые разности или только отрицательные и нулевые разности. Если выполнено  условие невозрастания или неубывания, то проверить, что максимальное абсолютное отклонение в разностях не превышает 1%.
До же для отношений. Убеждаемся что есть только отношения последующего к текущему меньше или равные единицы или только больше или равные единицы, и абсолютная разница отношения с 1 не превышает 1%.
Как-то так
Цитата
artyrH написал:
можно исправить: формулу из уф в столбец Н и на листе 1
спасибо, понял. Нашёл поиском по существующим Уф.
Изменено: Андрей VG - 14 Июл 2019 09:50:58
Как из текста-каши получить первое русское слово, Было: яч1-df отец123 мама брат. Стало: мама
 
Доброе время суток.
Aleksei_Zhigulin, спасибо. Интересный вариант ухода от лямбды или let .. in :)
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Доброе время суток.
artyrH, коллега, не уловил, а что сделано-то в вашем файле?
Изменено: Андрей VG - 14 Июл 2019 08:46:52
Работа формулы внутри макроса в выделенном диапазоне
 
Доброе время суток
Цитата
Ігор Гончаренко написал:
там может и решение найдется
Краткий перевод с языка ТС на человеческий

Задача: в каждую ячейку выделения вписать формулу PROPER, аргументом которой является ячейка слева.
Цитата
Fsociety_ написал:
в любом выделенном диапазоне
Условие выполнения макроса:
1. Выделенный диапазон не должен содержать столбец A, так как в этом случае не существует левого столбца, ячейки которого являются аргументом применяемой к выделению формулы. Если выделение содержит столбец А, то прерывать выполнение макроса с сообщением.
2. Каждая область выделения должна состоять из одного столбца, так как бессмысленно применять формулу во втором столбце и последующих столбцах выделения.
Подварианты обработки исключения:
2.1 Прерывать выполнение макроса без выполнения
2.2 Ввести формулу только в самый левый столбец области
2.3 Ввести формулу только в самый правый столбец области
2.4 Запросить пользователя, что делать в этом случае.
3. В каждую ячейку выделения доступна для ввода данных. Проверка защищён ли лист. Если защищён, то проверка все ли ячейки выделения являются не защищёнными. Если нет, то варианты
3.1 Вводить формулу только в не защищённые.
3.2 Запросить пользователя, что делать в этом случае.
4. Возможно, проверять, не содержат ли ячейки выделения уже введённые данные или формулы. Защита от случайного ошибочного выделения.

Ну, как-то так я бы составил ТЗ.
Изменено: Андрей VG - 14 Июл 2019 08:45:31
Таблица с выбором данных с разных листов
 
Цитата
gling написал:
Дубль темы создавать было не обязательно
Обязательно нужно было о кроссе предупредить :)
Работа с загруженными из XML данными
 
Доброе время суток.
Думаю, что проще это делать через Power Query - тогда будет достаточно только обновить таблицу.
Изменено: Андрей VG - 12 Июл 2019 15:06:50 (Забыл пример приложить)
Регулярные выражения - извлечь часть текста по условию
 
Уже давно расшифровано. Вы не поверите, но даже книги в продаже есть! :)
Регулярные выражения - извлечь часть текста по условию
 
Цитата
shlang написал:
А первое число с конца?
Шаблон
Код
"\d+(?=\D*$)"
Как макросом удалить слова, содержащие цифры?
 
Доброе время суток.
Вариант
Код
Public Function getWithoutWordsWithDigits(ByVal forText As String) As String
    Dim pReg As Object
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Pattern = "(?:\d*(?:[a-z]+\d+)+[a-z]*\d*|\d+[a-z]+)"
    pReg.Global = True
    getWithoutWordsWithDigits = Application.Trim(pReg.Replace(forText, ""))
End Function
Регулярные выражения - извлечь часть текста по условию
 
Доброе время суток
Цитата
shlang написал:
извлекалось слово перед "проспект"?
Вариант
Код
Public Function getWordBeforeAvenue(ByVal fromText As String) As String
    Dim pReg As Object
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Pattern = "\S+(?=\s+проспект)"
    getWordBeforeAvenue = pReg.Execute(fromText)(0).Value
End Function
Characters, Insert и ограничение на 256 символов., не осуществляется замена текста с помощью Characters, Insert
 
Доброе время суток
Цитата
Aleksey написал:
Подскажите способ
Переходите на иной способ работы с форматированным содержимым ячейки.
Содержимое, представленное на картинке
Скрытый текст
Как видите, ничего сложного. Перенос строки оформляется как
Перевод числа из пользовательского формата в текстовый с сохранением маски
 
Доброе время суток
Цитата
DopplerEffect написал:
сколько нулей отображается.
И какая формула рабочего листа Excel может дать формат, которым отображается данное в ячейке? Тут, боюсь, только udf-функция поможет.
Код
Public Function getVisibleValue(ByVal forCell As Range) As String
    Dim pCell As Range, sResult As String
    If forCell.Count = 1 Then
        sResult = forCell.Text
    Else
        For Each pCell In forCell
            If sResult = "" Then
                sResult = pCell.Text
            Else
                sResult = sResult & "; " & pCell.Text
            End If
        Next
    End If
    getVisibleValue = sResult
End Function
Определение границ цикла for/next
 
Цитата
Не снялся. Или я не понял предложенного.
Пример, для понимания
Определение границ цикла for/next
 
Цитата
vikttur написал: А вот прямым ходом (цикл2):
Виктор, а вот поставьте здесь
Цитата
Sheets(i).Delete
Вопрос сам собою снимется
Изменено: Андрей VG - 11 Июл 2019 00:05:23
Автоматически создаваемое оглавление
 
Цитата
vasily86 написал:
или как раз таки используя ее в макросе?
Используя ту часть кода, которая отвечает за вычисление номера страницы по требуемому местоположению. А вот как вы будете это задавать это положение - это уже ваша задача. В функции использовалась непосредственная ссылка на ячейку. В макросе же нужно будет задавать такую ссылку каким-то другим образом. Например, поиском ячеек с заданным стилем оформления.
Сгенерировать заданное количество случайных чисел, чтобы их сумма была равно заданному числу
 
Доброе время суток
Цитата
Verletzer написал:
желательно близко к нормальному математическому распределению
Вариант
Распарсить json или получить jaon -объект по get запросу
 
И вам тоже здравствуйте
Цитата
Владимир Л написал:
берет только 10 записей в объекте records, когда их 84 вроде.
А представить пример - что откуда и куда на лист должно выводиться - сил не хватило, как и поздороваться? Вы уверены, что с таким потребительским подходом дождётесь помощи?
Вариант средствами Power Query. Исходник данных для примера лежал в c:\path
P. S. В представленном примере массив data.records содержит только один объект.
Изменено: Андрей VG - 10 Июл 2019 19:26:29
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Наверх