1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Simple Macros

Тема в разделе "Visual Basic", создана пользователем ultra, 20 июл 2007.

Статус темы:
Закрыта.
  1. ultra

    ultra Гость

    Репутация:
    0
    Всем привет!

    Я ищу макрос, который бы в документе парсил ячейки столбца (Е к примеру) и если в этом всём домене столбца есть противоположные значения (float числа, допустим -5,6 и +5,6) , то надо чтобы макрос удалял эти строчки(не содержимое строк, а именно удалял строчки), и т.д.


    Спасибо.
     
  2. ultra

    ultra Гость

    Репутация:
    0
    Нужели все свалил в отпуска? ( Помогите народ...
     
  3. Over

    Over Well-Known Member

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    Объясни плз простым нормальным языком, что тебе нужно. Мне, например, непонятно слово "парсил".
     
  4. ultra

    ultra Гость

    Репутация:
    0
    Вот пример:
    Код:
    			 Company | In-Flow | Out-Flow ...
    
    1			 Microsoft	 -5,0		 13
    
    2			  P&G			 5,0		 7
    
    3			  Boeing		-10,5	  12
    
    4			 Airbus		 30,06	  10
    
    5			  IBM			 10,5		 30
    После работы макроса должны удалиться строчки 1,2,3,5
     
  5. Over

    Over Well-Known Member

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    Знаешь, этот макрос в готовом виде нигде не лежит. Его можно написать самому.
    Можно написать что-то вроде этого: берёшь первую строку, числовое значение из неё. Потом пробегаешь по всем строкам ниже, сверяешь значения из них со значением из первой строки.
    Если значения противоположные, то удаляешь строки со сдвигом вверх:
    Код:
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Затем берёшь вторую строку, числовое значение из неё. Повторяешь те же самые операции со сравнением. И так повторяешь, пока не проверишь все строки.
    В итоге твоя таблица примет желаемый вид.

    P.S. Если ты надеялся получить готовый исходник, то ты прогадал с местом. Это форум, где люди делятся опытом, подсказывают друг другу как справиться с той или иной заковыркой. А на просьбы типа "Напишите плз программу, горю, очень надо..." мало кто откликается, потому что за_просто_так никто работать не хочет.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей