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

Страницы: 1 2 3 След.
Нужен способ запретить вставлять значения/форматы в ячейки
 
#
09.02.2024 13:16:58
evgeniygeo, Михаил Лебедев,
Все огонь, большое спасибо
Изменено: neira - 09.02.2024 13:17:16
 
Перейти    
Нужен способ запретить вставлять значения/форматы в ячейки
 
#
09.02.2024 11:53:52
evgeniygeo
Переместила меню на другой лист и макросу кажется это не понравилось  :oops:  
Изменено: neira - 09.02.2024 11:54:04
 
Перейти    
Нужен способ запретить вставлять значения/форматы в ячейки
 
#
09.02.2024 10:39:49
evgeniygeo, огонь
Большое спасибо, опробую сегодня на кошках  
 
Перейти    
Нужен способ запретить вставлять значения/форматы в ячейки
 
#
09.02.2024 10:35:35
evgeniygeo, очень похоже на решение
А можно ли сделать так, чтоб ячейка не возвращала прежнее содержимое, а очищала содержимое?  
 
Перейти    
Нужен способ запретить вставлять значения/форматы в ячейки
 
#
08.02.2024 23:22:09
Доброе ночь
Есть список допустимых значений в колонке 1 и бланк заказа питания в колонках 3-5. Подразумевается, что пользователь будет использовать выпадающий список в колонке 4. По факту в лист с заказом вставляются значения/форматы из сторонних источников. Значения, вставленные в колонку 4, не соответствуют списку допустимых значений из колонки 1, да и в целом эти копипастеры портят лист левыми форматами в других колонках.

Можно ли строго запретить в данной книге что-либо вставлять в ячейку? В идеале должен быть допустим только ручной ввод значений и использование выпадающего списка. На этом форуме наткнулась на данный код, но он запрещает копировать ячейку в пределах книги. Если в буфере обмена что-то уже есть или скопировано из строки ячейки, никто не запретит вставить это безобразие в ячейку.

Код
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
Изменено: neira - 08.02.2024 23:46:46
 
Перейти    
При открытии на старом екселе пропадает пароль к защите и заметки с ячеек.
 
#
13.05.2019 12:46:58
Добрый день.

На работе на сервере есть книги, в которых работают с разных компьютером в новом и старом екселе.
Проблема: Если в новом екселе поставить защиту на книгу/страницу или создать заметку к ячейке, то при открытии на старом екселе защита с паролем превращается в защиту без пароля, а заметки с ячеек пропадают.

Подскажите, пожалуйста, как избежать данного конфликта версий екселя?
Изменено: neira - 13.05.2019 12:47:26
 
Перейти    
Обращение цикла не к номеру листа, а к его имени через переменную.
 
#
07.04.2019 20:05:03
skais675, Hugo
Спасибо!
Изменено: neira - 07.04.2019 20:05:31
 
Перейти    
Обращение цикла не к номеру листа, а к его имени через переменную.
 
#
07.04.2019 19:47:16
Доброго времени суток!
Есть код. Возможно ли, чтоб цикл выбирал не лист с номером i, а лист с именем i?

Код
Sub Тест()
    Dim i
    For i = 1 To 4                       'Цикл от i=1 до i=4
        Sheets(i).Select                 'Выбор листа номер i
        Application.Run "Очистка"        'Активация макроса Очистка (из этой же книги)
    Next i
    MsgBox ("Вкладки очищены!")
End Sub
Изменено: neira - 07.04.2019 19:47:50
 
Перейти    
Запуск макроса по условию имени листа;
 
#
08.01.2019 18:03:19
Спасибо большое!
 
Перейти    
Запуск макроса по условию имени листа;
 
#
08.01.2019 16:46:16
Цитата
имя какого листа нужно сравнить с "1"?

Код
Sub Macro()
   If activesheet.name = "1" then
      Call Макрос1
   ElseIf activesheet.name = "2" then
      Call Макрос2
   End If
