Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Oligarch
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Обновление подключения в Addin'е
 
#
08.11.2017 16:01:51
Здравствуйте. При открытии основной книги, создается вспомагательная, в которой создаются подключения к внешним источникам. Потом для второй книги присваивается параметр .isAddin = True. После этого перестает работать автоматическое обновление данных с внешних источников. В параметрах подключения установлен интервал обновления. Данные оновляются только вручную .ListObject.QueryTable.Refresh BackgroundQuery:=False. С этим можно как-то боротся?
 
Перейти    
Как создать вертикальную гистограмму с минимальным, максимальным и текущим значениями?
 
#
06.02.2016 14:32:16
Здравствуйте, скажите, пожалуйста, как создать вертикальную гистограмму с минимальным, максимальным и текущим значением в виде ползунка. С помощью условного форматирования получилось создать только горизонтальную. Изменение направления текста не помогает... На картинке изобразил как она должна выглядеть...

Изменено: Oligarch - 06.02.2016 17:53:44
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
10.08.2015 19:59:07
Здравствуйте. В Excel 2010 не выполняются макросы прописанные в Module1. В 2013 все прекрасно работает. В чем может быть проблема?
Макрос запускается только вручную...
Изменено: Oligarch - 10.08.2015 23:37:45
 
Перейти    
Неравномерное распределение значения на диапазон
 
#
31.07.2015 20:47:26
Здравствуйте. Помогите, пожалуйста, решить задачу. Нужно сделать неравномерное распределение значения K2 на диапазон A2:J2. При этом длина диапазона может изменяться. Пример во вложении...
 
Перейти    
Запрет масштабирования
 
#
20.07.2015 23:15:23
Здравствуйте. Нужно запретить изменение масштаба листа.  Насколько я знаю, отключить его не получиться. Пытался решить так:
Код
Private Sub Workbook_Open()
 Application.EnableEvents = False
  Call ZoomRange(ActiveSheet.Range("A1:P21"))
  ActiveSheet.Image1.Select
  Range("B1").Value = ActiveWindow.Zoom
 Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.EnableEvents = False
  If ActiveWindow.Zoom <> Range("B1") Then
   Call ZoomRange(ActiveSheet.Range("A1:P21"))
   ActiveSheet.Image1.Select
  End If
 Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Application.EnableEvents = False
  If ActiveWindow.Zoom <> Range("B1") Then
   Call ZoomRange(ActiveSheet.Range("A1:P21"))
   ActiveSheet.Image1.Select
  End If
 Application.EnableEvents = True
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
 Range("B1").ClearContents
 If ActiveWindow.Zoom <> Range("B1") Then
  Call ZoomRange(ActiveSheet.Range("A1:P21"))
  ActiveSheet.Image1.Select
  Range("B1").Value = ActiveWindow.Zoom
 End If
End Sub

Sub ZoomRange(rngZoom As Range)
 Application.Goto rngZoom
 ActiveWindow.Zoom = True
End Sub
Может есть событие, которое отслеживает изменение масштаба? Если нет, можно ли сделать проверку значения B1 и ActiveWindow.Zoom с заданным интервалом (например, 1 секунда) и в случае несоответствия выполнять ZoomRange?
 
Перейти    
Убрать сообщение "Нет доступа к удаленным данным"
 
#
17.07.2015 12:09:33
Здравствуйте. На листе есть много ссылок на DDE источники. При открытии книги появляется сообщение об отсутствии доступа к удалённым данным и предложением запустить соответствующее приложение. Помогите убрать это сообщение не разрывая связи.
 
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
02.07.2015 13:36:41
Помогите решить задачу. Есть лист с несколькими строками. В каждой строке 6 несмежных ячеек (значения которых нужно переместить вверх в первую свободную строку) и несколько формул, которые должны оставаться на месте. Например, если значение ячейки D2=0, значения со строки 3 должны переместиться в строку 2, со строки 4 - в строку 3...
 
Перейти    
Как изменить значения несмежных диапазонов?
 
#
01.07.2015 20:06:47
Подскажите, пожалуйста, где ошибка. Почему учитывается значение только A2?
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If Range("C1") = 1 Then Range("A1,B1,E1,F1").Value = Range("A2,B2,E2,F2").Value
Application.EnableEvents = True
End Sub
 
Перейти    
Очистить содержимое ячейки при выполнении условия (VBA)
 
#
17.06.2015 13:31:11
Здравствуйте. Нужно, чтобы при выборе определённого значения в ячейке А1, содержимое ячеек B1 и C1 удалялось. Подскажите, пожалуйста, с помощью какого макроса можно ето реализовать. Пробовал так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Range("A1") = "ERASE" Then
  Range("B1,C1").ClearContents
  Application.EnableEvents = True
  End If
End Sub
Срабатывает один раз. При вводе нужного значения в ячейку A1, контент очищается. После смены значения на другое и повторном выборе нужного ничего не происходит. Подскажите, пожалуйста, где ошибка...
 
Перейти    
Страницы: 1
Наверх