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

Страницы: 1 2 След.
Макросы Visual Basic для приложения (VBA) в данной книге повреждены и были удалены
 
#
27.02.2017 19:09:04

Здравствуйте.

Есть учетный файл с макросами, который работал без сбоев несколько лет.
Утром на работе на рабочем компьютере, вел учет, было все нормально, принес доделывать работу домой  на домашнем компьютере.
При открытии фал и последующего подключения макросов выходит сообщение
Цитата
«Макросы Visual Basic для приложения (VBA) в данной книге повреждены и были удалены…»
Закрываю книгу без сохранения.
Что за причина не ясно, если это возможно помогите решить проблему.
 
Перейти    
Автоматическое изменение Времени и Даты
 
#
05.12.2015 16:44:55
Здравствуйте.

Возможно, ли чтобы текущее время и дата изменялись автоматически, а не на момент открытия книги?
T2 =ТДАТА()
T1 =СЕГОДНЯ()
Код
="Сводка на "&ТЕКСТ(T2;"ЧЧ:ММ")&" за "&ТЕКСТ(T1;"ДД.ММ.ГГГГ")
 
Перейти    
Сцепить текст с текущей датой.
 
#
05.12.2015 10:48:44
Здравствуйте.

Подскажите кокой формулой можно сцепить текущую дату
Код
=СЕГОДНЯ()
с текстом?

При таком сочетании
Код
=СЦЕПИТЬ("текст ")&СЕГОДНЯ()
дата формируется в числовое значение.
 
Перейти    
Условие на активную ячейку столбца AR
 
#
28.11.2015 23:14:34
Здравствуйте.

Пересмотрел некоторые темы, испробовал разные варианты, но нужный результат не получил…
Скажите как создать условие такого типа:
Если  ячейка активна в столбце AR, пробовал такой вариант
Код
Sub тест()
    If ActiveCell.Cells("AR").Select Then 'Если  ячейка активна в столбце AR
        '...
    Else
        'Оператор
    End If
End Sub
естественно не то.
 
Перейти    
При вводе данных макросом игнорируется проверка данных в ячейках
 
#
28.11.2015 18:20:58
Здравствуйте.

При вводе данных макросом игнорируется проверка данных в ячейках, то есть проверка данных ячейки не реагирует на программный ввод.
Если какие-то способы это избежать?
 
Перейти    
Вставка данных в активную ячейку и в последующую ячейку.
 
#
28.11.2015 12:26:19
Здравствуйте

Подскажите как при вставке “данных1” в активную ячейку, одновременно необходимо вставить “данные2” в последующую ячейку находящей на строке активной ячейки.
Например А1=”данные1”  B1=”данные2”

Начальный код для вставки “данных1”
Код
ActiveCell.FormulaR1C1 = "данные1"
 
Перейти    
Прокручивать список проверки данных стрелками на клавиатуре.
 
#
23.11.2015 20:41:52
Здравствуйте.

Есть некие выпадающие списки, если списки содержат большое количество данных, то проблематично найти нужные данные, мелькающие при использовании полосы прокрутки.  
Скажите можно ли как-то создать прокручивание (пробегать) данных списка, созданного в проверке данных, с использованием стрелок на клавиатуре?
 
Перейти    
Сохранение файла с именем, состоящим из нескольких значений из ячейки
 
#
21.11.2015 12:59:02
Здравствуйте.

Подскажите, как создать такой процесс, кода при сохранении файла он сохранялся с именем трех первых значений ячейки B2 в той директории, в которой он находится.
Изменено: Серега_ - 07.05.2020 22:30:57
 
Перейти    
При копировании листа не копируются фигуры
 
#
20.11.2015 18:50:58
Здравствуйте.
Скажите, почему при копировании листа не копируются фигуры, это так должно или я не правильно копирую?
 
Перейти    
Проследить событие для одного из четырех листов
 
#
18.11.2015 18:40:12
Здравствуйте.
Скажите, как проследить событие для одного из четырех листов, и одной кнопкой открывать тот лист с которого производился вход (раскрытие листа бд)?

Вход в бд из одного из четырех листов
Код
Sub вход_в_бд()
        Sheets("бд").Visible = True ‘Отобразить лист бд
        ActiveWindow.SelectedSheets.Visible = False 'Скрытие активного листа, с которого производится вход в бд
