Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

edmar07>> Re: увеличение


Профессиональные приемы работы в Microsoft Excel

Выпуск 13
от 2013-04-12

Подписчиков: 5892

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"



edmar07>> Re: увеличение
2013-04-04 13:34 http://forum.msexcel.ru/index.php?action=profile;u=

Цитировать
Примечание у Вас не показывается, потому что Вы курсор наводите на рисунок, а не на ячейку. Т.е. рисунок перехватывает позицию курсора.

в том-то и прикол!!! что в примере рисунок не перехватывает и все работает!!!!
а у меня, после вставки, как раз рисунок и перехватывает(((( а почему????

а еще заметил, что при нажатии правой мыши вываливаются разные меню хотя рисунок один и тот же!!!!!! тут я ваааще ничего не пойму!?!?!?

скрины скинул, може кто пояснит в чет дело?

Serge 007>> Re: увеличение
2013-04-04 13:49 http://forum.msexcel.ru/index.php?action=profile;u=
как примечания вставить во все ячейки? ну точно ж не вручную ...
Можно так (примечания добавятся в диапазон А1:А15):
Sub Comm()
 For Com = 1 To 15
  Range("A" & Com).AddComment
  Range("A" & Com).Comment.Text Text:=" Текст примечания № " & Com
 Next
End Sub


Олег*>> Как спрятать код макроса от редактирования пользователем?
2013-04-04 13:54 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день!

Возникло желание поделиться книгой с макросом со своим приятелем, но в то же время не хочется, чтобы у него была возможность просматривать/изменять код макроса, поскольку он в этом все равно ничего не понимает. Можно ли это сделать?

Правильно я понимаю, что "обычными" средствами это недостижимо и надо будет как-то "колдовать" с созданием надстроек, чтобы обеспечить такую скрытность?

У меня Excel 2010, а у приятеля Excel 2003.

Serge 007>> Re: Копирование формулы
2013-04-04 14:02 http://forum.msexcel.ru/index.php?action=profile;u=
В листе1 в ячейке А2 формула А2=A1+Лист2!A1. Как мне сделать, чтобы при копировании этой формулы в ячейку А3 у меня получалась формула следующего типа А3=A2+Лист2!A3, в ячейку А4 получалось А4=A2+Лист2!A4?
Только вручную. Никакой логики в, которую можно выразить формулами, в подобных преобразованиях нет

Serge 007>> Re: Как спрятать код макроса от пользователя?
2013-04-04 14:05 http://forum.msexcel.ru/index.php?action=profile;u=
Поставьте пароль на проект. Это самое простое, удобное и надёжное решение.
Или скомпилируйте проект в DLL-ку, если знаете как это сделать.
Все остальные решения - так или иначе, это костыли

_Boroda_>> Re: Как спрятать код макроса от пользователя?
2013-04-04 14:11 http://forum.msexcel.ru/index.php?action=profile;u=
В Ecxel жмем Alt+F11 - вылезаем в VBA
там жмем Ctrl+R - вылезаем в окно проектов (если оно уже открыто, то этот шаг можно пропустить)
там жмем [abbr=клик правой кнопкой мыши]ПКМ[/abbr] в любом месте внутри нужного проекта, выбираем ВБАПроджектПроперти...
Поскольку вражеский Вы знаете, дальше разберетесь (там 2 вкладки)

edmar07>> Re: увеличение
2013-04-04 14:15 http://forum.msexcel.ru/index.php?action=profile;u=

Можно так (примечания добавятся в диапазон А1:А15):

Спасибо, Сергей!! с примечаниями разобрался, не могу поменять цвет фона примечания (их у меня аж 1700)
понимаю что там 3 строчки но не спец в этом(((

Олег*>> Re: Как спрятать код макроса от пользователя?
2013-04-04 14:19 http://forum.msexcel.ru/index.php?action=profile;u=
Serge 007 и _Boroda_
Спасибо за супер-оперативную подсказку, сейчас буду разбираться.
О результатах обязательно отпишусь.

Олег*>> Re: Как спрятать код макроса от пользователя?
2013-04-04 14:46 http://forum.msexcel.ru/index.php?action=profile;u=
Все, спасибо! Разобрался, проверил, работает!!!

В Ecxel жмем Alt+F11 - вылезаем в VBA
там жмем Ctrl+R - вылезаем в окно проектов
там жмем [abbr=клик правой кнопкой мыши]ПКМ[/abbr] в любом месте внутри нужного проекта, выбираем ВБАПроджектПроперти...
Поскольку Вражеский Вы знаете, дальше разберетесь (там 2 вкладки)
А я туда еще перед открытием этой ветки заглядывал и даже галку ставил, и даже пароль вводил, но почему-то не срабатывало. Наверно, это потому что я открытый файл, сохранил под другим именем (чтобы не портить оригинал), а потом оказалось, что запаролил не тот (из этих двух) который хотел. В результате получилось, что мог открывать и просматривать код макросов безо всяких паролей.
Тогда я решил, что такой возможности просто не существует, поскольку если бы была такая простая возможность, то я бы о ней обязательно знал :)  Короче говоря,  такая ущербная ло...

nick79087>> Re: удалить несколько разных данных из ячейки
2013-04-04 14:55 http://forum.msexcel.ru/index.php?action=profile;u=
наверное не совсем правильно сформулировал. нужно чтобы одна формула убирала из ячейки одновременно и пробелы, и какие-то текстовые значения.
я так понял - формула =ПОДСТАВИТЬ(ПСТР(A1;1;ПРОСМОТР(10;-ПСТР(A1;СТРОКА(1:99);1);СТРОКА(1:99)));" ";) убирает все то, что внесено в кавычках. тогда намного проще мой вариант: ПОДСТАВИТЬ(A1;" ";"")

_Boroda_>> Re: Как спрятать код макроса от пользователя?
2013-04-04 15:08 http://forum.msexcel.ru/index.php?action=profile;u=
Только учтите, что все это (пароль на VBA) вскрывается элементарно. Просто вручную, не говоря даже о спецпрограммах-вскрывашках.
Кстати, про это в правилах форума написано: "Запрещается обсуждение способов взлома защиты программ и файлов".
 
А надстройку можно сделать и видимой, и невидимой. По желанию.

cheshiki1>> Re: удалить несколько разных данных из ячейки
2013-04-04 15:10 http://forum.msexcel.ru/index.php?action=profile;u=
не правильно поняли.
Формула отсекает последние буквы и в полученном результате убирает пробелы. Если буквы кроме "Х" будут в середине то данная формула не будет верно работать.

Serge 007>> Re: Как спрятать код макроса от пользователя?
2013-04-04 15:27 http://forum.msexcel.ru/index.php?action=profile;u=
...пароль на VBA вскрывается элементарно...
Саш, ты что-то путаешь
Пароль на проект - это достаточно серьёзная защита, со сложным хэш-шифрованием. В отличие от паролей листов и книги Excel, вскрыть или подобрать пароль на проект VBA обычному юзеру на порядок сложней, а иногда и вообще невозможно, особенно если он не является специалистом в области хакерства :)

Олег*>> Re: Как спрятать код макроса от пользователя?
2013-04-04 15:50 http://forum.msexcel.ru/index.php?action=profile;u=
Только учтите, что все это (пароль на VBA) вскрывается элементарно. Просто вручную, не говоря даже о спецпрограммах-вскрывашках.
Кстати, про это в правилах форума написано: "Запрещается обсуждение способов взлома защиты программ и файлов".
Да какие там спецпрограммы :) Он (мой приятель) не знает даже, как в редактор VBA в Экселе перейти, а, скорее всего, даже не подозревает, что в Экселе вообще можно программировать как-то. Это я просто страхуюсь от того, чтобы он как-нибудь туда случайно все-таки не залез, что-нибудь там не испортил, а потом мне претензии не предъявлял, дескать, не работает твоя разработка.
А так я хоть буду наверняка знать, что он туда не лазил, ничего там не менял, и я могу в случае каких-нибудь проблем исходить из того, что там все осталось в том состоянии, в котором я ему все это дело вручил :)
 
А надстройку...


nick79087>> Re: удалить несколько разных данных из ячейки
2013-04-04 19:08 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо за разъяснение. как раз-таки буквы в середине тоже встречаются, поэтому предложенная формула только и делает то, что убирает пробелы.
есть ли какая-то возможность сделать в одной формуле обработку с помощью функции ПОДСТАВИТЬ по нескольким значениям?

Evgen_Tim>> Re: Подключение к базе данных (Орокл)
2013-04-04 19:53 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый вечер!  Высылаю листинг программы. Не смогли бы посмотреть?

Allaire>> Заполнение воркшита из xml файла
2013-04-04 21:24 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день коллеги.
У меня вопрос к вам по поводу заполнения столбцов екселя значениями из xml файла. Трудность в том, что я не знаю где можно обойтись стандартными средствами, а где нужно кодить, да и задачка не из легких. В приложенном ексель файле имеется колонка Е (значения тэгов xml файла), и в столбцы J и K заносятся значения из связанных тегов. Т.е. нужно брать из екселя значение тэга (колонка Е), искать по нему соответствие в xml файле (xml_src.xml), к примеру как в строке 18 в ексель файле (тут заполнено вручную для примера), брать значение тэга Nm (<Name>Nm</Name>), и далее нужно найти два других связанных тэга (они являются складовой частью структуры <Element>): <TableName> и <FieldName> из них вытащить значения и внести в таблицу (ячейки J18 и K18), т.е. это будут FPAYHX и NAMEZ соответственно, как показано в екселе. Плохая штука в том, что значения тегов, по которым нужно искать связь повторяются (я не xml гуру, поэтому сложно сказать является ли это проблемой) и сам ф...

Poltava>> Re: удалить несколько разных данных из ячейки
2013-04-04 21:45 http://forum.msexcel.ru/index.php?action=profile;u=
Извените за глупое предположение но почему нельзя вот так
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СТРОЧН(ПОДСТАВИТЬ(C4;" ";""));"мм";"");"mm";"")

_Boroda_>> Re: Как спрятать код макроса от редактирования пользователем?
2013-04-04 22:48 http://forum.msexcel.ru/index.php?action=profile;u=
А видимой, это как?
Да хотя бы прописать в ней Private Sub Workbook_Open()
ThisWorkbook.IsAddin = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.IsAddin = True
End Sub
Про "пугающие" окна - я своим товарищам объясняю так: если файл, который заведомо с макросом, открывается БЕЗ окна с вопросом типа "Включить макросы?" (или файл, в котором макросов быть не должно, задает такой вопрос), тогда срочно звони мне, ничего больше не нажимай и вообще что-то не то творится у тебя. Т.е., появление такого окна показывает, что все в порядке. И один раз нажать на кнопку, соглашаясь с работой макросов, это не только не должно быть в лом, а наоборот, прививает человеку очень полезную привычку внимательно за этим следить. Кстати, из этой же серии - про низкий уровень безопасности - абсолютно согласен.
Саш...


Лерик Степанова>> MS Excel линейная зависимость, равенство математических ожиданий, уравнение
2013-04-04 23:02 http://forum.msexcel.ru/index.php?action=profile;u=
Здравствуйте. Помогите пожалуйста с решением задач в MS Excel на определение линейной зависимости, гипотезе о равенстве математических ожиданий и на составление уравнения зависимости с проверкой его адекватности. Прошу пожалуйста помогите. Заранее спасибо. :'(

NooBasTiK>> Re: MS Excel линейная зависимость, равенство математических ожиданий, уравнение
2013-04-05 10:54 http://forum.msexcel.ru/index.php?action=profile;u=
Как то вот так наверное...

cheshiki1>> Re: Вывод результата
2013-04-05 11:46 http://forum.msexcel.ru/index.php?action=profile;u=
такой вариант в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr]
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
Dim List3() As String
Dim i As Long, M As Long
If Intersect(Range("B3"), Target) Is Nothing Then Exit Sub
For i = 4 To Sheets("Лист2").Cells(Rows.Count, 3).End(xlUp).Row
 If Sheets("Лист2").Range("C" & i) >= Sheets("Лист1").Range("B5").Value Then
    M = M + 1
    ReDim Preserve List3(1 To M)
    List3(M) = Sheets("Лист2").Range("C" & i).Value & ", " & Sheets("Лист2").Range("D" & i)
  End If
