Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.09.2008, 18:42   #1
olimpus
Форумчанин
 
Регистрация: 17.07.2008
Сообщений: 105
По умолчанию вывести двойник строки напротив

подскажите формулу
Сначала проверяем ячейку B3 если в ней есть текст ,то проверяем С3;D3; F3; на наличие в них Данных
Если хотябы в одной ячейке из них нет Даныых (С3;D3; F3)
Напротив Этой строки выводим номер строки и все ячейки из Этой стоки (Как на примере)

P.S Ячейки D3 и F3 считаются так же пустыми если в них стоит знак " - - "
Если в ячейке B3 нет текста , то ничего не проверяем в этой строке
Вложения
Тип файла: rar АРХИВ НЗ Вывод строки 3.rar (27.6 Кб, 24 просмотров)

Последний раз редактировалось olimpus; 09.09.2008 в 18:45.
olimpus вне форума
Старый 10.09.2008, 09:50   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

макросом? формулой?
Serge_Bliznykov вне форума
Старый 10.09.2008, 10:45   #3
olimpus
Форумчанин
 
Регистрация: 17.07.2008
Сообщений: 105
По умолчанию

Формулой ..
olimpus вне форума
Старый 11.09.2008, 08:30   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ну, очень (подчёркиваю - очень) приблизительно это можно сделать, например, так, как во вложении...

p.s.
замечание 1. используется формула (например, для Регион (ОШ/Регион):
Код:
=ЕСЛИ((ДЛСТР(СЖПРОБЕЛЫ($B6))=0);"";ЕСЛИ(ИЛИ((ДЛСТР(СЖПРОБЕЛЫ(ПОДСТАВИТЬ($D6;"-";"")))=0);(ДЛСТР(СЖПРОБЕЛЫ(ПОДСТАВИТЬ($F6;"-";"")))=0);(ДЛСТР(СЖПРОБЕЛЫ($C6))=0));$B6;""))
фиолетовым выделено то, что подставится в ячейку

замечание 2. используется условное форматирование - если ячейка с ошибкой не пустая - она закрашиваяется.
Вложения
Тип файла: rar Пример_.rar (41.2 Кб, 16 просмотров)
Serge_Bliznykov вне форума
Старый 11.09.2008, 16:58   #5
olimpus
Форумчанин
 
Регистрация: 17.07.2008
Сообщений: 105
По умолчанию

Спасибо что помогли разобраться
Может Макросом получится точно строчку вывести ?


А еще может подскажите макрос который бы удалял строку Если в столбце "С" ячейка пустая
Вложения
Тип файла: rar Макрос пустая ячейка удаляет строку.rar (3.1 Кб, 19 просмотров)

Последний раз редактировалось olimpus; 11.09.2008 в 20:31.
olimpus вне форума
Старый 11.09.2008, 22:05   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
А еще может подскажите макрос который бы удалял строку Если в столбце "С" ячейка пустая
Можно так:
Код:
Sub DelRows() 'удалит строку, если ячейка в столбце "С" пустая
With ThisWorkbook.Worksheets(1)
     For iRow& = 25 To 1 Step -1 ' 25 - кол-во просматриваемых строк
         If IsEmpty(.Cells(iRow&, "C").Value) = True Then .Rows(iRow&).Delete 'С - просматриваемый столбец
     Next
End With
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 11.09.2008 в 22:15.
VictorM вне форума
Старый 13.09.2008, 11:54   #7
olimpus
Форумчанин
 
Регистрация: 17.07.2008
Сообщений: 105
По умолчанию

Почемуто не работает(ошибок не вадает)
olimpus вне форума
Старый 13.09.2008, 12:16   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Сообщение от olimpus Посмотреть сообщение
Почемуто не работает(ошибок не вадает)
это о чем?
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 13.09.2008, 12:25   #9
olimpus
Форумчанин
 
Регистрация: 17.07.2008
Сообщений: 105
По умолчанию

я не делал компиляцию
как она делается в Excel( А она вообще сдесь делается)
olimpus вне форума
Старый 13.09.2008, 12:29   #10
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
я не делал компиляцию
проект работоспособен и без компиляции, но
Цитата:
как она делается в Excel( А она вообще сдесь делается)
VBE > Debug > Compile VBAProject
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй gotex Помощь студентам 4 08.05.2008 02:27
Как вывести в цикле for ... do строки? ViTYAi2007 Помощь студентам 14 27.03.2008 05:47
Процесс - на вкладке процессы, напротив процесса программы должно быть написано SYSTEM Terran Общие вопросы Delphi 3 10.01.2008 21:03
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. vitalik007 Помощь студентам 1 25.09.2007 20:45
Как из Memo вывести строки в txt файл в конец там существующих Saili Компоненты Delphi 8 16.12.2006 11:23