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

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

Изменено: Oligarch - 06.02.2016 17:53:44
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 01:28:49
Есть разница между Application.Run(test) и test?
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 01:24:59
vikttur, Чем тогда объяснить работоспособность в 2013, если в коде проблема? Может есть настройки, которые отвечают за доступ к пользовательским макросам в модуле?
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 01:17:56
Kuzmich, проблема только в 2010
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 01:14:49
Уже писал, что сейчас нет возможности. Да и сомневаюсь, что это поможет. В 2013 все работает, 2010 просто игнорирует макросы находящиеся в Module1, при этом не выдает никаких ошибок. Их просто нет. Если вставить в событие тело макроса, а не имя, то он выполняется.
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 01:05:55
Написал для примера. Суть в том, что обычные процедуры выполняются (например .ClearContents, .Select...) на том же событии...
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
11.08.2015 00:45:54
gling, Макросы включены. Пример предоставить нет возможности... Он на рабочем компе.
Юрий М, Запускаться должны через событие. Например, если в коде листа или книги повесить на событие SheetChange макрос, который находится в модуле1, он должен исполняться.

Книга:
Код
Private Sub SheetChange...
 test
End Sub

Модуль
Код
Sub test()
...
End Sub

Может где-то отключены пользовательские функции?
 
Перейти    
В Excel 2010 не выполняются макросы, работающие в 2013
 
#
10.08.2015 19:59:07
Здравствуйте. В Excel 2010 не выполняются макросы прописанные в Module1. В 2013 все прекрасно работает. В чем может быть проблема?
Макрос запускается только вручную...
Изменено: Oligarch - 10.08.2015 23:37:45
 
Перейти    
Неравномерное распределение значения на диапазон
 
#
02.08.2015 13:02:30
JayBhagavan, При небольших значениях K2, иногда появляются отрицательные значения. Решил задачу другим способом. Сделал перенос сгенерированных значений в нужную таблицу с помощью макроса, который повторяется при условии СЧЁТЕСЛИ(B2:K4;"<0") > 0. Каждый раз при переносе, случайные значения меняются. Может не совсем правильное решение, но меня вполне устраивает.
Изменено: Oligarch - 02.08.2015 13:04:01
 
Перейти    
Неравномерное распределение значения на диапазон
 
#
01.08.2015 13:05:59
Получилось сделать что-нибудь похожое... Но в некоторых случаях присутствуют отрицательные значения
 
Перейти    
Неравномерное распределение значения на диапазон
 
#
31.07.2015 23:44:14
Казанский, Не нашел ответа на свой вопрос. Нужно, чтобы значения распределялись случайным образом исходя из общей суммы указанной в K2
 
Перейти    
Неравномерное распределение значения на диапазон
 
#
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?
 
Перейти    
Убрать сообщение "Нет доступа к удаленным данным"
 
#
18.07.2015 17:03:47
Вопрос решен. Всем спасибо!
Код
Private Sub Workbook_SheetChange()
 Application.EnableEvents = False
  Application.DisplayAlerts = False
   Range("A1") = "=TEST|test!X"
  Application.DisplayAlerts = True
 Application.EnableEvents = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Range("A1").ClearContents
End Sub
Изменено: Oligarch - 18.07.2015 17:11:31
 
Перейти    
Убрать сообщение "Нет доступа к удаленным данным"
 
#
17.07.2015 22:57:42
На какое событие повесить? На Workbook_Open() не помогает...
Если вставить перед Range("A1") = "=TEST|test!X", то работает, но появляется один раз при открытии книги...
Изменено: Oligarch - 18.07.2015 09:59:13
 
Перейти    
Убрать сообщение "Нет доступа к удаленным данным"
 
#
17.07.2015 20:34:59
Нет никаких вариантов?
 
Перейти    
Убрать сообщение "Нет доступа к удаленным данным"
 
#
17.07.2015 12:09:33
Здравствуйте. На листе есть много ссылок на DDE источники. При открытии книги появляется сообщение об отсутствии доступа к удалённым данным и предложением запустить соответствующее приложение. Помогите убрать это сообщение не разрывая связи.
 
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
03.07.2015 10:25:53
Обновил пример для наглядности. Работает, но не всегда правильно. Посмотрите на принцип, может есть другие варианты реализации. Удалить строку не получится, так как в диапазоне A:N используется условное форматирование. В диапазоне N:AY множество других значений и формул с динамичным иссылками, а также ссылки на DDE источники.
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
03.07.2015 08:49:56
Удалять не получится, формулы должны оставаться на месте

Пробовал так:
Код
Sub test()
    Application.EnableEvents = False
  If Range("AY1") = 1 Then
  Range("B1").Value = Range("B2").Value
  Range("D1:E1").Value = Range("D2:E2").Value
  Range("G1:H1").Value = Range("G2:H2").Value
  Range("J1").Value = Range("J2").Value
  Range("B2,D2,E2,G2,H2,J2").ClearContents
  buttons_visibility
  End If
   If Range("AY2") = 1 Then
  Range("B2").Value = Range("B3").Value
  Range("D2:E2").Value = Range("D3:E3").Value
  Range("G2:H2").Value = Range("G3:H3").Value
  Range("J2").Value = Range("J3").Value
  Range("B3,D3,E3,G3,H3,J3").ClearContents
  buttons_visibility
  End If
   If Range("AY3") = 1 Then
  Range("B3").Value = Range("B4").Value
  Range("D3:E3").Value = Range("D4:E4").Value
  Range("G3:H3").Value = Range("G4:H4").Value
  Range("J3").Value = Range("J4").Value
  Range("B4,D4,E4,G4,H4,J4").ClearContents
  buttons_visibility
  End If
   If Range("AY4") = 1 Then
  Range("B4").Value = Range("B5").Value
  Range("D4:E4").Value = Range("D5:E5").Value
  Range("G4:H4").Value = Range("G5:H5").Value
   Range("J4").Value = Range("J5").Value
  Range("B5,D5,E5,G5,H5,J5").ClearContents
  buttons_visibility
  End If
    Application.EnableEvents = True
End Sub

В ячейке AY1 формула: =ЕСЛИ(И(D1=0;D2>0);1;0). При выполнении условия, все копируется, но ClearContents удаляет значения последних строк...
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
03.07.2015 08:34:55
Да. Только условие для B2 необязательно
Изменено: Oligarch - 03.07.2015 08:36:23
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
03.07.2015 08:20:03
Нет вариантов?
 
Перейти    
Как подтянуть значения с нижней строки в первую свободную
 
#
02.07.2015 13:36:41
Помогите решить задачу. Есть лист с несколькими строками. В каждой строке 6 несмежных ячеек (значения которых нужно переместить вверх в первую свободную строку) и несколько формул, которые должны оставаться на месте. Например, если значение ячейки D2=0, значения со строки 3 должны переместиться в строку 2, со строки 4 - в строку 3...
 
Перейти    
Как изменить значения несмежных диапазонов?
 
#
01.07.2015 21:21:41
Понятно. Спасибо
 
Перейти    
Как изменить значения несмежных диапазонов?
 
#
01.07.2015 20:43:40
Если значений много, будет разница в производительности между
Range("A1") = ...
Range("B1") = ...
и
Range("A1:B1") = ...?
 
Перейти    
Как изменить значения несмежных диапазонов?
 
#
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
 
Перейти    
Страницы: 1 2 След.
Наверх