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

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

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

Восстановить пароль

Купить рекламу на форуме - 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