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

Страницы: 1
Макрос вызова окна фильтра, Способ имитации нажатия на стрелочку фильтр
 
#
13.05.2022 16:36:48
При частой работе с пк на клавиатуре возникает маленькая проблема, а как развернуть фильтр без мышки? Макрос рекорд не спас меня в этой ситуации и на форумах ответа Я не нашел. Было бы не плохо реализовать данную идею и забиндить её на сочетание клавиш.

Кто знает способ реализации данного действия? Поделитесь
 
Перейти    
Объединение индекс и поискпоз в одну функцию, Почему результат выдает как #ЗНАЧ
 
#
06.05.2022 09:01:06
Код функции
Код
Function ИНПОЗ (Запрос As String, Столбец_поиска As Range, Столбец_ответа As Range) As String
Application.Volatile True
ИНПОЗ = Application.WorksheetFunction.Index(Столбец_ответа.Address, Application.WorksheetFunction.Match(Запрос, Столбец_поиска.Address, 0),1)
End function

Debug.print мне не помог
 
Перейти    
Оптимизация функции содержащей replace, Как исправить replace(replace(....
 
#
30.04.2022 13:08:44
Допустим есть функция
Код
Option compare text

Public function МояФункция (исходныйтекст as String) as String
Application.Volatile True
исходныйтекст=replace(replace(replace..... Исходныйтекст.... 'И соответствующее)
МояФункция=исходныйтекст
 End function

Как избавиться от множества replace, можно ли использовать массив и как правильно его использовать
 
Перейти    
Создаю свой ДМБ таймер в екселе для своей надстройки, не работает обратный отсчёт
 
#
25.04.2022 05:34:56
Код в vba

Код
Option Explicit 'Потребовать явного объявления всех переменных в файле

Public myRibbon As IRibbonUI
Public myText As Date
Public gCount As Date

Sub timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "getLabel_label1"
End Sub
'customUI (элемент: customUI, атрибут: onLoad), 2010+
Private Sub onLoadRibbon(ribbon As IRibbonUI)
    'Объявите глобальную переменную объекта ленты:
    Set myRibbon = ribbon
End Sub

'editBox1 (элемент: editBox, атрибут: onChange), 2010+
Private Sub onChange_editBox(control As IRibbonControl, text As String)
    On Error GoTo instr
    myText = text
    On Error GoTo 0
    myRibbon.Invalidate
instr:
    If Err.Number = 13 Then MsgBox "Вы ввели не дату!" & Chr(10) & "Пожалуйста введите дату призыва!", vbExclamation, "Ошибка"
End Sub

Sub getLabel_label1(control As IRibbonControl, ByRef label)
    Dim res As Date
    Dim days As Integer
    If myText = 0 Then Exit Sub
    days = Date - myText
    res = Date - myText - TimeSerial(0, 0, 1)
    If myText = Date Then
    label = "С ДМБ!!!"
    Else
    If myText > Date Then
    MsgBox "Введите дату ПРИЗЫВА!", vbExclamation, "Ошибка"
    label = "Err"
    Else
    If (365 - res) < 0 Then
    MsgBox "Скорее всего, Вы не срочник!", vbExclamation, "Ошибка"
    label = "Err"
    Else
    label = (365 - days) & " " & Format((365 - res), "hh:mm:ss")
    End If: End If
    End If
    Call timer
End Sub
 
Перейти    
Как правильно передать данные из editBox в LabelControl ribbon xml, Хочу сделать простенький таймер разницы дат в своей надстройке
 
#
21.04.2022 17:20:34
Код vba
Код
Option Explicit

public SetTextValue$

Public Sub SetText (control as IRibbonControl, text$)
  SetTextValue = text  
  Call SetLabelValue 
End Sub 

Public Sub SetLabelValue (control as IRibbonControl, byRef textdate) 
  textdate  = date - SetTextValue 
Enb Sub


Код ribbon
Код
<editBox id="dateR" onChange="SetText" enabled="true" getText="SetText" />
<LabelControl id="dateV" getLabel="SetLabelValue"/>
 
Перейти    
Кнопка отмена в progressbar, Не работает кнопка отмены и крестик в форме отображения статуса выполнения макроса
 
#
03.04.2022 19:59:55
Код
Sub exit_macro_click()
  cancel = true 
end sub
Код
Sub userform_queryclose(Cancel as integer, CloseMode as integer) 
  if closemode = 0 then cancel = true 
end sub
Сам "прогресс статус бар" вызывается модально в любом из макросов, но не в одном кнопка отмены не работает. Что я делаю не так?
 
Перейти    
Копировать. Вниз. Вставить, Помогите заменить sendkeys
 
#
02.04.2022 18:58:41
Создал код копирующий ячейку и вставляющий её в ячейку ниже с помощью sendkeys, что помогло мне избежать скрытые строки(скрытые объединенные строки). Вопрос в том как реализовать мой код по-другому? Sendkeys не всегда работает
Цитата
Код
Sub копирайтер()
dim i as long 
dim znach as variant 
znach = inputbox("введите количество итераций") 
if znach = "" then exit sub 
for i=1 to znach 
selection.copy
sendkeys "{down}" & "^v"
next i 
end sub
 
Перейти    
Страницы: 1
Наверх