Next
MsgBox Join(List3, Chr(10))
End Sub


Prist>> Re: увеличение
2013-04-05 12:14 http://forum.msexcel.ru/index.php?action=profile;u=
Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.

Prist>> Re: Как спрятать код макроса от пользователя?
2013-04-05 12:48 http://forum.msexcel.ru/index.php?action=profile;u=
Пароль на проект - это достаточно серьёзная защита, со сложным хэш-шифрованием. В отличие от паролей листов и книги Excel, вскрыть или подобрать пароль на проект VBA обычному юзеру на порядок сложней, а иногда и вообще невозможно, особенно если он не является специалистом в области хакерства :)
Позволю себе не согласиться в некоторых моментах. Защита листов, книги на редактирование и проекта VBA сделаны как "защита от дурака". Ничего сложного в этой защите нет. Хэш этих паролей всего 16 бит и поэтому подобрать такой пароль не составит особого труда. Даже макросом перебора, что по времени будет не так уж много - несколько минут(в зависимости от мощности ПК). Проект VBA возможно чуть сложнее(официальных упоминаний про применяемые алгоритмы нет, но полагаю, что мало чем они не отличаются от защиты листа и книги, т.к. VBA не менялся в последнее время(после 2003 Excel) - все силы были брошены на VSTO, кото...

Лерик Степанова>> Re: MS Excel линейная зависимость, равенство математических ожиданий, уравнение
2013-04-05 13:37 http://forum.msexcel.ru/index.php?action=profile;u=
Как то вот так наверное...
Молодой человек спасибо вам больше, я очень признательна вам за помощь!! Спасибо  :)