End Sub

Хочу заменить 4 строчку с "если имя активного листа равно 2" на "если имя активного листа не равно 1".
Листов в книге много, мне надо, чтоб к одному применялся один макрос, а к остальным - другой.
Изменено: neira - 08.01.2019 18:05:29
 
Перейти    
Запуск макроса по условию имени листа;
 
#
08.01.2019 13:01:53
Ігор Гончаренко, спасибо.

Задним умом хочу спросить, можно ли сделать такой макрос?

Если имя листа равно "1" запустить макрос1
Если имя листа не равно "1" запустить макрос2
 
Перейти    
Запуск макроса по условию имени листа;
 
#
08.01.2019 12:38:08
Доброго времени суток!
Не нашла через поиск подобной темы.

Есть код:
Код
Sub Macro()
   If ActiveSheet.Range("A6").Text = "1" Then
      Call Макрос1
   ElseIf ActiveSheet.Range("B3").Text = "2" Then
      Call Макрос2
   End If
End Sub


Запускает макроса в зависимости от текста в ячейке. Мне нужно что-то похожее, но условием должно быть имя листа. Если лист "1" запустить макрос1, если лист "2", запустить макрос2. Или, быть может, на номер листа по порядку (но лучше по имени).
Изменено: neira - 08.01.2019 12:38:39
 
Перейти    
Макрос для очистки определенного диапазона листов
 
#
05.01.2019 13:10:22
Спасибо большое!
Изменено: neira - 05.01.2019 13:27:48
 
Перейти    
Макрос для очистки определенного диапазона листов
 
#
05.01.2019 09:21:43
Доброго времени суток!

Предварительно искала, но не нашла. Нужен макрос для очистки листов с 1 по 25. Так как число периодически меняется (может возрасти), нужно, чтоб была возможность в дальнейшем расширить диапазон. Файл прилагаю. В файле уже есть макрос очистки, но примитивный... Выбор листа - выделить все - очистить - выбор листа - выделить все - очистить. Хочется попроще и покороче.
 
Перейти    
Суммирование значений с большого количества листов с условием совпадения по первому столбцу
 
#
04.01.2019 15:08:03
JayBhagavan, спасибо. Воспользовалась приемом, предоставленным в теме по одной из ссылок.
 
Перейти    
Суммирование значений с большого количества листов с условием совпадения по первому столбцу
 
#
30.12.2018 09:21:39
Доброго времени суток!

Необходимо:
Сложить в листе "Сводная" значение из одного и того же столбца с листов 1, 2, 3, 4 и тд (в работе их больше - от 20 до 50) с условием совпадения значения в первом столбце.

Сейчас у меня это сделано через суммесли на примере с 5 листами. Можно ли это сделать формулой с указанием с какого по какой лист необходимо суммировать?
Изменено: neira - 30.12.2018 09:23:02
 
Перейти    
Отображение ячейки, отличное от его значения.
 
#
13.11.2018 15:08:49
Доброго времени суток!

Возможно ли сделать так, чтоб отображение ячейки отличалось от его содержимого? Например, если у меня длинное название чего-либо, а отображение необходимо более простое (одним словом).
 
Перейти    
Использование "или" в формуле счётесли для подсчета ячеек, в которых присутствует один из аргументов.
 
#
18.04.2018 13:03:25
БМВ
Сосчиталось 3, хотя по факту 4 ячейки подходят под один из критериев.
 
Перейти    
Использование "или" в формуле счётесли для подсчета ячеек, в которых присутствует один из аргументов.
 