End Sub
Отобразить тот лист (л1, л2, л3, л4)  с которого производился вход
Код
Sub выход_из_бд()
        Sheets("?").Visible = True 'Отобразить тот лист с которого производился вход 
        ActiveWindow.SelectedSheets.Visible = False 'Скрытие активного листа бд
End Sub
 
Перейти    
Сортировка строк ссылками на пустые строки
 
#
17.11.2015 23:17:34
Здравствуйте.

Подскажите, как решить такую проблему.
Как, не используя макрос, при сортировки ссылок с данными в диапазоне А16  не сортировать пустые строки содержащие 0?
Иначе при сортировки от А до Я значения с нулями заполняют верхние строки.
 
Перейти    
При выборе месяца и года из списка, отобразить конечную дату...
 
#
16.11.2015 20:25:37
Здравствуйте.

Подскажите формулу такого типа, если при выборе даты в формате Март 2001 из раскрывающегося списка отобразить в соседней ячейке конечную дату данного месяца и года.
 
Перейти    
Цикл зависимости ячеек при вводе данных
 
#
15.11.2015 17:21:32
Здравствуйте.

Подскажите, каким образом создать цикл для строк где, если верхняя ячейка пуста, то при вводе данных в нижнею, тоже формируется пустота.
В примере создано условие на первую пару ячеек
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("D16") = "" Then
        Range("D17").Value = ""
    End If
End Sub
Но даже это работает с ошибкой…
 
Перейти    
Запретить (заблокировать) вставку после копирования.
 
#
13.11.2015 22:36:34
Здравствуйте.

Есть различные листы с защитой определенных ячеек, другие незащищенные ячейки нужны для ввода данных, возможно ли запретить вставку после копирования на незащищенных диапазонах, дабы не нарушить форматирование и условное форматирование.
 
Перейти    
События или условия на момент раскрытия и скрытия списка
 
#
12.11.2015 18:58:49
Здравствуйте.

Возможно ли создать события или условия на момент раскрытия и скрытия списка в ячейке, созданного при помощи проверке данных?
 
Перейти    
Выполнить код после выбора команды «НЕТ» в программном сообщении.
 
#
11.11.2015 20:38:36
Здравствуйте.

Данный код блокирует ячейку с выпадающим списком после выбора данных.
Код
    If Not Intersect(Target, Range("F2")) Is Nothing Then
        If MsgBox("текст" & Range("F2") & "текст", vbYesNo) = vbNo Then Exit Sub
        ActiveSheet.Unprotect
        If [F2] <> "" Then [F2].Locked = True
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
На момент выбора данных из списка подключается сообщение выбора («да» или «нет»).
С учетом, что здесь несколько условий заплутал в условиях... Скажите где вставить код очистки ячейки Range("F2")=”” после выбора команды нет?
 
Перейти    
Цикл по листам: вставка данных в ячейки нескольких листов, оптимизировать код до минимума
 
#
10.11.2015 19:10:54
Здравствуйте.

Подскажите, а желательно покажите, как громоздкую последовательность кода оптимизировать до минимума, где данные идентичны за исключением названия листов?
Код
        Worksheets("янв").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("янв").Range("D641") = ""
        Worksheets("фев").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("фев").Range("D641") = ""
        Worksheets("мар").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("мар").Range("D641") = ""
        Worksheets("апр").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("апр").Range("D641") = ""
        Worksheets("май").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("май").Range("D641") = ""
        Worksheets("июн").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("июн").Range("D641") = ""
        Worksheets("июл").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("июл").Range("D641") = ""
        Worksheets("авг").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("авг").Range("D641") = ""
        Worksheets("сен").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("сен").Range("D641") = ""
        Worksheets("окт").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("окт").Range("D641") = ""
        Worksheets("ноя").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("ноя").Range("D641") = ""
        Worksheets("дек").Range("D640") = Worksheets("база_данных").Range("D2")
        Worksheets("дек").Range("D641") = ""
Изменено: Серега_ - 10.11.2015 19:11:22
 
Перейти    
Снижается ли защита при подключении всех макросов в настойках
 
#
08.11.2015 19:27:37
Здравствуйте.

Так как информационное окно подключения этого содержимого появляется при любом варианте, если книга содержит макросы, возникает вопрос, снижается ли защита при подключении всех макросов в центре управлении безопасностью?
 
Перейти    
Условие изменение цвета шрифта
 