nick79087>> Re: удалить несколько разных данных из ячейки
2013-04-05 13:53 http://forum.msexcel.ru/index.php?action=profile;u=
Poltava, спасибо - это именно то, что я просил. просто завтык был, неправильно саму формулу строил, но по Вашему примеру все стало ясно. Еще раз - огромное спасибо!

Лерик Степанова>> Re: MS Excel линейная зависимость, равенство математических ожиданий, уравнение
2013-04-05 14:02 http://forum.msexcel.ru/index.php?action=profile;u=
Я добавила таблицы в excel, прошу если кто нибудь знает как решить оставшиеся задачи не проходите мимо  :-[
Сама пыталась их решить недели две, но я действительно не знаю как =(( 

edmar07>> Re: Вывод результата
2013-04-05 14:05 http://forum.msexcel.ru/index.php?action=profile;u=
такой вариант в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr]

Ваще бомба!!! то что нуно!!!!
спасибо!!

Олег*>> Re: Как спрятать код макроса от редактирования пользователем?
2013-04-05 14:07 http://forum.msexcel.ru/index.php?action=profile;u=
Всем большое спасибо за советы и разъяснения!

Передумал я ему эту программу отдавать :) Я ему постоянно скриншоты диаграмм по скайпу посылаю, а если у него у самого эта программа будет, которая автоматически все диаграммы строит и анализирует, то на хрена, спрашивается, ему мои скриншоты нужны будут, и что я тогда ему буду посылать? :) 

