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

Страницы: 1
Как перебрать все книги во всех экземплярах Excel?
 
#
13.07.2018 13:43:41
Здравствуйте, уважаемые!

Есть задача: корректно закрыть все открытые книги без сохранения изменений во всех экземплярах Excel кроме текущей.
 
Перейти    
Динамическая размерность оси диаграммы, Какие есть варианты сделать ось диаграммы динамической размерности
 
#
09.06.2018 17:06:26
Пожалуйста :)  
 
Перейти    
Динамическая размерность оси диаграммы, Какие есть варианты сделать ось диаграммы динамической размерности
 
#
09.06.2018 16:29:17
Здравствуйте всем.

Есть задача: на диаграмму выведена динамика по дням. Исходные данные подкачиваются из внешнего подключения, соответственно каждый месяц меняется количество дней. Если размерность оси фиксированная (31 день), получаются нулевые значения в последней точке в коротких месяцах, что не очень красиво.
Сейчас выхожу из положения добавлением  динамического именованного диапазона вида:
Код
=СМЕЩ(C5;1;1;ДЕНЬ(КОНМЕСЯЦА($C$6;0)))

для каждого ряда (в [$C$6] , соответственно, дата начала месяца), и добавлением ссылки на этот диапазон в каждый ряд.
Но если диаграмм много, получается очень уж трудоемко.

Знаете более простой способ?
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 13:27:02
В общем, мой интерес был в том, есть ли способ перевести ячейку в режим редактирования иначе, чем через SendKeys.  
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:59:04
Цитата
БМВ написал:
Отличный ответ. Разве не методика ввода первична?
Для этого не стоило бы создавать тему на форуме по экселю, не считаете?
В данной задаче это весьма длинные буквенно-числовые коды, в которых нужно поправить последние 2-3 символа. Чем не подходит Ваш код, описал выше.
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:42:33
Цитата
БМВ написал:
но мне кажется проще и тут вбить новое число, чем искать то что нужно скорректировать.
Задача в общем по Экселю, а не по методике ввода  :)  
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:36:39

Например,

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    SendKeys ("{F2}")
End Sub

при нажатии Shift+Enter вставляет примечание

Изменено: harddy - 31.05.2018 12:40:12
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:34:46
Забавно, что есть функция SendKeys, а есть метод Application.SendKeys, и они по-разному работают  
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:28:11
В моем случае тухнет NumLock
 
Перейти    
Как автоматически перевести ячейку в режим редактирования
 
#
31.05.2018 12:07:18
Здравствуйте.

Подкинули задачку, оказалась не такой простой.

Есть файл с цифрами, которые надо отредактировать по распечатке. Будет удобно, если при переходе к следующей ячейке будет автоматически включаться режим ее редактирования - одной рукой при работе с NumPad тянуться каждый раз к F2 очень неудобно.

Попробовал закинуть в Worksheet_SelectionChange SendKeys "{F2}", началась свистопляска.

Может, есть команда для перевода в режим редактирования? Или другой интересный способ?
 
Перейти    
Картинка через VBA сохраняется пустой (белой), Сохранение части листа через ChartObject в виде картинки иногда сбоит
 
#
31.05.2018 11:57:27
В этом и фокус. Запускаются одни и те же файлы, одни и те же диапазоны. Какой-то закономерности нет, т.е. сегодня этот диапазон сохранится нормально, а завтра вылетит. Возможно, это уже на уровне процессов и ОС проблема...
 
Перейти    
Картинка через VBA сохраняется пустой (белой), Сохранение части листа через ChartObject в виде картинки иногда сбоит
 
#
30.05.2018 16:40:40
Еще раз поясню, ситуация наблюдается примерно в 3-5% случаев, в остальных отрабатывает нормально. Причем совершенно произвольно, т.е. при циклическом вызове может вылететь один раз, а другие отработают нормально. А может и не вылететь.
Цитата
Irregular Expression написал:
Потому что для UDF недоступен целый ряд возможностей VBA.
Функция вызывается из другой процедуры, а не с листа, поэтому указанные ограничения неактуальны.
 
