В этот солнечный нерабочий день пришла мне в голову одна мысль, которую я постараюсь сейчас изложить. Часто, при решении поставленной задачи, большие многоэтажные формулы сложно написать сходу, поэтому я прописываю формулы поэтапно в несколько ячеек. После получения результата, все формулы "ручками" объединяю в одной ячейке (см. наглядный пример). Вопрос в следующем: существует ли какой нибудь автоматизированный (надстройка, макрос, что-то еще) способ объединения формул в одну "многоэтажную"?
Николай Павлов в своем блоге выложил для всеобщего использования производственный календарь на 2014 год. Мне показалось интересным использовать этот календарь в собственных нуждах как некий планировщик - т.е. редактировать список праздников, чтобы в комментариях к ячейке содержались задачи на день. В общем-то сейчас ничего не мешает это делать, для удобства использования добавлен макрос изменяющий размеры комментария (есть в комментариях на блоге). Что хочется добавить: чтобы цвет строки комментария соответствовал метке на листе "Справочник": - государственные - красный (метка "гос") - религиозные - синий ("религ") - профессиональные - зеленый ("проф") - и т.д. Приложу картинку:
В макросах я вообще ноль, поэтому прошу помощи: В "приемах" взял макрос автоматической вставки даты и времени при вводе в ячейку. Как нужно изменить этот макрос, чтобы вставка производилась только при первоначальном вводе в соседнюю ячейку, если данные редактировались - то вставка не нужна, или другими словами, если дата уже стоит, то ничего не делать. Код:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("B3:B100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, -1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
И еще вопрос, как в этом же макросе в ячейку +2 вставить текст (скажем, "ТЕКСТ")?
Уважаемые планетяне, может кто знает в чем принципиальные отличия, недостатки или преимущества предоставления общего доступа к книге разными способами, а именно: 1. Сервис => Защита => Защитить книгу и дать общий доступ 2. Сервис => Доступ к книге
ЗЫ На всякий случай извинюсь - предварительное курение поиска вразумительных ответов не дало.
Извиняюсь, если этот вопрос обсуждался - поиском ничего не нашел. Есть книга с большим количеством листов, содержащих большие объемы данных. Необходимо найти все ячейки, содержащие ссылки на ДРУГИЕ книги.
Уважаемые Планетяне! Вот руководство озадачило проблемой - объединить данные о закупках за последние пару лет. Инстинктивно понимаю, что выручит макрос, но сам в них - "сиди, сам открою". В общем, задачу подробно описал во вложении. Буду благодарен за помощь.
...и общий доступ. Поиск, к сожалению, не дал осмысленных результатов. К книге, в которой имеется сводная таблица, необходимо открыть общий доступ с сохранением функционала сводных таблиц. Как можно решить проблему?
Сабж: 1. Excel не дает вставить строку "...перемещать непустые ячейки за пределы листа запрещено...". Заполненных строк <700, остальные пустые - проверял и делал очистку содержимого. 2. Вторая снялась только что самостоятельно :-)
С наступающим всех! Стоит передо мной задача - подсчитывать средее значение определенной величины за последние 5 суток. Данные обновляются ежедневно. Как реализовать - ума не приложу. Пример-в файле.
Поиском пользовался, не нашел... Дано: имеется таблица данных, которая периодически пополняется. По данным этой таблица формируется небольшая сводная в виде информера, отображающего текущий уровень цен и изменение. Данная сводная через связь с рисунком вставляется в виде картинки. Необходимо: при закрытие файла экспортировать данный рисунок в файл jpg или gif. Файл приложен.
Снова обращаюсь за помощью к гуру VBA - вопрос тот же:
Необходимо скопировать текст из ячейки в шейп "Надпись" панели рисования. Задача банальная при длине текста менее 255 символов. Есть информация, что при большем кол-ве символов, вставка проводится блоками по 250 символов через цикл. Как это сделать, уважаемые экселепланетяне?
Текст из шейпа "Надпись" панели рисования элементарно можно вытащить в ячейку листа через свойство AlternativeText - обратная задача решена путем поиска в интернете.
В примере макрос работает правильно, т.к. текст короче 255 символов. При увеличении длины текста - не работает! :(
Очень нужна Ваша помощь! В листе Excel имеется объект Microsoft Word, а так же кнопка "вставить данные". Необходим макрос для переноса текста из определенной ячейки (например А1) в объект Microsoft Word. Необходимо для удобного редактирования текста пользователем.