|
17.01.2013, 21:29 | #21 |
Администратор
Jack of Shadows Регистрация: 13.05.2002
Адрес: Москва
Сообщений: 7,533
|
Есть еще такой способ, горячими клавишами.
Нажать последовательно ctrl+shift+4 (вставка даты), пробел, ctrl+shift+6 (вставка времени). |
---------
Рано или поздно, так или иначе...
|
|
Реклама | |
|
18.01.2013, 13:27 | #22 | ||
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Цитата:
Цитата:
|
||
---------
DNF is not an option
|
|||
18.01.2013, 13:34 | #23 |
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Maksimus, Чтобы работало только в одной колонке достаточно добавить следующий код (выделено жирным)
Код:
Option Explicit ' Обратите внимание! Это функция конкретного листа, она должна быть там, а не в модуле ' Откройте VBA проект, выберите лист и по правой кнопке мыши Viev Code ' В открывшееся окно скопируйте программу. Работает по двойному нажатию ' ' Копирайт (ц) 2013 Hogfather. Олл райтс резервед Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error GoTo ErrorEvent ' Только одна ячейка If Target.Cells.Count > 1 Then Exit Sub End If ' Только для пятой колонки. В остальных случаях ничего не делаем If Target.Column <> 5 Then Exit Sub End If ' Чтобы избежать зацикливания Application.EnableEvents = False ' Если ячейка пустая -- ставим дату If Target.Offset(0, 0).Value = "" Or IsNull(Target.Offset(0, 0).Value) Then Target.Offset(0, 0).Value = Date End If ExitNormally: ' Возвращаем всё взад Application.EnableEvents = True Exit Sub ErrorEvent: MsgBox Err.Description Resume ExitNormally End Sub |
---------
DNF is not an option
|
|
18.01.2013, 14:19 | #24 | |
Администратор
Jack of Shadows Регистрация: 13.05.2002
Адрес: Москва
Сообщений: 7,533
|
Hogfather, не понял смайл после своей цитаты в предыдущем сообщении. Вы хотите сказать, что..?
Добавлено через 1 минуту И знаете почему не понял? Потому что указанные мной варианты горячих клавиш работают надежно, а вот эти Цитата:
Excel 2010. |
|
---------
Рано или поздно, так или иначе...
|
||
18.01.2013, 14:46 | #25 |
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Jacky,
Элементарно. Зависит от раскладки клавиатуры и способа её переключения. У меня переключение по Ctrl-Shift и Ваши комбинации не работают. Рекомендованные - работают на двух языках. Проверил. На "4" на русском регистре ";", на 6 на русском регистре ":", по сути, Вы пытаетесь сделать то же самое, что написано в инструкции, но в русской раскладке. |
---------
DNF is not an option
|
|
18.01.2013, 15:08 | #26 | |
Администратор
Jack of Shadows Регистрация: 13.05.2002
Адрес: Москва
Сообщений: 7,533
|
В любой раскладке. Есть нюанс, нажимать цифры надо на основном алфавитно-цифровом блоке, на дополнительном правом цифровом -- работать не будет. Добавлено через 56 секунд Цитата:
Короче говоря, желающие могут попробовать оба варианта, они равноценны, у кого что будет работать. Добавлено через 15 минут Hogfather, для полноты картины попробовал сменить у себя в системе переключение языка ввода с Alt+Shift на Ctrl+Shift и при этом комбинации ctrl+shift+4 и ctrl+shift+6 продолжают успешно работать в любой раскладке. Так что остается повторить: |
|
---------
Рано или поздно, так или иначе...
|
||
18.01.2013, 15:24 | #27 | |
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Цитата:
P.S. А тема вообще не о горячих клавишах, а о макросах. Макрос я написал. Dixi. |
|
---------
DNF is not an option
|
||
09.05.2013, 17:15 | #28 |
Gold Member
Регистрация: 08.04.2012
Адрес: Воронеж
Сообщений: 2,046
|
Спрошу тут, чтобы не создавать отдельную тему.
Коллеги, вводная такова. Имеется таблица в Excel, ячейки содержать в основном текст, в них разный цвет шрифта. Ячейки разного цвета идут вперемешку (к примеру, C1 красная, C2 красная, C3 зеленая, D1 синяя). Внимание, вопрос: есть ли возможность весь текст определенного шрифта перенести налево от определенного столбца (допустим, B)? Пока в голову пришла лишь такая идея - добавить к ячейкам определенного цвета какой-нибудь символ, например, ! , чтобы при сортировке они вылезли наверх, и переносить кусками. Возможно, есть что-то менее трудоемкой, т.к. столбцов там весьма немало? P.S. Студенты принесли материалы, сделанные понятно как, вот сижу и думаю, придется ли говорить им все переделывать вручную или все же удастся обойтись без крайних мер. |
---------
Грамотей-опричникъ
Сварщик я не настоящий, а сюда просто пописать зашел |
|
09.05.2013, 18:05 | #29 |
Platinum Member
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,304
|
Дмитрий В., в последних Excel есть фильтрация по цвету.
|
---------
DNF is not an option
|
|
09.05.2013, 18:14 | #30 |
Platinum Member
Регистрация: 12.03.2010
Адрес: Воронеж
Сообщений: 11,782
|
А я потерялся в Word 2003. Частая операция -
- правая кнопка на формуле - формат объекта - вкладка "размер" - поле масштаба "по высоте" установить в 80 % - ok Начинаю записывать макрос - вот прямо по этим действиям. А получается невесть что, причем разное... |
---------
Обычно пуська. Но иногда кое-кому доводится увидеть льва в год тигра...
"Экономика и менеджмент систем управления" - новый cписок ВАК |
|