Но все равно, разговор в этой ветке был для меня очень полезен. Может быть когда-нибудь все-таки соберусь ему какие-нибудь макросы отдать, ну вот тогда оно и пригодится.




edmar07>> Re: увеличение
2013-04-05 14:12 http://forum.msexcel.ru/index.php?action=profile;u=
Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.
Пишет ошибку 438 (объект не поддерживает эти свойства или метод)
и тормозит на: 
          rCell.Comment.Shape.TextEffect = rCommentCell.Shape.TextEffect


edmar07>> Re: по вводу времени формат в СЕГОДНЯ - формат или формула?
2013-04-05 14:42 http://forum.msexcel.ru/index.php?action=profile;u=
Если Вы хотите вводить текст с произвольным разделителем, то непременным условием для этого является предварительная установка в столбцах А и В формата "Текстовый". Иначе запятая уберет 2 символа, слеш вообще поставит все нули, ну и тп

Помоги еще плиз!!!
тут нуно теперь переделать чтоб меняло не по вводу, а при выполнении по диапазонам (ну например C2:C100, L2:L100)
таблица будет заполнятся не поточно, а путем вставки целой таблицы!


Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
Dim StrVal As String
Dim dDate As Date
On Error Resume Next
   
     
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If [A1] = 1111 Then Exit Sub
Application.ScreenUpdating = 0
If Target < 1 And Target > 0 Then
    If Target.Column > 1 Then
        If Target.Offset(, -1) > Target + Date Then s_ = 1
    End If
    Target = Target + Date + s_
    Target.NumberFormat = "h:mm;@"
End If
Applicat...

Максим Хузин>> Извлечение значения из строки
2013-04-05 15:15 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день! Прошу помощи. Никак не могу решить задачу.
Есть текстовая строка с наименованием услуги и company id пользователя.
Есть список company id.

Нужно извлечь из строки, только лишь company id и записать в отдельную ячейку.

Пытался делать Поиск, потом левсим на основании аргумента от функции Поиск, но нужно чтобы ячейка в формуле Поиск инкрементировалась в случае неудачи, но я не могу так сделать.
Может есть и другой способ.
Подскажите пожалуйста. Таблица в оригинале большая очень.

Заранее спасибо.

shatoff>> Re: Суммирование по организациям
2013-04-05 16:05 http://forum.msexcel.ru/index.php?action=profile;u=
в самом макросе еще что-то нужно править?
Нет. Макрос при попытке ввода даты со временем сам "отрезает" время и оставляет только дату в формате даты
Снимите видео с экрана, тогда я скажу что Вы делаете неправильно
давно я сюда не заглядывал, работы навалилось
а можно я вам скину сам файл в котором я хочу это заставить работать? в нем может глянете что не так?

cheshiki1>> Re: Извлечение значения из строки
2013-04-05 16:06 http://forum.msexcel.ru/index.php?action=profile;u=
=ПРОСМОТР(2;1/ЕЧИСЛО(ПОИСК("*"&'Список companyId'!$A$1:$A$90&"*";Данные!B2));'Список companyId'!$A$1:$A$90)

edmar07>> Re: Вывод результата
2013-04-05 16:14 http://forum.msexcel.ru/index.php?action=profile;u=
такой вариант в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr]
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
Dim List3() As String
Dim i As Long, M As Long
If Intersect(Range("B3"), Target) Is Nothing Then Exit Sub
For i = 4 To Sheets("Лист2").Cells(Rows.Count, 3).End(xlUp).Row
 If Sheets("Лист2").Range("C" & i) >= Sheets("Лист1").Range("B5").Value Then
    M = M + 1
    ReDim Preserve List3(1 To M)
    List3(M) = Sheets("Лист2").Range("C" & i).Value & ", " & Sheets("Лист2").Range("D" & i)
  End If
Next
MsgBox Join(List3, Chr(10))
End Sub

Туго у меня с мат частью,

как тоже самое к нужному диапазону применить?

Максим Хузин>> Re: Извлечение значения из строки
2013-04-05 16:52 http://forum.msexcel.ru/index.php?action=profile;u=
Огромное Вам спасибо!
Даже не представляете как помогли!

Все отлично работает.

cheshiki1>> Re: Вывод результата
2013-04-05 17:13 http://forum.msexcel.ru/index.php?action=profile;u=
[code]Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
Dim List3() As String
Dim i As Long, M As Long
If Intersect(Range("B3"), Target) Is Nothing Then
  If Intersect(Range("B13:E13"), Target) Is Nothing Then Exit Sub
     For i = 4 To Sheets("Лист2").Cells(Rows.Count, 3).End(xlUp).Row
       If Sheets("Лист2").Range("C" & i) >= Sheets("Лист1").Range("B5") _
          And Sheets("Лист2").Range("C" & i) <= Sheets("Лист1").Range("B6") _
          And ActiveCell.Cells(0, 1) = Sheets("Ëèñò2").Range("B" & i) Then
         M = M + 1
         ReDim Preserve List3(1 To M)
         List3(M) = Sheets("Лист2").Range("C" & i).Value & ", " & Sheets("Лист2").Range("D" & i)
       End If
      Next
  Else
