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

Страницы: 1
Обновление версий Excel 2016, Какую версию установить?
 
Добрый день.

На работе мне обновили компьютер и теперь стоит office 2016 версии 16.0.4266.1001, 64-разряда. Довольно старая версия.
Ранее (на предыдущем компьютере) стояла более поздняя версия excel 2016.

Получается, что все таблицы, ранее созданные в Power Query, теперь не работают, т.к. старая версия не поддерживает все функции.

Решение казалось бы простое - поставить последнее обновление.
НО, когда его ставишь появляется другой глюк - ранее созданные файлы (особенно весом от 3 Мб) вылетают при сохранении.

Перепробовал уже кучу версий различных обновление, но проблему не могу решить. Power Query начинает работать, но и ранее созданные файлы перестают сохраняться. Системный администратор не знает как это исправить.

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

Просьба помочь с решением задачи. Файл прикладываю.
Нужно чтобы в ячейке существовало ограничение по вводу цифр, но при этом можно было бы вводить некоторые буквы.
Пытался в "проверке данных" прописать формулу, но она не работает:
Код
=ЕСЛИ($AK2<>"";ИЛИ(A2<=8;"о", "к"; "н");";ИЛИ(A2<=12;"о", "к"; "н"))
Расчет доли затрат от выручки в сводной таблице, сделать автоматический расчет доли затрат от выручки в сводной таблице
 
Добрый день!

Прошу помочь в решении проблемы.

Необходимо сделать автоматический расчет доли затрат от выручки в сводной таблице.
Пример прикладываю.

Попытался сделать расчет дополнительным вычислением, но по статьям "нижнего уровня" выдает ошибку. Считает долю только в итогах.
Способ добавить доп колонку в базе тоже не помогает т.к:
- Если смотреть свод по концепциям (отдельный лист), то он складывает суммы по точкам и получается неверно;
- Общий итог за год тоже просто суммируется, а не рассчитывается.

В реальной базе уровней статей и концепций еще больше.
Копирование разных групп листов в новую книгу
 
Добрый день!

Помогите, пожалуйста, правильно написать макрос. Пример прикладываю.

Смысл:
Есть группы листов. На листе "Макрос" в столбце Е нужно выбрать нужную группу и при нажатии кнопки "Выполнить" листы, относящиеся к этой группе, должны скопироваться в новую книгу.
По идее, код для переноса такой:
Код
Sheets(Array("Лист1", "Лист3", "Лист5")).Select 
Sheets(Array("Лист1", "Лист3", "Лист5")).Copy    

Uруппы листов ("Лист1", "Лист3", "Лист5") могут меняться.

В макросе (который в примере) эти группы записываются как переменная "shn". Причем? запись выглядит абсолютно правильно: "Лист1", "Лист3", "Лист5".

Но? если вместо наименования листов в код вставить переменную - макрос выдает ошибку

Код
Sheets(Array(shn)).Select 
Sheets(Array(shn)).Copy    
Как загрузить картинку из URL в объект Image
 
Добрый день!

Подскажите, пожалуйста, как можно загрузить картинку из URL в объект Image.Picture ?
Код
Image1.Picture = LoadPicture("http://oboi.ws/wallpapers/25_11673_oboi_zvezdnoe_nebo_1920x1200.jpg")
LoadPicture загружает только файлы с диска компьютера.
В интернете ничего подходящего не нашел.
Отправка шаблонов писем (бланков) макросов из lotus notes 9.0.
 
Добрый день.

Есть темы, в которых обсуждается отправка писем через lotus.
Меня интересует: возможно ли через макрос excel вызвать шаблон письма (бланк) в lotus?
Через макрос заменить строку другого макроса
 
Добрый день.

Знаю, что это возможно, раньше это делал, но не могу найти код.

Нужно чтобы при запуске макроса изменялась строка в другом макросе.
Буду благодарен, если напишите и другие подобные команды - автоматическое написание макроса, удаление макроса и т.п.
Пример прилагаю
Изменено: Di-Kiy - 19.02.2016 11:40:57
Добавление строк/столбцов в массиве, Нужны команды для добавление строк/столбцов в массиве
 
Добрый день!

Не смог найти следующие вопросы:
Можно ли в массиве добавлять строки над выбранной ячейкой?
Как добавить столбец?
В примере нужно чтобы над 5-й строкой массива вставлялась строка.

P.S. Вставлять строку просто на листе нельзя, нужно чтобы она вставлялась именно в массиве =)
Скопировать текст макроса из ячейки и выполнить его
 
