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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 65 След.
Ищу того кто поможет мне создать программу состоящую из нескольких макросов( научить меня), Помощь в написании прогаммы на VBA
 
На правах рекламы - если готовы оплачивать, то обратитесь к Ігор Гончаренко
Он раньше брался за обучение, и делал это хорошо
Вынос критерия при сравнении двух разных массивов
 
Это все слова, в примере не видно желаемого результата.
Файл пример = как есть и что должно выйти.
Вынос критерия при сравнении двух разных массивов
 
Ну и какой должен быть результат?
Удаление строки по значениям из массива, Удалить строки по совпадению со значениями из массива
 
В отладке пробовали пройтись? Когда оно у Вас выходит?
Найдите разницу
Код
Option Compare Text
Sub test()
    Dim lastrowto As Long, e As Long, a As Long, lastrowdel As Long
        
    Set result = Worksheets("result")
    Set result1 = Worksheets("лист1")
    
    lastrowto = result.Cells(1, 5).End(xlDown).Row
    lastrowdel = result1.Cells(1, 8).End(xlDown).Row
    For e = lastrowto To 1 Step -1
        For a = 1 To lastrowdel
            If result.Cells(e, 7).Value Like result1.Cells(a, 8).Value Then
                result.Cells(e, 7).EntireRow.Delete
                Exit For
            End If
        Next a
    Next e
End Sub
Изменено: Ivan.kh - 23 Апр 2019 14:13:04 (поправил кракозябры)
Удаление строки по значениям из массива, Удалить строки по совпадению со значениями из массива
 
Exit For ---- ?
Удаление строки по значениям из массива, Удалить строки по совпадению со значениями из массива
 
Hellmaster, потому, что = а не like
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Вы выложили файл с примером, который собираетесь куда-то интегрировать и не знаете как он работает или даже не попробовали посмотреть как оно устроено?
Если Вам нужно в любом порядке, то переписывайте логику работы.
Да и Вопрос звучал
Цитата
Как задать в макросе - конкретную ячейку - в качестве адреса.
На который Вам давно дан ответ.
Изменено: Ivan.kh - 22 Апр 2019 19:49:42
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
А с чего оно должно в обратном порядке рисовать?
Как Вы собираетесь адаптировать под нужды, если не понимаете как там устроено?
"Вытащить" данные из строки.
 
Андрей VG, Я бегло просмотрел тему, не качая всех примеров. Глянул только последний...  :)
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Вы же Сами указали, что это не реальная структура. У Вас не лабиринт, а что тогда?
Я на этом примере могу показать как выйти в конкретной точке см. вложение...
"Вытащить" данные из строки.
 
Код
pReg.Pattern = "[A-zА-я].*?\d{4} ?- ?\d{4}\)?"


Только у Ваза нет года с и по, по этому все равно ошибку выдаст, а вот если добавить года, то норм
Изменено: Ivan.kh - 22 Апр 2019 13:32:43
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Lizard2, Ну так показывайте пример структуры реального задания, что там за препятствия и т.д.
З.Ы. Я понимаю что нужно прочертить аналогичный путь, мне не понятны прикладная польза - зачем этот путь строить...
Свод по графикам платежей, Свод по графикам платежей
 
.
Калькулятор расхода топлива, Вроде все правильно, но не получается
 
Цитата
2.6. Один вопрос - одна тема. Не следует в открываемой теме обозначать и задавать сразу несколько вопросов.
Калькулятор расхода топлива, Вроде все правильно, но не получается
 
CATS, а сколько должно выйти? Вот Ваша логика расчета ----- 160 * 415 /100 = 66400 / 100 = 664
Изменено: Ivan.kh - 22 Апр 2019 13:14:59
факта продаж 2019/2018 по месяца с нарастающим итогом, расчет факта продаж 2019/2018 по месяца с нарастающим итогом и выборкой по артикулу
 
С вашего описания не понятно (по крайней мере мне) что у Вас вышло да и что Вам нужно помочь?
Долг по кредиту на дату
 