For i = 4 To Sheets("Ëèñò2").Cells(Rows.Count, 3).End(xlUp).Row
 If Sheets("Лист2").Range("C" & i) >= Sheets("Лист1").Range("B5").Value Then
    M = M + 1
    ReDim Preserve List3(1 To M)
    List3(M) = Sheets("Лист2").Range("C" & i).Value & ", " & Sheets("Лист2").Range("D" & i)
  End...

edmar07>> Re: Вывод результата
2013-04-05 17:29 http://forum.msexcel.ru/index.php?action=profile;u=
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)

выдает синтаксическую ошибку ((
и красным строк 5 выделяет!

cheshiki1>> Re: Вывод результата
2013-04-05 17:43 http://forum.msexcel.ru/index.php?action=profile;u=
Ëèñò (абрукадабру) на Лист исправьте.

edmar07>> Re: Вывод результата
2013-04-05 17:55 http://forum.msexcel.ru/index.php?action=profile;u=
Ëèñò (абрукадабру) на Лист исправьте.

Спасибо!!! все так ка нужно!!!

и когда я поумнею ... !?!?!?

KuklP>> Re: Большой проект и его глюк
2013-04-05 19:00 http://forum.msexcel.ru/index.php?action=profile;u=
neonar, тут форум не по теплотехнике. Но не сомневайтесь, все форумчане искренне хотят помочь Вам. Просто напишите, что куда надо ввести для вызова глюка :)

tireshia>> Re: сложное экселевское задание!!на засыпку
2013-04-05 20:23 http://forum.msexcel.ru/index.php?action=profile;u=
Делается на новом листа равно переход в другой лист с указанием ячейки. Ч новом листе появляются данные из другого листа.

roma roma>> Как сделать чтобы в ячейке была прописана формула
2013-04-06 11:28 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый день
Как сделать, чтобы в ячейке была видна сама формула (например А2+А3/100), а в другой ячейке по этой формуле будет выполняться расчет.

Poltava>> Re: Суммирование по организациям
2013-04-06 13:18 http://forum.msexcel.ru/index.php?action=profile;u=
Разрешаем :)

Poltava>> Re: Как сделать чтобы в ячейке была прописана формула
2013-04-06 13:32 http://forum.msexcel.ru/index.php?action=profile;u=
в екселе есть функция отобразить формулы но она отобразит ВСЕ формулы. По другому могу предложить только макросом к примеру вот таким простейшим
Function TextFomul(rCell) As String
    TextFomul = rCell.Formula
End Function
PS: Ув. roma roma с чего вы взяли, что ваша тема, имеет хоть какое то отношение к техническим вопросам работы сайта?

Poltava>> Перенесено: Как сделать чтобы в ячейке была прописана формула
2013-04-06 13:35 http://forum.msexcel.ru/index.php?action=profile;u=
Тема перенесена в Microsoft Excel.

http://forum.msexcel.ru/index.php?topic=9238.0

cheshiki1>> Re: Как сделать чтобы в ячейке была прописана формула
2013-04-06 13:52 http://forum.msexcel.ru/index.php?action=profile;u=
можно с помощью макрофункции
=ПОЛУЧИТЬ.ЯЧЕЙКУ(6;Лист1!$A$2)данная формула работает только как формула Имени.


Serge 007>> Re: Как сделать чтобы в ячейке была прописана формула
2013-04-06 16:37 http://forum.msexcel.ru/index.php?action=profile;u=
В 2013 Excel это реализовано штатно, функцией листа категории "Текстовые" Ф.ТЕКСТ()

neonar>> Re: Большой проект и его глюк
2013-04-06 19:44 http://forum.msexcel.ru/index.php?action=profile;u=
Думаю, что вряд ли кто-то поможет, пскольку код очень путанный  :'( :)
Для вызова глюка нужно:
окрыть файл с тестом --> на листе Параметры расчета кликнуть по галке Режим исходных данных ---> удалить данные только из ячеек (39,7) (40,7) ---> нажать на кнопку Расчет теплоптерь ---> далее будут вылетать сообщения (после большого первого) с тремя цифрами 3,8 7,83 7,7. Первая цифра - толщина изоляции, вторая а21, третья а22. Нужно обратить внимание на 2 из них: первое: 4,1 7,62 7,6. и второе 4,1 0 0. Ошибка в том, что на самом деле они должны быть одинаковыми, потому что при толщине изоляции 4,1 а21 и а21 должны быть равны, потому что алгоритм расчета один и тот же! Такая вот шизофрения!
Верная комбинация: 4,1 7,62 7,6. Задача в том, чтобы первое и второе были идентичны.  :)

Ppaa>> Подсчет по сложному условию
2013-04-07 01:52 http://forum.msexcel.ru/index.php?action=profile;u=
Имеется пример столбцов с датами и временем.

Нужно подсчитать количество заданий, для которых поле «Запрошенное время дня для визита» пусто и время от значения поля «Дата создания задания» до минимального из значений полей «Время закрытия наряда» и «Дата первой авторизации» превышает для «ГТС» 48 часов, для «СТС» 120 часов.

