Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Просуммировать диапазон дат в формате ДД.ММ.ГГ / ч:мм по критерию даты
 
Разобрался, спасибо
Изменено: cifrus89 - 06.09.2020 22:43:41 (Разобрался)
Просуммировать диапазон дат в формате ДД.ММ.ГГ / ч:мм по критерию даты
 
Заменил пример
Просуммировать диапазон дат в формате ДД.ММ.ГГ / ч:мм по критерию даты
 
Добрй вечер. Уважаемые гуру, помогите справиться с формулой.

ЕСТЬ диапазон данных с датами в формате "ДД.ММ.ГГ / ч:мм;@ или 05.09.2020  20:36:08"
НУЖНО посчитать сумму по столбцу D по критерию "сегодняшняя дата" в формате "ДД.ММ.ГГ или 05.09.2020"

Есть формула
Код
=СУММЕСЛИМН(БР!$D:$D;БР!$E:$E;"Терминал";БР!$A:$A;Инфо!$J$1)
где
Код
"Инфо!$J$1"
ячейка с сегодняшней датой в формате "ДД.ММ.ГГ"
Автоматический размер ComboBox (ListRows)
 
Спасибо.
Вопрос решил подсчетом количества не пустых строк и динамического диапазона.
Автоматический размер ComboBox (ListRows)
 
Ясно. Тогда вопрос как сделать именованный диапазон динамическим?
Код
Диапазон=SC!$A$14:$A$24
Автоматический размер ComboBox (ListRows)
 
Я извиняюсь за тупость. Мне в Диапазон1 указать название именованного диапазона или адрес ячеек в котором он содержится?
Изменено: cifrus89 - 21.08.2016 08:37:24
Автоматический размер ComboBox (ListRows)
 
Господа подскажите.

К ComboBox прикручен именованный диапазон RowsSource, количество пунктов в этом диапазоне время от времени меняется, после чего приходится в ручную выставлять значение ListRows дабы не использовать полосу прокрутки. Может есть у кого догадки как можно реализовать автоматическое изменение размера?
Изменено: cifrus89 - 21.08.2016 08:16:05
Вставить новую строку
 
Огромное спасибо!
Вставить новую строку
 
Добрый день господа.

Подскажите как можно избавится от Select в коде, чтобы вставить новую строку и здвинуть имеющиеся данные вниз.
Код
 Sheets("Лист1").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Закрыть открытые формы при переходе на другой лист
 
Подскажите как реализовать макросом, закрытие открытых форм при переходе на другой лист?

Пример. Я запустил с Лист1  UserForm.  (UserForm.Show 0)     Как сделать чтобы эта форма закрылась при переходе на любой другой лист
Изменено: cifrus89 - 05.04.2014 22:24:32
Копирование строки (.Paste), ошибка
 
Не знал. Спасибо. Работает.  
Изменено: cifrus89 - 15.05.2014 19:51:01
Копирование строки (.Paste), ошибка
 
Здравствуйте. Подскажите что делаю не так?
Код
    Cells(ActiveCell.Row, "A").Select    
    ActiveCell.EntireRow.Select         
    Selection.Copy 
    Sheets("SC2").[A1].Paste
 
[ Закрыто] Помогите избавится от Select
 
Нет не кажется. Тема все еще посвящена избавлению от селектов.

Спасибо за помощь.
Изменено: cifrus89 - 03.04.2014 21:58:45
[ Закрыто] Помогите избавится от Select
 
Можно ли поменять цвет у 4-ой строки более простым способом и без селекта?
Код
     Range("A4").Select
ActiveCell.EntireRow.Select
    With Selection.Font
        .Color = -11489280
        .TintAndShade = 0
    End With
Как вставить формулу в форму?
 
Хм. Получается. Создать лист со всеми формулами и от туда выдергивать данные на форму.
Как вставить формулу в форму?
 
Он мне выдает формулу вместо значения
Как вставить формулу в форму?
 
Написал. В итоге ошибка SyntaxError


