Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сбились ссылки на ячейки
 
А как вся книга могла так сделаться при том что ссылается, она сама на себя.
Сбились ссылки на ячейки
 
Всем привет. Произошла такая неприятность. Ко мне обратился коллега с проблемой. В книге есть ссылки на другие листы этой же книги. Все было отлично они как и положено отображали данные ячеек на которые ссылались, но в один прекрасный момент они стали показывать значение #ССЫЛКА, перейдя в строку формул, например вместо
Код
=производство!R105
записана такая сатанинская формула
Код
='C:\Users\User\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\K2JLPR5H\Гербер Н.Н\СПИСКИ 2015\2015 год\КНИГИ\УД\[Рубцовский.xlsm]производство'!R105
На мои вопросы, что ты делал, говорит все как обычно, поработал, сохранил, открыл - не работает. 8-0
Что этот слуга дьявола сотворил, я не понимаю.
Как такое могло произойти? Из-за чего?
Изменено: Gremlen - 02.07.2016 06:37:18
Формула "массива" приводит к исчерпыванию ресурсов
 
Здравствуйте. В файле использую формулу массива =СУММ(--('[Список УД.xlsm]производствоСКЛ'!$S$4:$S$20000=ТРАНСП('[Список УД.xlsm]списки'!$AB$2:$AB$17))*("прокурору"=ТРАНСП('[Список УД.xlsm]производствоСКЛ'!$Y$4:$Y$20000)))
Она считает все как в "аптеке", НО если ее использовать больше 6 раз, она приводит к ошибке "При попытке вычисления одной или нескольких формул ресурсы Excel закончились, поэтому значения этих формул вычислить не удалось."
ВНИМАНИЕ ВОПРОС: Как упростить эту формулу что бы не превышать возможности Excel?
P.S. Заранее спасибо.
Автоподстановка из фиксированного списка по первым вводимым буквам
 
Здравствуйте. Новый день и новый вопрос. Как сделать что бы в столбце с фиксированным списком когда начинаешь вводить что то, то автоматически предлагаются варианты. Просмотрел кучу форумов, но конкретного ответа так и не нашел. Только был один где сделано именно то, что надо но есть одно НО, это реализовано в Гугл.Таблицах (https://docs.google.com/spreadsheets/d/1K0XV9sv8OzfS6Y8f552MJ2ny_XDOYFZdUjFgZfvO­h_c/edit?pref=2&pli=1#gid=0). Как сделать тоже самое только в MSExcel?
Количество неповторяющихся значений с условием
 
Спасибо, за помощь!!!! Вопрос решен.
Количество неповторяющихся значений с условием
 
Здравствуйте. Подскажите как можно посчитать количество неповторяющихся значений с условием. Просто неповторяющиеся значения я могу подсчитать, а вот если с условием.... В прилагаемом файле привел пример на автомобилях. Т.е есть столбец марка, модель и тип привода. Необходимо посчитать количество марок выпускающих авто с задним приводом.
Подсчет количества совпадений в диапазоне с диапазоном условий
 
Спасибо.... работают оба способа...  
Подсчет количества совпадений в диапазоне с диапазоном условий
 
Здравствуйте.  Можно ли как то до мудрить формулу =Счетеслимн таким образом что бы вместо одного  значения "условия" можно было выбрать сразу диапазон. Пример в файле.
Считать значения и по точному совпадению, и по вхождению части текста
 
vikttur, формула подходит. Спасибо ВСЕМ за помощь.  :)
Считать значения и по точному совпадению, и по вхождению части текста
 
Здравствуйте. При подсчете записей удовлетворяющих определенным условия, использую СЧЕТЕСЛИМН. Все вроде работет, но есть одно "НО". Если условие совпадает само себе то не считает. Т.е. формула не посчитает строку со значением ячейки "106", если ячейка будет ="106 ежей" то посчитает. Как можно задать условие что бы учитывались не только вхождения но и равенство.
Код
=СЧЁТЕСЛИМН('Раздел 8'!Y4:Y1000;"*106*")
Имя книги в переменной
 