У меня пока получилось сделать это только через добавление дополнительного расчетного столбца. (см. вложение) Можно ли все значения указать непосредственно в формуле?

Заранее благодарен.

DV68>> Re: Подсчет по сложному условию
2013-04-07 04:39 http://forum.msexcel.ru/index.php?action=profile;u=
1. Ваша формула считает неправильно, т.к.
сутки = 1, соответственно 48 часов в Excel = 2, а 120 часов = 5.
т.е. должно быть ">2" и ">5" соответственно
2. Формула такая:
=СУММПРОИЗВ((D2:D5000="")*(ABS(B2:B5000-ЕСЛИ(Ч(C2:C5000)<Ч(E2:E5000);C2:C5000;E2:E5000))>ЕСЛИ(A2:A5000="ГТС";2;5)))

Hugo121>> Re: Извлечение значения из строки
2013-04-07 13:35 http://forum.msexcel.ru/index.php?action=profile;u=
Я бы не сказал, что отлично.
Представим, что в списке есть O224, и этот номер находится после O2248, или он такой вообще один.
Или вообще в конце списка забито O2...
Пробелов не хватает:
=ПРОСМОТР(2;1/ЕЧИСЛО(ПОИСК("*"&" "&'Список companyId'!$A$1:$A$90&" "&"*";Данные!B2));'Список companyId'!$A$1:$A$90)

Serge 007>> Re: Извлечение значения из строки
2013-04-07 13:58 http://forum.msexcel.ru/index.php?action=profile;u=
Игорь, ты ли это?!  ;D
Что б уж совсем правильно, можно так ([abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]):
=ИНДЕКС('Список companyId'!A$1:A$90;МИН(ЕСЛИ(ЕЧИСЛО(ПОИСК('Список companyId'!A$1:A$90;B2));СТРОКА($1:$90))))

Hugo121>> Re: Извлечение значения из строки
2013-04-07 14:25 http://forum.msexcel.ru/index.php?action=profile;u=
Я :)
Сергей, а где пробелы? Тест на O2 твой вариант тоже не проходит - но теперь O2 не нравится в начале списка.
И кроме того, там в критериях есть лишние пробелы, например у M33306. Вроде не мешает, но результаты по этой позиции разные.

DV68>> Re: Извлечение значения из строки
2013-04-07 14:31 http://forum.msexcel.ru/index.php?action=profile;u=
Зачем медленный ПРОСМОТР грузить делением без необходимости?
Причесал:
=ПРОСМОТР(999;ПОИСК(" "&'Список companyId'!A$1:A$90&" ";B10);'Список companyId'!A$1:A$90)
M33306 в критериях 2 шт - один с пробелом, другой без.

sync1>> фильтр из БД с условием
2013-04-07 15:16 http://forum.msexcel.ru/index.php?action=profile;u=
Имеется простая таблица: 1 столбик, в каждой ячейке 1 слово (1 -а, 2 - б, 3 -в), 2 столбик - просто инфа. Что нужно, копируем в 1 ячейку данные в формате а,в,д и показывает выборку из таблицы а, в, д строки



Serge 007>> Re: фильтр из БД с условием
2013-04-07 15:18 http://forum.msexcel.ru/index.php?action=profile;u=
Используйте либо сводную, либо фильтр

Ppaa>> Re: Подсчет по сложному условию
2013-04-08 08:53 http://forum.msexcel.ru/index.php?action=profile;u=
=СЧЁТЕСЛИМН(D:D;"";A:A;"ГТС";G:G;">48")+СЧЁТЕСЛИМН(D:D;"";A:A;"СТС";G:G;">120")
Ну почему же неправильно, результат вычислений тот же - 11. и если в вашей формуле сменить 2 и 5 на 48 и 120, то результат получается тот же.
Но все равно спасибо!



zs>> Re: Какой формулой из ячейки А1 скопировать первых три слова?
2013-04-08 10:27 http://forum.msexcel.ru/index.php?action=profile;u=
=ЕСЛИ(ЕОШ(НАЙТИ(",";ЛЕВСИМВ(C4;НАЙТИ(4;ПОДСТАВИТЬ(C4;" ";4;3)))));ЛЕВСИМВ(C4;НАЙТИ(4;ПОДСТАВИТЬ(C4;" ";4;3)));ЛЕВСИМВ(C3;НАЙТИ(",";C3)-1)) Формула на 4 ;)

shatoff>> Re: Суммирование по организациям
2013-04-08 11:04 http://forum.msexcel.ru/index.php?action=profile;u=
Разрешаем :)
Вот пример файла, в него вставляются данные с сайта в ячейки "A:I", в столбец "B" вставляется дата со временем (как пример 4 последние строчки), по этому столбцу я хотел сделать автозамену " ??:??:??" на пустое значение, чтобы у пользователя при вставке данных с сайта время само отсекалось.

Serge 007>> Re: Суммирование по организациям
2013-04-08 12:13 http://forum.msexcel.ru/index.php?action=profile;u=
В макросе ничего не менял, поправил только диапазон, согласно файлу (b2:b20)
Всё работает как и раньше, правильно

