| ← Май 2011 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
2
|
3
|
4
|
6
|
7
|
8
|
|
|
9
|
10
|
11
|
13
|
14
|
15
|
|
|
16
|
17
|
18
|
20
|
21
|
22
|
|
|
23
|
24
|
25
|
27
|
28
|
29
|
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://excel.1gb.ru/content/view/98/74/
Открыта:
16-11-2006
Статистика
427 подписчиков
0 за неделю
0 за неделю
kip89>> Re: код на vba
Форум по Microsoft Excel Выпуск 20 Подписчиков: 566 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".
Andrey Lenets>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 16:43 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Да, спасобо, но Вы начали с конца. Как ввести в TextBox (Цена) например 2,15 (формат 0,00). Вылетает ошибка. Еще проблемы с локализацией (. или ,). -разделитель запятой проверяется с помощью Application.DecimalSeparator и разделитель заменяется на нужный.-проверять изменения нужно в каждом ТекстБоксе по которому считается сумма. ничего сложного здесь нет - нужно для себя понять логику!  удачи! SergioGach>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 17:30 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Цитировать -разделитель запятой проверяется с помощью Application.DecimalSeparator и разделитель заменяется на нужный. -проверять изменения нужно в каждом ТекстБоксе по которому считается сумма. Тут ясно, но в количество нельзя ввести разделитель (напр. 0,25 ) и в TextBox цифры представлены в виде текста. Напр. Цена 2,55 в TextBox9, а на ячейку вставляется 2,00 .Cells(ActiveCell.Row, "E") = Val(Прихидна.TextBox9) Andrey Lenets>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 17:50 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Тут ясно, но в количество нельзя ввести разделитель (напр. 0,25 ) и в TextBox цифры представлены в виде текста. я не обратил внимание, что разные ед измерения, наложил ограничение на целое число...Напр. Цена 2,55 в TextBox9, а на ячейку вставляется 2,00 .Cells(ActiveCell.Row, "E") = Val(Прихидна.TextBox9) код чекера не сложный же! чтобы в кол-ве можно было ввести дробное число замените строчку: Код: If IsNumeric(cValue) Then Me.Controls(cName).Value = Round(cValue, 0) наКод: If IsNumeric(cValue) Then Me.Controls(cName).Value = cValue по поводу второго вопроса - все TextBox, в частности TextBox9 в ячейки данные скидывают без проблем в числовом виде! проверяйте форматы ячеек, куда выгружаете данные! и саму выгрузку... SergioGach>> Re: Форма с ComboBox и TextBox. Формат ввода 0.00 и суммирование TextBox-сов. 2011-05-17 19:36 http://forum.msexcel.ru/profiles/sergiogach-u5136.html Большое Спасибо!!! Все получилося. Цитировать по поводу второго вопроса - все TextBox, в частности TextBox9 в ячейки данные скидывают без проблем в числовом виде! проверяйте форматы ячеек, куда выгружаете данные! и саму выгрузку... Сделал так: .Cells(ActiveCell.Row, "H") = Str(UserForm.TextBox3) Underwater Aviator>> Работа с текстом 2011-05-17 21:17 http://forum.msexcel.ru/profiles/underwater_aviator-u85599.html Всем привет. Я раньше не интересовался экселем на проф. уровне, так что ничего об этом не знаю. Сейчас работаю с яндекс директом и нужно реализовать некоторые фишки для работы с текстом. Что нужно конкретно: - Копирование текста из колонки 1 в колонку 2 и 3. - Потом нужно в колонке 2 и 3 убрать символ ", и заменить первую букву в каждой ячейке колонки 2 и 3 на заглавную. - Еще нужно из колонок 2 и 3 удалить все слова перед которыми есть "-". Ну вообщем как то так. Каким образом это можно реализовать? Спасибо. Serge 007>> Re: Работа с текстом 2011-05-17 22:02 http://forum.msexcel.ru/profiles/serge_007-u25260.html Здравствуйте. Каким образом это можно реализовать? Макросом (можно записать рекордером) или формулами.
Daria>> Создание формы поиска с условиями 2011-05-17 22:15 http://forum.msexcel.ru/profiles/daria-u85603.html Здравствуйте! Должно быть, тему не раз поднимали на форуме, но, куда ни гляну, - всё для продвинутых пользователей, владеющих VBA. А я - блондинка и при виде кода впадаю в ступор. Имеется некий журнал с реквизитами входящих документов (столбцы: № п/п, Содержание, Фамилия, Дата и т.д.). Так как документов поступает много, функция поиска очень пришлась бы к месту. Ctrl+F не подходит, потому что журналом будут пользоваться самые разные люди. Надо бы создать универсальную форму с полями и поиском по столбцам. Причём, поиск должен осуществляться не только по точным значениям, но и с условиями типа "от... до...". Например, найти все письма, поступившие с 20 по 25 марта и расписанные Иванову Ивану Ивановичу. Подскажите, пожалуйста, как это реализовать без кода? Просто формами/ActiveX и макросами? Своей головой не додумать dav>> Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-18 04:33 http://forum.msexcel.ru/profiles/dav-u85633.html Помогите написать макрос. Задача подсчитать количество выученных слов (ироглифов) в таблице xls. Выученные слова занесены в столбец, причем в одной ячейке могут быть слова из 2, 3 или более слов. Слова я подсчитал, а вот входящие в них иероглифы не смог. Например: 花裙子 报道 十字路口 口 Некоторые иероглифы в словах совпадают, необходимо подсчитать только различные иероглифы, и не считать пустые ячейки (пробелы). Диапазон подсчета столбец B23:B65536. Результат вывести в ячейку А4. Пробовал функциями не получилось, может можно реализовать макросом? Mart222>> Re: Создание формы поиска с условиями 2011-05-18 08:56 http://forum.msexcel.ru/profiles/mart222-u74687.html Зачем вам ActiveX? Обыкновенный [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]. Если будете заниматься формами, все равно код нужен будет, кудаж без него.Andrey Lenets>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-18 13:08 http://forum.msexcel.ru/profiles/nitrolis-u1631.html пример в файле...  iron priest>> функция LOTTO 2011-05-18 17:48 http://forum.msexcel.ru/profiles/iron_priest-u20725.html доброго дня! давно не появлялся здесь(( есть вопрос по поводу функции ЛОТТО, которую нашел на просторах инета, и которая отбирает случайные позиции. вот её код: Код: Function Lotto(Bottom As Integer, Top As Integer, Amount As Integer) Dim iArr As Variant Dim i As Integer Dim r As Integer Dim temp As Integer Dim Out(10000) As Variant Application.Volatile ReDim iArr(Bottom To Top) For i = Bottom To Top iArr(i) = i Next i For i = Top To Bottom + 1 Step -1 r = Int(Rnd() * (i - Bottom + 1)) + Bottom temp = iArr(r) iArr(r) = iArr(i) iArr(i) = temp Next i j = 0 For i = Bottom To Bottom + Amount - 1 Out(j) = iArr(i) j = j + 1 Next i Lotto = Application.Transpose(Out) End Function проблема состоит в том, что функция не работает если в условие ТОП указать число более 32766. а мне необходимо приблизительно чтобы топ был гдето 100 тыс. прошу помощ... Andrey Lenets>> Re: функция LOTTO 2011-05-18 17:54 http://forum.msexcel.ru/profiles/nitrolis-u1631.html в определении переменных Integer на Long замените  iron priest>> Re: функция LOTTO 2011-05-18 18:10 http://forum.msexcel.ru/profiles/iron_priest-u20725.html мерси! Daria>> Re: Создание формы поиска с условиями 2011-05-18 18:50 http://forum.msexcel.ru/profiles/daria-u85603.html Спасибо большое за ответ, но, понимаете, [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] не очень подходит, потому что этим файлом будут пользоваться и те люди, которые с компьютером на очень дальнее "вы", и про [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] даже не слыхали... Вот если бы прямо над таблицей с данными сразу закрепить область с формой поиска, наподобие [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а, было бы проще. Наверно, нужно всё-таки постигать тайны VBA И ещё, скажите, пожалуйста, как вы в прикреплённом файле вынесли отфильтрованные результаты отдельно от самой таблицы? Александ_е_р>> Re: Уcловное форматирование, диапазон данных 2011-05-18 20:02 http://forum.msexcel.ru/profiles/aleksander-u85468.html Суть в следующем: у нас есть база данных наших клиентов и партнеров, часть информации из нее скопирована в Excel, мне нужно сделать так, что бы в таблице отображались только адреса электронной почты, .т.е я хочу отфильтровать по @, для рассылки новостей нашим клиентам. Раньше ставил в фильтре «содержит @» и все получалось, сейчас не выходит. Помогите, пожалуйста, в чем дело. Прикрепляю выжимку из моей таблицы. feodosij>> Нужно хитро объединить ячейки 2011-05-18 23:42 http://forum.msexcel.ru/profiles/feodosij-u85715.html Есть такая таблица Нужно объединить ячейки таким образом Подскажите, пожалуйста, какими методами можно это осуществить? dav>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 02:00 http://forum.msexcel.ru/profiles/dav-u85633.html Спасибо огромное все получилось, посчитал количество иероглифов, которыми владею - 2360, слов- 5327 Andrey Lenets>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 02:27 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Спасибо огромное все получилось, посчитал количество иероглифов, которыми владею - 2360, слов- 5327 теперь буду знать к кому обращаться, если письмо из Джапании получу
Mart222>> Re: Создание формы поиска с условиями 2011-05-19 05:33 http://forum.msexcel.ru/profiles/mart222-u74687.html И все таки я считаю что [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] достаточно простое и удобное средство даже для начинающего пользователя (возможно с небольшим инструктажом). Еще одну таблицу я получил просто скопировав ее чуть ниже, требование только одно - между таблицами должна быть как минимум одна строка не содержащая никаких данных, при этом никто не мешает сделать при необходимости [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url] по нижней таблице вместо верхней. dav>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 05:34 http://forum.msexcel.ru/profiles/dav-u85633.html Конечно обращайтесь. можно на мыло dav@chita.so-ups.ru. Могу книжку скинуть собственного сочинения о китайской пище, что и как заказать в Китайских ресторанах (особенно на отдыхе на желтом море полезная вещь) nilem>> Re: Нужно хитро объединить ячейки 2011-05-19 08:22 http://forum.msexcel.ru/profiles/nilem-u30547.html Например, выделяем диапазон (на картинке C5:D15), запускаем это: Код: Sub HitrOb() Результат запишется справа, через столбец.Dim x, y(), i&, j&, n&, k$ If Selection.Columns.Count <> 2 Then Exit Sub x = Selection.Value: ReDim y(1 To UBound(x), 1 To 2) With New Collection On Error Resume Next For i = 1 To UBound(x) k = CStr(x(i, 2)) If IsEmpty(.Item(k)) Then j = j + 1: .Add j, k y(j, 1) = "(" & x(i, 1) & ")" y(j, 2) = x(i, 2) Else n = .Item(k) y(n, 1) = Replace(y(n, 1), ")", ", " & x(i, 1) & ")") End If Next End With Selection.Offset(, 3).Value = y End Sub feodosij>> Re: Нужно хитро объединить ячейки 2011-05-19 08:54 http://forum.msexcel.ru/profiles/feodosij-u85715.html выражаю огромную благодарность. Надо по-тихоньку изучать макросы... Alex_ST>> Re: код на vba 2011-05-19 10:03 http://forum.msexcel.ru/profiles/alexst-u65623.html 1. Я удивляюсь, как топик с таким названием ещё не заперли модераторы. Ну неужели так трудно придумать осмысленное название темы? 2. Вы просили код функции на VBA, вы его от Oleg X и получили. Результат работы кода - в ячейке D15. Или по-вашему функция findtovar , прописанная в D15 - это стандартная функция листа Excel, которую "мелко-мягкие" ввели в Офис, предугадав, что она вам понадобится? Alex_ST>> Re: Нужно хитро объединить ячейки 2011-05-19 10:12 http://forum.msexcel.ru/profiles/alexst-u65623.html Надо по-тихоньку изучать макросы... Ну, почему же потихоньку?  В изучении макросов нет ничего такого, что противоречило общественной морали и чего, поэтому, следовало бы стыдиться и делать это тайком когда очень уж хочется…  
Bomont>> Формула Коррел и ДВССЫЛ 2011-05-19 11:06 http://forum.msexcel.ru/profiles/bomont-u4849.html Всех приветствую! Удивился, что в Excel почему то не работает следующая формула: КОРРЕЛ(ДВССЫЛ("C2:C"&СТРОКА());ДВССЫЛ("D2:D"&СТРОКА())) при этом работает формула КОРРЕЛ(ДВССЫЛ("C2:C13");ДВССЫЛ("D2:D13")) Мне необходимо, чтобы массивы, по которым считается корреляция были легко масштабируемы, поэтому использовал формулу ДВССЫЛ. Подскажите, почему в первом варианте Excel выдает ошибку и как ее исправить. Пример приложил. Andrey Lenets>> Re: Формула Коррел и ДВССЫЛ 2011-05-19 11:26 http://forum.msexcel.ru/profiles/nitrolis-u1631.html Используйте имена! Масс1=ДВССЫЛ("C2:C"&СТРОКА()) Масс2=ДВССЫЛ("D2:D"&СТРОКА()) Тогда формула примет вид: =КОРРЕЛ(Масс1;Масс2) Bomont>> Re: Формула Коррел и ДВССЫЛ 2011-05-19 11:31 http://forum.msexcel.ru/profiles/bomont-u4849.html Спасибо, но почему же та формула выдает ошибку? Bomont>> Re: Формула Коррел и ДВССЫЛ 2011-05-19 11:38 http://forum.msexcel.ru/profiles/bomont-u4849.html Нашел решение, из чего сделал вывод что с этими комбинациями Эксель немного "тупит" )) В формуле, которая выдает ошибку КОРРЕЛ(ДВССЫЛ("C2:C"&СТРОКА());ДВССЫЛ("D2:D"&СТРОКА())) СТРОКА() меняем на ссылку в соседнюю ячеку, где и высчитывается номер строки: КОРРЕЛ(ДВССЫЛ("C2:C"&G13);ДВССЫЛ("D2:D"&G13)) G13=СТРОКА() Формула заработала! DONBAS>> Сквозная сортировка в Excel (сквозной рубрикатор) 2011-05-19 11:51 http://forum.msexcel.ru/profiles/donbas-u85775.html Задача такова: В Excel есть список объектов (например фильмов), у которых есть свойство (например жанр). Если у фильма может быть не больше одного жанра, обычный фильтр устраивает. Но проблема в том, что драма может быть и комедией и боевиком. Нужно создать список свойств объекта (жанров фильма) (чтобы исключить разные опечатки, например драмма, драма), и на основании этого списка присваивать конкретному объекту (в примере - фильму) в нашем случае Excel - строчке свойства из списка свойств таким образом, чтобы можно было выбрать все комедии, или все драмы или все фильмы где есть драма и комедия. Возможно ли и как это сделать средствами Excel. Я понимаю, что эта задача решается просто при помощи баз данных, но на ПК, где она будет использоваться нету возможности установить Access/другой сервер БД или доступа в интернет для MySQL. Serge 007>> Re: Сквозная сортировка в Excel (сквозной рубрикатор) 2011-05-19 12:45 http://forum.msexcel.ru/profiles/serge_007-u25260.html http://www.planetaexcel.ru/tip.php?aid=64 _NATASHENKA_>> Функция СЧЕТЕСЛИМН не работает 2011-05-19 12:51 http://forum.msexcel.ru/profiles/natashenka-u85777.html Здравствуйте, Всем работающим в Excel! Столкнулась с функцией счетеслимн. Необходимо подсчитать количество дней с определенными критериями. Формула написана, критерии введены, но не считает. В чем проблема. Прикрепила файл-пример. Спасибо за помощь. Serge 007>> Re: Функция СЧЕТЕСЛИМН не работает 2011-05-19 12:57 http://forum.msexcel.ru/profiles/serge_007-u25260.html Здравствуйте. Критерии надо писать без знака "=" _Boroda_>> Re: Функция СЧЕТЕСЛИМН не работает 2011-05-19 13:28 http://forum.msexcel.ru/profiles/boroda-u12234.html Цитировать итерии надо писать без знака "=" Не согласен. Можно и так, и так.Тут дело не в этом. Читаем справку: Применяет условия к ячейкам в нескольких диапазонах и вычисляет количество соответствий всем условиям. Если по-русски, то ячейка должна одновременно равняться и "Р", и "1/10Р", и ... Для Вашего случая, если я правильно понял, что нужно посчитать все ячейки с буквой "Р", подойдет формула Код: =СЧЁТЕСЛИ(A1:AE1;"=*Р") _NATASHENKA_>> Re: Функция СЧЕТЕСЛИМН не работает 2011-05-19 13:55 http://forum.msexcel.ru/profiles/natashenka-u85777.html =СЧЁТЕСЛИ(A1:AE1;"=*Р"). Спасибо, оказывается все просто  , считает. Если это вообще возможно....с какой функцией (кроме пользовательской самостоятельнопрописаннной в VBA) можно выделить значение числа стоящего перед Р (например из 1/10Р=10, а диапозона соответсвенно сумма, а если Р=8 (суммесли)). Пример из прошлого сообщения. Пойду сама помозгую..... Serge 007>> Re: Функция СЧЕТЕСЛИМН не работает 2011-05-19 15:00 http://forum.msexcel.ru/profiles/serge_007-u25260.html какой функцией можно выделить значение числа стоящего перед Р,например из 1/10Р=10 Код: =ПСТР(N1;НАЙТИ("/";N1)+1;НАЙТИ("Р";N1)-НАЙТИ("/";N1)-1) Seeker>> Как подсчитать определенные ячейки? 2011-05-19 16:41 http://forum.msexcel.ru/profiles/seeker-u85794.html Всем привет. Имеется таблица следующего вида (Лист 1):  Помогите, пожалуйста, подсчитать количество транзакций относительно предметов с определенным наименованием (независимо от версии предмета). Может подскажете как создать необходимый макрос. Насколько вы можете заметить, каждой версии предмета соответствует свой SKU ID. Количество предметов: примерно 30-40. Количество версий в сумме: 450. Следовательно, количество SKU ID: 450. Теперь посмотрите на следующую таблицу (Лист 2):  В ней те же SKU ID, которые были и в первой таблице. Для каждой версии предмета они продублированы столько раз, сколько было произведено транзакций. Как мне подсчитать количество транзакций для Предмет 1, Предмет 2 и т.д., чтобы на выходе у меня получилось следующее: Предмет n: сумма транзакций по всем версиям. Буду признателен за помощь, т.к. количество стр... IKor>> Re: Уcловное форматирование, диапазон данных 2011-05-19 18:06 http://forum.msexcel.ru/profiles/ikor-u6827.html А сейчас (в MS Excel 2007 и старше) достаточно указать просто "@" без кавычек - фильтр выделит все строки, содержащие нужный символ. Смотрите прилагаемый файл. Для большего соответствия заявленной теме в прилагаемом файле при помощи условного форматирования реализовано выделение желтым фоном ячеек, не содержащих символ "@". Seeker>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 18:13 http://forum.msexcel.ru/profiles/seeker-u85794.html Просмотрел документ и не понял, как это было достигнуто. Нигде никакие формулы не отображаются. Может кто-нибудь объяснит? IKor>> Re: Как подсчитать определенные ячейки? 2011-05-19 18:17 http://forum.msexcel.ru/profiles/ikor-u6827.html Обратите внимание на функцию СЧЁТЕСЛИ(). Для более детального ответа, прикладывайте пример вашего файла (без секретной информации) в виде: то, что есть - то, что нужно получить. Seeker>> Re: Как подсчитать определенные ячейки? 2011-05-19 18:56 http://forum.msexcel.ru/profiles/seeker-u85794.html Спасибо за подсказку. Работает. IKor>> Re: Сквозная сортировка в Excel (сквозной рубрикатор) 2011-05-19 19:36 http://forum.msexcel.ru/profiles/ikor-u6827.html Если я правильно понял, то уважаемый DONBAS спрашивал можно ли реализовать в MSExcel структуру, аналогичную запросам MSAccess. Варианты, которые мне приходят в голову: 1. Дублировать строки (фильмы) для каждого из возможных жанров. Просто для дальнейшей работы с помощью [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а, но не эффективно с точки зрения хранения данных (допустимо только в случае малого количества дублированных строк) 2. Использовать два (три) столбца и сортировать по ним. Большая часть строк не будет содержать дополнительных жанров, но при необходимости информацию будет куда добавить. 3. Использовать составные жанры "драма - боевик". Автофильтр будет работать по любой из составляющих составного жанра, но список жанров будет существенно более широким (или неограниченным) 4. В основной таблице присваивать фильму все свойства, кроме жанра, а в отдельной таблице присваивать каждому фильму соответсвие неограниченному количеству жанров. Затем с помощью сводных таблиц формировать результат запроса из основной и ... Serge 007>> Re: Подсчет различных текстовых символов (иероглифов) в строках и столбцах 2011-05-19 21:19 http://forum.msexcel.ru/profiles/serge_007-u25260.html Просмотрел документ и не понял, как это было достигнуто. Нигде никакие формулы не отображаются. Может кто-нибудь объяснит? Alt+F11 нажмите.
bzzzu>> Синхронизация по фильтрам 2011-05-20 12:53 http://forum.msexcel.ru/profiles/bzzzu-u85011.html Здравствуйте! Помогите, пожалуйста, решить проблему. Есть две [url=http://msexcel.ru/content/view/34/2/]_сводные_[/url] таблицы, построенные по одним исходным данным на одном листе, по каждой таблице строится график. Возможно ли их как то синхронизировать? Чтобы при изменении фильтров одной таблицы они автоматически менялись и во второй. Пример в приложенном файле. Andrey Lenets>> Re: Синхронизация по фильтрам 2011-05-20 14:01 http://forum.msexcel.ru/profiles/nitrolis-u1631.html VBA вам в помощь! пример в файле... макросы должны быть включены! 
kim k.>> Функция со случ. выбором из текстовых значений 2011-05-20 15:56 http://forum.msexcel.ru/profiles/kim_k-u5362.html Добрый день! подскажите пож., какая функциея осуществляет случайный выбор из трех или больше текстовых значений? Пример: Имеем значения: "АвтоЗаз" "ВАЗ" "Daewoo" Какая из функций умеет выбирать random из них? Спасибо! Serge 007>> Re: Функция со случ. выбором из текстовых значений 2011-05-20 16:05 http://forum.msexcel.ru/profiles/serge_007-u25260.html Здравствуйте. Код: =ИНДЕКС(A1:A10;СЛЧИС()*10) Код: =ИНДЕКС(A1:A10;СЛУЧМЕЖДУ(1;10)) Данные в A1:A10.
kim k.>> Re: Функция со случ. выбором из текстовых значений 2011-05-20 16:21 http://forum.msexcel.ru/profiles/kim_k-u5362.html О! спасибо! интересное решеение с ИДНЕКС()! а отдельной функции для текста нет -- как СЛУЧМЕЖДУ() для чисел? bzzzu>> Re: Синхронизация по фильтрам 2011-05-20 16:24 http://forum.msexcel.ru/profiles/bzzzu-u85011.html Спасибо большое! Работает! ps Я так понимаю, что если добавить еще один фильтр, то он сихронизирован не будет? Буду разбираться в коде) Ну или не откажусь от подсказки в какую строчку смотреть :
Saken>> Печать страница 2011-05-20 16:37 http://forum.msexcel.ru/profiles/saken-u36540.html Всем привет, не могу разобраться! Есть на UserForm CommandButton1. Как сделать чтоб, по нажатию CommandButton1 открывалось форма Печать. Заранее спасибо! Serge 007>> Re: Функция со случ. выбором из текстовых значений 2011-05-20 16:37 http://forum.msexcel.ru/profiles/serge_007-u25260.html Нет. bzzzu>> Re: Синхронизация по фильтрам 2011-05-20 17:23 http://forum.msexcel.ru/profiles/bzzzu-u85011.html А нет, все работает! Спасибо еще раз! _Boroda_>> Re: Функция со случ. выбором из текстовых значений 2011-05-20 17:47 http://forum.msexcel.ru/profiles/boroda-u12234.html Еще вариант =ВЫБОР(СЛУЧМЕЖДУ(1;3);"АвтоЗаз";"ВАЗ";"Daewoo") kim k.>> Re: Функция со случ. выбором из текстовых значений 2011-05-20 19:07 http://forum.msexcel.ru/profiles/kim_k-u5362.html ВО!!! оно!!!! я помню, что был подобный способ! Спасибо, _Boroda_ и Serge 007! Теперь я вдвойне вооружен, хехе))) binary>> Re: Сквозная сортировка в Excel (сквозной рубрикатор) 2011-05-21 10:28 http://forum.msexcel.ru/profiles/binary-u85999.html В БД я бы сделал таблицу с фильмами и таблицу с жанрами. Для ассоциации жанров и фильмов еще одну таблицу, где каждому жанру, который относится к конкретному фильму соответствует запись вида ID фильма - ID жанра. В ексель так получится? Serge 007>> Re: Сквозная сортировка в Excel (сквозной рубрикатор) 2011-05-21 11:06 http://forum.msexcel.ru/profiles/serge_007-u25260.html А автор сделал так. Saken>> Re: Печать страница 2011-05-21 11:34 http://forum.msexcel.ru/profiles/saken-u36540.html Не кто не знает что ли! Я не знал что, эта так трудно! Алексей Шмуйлович>> Re: Печать страница 2011-05-21 13:03 http://forum.msexcel.ru/profiles/alexshm-u64.html Application.Dialogs(XlBuiltInDialog.xlDialogPrint).Show rad_ia>> Про эту формулу: =B11+ДВССЫЛ("'"&ИНДЕКС(а;;б-1)&"'!d"&СТРОКА()) 2011-05-22 07:33 http://forum.msexcel.ru/profiles/radia-u86106.html Подскажите чайнику про эту формулу. Суть: у меня вкладки внизу на каждый день, то есть 22.05.2011, 23.05.2011 и т.д. Каждый день мне нужно прибавлять к выработке предыдущего дня 24 часа (или другое количество часов) сегодняшнего дня. Как мне подсказали макросы я включил. Начинаю вводить формулу = далее указываю ячейку с предыдущей вкладки(даты) + указываю ячейку с сегодняшними часами enter. Копирую вкладку для следующего дня - формула не изменяется, она остаётся такой же. А при формуле, которая в названии темы всё получается. Как её сделать эту формулу? Вбивать вручную? Надеюсь я понятно объяснил? Спаисбо. Serge 007>> Re: Про эту формулу: =B11+ДВССЫЛ("'"&ИНДЕКС(а;;б-1)&"'!d"&СТРОКА()) 2011-05-22 08:33 http://forum.msexcel.ru/profiles/serge_007-u25260.html У Вас в файле две именованых формулы а и б, на которые ссылается формула =B11+ДВССЫЛ("'"&ИНДЕКС(а;;б-1)&"'!d"&СТРОКА()). Если Вы хотите перенести формулу в свою книгу, то надо перенести и а с б. machodg>> Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-22 19:35 http://forum.msexcel.ru/profiles/machodg-u16265.html Здравствуйте. На листе эксел столбец с ячейками разного цвета. При использовании моего кода: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = 0 Or ActiveCell.Column <> 6 Then Exit Sub Else Application.ScreenUpdating = False Sheets(1).Columns(6).Interior.ColorIndex = 0 ActiveCell.Interior.ColorIndex = 8 Cells(2, 3) = ActiveCell.Offset(0, -1) Application.ScreenUpdating = True End Sub подсвечивается выделенная ячечка, однако обесцвечиваются и все остальные. Как исправить код, чтобы после щелчка цвет предыдущей и остальных ячеек возвращался к исходному цвету. Заранее всех благодарарю за помощь. machodg>> Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-22 23:38 http://forum.msexcel.ru/profiles/machodg-u16265.html Здравствуйте. На листе эксел столбец с ячейками разного цвета. При использовании моего кода: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = 0 Or ActiveCell.Column <> 6 Then Exit Sub Else Application.ScreenUpdating = False Sheets(1).Columns(6).Interior.ColorIndex = 0 ActiveCell.Interior.ColorIndex = 8 Cells(2, 3) = ActiveCell.Offset(0, -1) Application.ScreenUpdating = True End Sub при щелчке подсвечивается выделенная ячечка, однако обесцвечиваются и все остальные. Как исправить код, чтобы после щелчка цвет предыдущей и остальных ячеек возвращался к исходному цвету. Заранее всех благодарарю за помощь. sergo44441>> Расчети зарплаты рабочих (сочетание дневной и ночной тарификации) 2011-05-23 01:16 http://forum.msexcel.ru/profiles/sergo44441-u3995.html Подскажите, пожалуйста, какие формулы использовать для расчета зарплаты рабочих, если известна часовая тарифная ставка, и при работе с 22 :00 до 7:00 ставка удваивается, допустим, рабочий с часовой ставкой 350 рублей приступил к работе в 9 вечера и закончил в час ночи, сколько ему надо заплатить? MCH>> Re: Расчети зарплаты рабочих (сочетание дневной и ночной тарификации) 2011-05-23 03:19 http://forum.msexcel.ru/profiles/mch-u48782.html Можно так lsg>> Получение значение формулы без записи ее в ячейку 2011-05-23 12:04 http://forum.msexcel.ru/profiles/lsg-u16533.html Уважаемые форумчане. Помогите мне, пожалуйста, в решении следующего вопроса. Мне нужно получить значение формулы без записи формулы в ячейку. Сейчас я записываю в ячейку формулу, а потом забираю ее как значение переменной «Всего». Range("K5").FormulaLocal = "=ВПР(D5";G6:K10;5;1)" Всего = Range("K5") Где-то совсем недавно видел подобное решение, но, к сожалению, не могу найти. _Boroda_>> Re: Получение значение формулы без записи ее в ячейку 2011-05-23 13:31 http://forum.msexcel.ru/profiles/boroda-u12234.html Всего = WorksheetFunction.VLookup([D5], [G6:K10], 5, 1) Maria_R>> Суммирование значений при удовлетворении нескольким условиям 2011-05-23 13:39 http://forum.msexcel.ru/profiles/mariar-u81471.html Всем добрый день. Помогите, пжт, найти решение следующей задачи: В Таблицу 1, строка 3 необходимо проставить сумму прихода от Покупателей в конкретную неделю (по данным Таблицы 2). При этом должно удовлетворяться условие: номенклатура в Табл 2 = Продажа товаров. Сейчас я использую формулу СУММЕСЛИ, и у меня в ячейку проставляется сумма ВСЕГО прихода в эту неделю. А как сделать так, чтобы суммировались только приходы с конкретной номенклатурой (данные в Таблице 2, столбец F), не знаю. Заранее благодарю за помощь! evseev-gleb>> Макрос, нарезающий одну большую таблицу Excel на маленькие по опред-ому признаку 2011-05-23 14:10 http://forum.msexcel.ru/profiles/evseevgleb-u86248.html Добрый день! Необходим макрос, нарезающий одну большую таблицу Excel в формате 2007 на маленькие по определенному признаку и сохраняющий эти таблицы под определенным именем в заданной папке. Файл "ОППП" представляет собой поклиентный отчет по нескольким городам. Нужно разделить его так, чтобы по каждому городу был отдельный отчет, и сохранить эти отчеты под именем этого города (например, "Альметьевск"),в заданной папке (допустим c:\Города), при этом: -признак для нарезки - столбец "Город"; -выходной формат - книга Excel 2003. Желательно, чтобы макрос был универсальным и можно было применять его для обработки других таблиц (задавать столбец, по которому будет идти нарезка, и область "шапки"). Saken>> Re: Печать страница 2011-05-23 14:52 http://forum.msexcel.ru/profiles/saken-u36540.html Спасибо вам, получилась! Пойду дальше! langeron>> Re: Суммирование значений при удовлетворении нескольким условиям 2011-05-23 14:54 http://forum.msexcel.ru/profiles/langeron-u41995.html Здравствуйте! Попробуйте функцию СУММЕСЛИМН (добавлена в 2007 офис). Если я правильно понял задачу то посчитана сумм за рекламу на листе Таб1 TimSha>> Re: Суммирование значений при удовлетворении нескольким условиям 2011-05-23 15:05 http://forum.msexcel.ru/profiles/timsha-u13313.html Два варианта. lsg>> Re: Получение значение формулы без записи ее в ячейку 2011-05-23 15:38 http://forum.msexcel.ru/profiles/lsg-u16533.html Спасибо, получилось! semenko_ov>> Построение графиков с 3 осями Y 2011-05-23 15:49 http://forum.msexcel.ru/profiles/semenkoov-u86256.html Нужна помощь в построении графика с 3 осями Y. Как 2 оси сделать знаю, но виделя с тремя, знаю что это не наглядно и получается куча, но надо. Попросили сделать! Помогите разобраться и построить на подобии как на рисунке. Заранее благодарю! Alex_ST>> Re: Формулы в макрос 2011-05-23 16:37 http://forum.msexcel.ru/profiles/alexst-u65623.html MsgBox ActiveCell.Formula вернёт формулу по-английски MsgBox ActiveCell.Formulalocal вернёт формулу по-русски Или чтобы удобнее было вставлять в код ВБА, можно так: Код: Sub GetFormula_For_VBA() ' скопировать в буфер обмена формулу из ActiveCell, готовую для вставки в код VBA
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText ActiveCell.Formula : .PutInClipboard End With End Sub Alex_ST>> Re: Формулы в макрос 2011-05-23 16:43 http://forum.msexcel.ru/profiles/alexst-u65623.html Ещё проще можно, оказывается... Код: Sub FormulaVBA() ' получить из активной ячейки формулу листа для вставки в код
Dim FormulaVB FormulaVB = InputBox("Formula", "", ActiveCell.Formula) FormulaVB = InputBox("FormulaLocal", "", ActiveCell.FormulaLocal) End Sub MCH>> Re: Построение графиков с 3 осями Y 2011-05-23 16:51 http://forum.msexcel.ru/profiles/mch-u48782.html Типа такого, реально используется одна ось, остальное имитация ges>> Re: Формулы в макрос 2011-05-23 16:54 http://forum.msexcel.ru/profiles/ges-u16734.html Спасибо Mobsman>> Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 18:09 http://forum.msexcel.ru/profiles/mobsman-u86271.html подскажите как реализовать расчет. Пытался делать с формулой суммесли не получается. Нужно чтобы на листе 2 в столбике ком. ставилось число дней из списка командировок(лист командировки) соответствующего месяца который стоит напротив стоба ком. Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 18:20 http://forum.msexcel.ru/profiles/serge_007-u25260.html Код: =СУММПРОИЗВ(--(МЕСЯЦ('Праздники. Командировки.Отпуска'!$D$2:$D$25)=МЕСЯЦ(S12))) Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 18:24 http://forum.msexcel.ru/profiles/mobsman-u86271.html спасибо большое Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 18:36 http://forum.msexcel.ru/profiles/mobsman-u86271.html Код: =СУММПРОИЗВ(--(МЕСЯЦ('Праздники. Командировки.Отпуска'!$D$2:$D$25)=МЕСЯЦ(S12))) Только когда делаю тоже самое в столбце с отп. вместо 10 дней отпуска в октябре ставиться 9? 
Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 18:38 http://forum.msexcel.ru/profiles/mobsman-u86271.html Код: =СУММПРОИЗВ(--(МЕСЯЦ('Праздники. Командировки.Отпуска'!$D$2:$D$25)=МЕСЯЦ(S12))) Только когда делаю тоже самое в столбце с отп. вместо 10 дней отпуска в октябре ставиться 9? Простите за тупость разобрался 
Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 19:25 http://forum.msexcel.ru/profiles/mobsman-u86271.html еще такой вопрос как сделать чтоб в ячейке ВТ16 (рядом с 249 днями, правый угол листа) получилось выражение= 249 дней -(те командировки которые попадают в рабочий день) Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 19:40 http://forum.msexcel.ru/profiles/serge_007-u25260.html ...как сделать чтоб в ячейке ВТ16 (рядом с 249 днями, правый угол листа) получилось выражение= 249 дней У Вас в файле нет числа 249, а ячейка ВТ16 объединена в группе BO16:СА16.Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-23 20:05 http://forum.msexcel.ru/profiles/mobsman-u86271.html ...как сделать чтоб в ячейке ВТ16 (рядом с 249 днями, правый угол листа) получилось выражение= 249 дней У Вас в файле нет числа 249, а ячейка ВТ16 объединена в группе BO16:СА16.ExDD>> Re: Напоминание в EXCEL 2011-05-23 21:55 http://forum.msexcel.ru/profiles/exdd-u86292.html Подскажите пожалуйста. Я в ВБА не в зуб ногой, но очень надо сделать нечто подобное вашей напоминалке в Экселе. Есть даты в столбце A, кроме того номера договора (B), фамилия исполнителя (С), регион и телефон контакта(D). Пытаюсь писать код как у вас, но после открытия файла, выдаётся только пустое окошко. В каких-то командах начал разбираться, но глубоко вникнуть не получается. Получается вывести только значение одной ячейки с помощью offset, а уже более сложное - не осиливаю. Мне хотелось бы, чтобы окошко выдавало все данные из строк с совпадающим значением даты. То есть: 25.05.2011 №... ФИО исполнителя и телефон. И так все совпадающие. В идеале бы ещё и на ближайшие пару дней. Надеюсь ветка ещё жива и помощь придёт) Заранее спасибо. [code] Private Sub Workbook_Open() msgText = "" For Each i In Sheets("Лист1").[A2:A100] If InStr(2, i, Format(Now(), "dd.mm.yy")) Then If Len(msgText) > 0 Then msgText = msgText & Chr(10) msgText = msgText & Format(Now(), "dd.mm.... Julia1897>> Просьба помочь с решением простой задачи 2011-05-23 22:20 http://forum.msexcel.ru/profiles/julia1897-u86298.html Всем привет. Задали решить одну задачу по программированию в VBA. Просьба экспертов помочь. Задача очень простая: В двух массивах хранятся индивидуальные коды и фамилии читателей библиотеки(10 чел) Составте программу, которая при введенном коде выдаст на экран фамилию читателя. Огромная просьба, помогите кто-нибудь Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 00:11 http://forum.msexcel.ru/profiles/serge_007-u25260.html еще такой вопрос как сделать чтоб в ячейке ВТ16 (рядом с 249 днями, правый угол листа) получилось выражение= 249 дней -(те командировки которые попадают в рабочий день) Не совсем понял что именно надо, но тупо по тексту: Кол-во тех командировок, которые попадают на рабочий день.Код: =СУММПРОИЗВ(--ЕОШИБКА(ПОИСКПОЗ('Праздники. Командировки.Отпуска'!$D$2:$D$25;'Праздники. Командировки.Отпуска'!$A$1:$A$35;0)))
Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 08:49 http://forum.msexcel.ru/profiles/mobsman-u86271.html Неполучается. 249 дней это сумма рабочих дней по месяцам + 4 (дня работы в праздники), хотел чтобы из этих рабочих дней вычитались бы командировки , но только те которые попадали бы на рабочие дни . должно получиться 249- ( дней командировок приходяшихся на рабочие дни ( их 16))= 233 Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 09:44 http://forum.msexcel.ru/profiles/serge_007-u25260.html должно получиться 249- ( дней командировок приходяшихся на рабочие дни ( их 16))= 233 Теперь понятно. Тогда так:Код: =СУММПРОИЗВ(--(ДЕНЬНЕД('Праздники. Командировки.Отпуска'!$D$2:$D$25;2)<6))
Alex_ST>> Re: Просьба помочь с решением простой задачи 2011-05-24 09:50 http://forum.msexcel.ru/profiles/alexst-u65623.html Соблюдайте Правила форума! 1. Придумайте осмысленное название топика и переименуйте его пока Админы его не "заперли". 2. Выложите пример своих массивов. Ведь только вам ясно, что вы имеете в виду в фразе "В двух массивах хранятся" А сами массивы где и в каком виде хранятся? В оперативной памяти компа? В базе данных? На листах Excel? Поясните, какое решение вам надо: формулами или макросами? Вы пишете: "при введенном коде выдаст на экран фамилию читателя" а куда введённом-то ? В ячейку листа, в TextBox или ComboBox на листе, в TextBox или ComboBox на форме? а что значит "на экран" ? В ячейку листа, в MsgBox, в TextBox на листе, в TextBox на форме? Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:03 http://forum.msexcel.ru/profiles/mobsman-u86271.html Блин блинский. Сидел все подгонял, а теперь года меняю месяц с мая на другой все сбивается везде решеточки Alex_ST>> Re: Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-24 10:05 http://forum.msexcel.ru/profiles/alexst-u65623.html machodg, зачем вы одинаковые топики заводите в разных ветках одного и того же форума? Я вчера предлагал вам путь решения в ветке Microsoft Excel в топике Как вернуть ячейке прежнюю заливку при щелчке... Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:16 http://forum.msexcel.ru/profiles/serge_007-u25260.html теперь года меняю месяц с мая на другой все сбивается везде решеточки. Где? В приложенном файле Зайнутдинов.xls всё работает нормально.Выкладывайте файл с ошибками. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:18 http://forum.msexcel.ru/profiles/mobsman-u86271.html Меняю месяц выделенный желтым в левом углу, на июнь половина листа в решетках ##### Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:26 http://forum.msexcel.ru/profiles/serge_007-u25260.html Меняю месяц выделенный желтым в левом углу, на июнь половина листа в решетках ##### Повторяю: Всё работает.
Oleg X>> Re: Построение графиков с 3 осями Y 2011-05-24 10:28 http://forum.msexcel.ru/profiles/gacol-u3251.html здОрово! Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:31 http://forum.msexcel.ru/profiles/mobsman-u86271.html Может у меня в экселе замута какая ни будь, просто когда меняю месяц с мая на июнь у меня решетки, написано имя? Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:35 http://forum.msexcel.ru/profiles/serge_007-u25260.html А как меняете? Может Вы текстом пишите "Июнь 2011"? Тогда естественно будет значение ошибки. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:38 http://forum.msexcel.ru/profiles/mobsman-u86271.html А как меняете? Может Вы текстом пишите "Июнь 2011"? Тогда естественно будет значение ошибки. нет я уж не дебил до такой степени. Меняю 30.05.2011 на 30.06.2011
Alex_ST>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 10:40 http://forum.msexcel.ru/profiles/alexst-u65623.html поставьте форматы ячеек, где пишутся месяцы "Автоподбор ширины" или увеличьте ширину ячеек и не будет у вас никаких решёточек! semenko_ov>> Re: Построение графиков с 3 осями Y 2011-05-24 10:41 http://forum.msexcel.ru/profiles/semenkoov-u86256.html Можно строить с двумя осями Y, знаю с тремя с дополнительным инструментом, но не могу найти бесплатно. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:01 http://forum.msexcel.ru/profiles/mobsman-u86271.html да не в ширине дело, глюк какойто, с именем Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:23 http://forum.msexcel.ru/profiles/mobsman-u86271.html вРОДЕ ТИПА ИСПРАВИЛ, поставил перед дапазонами знак $ $A12:$А66 Alex_ST>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:26 http://forum.msexcel.ru/profiles/alexst-u65623.html Привет, Серёга! На этом сайте, к сожалению, трудно общаться - постоянно "превышена допустимая нагрузка на сервер" Mobsman, так ведь самое главное, как видно из вашего скриншота, не решётки, а "#ИМЯ?". Это значит, что в формуле какая-то из введённых функций листа не опознаётся Ёкселем. Скорее всего это из-за ЧИСТРАБДНИ. Она, кажется, входит в пакет анализа, который грузится как надстройка. Попробуйте отключить пакет анализа и закрыть Ёксель. А потом открыть и подключить снова. Oleg X>> Re: Построение графиков с 3 осями Y 2011-05-24 11:36 http://forum.msexcel.ru/profiles/gacol-u3251.html MCH а как в подписи(метки оси Y) ты вставил "Подписи" а не значения Y ? PS я в твоем графике и ось Х сымитировал, чтоб убрать минусы Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:39 http://forum.msexcel.ru/profiles/mobsman-u86271.html Нет пакет анализ у меня не включен, и не был включен Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:43 http://forum.msexcel.ru/profiles/serge_007-u25260.html Скорее всего это из-за ЧИСТРАБДНИ. Она, кажется, входит в пакет анализа, который грузится как надстройка. Входила До 2007.У ТС xlsx - там она по умолчанию. К тому же не во всех ячейках с ней ошибка. Выкладывайте скрин, на котором будет видно какая формула в ячейке с ошибкой. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:54 http://forum.msexcel.ru/profiles/mobsman-u86271.html я уже исправил постаил для диапазона знак $ =ЧИСТРАБДНИ(S12;КОНМЕСЯЦА(S12;0);'Праздники. Командировки.Отпуска'!$A1:$A35) =КОНМЕСЯЦА(S12;0)-S12+1-СУММ($M12:$R12) =ЕСЛИ(M12+P12=0;29,4;(29,4/(КОНМЕСЯЦА($AW17;0)-$AW17+1))*A12) Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 11:57 http://forum.msexcel.ru/profiles/serge_007-u25260.html я уже исправил постаил для диапазона знак $ Это на работу формул никак не влияет. Причина в другом. machodg>> Re: Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-24 13:06 http://forum.msexcel.ru/profiles/machodg-u16265.html Спасибо Я несколько модернизировал код, исходя из того, что нет необходимости обесцвечивать весь столбец. Тогда отпадает надобность запоминать все цвета в столбце. Все получается как мне надо, но без MSGBOX ничего придумать не смог. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target(1).Value = 0 Or Target(1).Column <> 6 Then Exit Sub Else Application.ScreenUpdating = False 'Sheets(1).Columns(6).Interior.ColorIndex = 0 Col = Target(1).Interior.ColorIndex 'сохранили цвет исходной ячейки R = Target(1).Row 'сохранили строку исходной ячейки Target(1).Interior.ColorIndex = 8 'подсветка исходной ячейки Cells(2, 3) = Target(1).Offset(0, -1) Application.ScreenUpdating = True MsgBox ("OK") Cells(R, 6).Interior.ColorIndex = Col 'возвращение ячейки к исходному цвету End Sub Можно ли обойтись без этого прерывания и как? Еще раз спасибо Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 13:34 http://forum.msexcel.ru/profiles/mobsman-u86271.html Я незнаю, что это за проблема сам не разберусь, все что я сделал добавил $ все работает в 2007 офисе но не работает в 2003, что за тупняк я не понимаю. Oleg X>> Re: Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-24 14:05 http://forum.msexcel.ru/profiles/gacol-u3251.html можно сохранять начальные параметры ячейки, например в ячейках A1,A2,A3 а потом их восстанавливать (если явно на листе сохранять нельзя, мохно сохранять в примечании) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = 0 Or ActiveCell.Column <> 6 Then Exit Sub Else c = ActiveCell.Interior.ColorIndex i = ActiveCell.Row j = ActiveCell.Column ActiveCell.Interior.ColorIndex = 8 Cells(2, 3) = ActiveCell.Offset(0, -1) If [A2] > 0 Then Cells([A2], [A3]).Interior.ColorIndex = [A1] [A1] = c [A2] = i [A3] = j End Sub Alex_ST>> Re: Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-24 14:23 http://forum.msexcel.ru/profiles/alexst-u65623.html Переменные для хранения значений номера строки и цвета нужно определить через dim в декларациях модуля, а не в процедуре. Иначе их значение потеряться может. А зачем у вас там вообще этот MsgBox стоит? Если не нужен, так и уберите его. Примерно так выглядеть должно: Код: Option Explicit проверил. работает.Dim PrewColor, PrewRow As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target(1).Value = 0 Or Target(1).Column <> 6 Then Exit Sub Else Application.EnableEvents = False If PrewRow > 0 Then Cells(PrewRow, 6).Interior.ColorIndex = PrewColor 'возвращение ПРЕДЫДУЩЕЙ ячейки к исходному цвету PrewColor = Target(1).Interior.ColorIndex 'сохранили цвет НОВОЙ ячейки PrewRow = Target(1).Row 'сохранили строку НОВОЙ ячейки Target(1).Interior.ColorIndex = 8 'подсветка НОВОЙ ячейки Cells(2, 3) = Target(1).Offset(0, -1) Application.EnableEvents = True End Sub Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 14:30 http://forum.msexcel.ru/profiles/serge_007-u25260.html Я незнаю, что это за проблема сам не разберусь, все что я сделал добавил $ все работает в 2007 офисе но не работает в 2003, что за тупняк я не понимаю. В 2003-м без подключения надстройки "Пакет анализа" работать и не будет. Алекс об этом уже писал. А для 2007-го я тоже писал: Выкладывайте скрин, на котором будет видно какая формула в ячейке с ошибкой.machodg>> Re: Как вернуть ячейке прежнюю заливку при щелчке... 2011-05-24 15:00 http://forum.msexcel.ru/profiles/machodg-u16265.html Огромное всем спасибо! Работает именно как надо. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 15:01 http://forum.msexcel.ru/profiles/mobsman-u86271.html Опять проблема. В авусте есть отпуска они показываются, в январе их нет , но показывает 7 дней. Скоро начну пить водку  Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 17:21 http://forum.msexcel.ru/profiles/serge_007-u25260.html Ни в январе 2010, ни в 2011 отпусков нет. Где Вы их нашли? ЗЫ Я понял почему у Вас не работали формулы. Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 18:14 http://forum.msexcel.ru/profiles/mobsman-u86271.html почему не работали? Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-24 23:27 http://forum.msexcel.ru/profiles/serge_007-u25260.html Знак $ означает абсолютную ссылку. Но ссылка состоит из двух частей: номера строки и номера(буквы) столбца. Вы сделали абсолютной ссылку на столбец, но не на строку, поэтому при протягивании формул ПО СТРОКАМ возвращалось значение ошибки. Естественно наличие $ в формулах, которые не протягивались, никакой роли не играло, а вот в остальных... Mobsman>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-25 10:02 http://forum.msexcel.ru/profiles/mobsman-u86271.html Так я же писал что исправил, поставил $. вы сказали что на формулы это не влияеет. Как изначально задать абсолютную ссылку на диапазон с запасом, чтобы просто вводить даты, и протягивать без $. iron priest>> если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 10:28 http://forum.msexcel.ru/profiles/iron_priest-u20725.html и снова здравствуйте собственно название темы говорит о задаче предположим на листе есть формула А3=А1*А2 если в какуюто ячейку А1 или А2 вводится текстовое значения, нужно чтобы появилось окошко с сообщением об ошибке и после того как на это окошко нажать ОК, книга закроется без сохранения спасибо Andrey Lenets>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 10:53 http://forum.msexcel.ru/profiles/nitrolis-u1631.html очень радикально)) можно запретить ввод текстового значения в ячейку: данные->проверка данных->параметры-тип данных->действительное или целое тогда в ячейку нельзя будет ввести НЕЧИСЛОВОЕ значение - появится сообщение об ошибке.. можно запретить ввод нечислового значения кодом: Код: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> Range("a1").Address And Target.Address <> Range("a2").Address Then Exit Sub If IsNumeric(Target.Value) = False Then Target.Value = 0 End Sub если выполнять вашу задачу, то последнее условие в коде поменяется на: Код: If IsNumeric(Target.Value) = False Then ThisWorkbook.Close , False
Serge 007>> Re: Нужние даты из диапазоно к соответствующему месяцй 2011-05-25 11:00 http://forum.msexcel.ru/profiles/serge_007-u25260.html Так я же писал что исправил, поставил $. вы сказали что на формулы это не влияеет. Читайте мой предыдущий пост. Но теперь ВНИМАТЕЛЬНО. На всякий случай повторю: Наличие $ в формулах на их работу НЕ ВЛИЯЕТ. Если формула никуда не копируется - то наличие/отсутствие $ в ней Вы не даст НИКАКИХ изменений. Но при копировании/протягивании - неправильно закреплённый диапазон даст либо неправильный результат, либо значение ошибки.Цитировать Как изначально задать абсолютную ссылку на диапазон с запасом, чтобы просто вводить даты, и протягивать без $ Никак. Знак $ в формулах именно для того и существует, что бы задавать абсолютные ссылки на диапазон.Но можно применить именованый диапазон xls: Вставка - Имя - Присвоить xlsx: [abbr=клик правой кнопкой мыши]ПКМ[/abbr] - Присвоить имя. iron priest>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:00 http://forum.msexcel.ru/profiles/iron_priest-u20725.html та не, это так примерчик у меня есть таблица по выборке данных, которая работает при помощи макроса (код которого я не понимаю). так вот там бывает если какие то недопустимые значения вводятся вылазит ошибка в формуле и которая потом не исчезает, даже если показатели поменять на те при которых все работало вот этот код Код: Application.Goto Reference:="х"
Selection.ClearContents ActiveCell.FormulaR1C1 = "=IF(RC<R[1]C,RC+1,R[1]C)" Range("B15").Select ActiveSheet.Calculate Sheets("Upper Limit").Visible = True Sheets("Upper Limit").Select Range("E51").Select ActiveSheet.Calculate Sheets("Upper Limit").Visible = False Sheets("SampleCalc").Select ActiveSheet.Calculate Range("b16").Select iron priest>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:06 http://forum.msexcel.ru/profiles/iron_priest-u20725.html хотя вот сам файл заполняем данные Размер популяции 38 Ожидаемый уровень отклонений в популяции (EPER) 10.00% Допустимый уровень отклонений в популяции (TER) 20.00% Риск оценки риска контроля слишком низким (RACRTL) 5.00% жмем "рассчитать размер выборки" результаты Необходимый размер выборки 29 Критическое значение (максимально допустимое отклонение) 3 а если поставить например вмести 20%, 11% и опять рассчитать размер выборки, то результат вот такой Необходимый размер выборки #ЧИСЛО! Критическое значение (максимально допустимое отклонение) #ЧИСЛО! и даже если вернуть 20%, то всеравно #ЧИСЛО! либо если можно код подправить. спасибо Andrey Lenets>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:14 http://forum.msexcel.ru/profiles/nitrolis-u1631.html в книге, которую вы прикрепили, установлен ручной пересчет формул! в таких книгах после внесения всех изменений для пересчета формул нужно нажать F9! Чтобы формулы пересчитывались автоматом (как обычно) нужно зайти: параметры->Формулы->вычисления в книге->установить АВТОМАТИЧЕСКИ и сохранить книгу. либо в код добавить: Код: application.Calculation=xlCalculationAutomatic
iron priest>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:18 http://forum.msexcel.ru/profiles/iron_priest-u20725.html ну вот поставл 11%, выдало ошибку, нажал Ф9, поставил 20% рассчитал выборку, всеравно ошибка Andrey Lenets>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:26 http://forum.msexcel.ru/profiles/nitrolis-u1631.html ну вот поставл 11%, выдало ошибку, нажал Ф9, поставил 20% рассчитал выборку, всеравно ошибка у меня никаких ошибок - всё считает!iron priest>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 11:28 http://forum.msexcel.ru/profiles/iron_priest-u20725.html вместо 500 поставьте 38 Andrey Lenets>> Re: если ошибка, то выдать сообщение и после нажатия на ОК закрыть книгу без сох-ния 2011-05-25 12:08 http://forum.msexcel.ru/profiles/nitrolis-u1631.html ошибка возникает циклически - у вас все расчеты зависят от ячейки B15, и в то же время ячейка B15 зависит от результатов расчета! возникновение этой ошибки на любом этапе приводит к зацикливанию и нет возможности вернуться к нормальным вычислениям, ещё разрушается вспомогательный массив на листе Upper Limit. Нужно контролировать ячейку B15 на возникновение ошибки и в случае ошибки вносить в ячейку какое-либо числовое значение для восстановления массива на листе Upper Limit. syuedoower84>> 01 Tips for buying wedding dress in different season 2011-05-25 12:18 http://forum.msexcel.ru/profiles/syuedoower84-u86505.html 01 Tips for buying wedding dress in different season Into the spring, flowers bloom, you can choose the color of the evening gowns wedding a lot, the green is the most commonly used, choose green as the background jumping, and then decorated with flowers as the main theme of the wedding scene, while the bride’s makeup also feminine-based in the choice of cheap wedding dresses can also be tender and beautiful colors and lively attention. However, whether stimulation or spring pollen-sensitive, easily trigger spring is a season for sensitive skin, so choose the bride to marry in spring should always pay attention, especially sensitive skin, opt for natural skin care products of plants, such as those containing Seaweed Ling, licorice, lavender or aloe vera skin care products usually have anti-allergic effect. The main summer wedding cool Although few people to set a good day in the hot summer months, but th... На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel. Добро пожаловать на форум! |
| В избранное | ||