#
07.11.2015 16:44:13
Здравствуйте

Создал условие по изменению цвета шрифта (если авто то красный, а если уже красный то авто)
Код
Sub цвет_шрифта()
    If Selection.Font.ColorIndex = xlAutomatic Then
        Selection.Font.Color = -16776961
    Else
        Selection.Font.ColorIndex = xlAutomatic
    End If
End Sub
Но первоначально когда текст авто, приходится несколько раза запускать макрос чтобы изменить на красный.
Скажите почему так, что необходимо подправить?
Изменено: Серега_ - 07.11.2015 16:45:00
 
Перейти    
Событие при отмене закрытия книги
 
#
07.11.2015 10:55:31
Здравствуйте.

Есть событие закрытия книги.
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Какое событие отмены закрытия книги, после того как кликнешь по отмене в информационном сообщении при закрытии книги?
 
Перейти    
Запуск макроса через пароль
 
#
04.11.2015 16:44:09
Здравствуйте.

Подскажите можно ли как-то запустить макрос (очистка данных в ячейках диапазона) через пароль.
 
Перейти    
Отключение маркеров заполнения и перетаскивания, подключается на другом excel
 
#
04.11.2015 13:50:59
Здравствуйте.
В дополнительных параметрах есть возможность отключения маркеров заполнения и перетаскивания. Сняв галочку в своем excel и открыв данный файл на другом компьютере, данная настройка вновь подключилась.
Это особенность данной настройки подключаться там, где она не отключена, или ее все же можно как-то отключить конкретно?  
 
Перейти    
Условие на дату: если месяц будущий
 
#
01.11.2015 21:04:09
Здравствуйте.

Подскажите как создать условие, если месяц не текущий или не прошедший происходит выполнение Оператора1?
Код
Sub Макрос()
    If Если месяц не текущий или не прошедший  Then
        'Оператор1
        MsgBox prompt:="Данный месяц не является текущим.", Title:=TTL, Buttons:=vbInformation
    Else
        'Оператор2
    End If
End Sub
 
Перейти    
Применить УФ к другим листам
 
#
01.11.2015 13:50:07
Здравствуйте.

Скажите, как применить созданное на одном из листов условное форматирование к другим листам?
 
Перейти    
Отключить программно макрос
 
#
31.10.2015 16:33:24
Здравствуйте.

Скажите можно ли программно отключать и подключать данное событие или строку данного кода
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Calculate
End Sub
 
Перейти    
Закрепление областей
 
#
29.10.2015 22:01:16
Здравствуйте.

Есть функция закрепления областей, но чтобы подогнать нужную строку или столбец под закрепленную область порой необходимо прогнать ячейку до краев таблицы, а затем переместить ячейку в нужную область для ввода данных, а можно ли закреплять ячейку, прокручивая в закрепленной ячейки таблицу по горизонтали и вертикали до нужной области ввода данных в самой закрепленной ячейки?
 
Перейти    
Scroll Lock
 
#
29.10.2015 20:30:21
Здравствуйте.

На ноутбуке DELL отсутствует клавиша Scroll Lock, любые комбинации предлагаемые в интернете не подключают передвижение листа excel по отношению к ячейки (курсору).
Может кто знает как подключить данную функцию для excel?
 
Перейти    
Защита ячейки по условию
 
#
29.10.2015 17:33:53
Здравствуйте.

Скажите можно ли защитить незащищенную ячейку (диапазон ячеек) на защищенном листе  условным форматированием?
 
Перейти    
Цвет шрифта по условию
 
#
28.10.2015 18:29:43
Здравствуйте.

Скажите возможно ли, не применяя условное форматирование, формулой изменить цвет шрифта ячейки, в которой будет прописана подобная формула
Код
=ЕСЛИ(А1>0;”цвет шрифта красный”)
выполняющее условие и отражающая нужное значение, например 1(в данном случае это ячейка B1).
 
Перейти    
Цвет текста фигуры в зависимости от условия
 
#
26.10.2015 19:26:04
Скажите можно ли по условию изменить цвет текста фигуры?
Код
If Range("C2").Value < 0 Then
‘ Цвет текста фигуры красный
End If
Или как-то с помощью формулы
Код
=ЕСЛИ(С2 < 0;"Цвет текста фигуры красный")
 
Перейти    
Страницы: 1 2 След.
Наверх