DV68>> Re: Подсчет по сложному условию
2013-04-08 13:12 http://forum.msexcel.ru/index.php?action=profile;u=
Хозяин-барин
Вообще-то моя формула в Н5 выдает 12, т.к. считает ячейку G14. Вам 48 часов или 48 дней надо??

Наталя Священко>> Re: Как заменить идентификаторы реальными названиями?
2013-04-08 16:29 http://forum.msexcel.ru/index.php?action=profile;u=
Извините, первый раз на этом форуме.
Вот файл с примером.
Нужно на листе 1 заменить данные колонки ID именами с листа 2 которые соответствуют этим ID.

cheshiki1>> Re: Как заменить идентификаторы реальными названиями?
2013-04-08 16:38 http://forum.msexcel.ru/index.php?action=profile;u=
если заменить то макросом.
если без замены в отдельном столбце то вариант:  в F2 вставляем и растягиваем.
=ВПР(A2;Лист2!$A$1:$B$5;2;0)

Евгений Терехов>> Re: Каталог сайтов по excel. Добавляйте!
2013-04-08 19:25 http://forum.msexcel.ru/index.php?action=profile;u=
Блог "Excel для экономиста" - http://allexcel.info

Наталя Священко>> Re: Как заменить идентификаторы реальными названиями?
2013-04-08 19:33 http://forum.msexcel.ru/index.php?action=profile;u=
Спасибо, помогли. Воспользовалась вторым способом.

RAN>> Re: увеличение
2013-04-09 10:17 http://forum.msexcel.ru/index.php?action=profile;u=
Лупа


Денис Бухаров>> Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-09 15:32 http://forum.msexcel.ru/index.php?action=profile;u=
Доброго времени суток.
Подскажите пожалуйста, как решить задачку: Есть прайс на 9000+ позиций одним листом xls, состав таблицы по столбцам примерно такой: (А-артикул;B-описание;C-Брэнд;D-остаток;E-цена) В прайсе есть куча одинаковых позиций по артикулу, но разных по цене (брак, уценка и т.д.). Надо найти дубли по артикулу, потом сравнить цены и удалить строки содержащие меньшие цены в рамках одного артикула.

cheshiki1>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-09 16:54 http://forum.msexcel.ru/index.php?action=profile;u=
можно сделать макросом но для этого нужен ваш файл-пример.

edmar07>> Re: увеличение
2013-04-09 18:26 http://forum.msexcel.ru/index.php?action=profile;u=
Лупа
спасибо! не очень подходит

edmar07>> Подстановка даты
2013-04-09 20:58 http://forum.msexcel.ru/index.php?action=profile;u=
Добрый вечер

помогите с макросом

нужно в ячейки с форматом времени подставить дату указанную в ячейке В1

файл прилагаю, там есть макрос который это делает по вводу в каждую ячейку (спасибо _Boroda_)
вот хотелось бы по его примеру
- если в ячейке слева время больше, то +1 день
- но сразу нужно учесть  для столбца В, F, J слева тоже могут быть значения (если это не учитывать, то он прибавляет день в столбец В, F, J а это не нужно)

спасибо!


Денис Бухаров>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 10:51 http://forum.msexcel.ru/index.php?action=profile;u=
Вот сам файл.

cheshiki1>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 11:24 http://forum.msexcel.ru/index.php?action=profile;u=
те которые одинаковые по артикулу и цене  - который из них удалять.

seregaad>> Re: Подсчет по сложному условию
2013-04-10 13:03 http://forum.msexcel.ru/index.php?action=profile;u=
Помогите, уже голову сломал, понимаю, что просто где-то туплю, но ни как не могу понять где...

Нужно подсчитать количество значений в столбце D, если значение в столбце C = значению в ячейке F12


Денис Бухаров>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 13:05 http://forum.msexcel.ru/index.php?action=profile;u=
Если цена одинаковая, то не важно, главное чтоб повторов вообще не было. Сам сразу не заметил, там оказывается повторы по артикул+цена встречаются:(

cheshiki1>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 15:02 http://forum.msexcel.ru/index.php?action=profile;u=
вариант:
в I2 вставляем [abbr=Вводится через Ctrl+Shift+Enter]формулу массива[/abbr]
=ЕСЛИ(И(D2=МАКС(($A$2:$A$5000=A2)*$D$2:$D$5000);СУММ(--($A$2:A2&$D$2:D2=A2&D2))=1);1;)растягиваем. Сортируем от наибольшего к наименьшему по данному столбцу.  Удаляем все со значением ноль в данном столбце.
предварительно сохраните оригинал отдельно, после процедуры на всякий случай проверьте.
можно фильтр по 0, Выделение группы ячеек - видимые. Удалить. но здесь есть пару нюансов. первый способ удаления по моему проще.
С макросом ждите появятся знатоки VBA я думаю помогут.

cheshiki1>> Re: Подсчет по сложному условию
2013-04-10 15:48 http://forum.msexcel.ru/index.php?action=profile;u=
=СУММЕСЛИ(C12:C21;F12;D12:D21)

seregaad>> Re: Подсчет по сложному условию
2013-04-10 18:01 http://forum.msexcel.ru/index.php?action=profile;u=
=СУММЕСЛИ(C12:C21;F12;D12:D21)

Будет выдавать "0" т.к. в столбце D не цифры, а текст и цифры в вперемешку.

Serge 007>> Re: Подсчет по сложному условию
2013-04-10 18:07 http://forum.msexcel.ru/index.php?action=profile;u=
А если попробовать, прежде чем писать?

edmar07>> Re: увеличение
2013-04-10 18:15 http://forum.msexcel.ru/index.php?action=profile;u=

Можно так (примечания добавятся в диапазон А1:А15):

Спасибо, Сергей!! с примечаниями разобрался, не могу поменять цвет фона примечания (их у меня аж 1700)
понимаю что там 3 строчки но не спец в этом(((

вот так у меня получилось, по аналогии можно во всех примечаниях менять ВСЕ ))))