Код
Function Транш(Даты As Range, Суммы As Range, Дата As Range)
    arrD = Даты.Value
    arrS = Суммы.Value
    
    tSumm = 0
    
    For i = 1 To UBound(arrD, 1)
        If arrD(i, 1) > Дата.Value Then
            Транш = Транш + tSumm
            tSumm = 0
        Else
            tSumm = arrS(i, 1)
        End If
    Next i
End Function
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Вы так и не ответили для чего это нужно?
Сделал проще (в лоб, на основании советов по изменению границ лабиринта, т.к. лень ковыряться в циклах)
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Александр, это будет тоже, что я предлагал в 8 посте
Lizard2, Вы понимаете, для чего в коде используется переменная mx? в нее помещена граница лабиринта (правая) - число. Вы в нее запихиваете диапазон ячеек ...

Для чего нужно Вам необходима прорисовка маршрута в ячейку AW12?
Изменено: Ivan.kh - 21 Апр 2019 08:40:41
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Lizard2, ошибся не W, а AW
РАНГ с условием, определение ранга временной точки в соответствующей дате
 
artyrH, наверное так будет корректнее =СЧЁТЕСЛИМН($A$1:$A$21;A2;$B$1:$B$21;"<"&B2)+1
я что-то в эту сторону совсем не смотрел... 8-0
Изменено: Ivan.kh - 20 Апр 2019 23:29:23
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Есть теория. если применять к примеру лабиринта, то в процедуре MChWave:
Изменить mx на колонку W
И если в цикле дошли до колонки W, то все ячейки кроме 12 приравниваем к препятствию ...
РАНГ с условием, определение ранга временной точки в соответствующей дате
 
это формула, только пользовательская.
Скопируйте в обычный модуль и вызывайте как обычную формулу
Что аргументы значат - я написал.

Можно ли стандартными формулами сделать - не знаю, о чем написал выше
Выпадающий список по периоду
 
таблица на листе "PRICE LIST" в сторону расти не будет?
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
ну и как это можно было понять с изначального вопроса?
Создавайте новую тему, описывайте, по какому маршруту, как должно ходить .., как сами пытались сделать, а не просто нашел в интернете мудренный файл почти то что мне нужно но совсем не то
Изменение имен находящихся в папке файлов на имена, указанные в столбце книги Excel
 
Переименование, циклом по ячейкам пройтись
РАНГ с условием, определение ранга временной точки в соответствующей дате
 
Код
Function myRank(mCell As Range, mRange As Range, mCond As Range)
    
    q = ""
    For Each cell In mRange
        If CStr(cell.Value) = mCond.Value Then
            q = q + Cells(cell.Row, mCell.Column).Address + ","
        End If
    Next
    
    If q = "" Then
        myRank = 0
    Else
        With mCell.Worksheet
            Set rngR = .Range(Left(q, Len(q) - 1))
            myRank = Application.WorksheetFunction.Rank(mCell, rngR, 1)
        End With
    End If
End Function


mCell  - ячейка с врем.
mRange  - диапазон с датами
mCond  - ячейка с датой для фильтра

как чисто формулами сделать - не знаю (возможно, что никак)
Изменено: Ivan.kh - 20 Апр 2019 20:57:28
РАНГ с условием, определение ранга временной точки в соответствующей дате
 
И дни неотсортированы или только время?
РАНГ с условием, определение ранга временной точки в соответствующей дате
 
Если периоды отсортированы, то =ЕСЛИ(A2=A1;C1+1;1) или =СЧЁТЕСЛИ($A$1:A2;A2)
Изменено: Ivan.kh - 20 Апр 2019 20:33:01
Как задать в макросе - конкретную ячейку - в качестве адреса.
 
Lizard2, Я Вам дал ответ, он в коде явно не задается ... он вычисляется/определяется ...  в том то и суть лабиринта ... его можно изменить поменяв выход, что я Вам и показал на скрине
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 65 След.
Наверх