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

Страницы: 1
Надстройки Excel, Скрытие кнопки
 
#
26.01.2017 07:24:25
Доброго времени. Создаю надстройку для Excel 2016 на языке vb.net . По нажатии кнопки с формы, как скрыть кнопку на активной ленте? В событии "Ribbon_Load" понятно. Там без проблем. Но когда лента активна скрыть ничего нельзя. Подскажите. Был на оф. сайте msdn, лопатил ютуб, пытался понять принцип на XLtools надстройке, там вроде все элементы ленты при открытии не модальной формы становятся неактивными, а потом, полагаю, просто перерисовываются.. Как это сделать
 
Перейти    
Поиск внутри процедуры vba
 
#
12.12.2016 06:23:26
При удалении программно класса и проекта VBA, как удалить и все упоминания о его объявлении в программе. Ниже удаляет сам класс, а надо еще и объявления этого класса в других процедурах.
Код
    itemDelete = list_1.ListIndex
    Set VBComp = ActiveWorkbook.VBProject.VBComponents(list_1.Value
    ActiveWorkbook.VBProject.VBComponents.Remove VBComp
    list_1.RemoveItem (itemDelete)
 
Перейти    
Маска ввода ФИО для TextBox, Необходимо в textbox вставить маску вида "Иванов А.А."
 
#
08.12.2016 08:25:49
Никак не пойму как сделать эту маску.  
 
Перейти    
Преобразование месяца (текстом) в число
 
#
23.06.2016 11:43:27
Помогите, или ткните носом
 
Перейти    
Ошибка при копировании на листы формул (Run-time), Постоянно эта тварь меня закидывает ошибкой 1004
 
#
17.06.2016 14:38:20
Код
Sheets(MonthName(Month(Now))).Range(Cells(5 + colWeek(2), 3), Cells(5 + colWeek(3) - 1, 11)).FormulaR1C1 = Qu4 & Qu & colNahmeSheets(2) & Qu & Qu1 & "R[-5]C"
Sheets(MonthName(Month(Now))).Range(Cells(5 + colWeek(3), 3), Cells(5 + colWeek(4) - 1, 11)).FormulaR1C1 = Qu4 & Qu & colNahmeSheets(3) & Qu & Qu1 & "R[-12]C"
Sheets(MonthName(Month(Now))).Range(Cells(5 + colWeek(4), 3), Cells(5 + colWeek(5) - 1, 11)).FormulaR1C1 = Qu4 & Qu & colNahmeSheets(4) & Qu & Qu1 & "R[-19]C"
Sheets(MonthName(Month(Now))).Range(Cells(5 + colWeek(5), 3), Cells(5 + colWeek(6), 11)).FormulaR1C1 = Qu4 & Qu & colNahmeSheets(5) & Qu & Qu1 & "R[-24]C"

Это должно вписывать формулы с маленьких новых листов на следующий, а он ругается на отсутствие чего-то там. Странно, что в другом модуле проекта спокойно все работает. Пытался на активный лист переносить - та же фигня.

Макрос в целом выполняет клонирование листов по неделям в текущем месяце. Это последний штрих - перенос формул с маленьких листов по неделям на большой лист общий по месяцу.
Изменено: En_Oane - 17.06.2016 16:53:02
 
Перейти    
Массивы VBA. Как сохранить значения на каждом шаге цикла?
 
#
08.06.2016 09:05:02
Суть. Необходимо создать N листов форматом "01.06. - Воскресение.06" и так далее до конца месяца. Не могу сохранить найденные "Воскресения" месяца в массиве. Хоть убей.
Код
Private Sub cmd_1_Click()
    
    Dim NeuPapier As Worksheet 'создание доп листа по неделям
    Dim NahmePapier As String ' имя этого листа
    'Dim PreFixDate As String 'нужен ли ноль перед числом
    Dim arrSonntag() As String
    
    Heute = DatePart("d", Now) 'возвращает сегодняшнюю дату
    Monate = MonthName(Month(Now - Heute)) 'предыдущий месяц для копирования
    DerTag = Day(DateAdd("d", -1, DateAdd("m", 1, Now - Heute + 1))) 'количество в месяце дней настоящего
    
    Sheets(Monate).Copy after:=Sheets(Monate)
    Nahme = Monate & " " & "(2)" 'задаем имя листу
    Sheets(Nahme).Name = MonthName(Month(Now))
  
   If DerTag = 30 Then
        Sheets(MonthName(Month(Now))).Range("B6:K35").ClearContents
        Sheets(MonthName(Month(Now))).Range("N19:N23").ClearContents
        Sheets(MonthName(Month(Now))).Rows("36:36").Delete
    
    For i = 0 To DerTag 'цикл для ввода дат 
       Sheets(MonthName(Month(Now))).Cells(5 + i, 2) = Now - Heute + i
    Next i
    
    NewMonate = Day(Sheets(MonthName(Month(Now))).Cells(5 + 1, 2)) & "." & Month(Now)  'начало месяца
    EndMonate = Day(Sheets(MonthName(Month(Now))).Cells(5 + 30, 2)) & "." & Month(Now) 'конец месяца

    '1. нужно создать Н-ое кол-во листов формата "01.ММ - 1ВВ.ММ", "1ВВ+1.ММ - 2ВВ.ММ", "2ВВ+1.ММ - 3ВВ.ММ", "3ВВ+1.ММ - 4ВВ.ММ", "4ВВ.ММ - КК.ММ"
        '2. для этого нужно создать массив со всеми воскр. внутри
        '3.

     For i = 1 To DerTag
            If WeekdayName(Weekday(Sheets(MonthName(Month(Now))).Cells(5 + i, 2), vbMonday)) = "воскресенье" Then 'перебирает все ячейки в поисках воскресения
           End If
     Next i
 
Перейти    
Открыть программу, которая использует рабочий каталог., Функция Shell
 
#
28.03.2014 13:17:30
Здравствуйте, есть вопрос по функции Shell. Ситуация: нужно открыть программу, которая использует рабочий каталог. Как указать в коде vba этот самый рабочий каталог, потому что программа оттуда использует формы.
 
Перейти    
При заданном числе добавляются ячейки
 
#
06.03.2014 09:44:51
Здравствуйте. Подскажите, как создать формулу, где Я бы задал значение ячейки = 3, и мне три таблицы скопировались в другую часть книги
 
Перейти    
При заданном числовом параметре добавляются ячейки
 
#
24.02.2014 12:08:05
Здравствуйте. Подскажите, как создать формулу, где Я бы задал значение ячейки = 3, и у меня в другом месте книги появились три строки с нужными мне данными. Предоставить книгу не могу - пишу с телефона, а формула нужна) подскажите, пожалста)
 
Перейти    
поиск значения с двумя параметрами
 
#
09.02.2014 17:45:02
Всем здравствуйте, посмотрите файл во вложении, Я там все описал. От себя скажу, что нихрена победить это не могу, и "индексом" пользовался, и чего только не делал. Суть в том, чтобы эксель в таблице находил вписаное значение по двум параметрам. Помогите
 
Перейти    
Страницы: 1
Наверх