Доброго времени суток. Подобные проблемы и их решения присутствуют в интернете....но все не совсем то что нужно. А нужно следующее--> макросом(ИМЕННО МАКРОСОМ) отфильтровывает столбец по нужному параметру(это сделать легко),допустим A столбец - все четные числа,в диапазоне A3:A9000(ну диапазон, это весь столбец, с запасом на возможное изменение кол-ва строк) , а вот далее, что как раз не получается --> нужно в соседнем столбце, на против каждой отфильтрованной(видимой) ячейки, поставить значение..причем само конечное кол-во строк меняется постоянно...допустим цифру "1". я не силен в VBA то что нашел, оно... вроде то да не то..а адаптировать под то что нужно не получается....просьба помоч с макросом.
Доброго времени суток. Подобные проблемы и их решения присутствуют в интернете....но все не совсем то что нужно. А нужно следующее--> макросом(ИМЕННО МАКРОСОМ) отфильтровывает столбец по нужному параметру(это сделать легко),допустим A столбец - все четные числа,в диапазоне A3:A9000(ну диапазон, это весь столбец, с запасом на возможное изменение кол-ва строк) , а вот далее, что как раз не получается --> нужно в соседнем столбце, на против каждой отфильтрованной(видимой) ячейки, поставить значение..причем само конечное кол-во строк меняется постоянно...допустим цифру "1". я не силен в VBA то что нашел, оно... вроде то да не то..а адаптировать под то что нужно не получается....просьба помоч с макросом.Vintnight
Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 15:03
Vintnight, - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
Vintnight, - Прочитайте Правила форума - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форумакитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
я бы с удовольствием, с работы нет такой возможности. В принципе описал все, достаточно понятно. Можно сжато. Нужно макросом отфильтровать столбец А, а на против каждой отфильтрованной ячейки, в столбце В поставить "1"...вот
я бы с удовольствием, с работы нет такой возможности. В принципе описал все, достаточно понятно. Можно сжато. Нужно макросом отфильтровать столбец А, а на против каждой отфильтрованной ячейки, в столбце В поставить "1"...вот Vintnight
Сообщение отредактировал Vintnight - Четверг, 06.02.2020, 15:13
там того макроса, я так подозреваю три строчки.....вот вариант но я не могу тут закрутить его на весь диапазон [vba]
Код
range("B4").select Dim i i = 1 Do If Not Rows(ActiveCell.Row + i).Hidden Then ActiveCell.Offset(i).Select ActiveCell.FormulaR1C1 = "1" Exit Do End If i = i + 1 Loop
[/vba]
там того макроса, я так подозреваю три строчки.....вот вариант но я не могу тут закрутить его на весь диапазон [vba]
Код
range("B4").select Dim i i = 1 Do If Not Rows(ActiveCell.Row + i).Hidden Then ActiveCell.Offset(i).Select ActiveCell.FormulaR1C1 = "1" Exit Do End If i = i + 1 Loop
Vintnight, вы я смотрю Правила даже посмотреть не удосужились!!! - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
Vintnight, вы я смотрю Правила даже посмотреть не удосужились!!! - Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852