Как такую формулу туда запихать?
Код
=СУММПРОИЗВ((ЦЕЛОЕ(БД!$A$3:$A$1003)=ЦЕЛОЕ(Инфо!I1))*БД!$D$3:$D$1003)-СУММПРОИЗВ((ЦЕЛОЕ(БД!$A$3:$A$1003)=ЦЕЛОЕ(Инфо!I1))*БД!$E$3:$E$1003)-Инфо!C30-(СУММПРОИЗВ((ЦЕЛОЕ(БД!$A$3:$A$1003)=ЦЕЛОЕ(Инфо!I1))*БД!$L$3:$L$1003))
 
Как вставить формулу в форму?
 
Цитата
А если не секрет, зачем?
Есть книга в ней на разных листах данные. На первом листе панель управления этими данными, с кнопками в виде автофигур к которым привязаны макросы. Так же на первом листе некоторые отчеты, данные на основе данных из других листов, например сумма в ячейках по критерию. Мне же нужно создать панель управления в форме с кнопками. Соответственно формулы тоже хочется перенести на форму чтобы результат их вычислений отображался например в Label.Caption. Я новичок в этом деле синтаксис еще плохо знаю. Нужна наводка чтобы копать в нужном направлении.
Изменено: cifrus89 - 18.03.2014 20:17:59
Как вставить формулу в форму?
 
А длинную формулу из ячейки как-то можно преобразовать? Как я понял они в форме немного по другому выглядят
Как вставить формулу в форму?
 
Здравствуйте. Нужно чтобы в Label.Caption отображалась текущая дата, подскажите куда копать

Спасибо
[ Закрыто] Помогите избавится от Select
 
А вот здесь как можно поступить?


Код
  Range("B8:I16").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
[ Закрыто] Помогите избавится от Select
 
Действительно. Не подумал. Спасибо за помошь. Наконецто избавился от этих противных селектов.
[ Закрыто] Помогите избавится от Select
 
Всем спасибо за ответы. Продолжу тему. Что можно с этим придумать?

Код
Sheets("Лист1").Select
    Rows("3:3").Select
    Selection.AutoFilter
    Selection.AutoFilter
[ Закрыто] Помогите избавится от Select
 
Добрый день господа.
Подскажите юзеру как сократить макрос и избавится от селекта
Код
Sheets("БДТ".Select
    Range("H4".Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Спасибо
При попытке запустить макрос появляется ошибка
 
Цитата
The_Prist пишет:
Элементарно. Пара вариантов:
Идет попытка присвоить свойству Cells.Text значение. А данное свойство доступно исключительно для чтения. Надо заменить Text на Value.
Либо при попытке назначить свойству Text объекта(примечание, фигура) значение, которое недопустимо(например, значение ошибки)

P.S. Если слеюущий Ваш вопрос будет "как снять пароль с проекта, не зная его" - прочтите сначала правила.
Все верно. Оказывается пытался задать несуществующее значение ComboBox.Value

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

Sub Ввод_счет()
Счет.Show

End Sub

Остальные подобные макросы работают исправно.
Защита макросов от Linux
 
Цитата
Александр Моторин пишет:
Попробуй в надстройку их закинуть.
По крайней мере ОпенОфис то же по барабану вся защита, но надстройку не показал
Как это сделать? Куда копать?
Защита макросов от Linux
 
Добрый день

Макросы в книге защищены паролем. На днях обнаружил что открывая книгу в Linux все макросы доступны. Есть ли какой то способ закрыть к ним доступ из Linux?
Открытие защищеных макросов в Linux
 
Добрый день.
Макросы в книге защищены паролем. На днях обнаружил что открывая книгу в Linux все макросы доступны. Есть ли какой то способ закрыть к ним доступ из Linux?
Изменено: cifrus89 - 02.03.2014 02:08:26
При попытке запустить макрос появляется ошибка
 
Добрый день.
Подскажите пожалуйста. При попытке запустить макрос, стало появляться такое вот сообщение? Что может быть?




Страницы: 1 2 3 4 5 6 7 След.
Наверх