Добрый день Планета.  
Есть заполненная ячейка "(044) 2223333 (067) 5556666 (063) 2223355". Нужно данные ячейки разбить на 6 ячеек. Тоесть в первой "044", потом "2223333" и т.д..  
У меня проблема в том, что в одной ячейке есть много различных кодов, а номер телефона может писаться не слитно (а через дефис, через пробел и еще возможны какието варианты).  
 
Код попытался вытянуть код через:  
=ЕСЛИОШИБКА(ПРАВСИМВ(ЛЕВСИМВ("общая ячейка";НАЙТИ("код1";"общая ячейка")+2);3);ЕСЛИОШИБКА(ПРАВСИМВ(ЛЕВСИМВ("общая ячейка";НАЙТИ("код2";"общая ячейка")+2);3);"")).  
Но исходя из такой формулы, придется добавить еще где-то 5-7 "ЕСЛИОШИБКА". И то не факт что она подойдет.  
И это только для кодов :)  
 
Короче я запутался :) прошу помощи у Специалистов ;)  
 
Файл с примером (который уменьшен в 1345 раз) приложил.

Здравствуйте!  
 
Мне задали вот такой вопрос:  
"А что, в 2007 экселе нет создания форм для заполнения таблицы, как было в старых-престарых версиях????".  
 
Я с таким не встречался, попросил уточнить. Последовал ответ:  
"когда я последний раз пользовался формой для заполнения таблиц - это был Windows 3.11... Визардом создавалась форма - можно было заполнять формулярчик и, меняя номера строк, заполнять таблицу через форму.. Теперь такого я не вижу."  
 
Что-то я не совсем понял суть вопроса. Я понимаю что могу не видеть элементарного, но я и после уточнения не понял о чем идет речь :)  
 
Подскажите, пожалуйста, где искать ;)

Здравствуйте.    
Чтото давно я не было вопросов по Excel :)  
 
Есть больее 10000 значений столбце (часть из них в файле). В каждом из них, нужно обрезать после последнего "-".  
У меня была проблема в том, что числа до/между/после "-" от 1 до 1000. Тоесть может быть 1-1-1 а может и 1000-1-1000.  
Если пустая ячейка, тогда и должно быть пусто :)  
 
Знаю сможете помочь :)

Здравсвуйте.  
 
Вопрос по табелю учету рабочего времени. Точнее его усовершенствование.  
 
Есть кнопка "открыть календарь". При нажатии которой выполняется:  
Sub ОткрытьКалендарь_Щелчок()  
   UserForm1.Show  
End Sub  
 
Проблема 1: Когда календарь открыт, тогда нет возможности изменять ячейки. А я хотел смотреть на календарь, и в определенных днях изменять заливку ячеек. Пересмотрел "Properties", ничего не нашел :( Нужно что-то в код дописать?  
 
Что бы исключить первую проблему, мне нужно решить проблему 2: Что бы Excel (скорее всего) через условное форматирование находил (в данном случае) выходные и заливал определенные ячейки этих дней. С условным дружу, но пока не знаю как можно дать понять "электронным таблицам" где выходные.

Здравсвуйте!  
С программированием 1С знаком, но вот с VBA пока не очень дружу :)  
 
Есть две похожие процедуры. Разница в том, что они предназначены для двух разных ячеек, в которых разные диапазоны выбора.  
Нужно как-то их разделить, что бы выбор производился в обоих.  
Пытался "Private Sub Worksheet_Change(ByVal Target As Range)" изменить на "Private Sub Worksheet_Change_1(ByVal Target As Range)" ничего хорошего не вышло :)  
 
Код:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim iRange As Range  
   If Not Intersect(Target, Range("D2:D15")) Is Nothing Then  
   Application.EnableEvents = False  
   Set iRange = Sheets("Ëèñò2").Range("AA2:AA15").Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole)  
       If Not iRange Is Nothing Then  
           Target.Offset(0, 1) = iRange.Offset(0, 1)  
           'Contract = iRange.Offset(0, 2)  
           'MsgBox Contract, 48, "Äàòà îêîí÷àíèÿ äîãîâîðà"  
           'Target.Offset(0, 2) = iRange.Offset(0, 3)  
       Else  
           MsgBox " ñïèñêå íåò òàêîé ñòàòüè", 48, "Îøèáî÷íàÿ ñòàòüÿ"  
       End If  
   End If  
Application.EnableEvents = True  
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim iRange As Range  
   If Not Intersect(Target, Range("H2:H15")) Is Nothing Then  
   Application.EnableEvents = False  
   Set iRange = Sheets("Ëèñò2").Range("S2:S48").Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole)  
       If Not iRange Is Nothing Then  
           Target.Offset(0, -1) = iRange.Offset(0, 1)  
           Contract = iRange.Offset(0, 3)  
           MsgBox Contract, 48, "Äàòà îêîí÷àíèÿ äîãîâîðà"  
           'Target.Offset(0, 2) = iRange.Offset(0, 3)  
       Else  
           MsgBox " ñïèñêå íåò òàêîãî êîíòðàãåíòà.", 48, "Îøèáî÷íûé êîíòðàãåíò"  
       End If  
   End If  
Application.EnableEvents = True  
End Sub

Здравствуйте!  
 
В справке Excel, нашел функцию "БДСУММ()", которая суммирует данные по СТОЛБЦАМ, а мне нужно просуммировать СТРОКИ.  
Тоесть, БДСУММ переобразовать из стобцов в строки :)  
 
Нужно в красное заполнить сумму желтых.

Здравствуйте!  
Поиск по форуму желаемого результата не дал.  
 
Есть данные в одной ячейке:  
договор216  
договор546Украина  
заявка13Москва  
продажа98766Апельсины  
 
Нужно в соседней правой ячейке:  
216  
546  
13  
9876  
 
Чесно, пытался что-то наваять, но не получилось :(

Здравсвуйте!  
 
Есть формула (во вложенном файле слева):  
ВПР("Киви";A2:B6;2;ЛОЖЬ).  
Где диапазон А2:В6 выбирался обычным способом (выделение диапазона).  
 
А можно ли, что бы А2:В6 выбирался следующим образом (во вложенном файле справа):  
 
ВПР("Киви";I2:J6;2;ЛОЖЬ)  
где,  
I2 = A2  
J6 = B6  
 
Или это на гране фантастики?

Здравствуйте!  
 
Во вложении немного фантастики.  
 
Я пытаюсь сделать выпадающий список, и мне ОЧЕНЬ важную роль играет название которое залито желтым (справа: "Q-1; Q-2; Q-3". Именно через "-").  
Список создавал исходя из: http://www.planetaexcel.ru/tip.php?aid=34  
 
Если заменить "Q-1" на "Q_1", то все работает, но мне нужно именно через "-".  
 
Если чтото не понятно, спрашивайте :) Как смогу объясню то что нужно :)

Здравствуйте!  
 
Насколько я знаю, ВПР или ГПР ищет только ЧИСЛОВЫЕ значения. А с помощью чего можно искать ТЕКСТОВЫЕ?  
 
Во вложении думаю понятно описано :)  
 
З.Ы.: Нужно сделать отбор по "Желтому", и вставить "Зеленое".

Здравствуйте!  
 
В "Приемы работы в Microsoft Excel" нашел статью "Выпадающий список в ячейке", в которой проделал "Выберите в меню Вставка - Имя - Присвоить (Insert - Name - Define) и введите имя (можно любое, но обязательно без пробелов!) для выделенного диапазона (например Товары). Нажмите ОК."  
Но...  
как убрать созданное имя?  
 
Спасибо ;)