[code] Sub ChangeCommentColor()
   ' Автоматическое изменение цвета комментариев
   Dim comment As comment
   For Each comment In ActiveSheet.Comments
      ' Задаем цвета заливки и шрифта комментариев
      comment.Shape.Fill.ForeColor.SchemeColor = Int(33)
      comment.Shape.Fill.Transparency = 0.1
      comment.Shape.TextFrame.Characters.Font.ColorIndex = Int(16)
      comment.Shape.TextFrame.Characters.Font.Size = 72
      comment.Shape.TextFrame.Characters.Font.Name = "Times New Roman"
      comment.Shape.Line.Weight = 3#
      comment....

seregaad>> Re: Подсчет по сложному условию
2013-04-10 18:30 http://forum.msexcel.ru/index.php?action=profile;u=
А если попробовать, прежде чем писать?


Согласен, но результат не верный, должно получиться в вашем примере "абв" - 4, т.к. нужно количество значений в первом столбце "А" по абв , а не сумма чисел.

Serge 007>> Re: Подсчет по сложному условию
2013-04-10 18:42 http://forum.msexcel.ru/index.php?action=profile;u=
нужно количество значений в первом столбце "А" по абв , а не сумма чисел.
Кому нужно?
Функция СУММЕСЛИ в принципе не считает количество, она суммирует числовые значения, игнорируя значения текстовые. Я лишь указал на ошибочность Вашего заявления о том что
=СУММЕСЛИ(C12:C21;F12;D12:D21) Будет выдавать "0" т.к. в столбце D не цифры, а текст и цифры в вперемешку.
Если ВАМ нужно количество числовых значений, среди всех значений, по условию в другом столбце, то используйте такую формулу: =СУММПРОИЗВ((B1:B6="абв")*ЕЧИСЛО(A1:A6))



Hugo121>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 20:24 http://forum.msexcel.ru/index.php?action=profile;u=
Макрос написать можно, но думаю сперва в данных нужно порядок навести - вот что за два разных товара Z733517?
Или Z733497? Дальше не смотрел.

Виталий Оакенфрольд>> вычислить процент от выполненной программы массажистки
2013-04-10 20:58 http://forum.msexcel.ru/index.php?action=profile;u=
доброго времени суток,веду табель учета обслуживания гостей в салоне массажа, помимо массажа девушки еще делают дополнения,как сделать так чтобы при заполнении напротив наименования допника имени массажистки которая делала допник ,в ее колонку рассчета зп плюсовалось 40% от стоимоти дополнения?

пример:
аля и адель делали массаж,получили по 300 руб, аля выполнила еще "нежные ласки", а адель "чмоки",соответственно в свои колонки (g и h) они получают плюс по 40% от стоимости допника

Денис Бухаров>> Re: Поиск повторов и удаление строк с наименьшим значением в определенном столбце.
2013-04-10 21:10 http://forum.msexcel.ru/index.php?action=profile;u=
Днем будет другой файл, тут даже артикулы не правильные. Извиняюсь.

0mega>> Re: Подстановка даты
2013-04-11 08:05 http://forum.msexcel.ru/index.php?action=profile;u=
не уверен, что правильно понял вопрос...
как понял - так и отвечаю:
=ЕСЛИ(B8;(B8>C8)+$B$1;"")

seregaad>> Re: Подсчет по сложному условию
2013-04-11 08:56 http://forum.msexcel.ru/index.php?action=profile;u=
нужно количество значений в первом столбце "А" по абв , а не сумма чисел.
Кому нужно?
Функция СУММЕСЛИ в принципе не считает количество, она суммирует числовые значения, игнорируя значения текстовые. Я лишь указал на ошибочность Вашего заявления о том что
=СУММЕСЛИ(C12:C21;F12;D12:D21) Будет выдавать "0" т.к. в столбце D не цифры, а текст и цифры в вперемешку.
Если ВАМ нужно количество числовых значений, среди всех значений, по условию в другом столбце, то используйте такую формулу: =СУММПРОИЗВ((B1:B6="абв")*ЕЧИСЛО(A1:A6))
Помогите, уже голову сломал, понимаю, что просто где-то туплю, но ни как не могу понять где...

Нужно подсчитать количество значений в столбце D, если значение в столбце C = значению в ячейке F12

...


На сегодня все. До встречи на следующей неделе.


В избранное