Если вот такой код, то он выдает ошибку. Если вместо Worksheets("Лист Х";).Select написать Worksheets(1).Select все работает

Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        Worksheets("Лист Х").Select
        Range("A6").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range("A6:AD125").Select
        Selection.Copy
        ThisWorkbook.Worksheets("Итог").Select
        ocount = Sheets("Итог").Cells(Rows.Count, 2).End(xlUp).Row
        Worksheets("КРСП").Cells(ocount, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Закрываем книгу 
        ActiveWorkbook.Close False
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub
Имя книги в переменной
 
Код потому что ругается на 16 строке.
Имя книги в переменной
 
Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        WorkBook(sFiles).Active
        Worksheets("Лист Х").Select
        Range("A6").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range("A6:AD125").Select
        Selection.Copy
        ThisWorkbook.Worksheets("Итог").Select
        ocount = Sheets("Итог").Cells(Rows.Count, 2).End(xlUp).Row
        Worksheets("КРСП").Cells(ocount, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Закрываем книгу 
        ActiveWorkbook.Close False 
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub
Имя книги в переменной
 
Здравствуйте, есть не большая проблема. Есть некая переменная Х в которой хранится имя файла с расширением. Примерно это выглядит так Х="книга 1.xls".
Как теперь эту переменную использовать для того что бы сделать активной книгу с именем хранимым в переменной? Т.е. что бы WorkBook(X).Select сработала и книга с именем книга 1 стала активной.
Изменено: Gremlen - 07.05.2015 11:25:55
Циклическая ссылка
 
Должен быть срок рассчитанный ранее. Т.е. пока ячейка столбца D пестая, формула вычисляется(и вычисляет она например 2,16), а как только в D  появиться например прокурору, то вычислять срок формула должна перестать и оставить значение 2,16.
Циклическая ссылка
 
Здравствуйте. Есть формула которая высчитывает сроки по вот такой формуле. Но она циклическая. Как ее упростить что бы она не была такой? Более подробное описание в файле.
Код
=ЕСЛИ(ЕСЛИ(Y5="остаток";ЛОЖЬ;ЕСЛИ(Y5="";ЛОЖЬ;ИСТИНА));J5;РАЗНДАТ(F5;СЕГОДНЯ();"m")&","&РАЗНДАТ(F5;СЕГОДНЯ();"md"))
Изменено: Gremlen - 29.04.2015 09:10:36
Разложение текста на части
 
ДА ДА ДА:D То что надо только допустил ошибку, что за / брать не +1 а +2, и если это там есть "," то ее убрать. Короче так получилось. Спасибо Сергей, снова выручил. Вот как теперь работу данной формулы перевести в VBA код?:(
Код
=ПОДСТАВИТЬ(ПСТР(ПСТР(C6;ПОИСК("105";C6);99);ПОИСК("/";ПСТР(C6;ПОИСК("105";C6);99))+1;2);",";"")
Разложение текста на части
 
Блин плохой:(из меня объясняльщик. Но попробую еще раз, во вложении на лисе 1 написал что мне нужно в итоге получить.
Разложение текста на части
 
Есть отчет который нужно рассчитать по данным имеющимся на соседнем листе. Пример отчета и возможные данные в файле. Расчет первого и второго столбца я знаю как сделать, а вот 3 и 4 загвоздка.  
Разложение текста на части
 
Здравствуйте. Подскажите пожалуйста как можно сделать такую штуку. Есть к примеру ячейка содержащая следующий текст "105-2, 30-3/3, 111-2/2", необходимо что бы код выбрал и "вытащил" текст от 105 до первого встречного знака "/" со следующим за ним значением (а именно что бы получилось "105-2, 30-3/3"). А в другов случае что бы от 111 (и получился такой результат "111-2/2"). Вытащинные данные нужно хранить в какой то одной переменной по очереди. Т.Е. текст нужно выбирать от определенного заданного значения до определенного значения с +1 значением после него. В файле пример значений и что должно получиться.
Ограничение символов вводимых в ячейку
 
Спасибо огромное Сергей. Все разобрался, все работает.  
Ограничение символов вводимых в ячейку
 
Нет, к сожалению не звезду смерти, а всего лишь список уголовных дел.  
Ограничение символов вводимых в ячейку
 
Сергей, да то что нужно спасибо. А можете объяснить как эта штука работает и мне нужно туда будет добавить еще что бы можно было вводить слово "смерть" и "б/п".
Ограничение символов вводимых в ячейку
 
Вот примерное сожержание
Ограничение символов вводимых в ячейку
 
Здравствуйте. Подскажите как можно реализовать такую задумку:
Пример: Есть ячейка в которую вносим перечень статей "105-2 / 137-3", нужно что бы пользователь мог вносить в ячейку только цифры и применялись только два символа "-" и "/". Другие символы и буквы он не смог туда внести.

Возможно ли такое вообще?
Изменено: Gremlen - 14.04.2015 11:47:02
Страницы: 1
Наверх