можно ли сохранить свойства ячейки (конкретно необходимо сохранение сетки) после вставки туда данных из таблицы, которая не имеет сетки? весь вопрос во времени! можно нажать на свойства вставки и выбрать свойства оригинального документа (вроде бы такое где то было, или это в ворде такое...), можно каждый раз клацать на сетку и выбирать её наличие и т.д. но опять же, весь вопрос во времени! оно в данном случае критическое.
можно ли как то при защите документа ограничить свободу действий в не защищенных ячейках? есть ли какие то полумеры в защите?
можно ли сохранить свойства ячейки (конкретно необходимо сохранение сетки) после вставки туда данных из таблицы, которая не имеет сетки? весь вопрос во времени! можно нажать на свойства вставки и выбрать свойства оригинального документа (вроде бы такое где то было, или это в ворде такое...), можно каждый раз клацать на сетку и выбирать её наличие и т.д. но опять же, весь вопрос во времени! оно в данном случае критическое.
можно ли как то при защите документа ограничить свободу действий в не защищенных ячейках? есть ли какие то полумеры в защите?gagarin-ace
Как вариант - поставить кнопку вставки только значений на панель быстрого доступа и вставлять чере альт,
у меня альт+1 - вставка значений, альт+2 - формул
Точно так же можно разместить кнопку "копировать" и настроить например альт+1 - копировать, альт+2 вставить значения, чтобы вообще минимум телодвижений)
Как вариант - поставить кнопку вставки только значений на панель быстрого доступа и вставлять чере альт,
у меня альт+1 - вставка значений, альт+2 - формул
Точно так же можно разместить кнопку "копировать" и настроить например альт+1 - копировать, альт+2 вставить значения, чтобы вообще минимум телодвижений)elovkov
в принципе все эти варианты мне известны, но это всё лишние действия (задача именно состоит в том, чтоб от них уйти, реализовать минимально возможное количество действий). пока придумал только: в месте, где будет постоянно вставляться информация разместить дополнительную кнопку (макрос) чтоб не использовать ктрл+в и не бегать по меню
может у кого то будут ещё идеи?
п.с. примера нет, т.к. нечего выкладывать, есть лист с рамками (границы ячеек) и вставляется в него информация из листа где нет рамок
в принципе все эти варианты мне известны, но это всё лишние действия (задача именно состоит в том, чтоб от них уйти, реализовать минимально возможное количество действий). пока придумал только: в месте, где будет постоянно вставляться информация разместить дополнительную кнопку (макрос) чтоб не использовать ктрл+в и не бегать по меню
может у кого то будут ещё идеи?
п.с. примера нет, т.к. нечего выкладывать, есть лист с рамками (границы ячеек) и вставляется в него информация из листа где нет рамокntcn123
Ну меньше действий чем на альт посадить мне кажется не придумать уже) Кнопку себе делал подобного типа, из расчетной формы в лист для печати выводила чисто значения, но это скорее баловство, пробы в макросах
Ну меньше действий чем на альт посадить мне кажется не придумать уже) Кнопку себе делал подобного типа, из расчетной формы в лист для печати выводила чисто значения, но это скорее баловство, пробы в макросахelovkov
Private Sub Worksheet_Change(ByVal Target As Range) Range("A1:j10").Borders.LineStyle = True End Sub
[/vba], это не красиво совсем, т.к. действует только при копировании в жёстко заданный в коде диапазон. Уж лучше либо кнопку спецвставки на ПБД вытащить, либо макрос в Personal закинуть и повесить на горячие клавиши (у меня уже лет 20 спецвставка только текста повешена на хоткей Ctrl+Q).[vba]
Код
Sub SPPASTE_VAL() ' "Специальная вставка: ВСТАВИТЬ ТОЛЬКО ТЕКСТ" On Error Resume Next Selection.PasteSpecial Paste:=xlValues If Err Then Err.Clear: ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:=False If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Range("A1:j10").Borders.LineStyle = True End Sub
[/vba], это не красиво совсем, т.к. действует только при копировании в жёстко заданный в коде диапазон. Уж лучше либо кнопку спецвставки на ПБД вытащить, либо макрос в Personal закинуть и повесить на горячие клавиши (у меня уже лет 20 спецвставка только текста повешена на хоткей Ctrl+Q).[vba]
Код
Sub SPPASTE_VAL() ' "Специальная вставка: ВСТАВИТЬ ТОЛЬКО ТЕКСТ" On Error Resume Next Selection.PasteSpecial Paste:=xlValues If Err Then Err.Clear: ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:=False If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description End Sub
в конкретно моем случае в этом конкретном документе мне подошел больше вариант с зафиксированными ячейками. хотя я и потерял историю (ctrl+z), но после наборки документа (расчетного шаблона на изделие), им будут пользоваться исключительно в зоне куда вставляются данные. переучивать людей на клацание кнопки макроса или на сочетание клавиш - бессмысленная затея. п.с. весь диапазон сделан так, что с огромным запасом под возможные данные, даже если будет необходимость раз в месяц добавить вручную строк и для них вручную применить свойства - это допустимо и более выгодно для меня, т.к. суммарное время обработки данных не особо и пострадает.
п.п.с. цель всего моего документа - сократить до минимума действия, необходимые для работы с ним. (я ушел от 5-60 минутных рысканий, не исключающих ошибок. и сейчас добился менее 30 секунд с автоматической проверкой данных и результатов). при условии что мои знания до работы с документом ограничивались знаниями функции сумм.
в конкретно моем случае в этом конкретном документе мне подошел больше вариант с зафиксированными ячейками. хотя я и потерял историю (ctrl+z), но после наборки документа (расчетного шаблона на изделие), им будут пользоваться исключительно в зоне куда вставляются данные. переучивать людей на клацание кнопки макроса или на сочетание клавиш - бессмысленная затея. п.с. весь диапазон сделан так, что с огромным запасом под возможные данные, даже если будет необходимость раз в месяц добавить вручную строк и для них вручную применить свойства - это допустимо и более выгодно для меня, т.к. суммарное время обработки данных не особо и пострадает.
п.п.с. цель всего моего документа - сократить до минимума действия, необходимые для работы с ним. (я ушел от 5-60 минутных рысканий, не исключающих ошибок. и сейчас добился менее 30 секунд с автоматической проверкой данных и результатов). при условии что мои знания до работы с документом ограничивались знаниями функции сумм.
Serge_007, очень помогает макрос. на сколько я понимаю - он срабатывает при любом изменении любой из ячеек. возможно ли его ограничить на срабатывание только в случае, если происходит какое то изменение в указанном диапазоне? таким образом можно б было вернуть ctrl+z
Serge_007, очень помогает макрос. на сколько я понимаю - он срабатывает при любом изменении любой из ячеек. возможно ли его ограничить на срабатывание только в случае, если происходит какое то изменение в указанном диапазоне? таким образом можно б было вернуть ctrl+zgagarin-ace
gagarin-ace, если правильно Вас понял, то так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Range("a1:j10") If Not Intersect(Target, .Cells) Is Nothing Then .Borders.LineStyle = True End If End With End Sub
[/vba]
gagarin-ace, если правильно Вас понял, то так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Range("a1:j10") If Not Intersect(Target, .Cells) Is Nothing Then .Borders.LineStyle = True End If End With End Sub