Добрый день!
Возможно ли скопировать текст макроса из ячейки и выполнить его.

Пример прикладываю. В нем: в ячейке B2 указан текст макроса, который в свою очередь влияет на ячейку A1. Нужно чтобы макрос выполнил команду из ячейки B2.
Это реально?
Выделение непустых строк по признаку
 
Добрый день!
Помогите, пожалуйста, с макросом.
Нужно чтобы он выделял непустые строки по следующему признаку: строки у которых есть данные по столбцу "А".
Думал сделать так:
Код
Sub База()
R = 1

For i = 1 To 1000
If Range("A" & i).Value = "" Then
GoTo NextI
Else
R = R & "," & Range("A" & i).Row
End If
NextI:
Next i

Rows(R).Select
End Sub

Но Rows®.Select выдает ошибку.
Файл с примером прилагаю.
Изменение свойства кнопки при изменении свойства строк
 
Добрый день!  
 
Как сделать так, чтобы при скрытии строк (в примере - 9:19) свойствo ToggleButton1.Value менялось на False, и наоборот:при показе строк (в примере - 9:19) свойствo ToggleButton1.Value менялось на True?
Массив для элементов управления
 
Подскажите, пожалуйста, как написать массив для элементов управления.    
В примере, кнопки 1,3 и 2,4 выполняют одно и тоже действие - меняют значение ячеек. Как написать массив в котором команды будут распределены в зависимости от номера (индекса) кнопки, чтобы не писать для каждой кнопки отдельную команду?
Переход от цикла к циклу
 
Добрый день!  
 
Помогите, пожалуйста, не могу побороть макрос - он нужен чтобы протянуть значение ячеек для приведения таблицы в формат базы для сводной таблицы. Что надо написать в цикле (e) чтобы при первом же выполнении условия он переходил к внешнему циклу (i), а не брал следующее число в цикле (e). Пример прикладываю.
Прописать ссылку в названии элемента
 
Добрый день!  
 
Подскажите, пожалуйста, как прописать вместо номера элемента управления ссылку?  
 
Этот код выдает ошибку:  
 
 
Private Sub CommandButton1_Click()  
   
i = Range("A1").Value  
   
TextBox(i).Text = 123  
 
End Sub  
 
 
Как прописать TextBox(i) правильно?  
 
Пример прилагаю.
Как правильно защитить книгу/лист
 
Добрый день!  
 
Подскажите, пожалуйста, как правильно написать команду из темы http://www.planetaexcel.ru/tip.php?aid=281, чтобы пользователи на защищенном листе могли изменять только цвет (заливку) незащищенных ячеек, но не могли менять у них ни шрифт, ни границы ни прочие настройки? (AllowFormattingCells:=True - разрешает пользователям все изменения - не подходит)
Модуль по изменению высоты строк
 
Подскажите, пожалуйста, как правильно прописать команду в модуле  
 
Sub Hide()  
Dim c As Range  
Application.ScreenUpdating = False  
For Each c In ActiveSheet.UsedRange.Rows(1).Cells  
If c = "х" Then c.EntireColumn.Hidden = True  
Next  
For Each c In ActiveSheet.UsedRange.Columns(1).Cells  
If c = "х" Then c.EntireRow.Hidden = True  
Next  
Application.ScreenUpdating = True  
End Sub  
 
Чтобы вместо скрытия столбцов и строк изменялись их ширина и высота.
Как в формуле вместо "равно" написать "содержит"
 
Добрый день.  
 
Какой надо поставить знак в формуле, чтобы было значение "содержит"?  
 
Вот формула =ЕСЛИ(А1..?("содержит")?.."яблоко";1;2)
как задать в формуле интервал
 
Как в функции задать интервал чисел?  
 
=ЕСЛИ(В4=(интервал чисел????);"+";"-")  
 
как правильно написать интервал? - все перепробовал!.
Страницы: 1
Наверх