Перейти    
Картинка через VBA сохраняется пустой (белой), Сохранение части листа через ChartObject в виде картинки иногда сбоит
 
#
30.05.2018 12:24:56
Здравствуйте, товарищи и господа.

Периодически сталкиваюсь с такой проблемой. Есть код, который сохраняет некоторые вырезки листа в виде картинок для дальнейшей пересылки. Но иногда картинка сохраняется пустой (белой). Win 10, Office 16.

Для сохранения картинок использую функцию:
Код
Public Function SaveRangeAsJPG(ByVal Диапазон As Range, ByVal ИмяНовогоФайла As String) As Boolean
'    Сохраняет Диапазон листа как картинку в формате jpg в файл, указанный в параметре имяНовогоФайла.
'    Имя файла должно быть полным (включая полный путь), папка должна существовать, имя файла должно быть допустимым.
'    Расширение в имени файла игнорируется
    
    
    Dim curWSf As Worksheet, tempChrt As ChartObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If TypeName(Диапазон.Parent) <> "Worksheet" Then
        SaveRangeAsJPG = False
        Exit Function
    End If
    
    ASUtemp = Application.ScreenUpdating
    Application.ScreenUpdating = True
    
    Диапазон.CopyPicture xlScreen, xlBitmap
    
    Set curWSf = Диапазон.Parent
    Set tempChrt = curWSf.ChartObjects.Add(0, 0, Диапазон.Width, Диапазон.Height)
    
    tempChrt.Activate
    tempChrt.Chart.Paste
    
    Application.ScreenUpdating = ASUtemp
    
    If fso.FolderExists(fso.GetParentFolderName(ИмяНовогоФайла)) Then
        tempChrt.Chart.Export fso.BuildPath(fso.GetParentFolderName(ИмяНовогоФайла), fso.GetBaseName(ИмяНовогоФайла) & ".jpg")
        
        tempChrt.Delete
        SaveRangeAsJPG = True
    Else
        SaveRangeAsJPG = False
    End If
    
    Set curWSf = Nothing
    Set tempChrt = Nothing
    
End Function


Кто-нибудь сталкивался? Есть решение, или хотя-бы мысли, куда искать?
Изменено: harddy - 30.05.2018 12:25:44
 
Перейти    
Ключевые слова в одной ячейке и их фильтрация.
 
#
18.05.2018 11:43:33
Если бы Вы описали, зачем все это, можно было бы предложить более конкретный вариант
 
Перейти    
Ключевые слова в одной ячейке и их фильтрация.
 
#
18.05.2018 11:41:43
Штатными средствами не представляю, как это можно сделать.
Макросом: пройти столбец с тегами, сформировать список уникальных, вывести запрос в форме (красивее, но сложнее) или в InputBox-е, затем возможны варианты в зависимости от задачи и Ваших предпочтений. Например, пройти повторно и скрыть неподходящие строки, или сформировать отдельно список.
 
Перейти    
Как в VBA определить, что значение не входит в список значений
 
#
17.05.2018 19:05:02
Цитата
webley написал: IsError(Application.Match(txt, arr, 0))
Спасибо, то, что нужно!
 
Перейти    
Как в VBA определить, что значение не входит в список значений
 
#
17.05.2018 17:43:39
Здравствуйте, товарищи и господа.

Сейчас стоит задача определить, что значение не входит в список "разрешенных", и в этом случае выйти из процедуры. Но похожие задачи возникают довольно часто.

Сейчас решаю примерно так:
Код
Select Case txt
Case "раз", "два", "три"
Case Else
...
End Select



Кто знает более элегантный способ, может есть какой-либо аналог SQL-ного NOT IN(..)  
 
Перейти    
Страницы: 1
Наверх