#
18.04.2018 12:37:54
Казанский
Получается, что формула берет один аргумент, считает ячейки с ним, потом берет второй аргумент и складывает все ячейки со вторым, потом суммирует эти значения...
Точно ли нельзя, чтоб он суммировал ячейки, которые содержать хотя бы один аргумент, вместо того, чтоб суммировать результаты поиска по каждому аргументу? То есть, если ячейка подходит по критерию сразу под два условия, мне не надо, чтоб она считалась дважды...
Z
Оригинальная табличка весит больше 300 кб, условия от примера отличаются только тем, что список значений находится в C120, а не в C1, а формула нужна в R1C3, а не в R1C122.
Изменено: neira - 18.04.2018 12:40:25
 
Перейти    
Использование "или" в формуле счётесли для подсчета ячеек, в которых присутствует один из аргументов.
 
#
18.04.2018 12:14:49
Доброго времени суток!

Возможно ли вывести формулу в R1C3, которая будет считать ячейки в C1, которые содержат один из вариантов текста: "абрикос*1,0" или "абрикос вишня 1,0" или "абр*вишня*1,0"? То есть в данном примере, мне бы хотелось, чтоб в R1C3 было значение 3.
Изменено: neira - 18.04.2018 12:42:28
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 16:11:38
Юрий М
Извиняюсь и благодарю  :oops:
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 15:53:35
Юрий М
Скрытый текст


Я не очень разбираюсь в макросах. Не подскажите, где тут указан диапазон, чтоб я могла адаптировать его для рабочих нужд?
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 15:48:55
Юрий М
Копируется с верхним регистром. Не подскажите, как Вы этого добились?
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 15:39:31
Bema
На данный момент в таблицы используется эта формула, но хотела бы уйти от нее.
Пару раз получалось так, что текст вставлялся в скрытый столбец, а в необходимом месте уже были эти формулы, но кол-во ячеек с формулой оказалось меньше, чем количество ячеек с текстом... в общем, оказалось не очень удобным.
Изменено: neira - 14.04.2018 15:40:07
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 15:26:14
Юрий М
В файле примера это столбец 1, количество строк непостоянно. Вставляется текст с разным количеством строк, иногда из 10 строк, иногда из 28. Столбец всегда один и тот же.
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 15:18:07
Цитата
Юрий М написал:
а потом прямо здесь предложите новое название темы - модераторы поменяют.
"Возможно ли быстрым способом перевести текст в ячейках в верхний регистр или установить его по умолчанию?" если не очень длинное, думаю, подойдет в качестве краткого описания проблемы. Извиняюсь.
 
Перейти    
Возможно перевести текст в ячейках в верхний регистр или установить его по умолчанию?
 
#
14.04.2018 14:50:11
Доброго времени суток!

Хотела бы узнать, возможно ли установить формат ячейки такой, чтоб в ней были только заглавные буквы, даже, если Caps Lock не активен? Или может можно осуществить это какой-нибудь командой, выделив необходимые ячейки?
Цель: В определенные ячейки часто вставляется небольшой объем текста из стороннего источника и необходимо, чтоб вставленный текст был заглавными буквами.
Изменено: neira - 14.04.2018 15:20:10
 
Перейти    
Параметры страницы в макросе
 
#
06.01.2018 00:38:17
Казанский
Спасибо!
Изменено: neira - 06.01.2018 01:06:52
 
Перейти    
Параметры страницы в макросе
 
#
06.01.2018 00:17:52
vikttur
Плюс к этому мне необходимо еще назначить поля по 0,5 и альбомный режим.
Изменено: neira - 06.01.2018 00:17:59
 
Перейти    
Параметры страницы в макросе
 
#
06.01.2018 00:10:37
Доброго времени суток!

Необходим макрос, использованием которого можно изменить параметры страницы на:
Ориентация - Альбомная
Поля - 0,5 по всем бокам
Вписать - 1 страница в ширину и 1 страница в высоту

Мне однажды предоставили такой макрос:
Код
'Печать на один лист, края
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(2.0)
        .BottomMargin = Application.InchesToPoints(0.5)
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
Но он делает лишь возможной печать на одном листе.
 
Перейти    
Страницы: 1 2 3 След.
Наверх