Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/"Вставить". Параметры по умолчанию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » "Вставить". Параметры по умолчанию.
"Вставить". Параметры по умолчанию.
RAN Дата: Понедельник, 26.11.2012, 12:07 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Приветствую.
При вставке из буфера по умолчанию используется форматирование исходного фрагмента, форматирование конечного фрагмента предлагается опционально.
Можно ли сделать, и как, чтобы по умолчанию использовалось форматирование конечного фрагмента, а исходного - опционально?
Excel 07-10.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПриветствую.
При вставке из буфера по умолчанию используется форматирование исходного фрагмента, форматирование конечного фрагмента предлагается опционально.
Можно ли сделать, и как, чтобы по умолчанию использовалось форматирование конечного фрагмента, а исходного - опционально?
Excel 07-10.

Автор - RAN
Дата добавления - 26.11.2012 в 12:07
Serge_007 Дата: Понедельник, 26.11.2012, 12:14 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Привет
Думаю что нет, но утверждать не берусь
По крайней мере никогда о таком не слышал и не читал


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПривет
Думаю что нет, но утверждать не берусь
По крайней мере никогда о таком не слышал и не читал

Автор - Serge_007
Дата добавления - 26.11.2012 в 12:14
Alex_ST Дата: Понедельник, 26.11.2012, 12:42 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
Андрей, не думаю, что это хорошая идея.
Ведь вставлять ты можешь не только диапазоны, но и картинки, диаграммы, элементы управления, да и ещё дофига всего.
Лучше уж для копирования-вставки ЗНАЧЕНИЙ использовать специальный макрос, подвешенный на хоткеи
Я, например, уже очень много лет и в Word'e и в Excel'e использую для вставки значения макрос, подвешенный на хоткей Ctrl+Q.
Для нашего сабжа - Excel'я это у меня написано так:
[vba]
Code
Private Sub SPPASTE_VAL()   '  "Специальная вставка: ВСТАВИТЬ ТОЛЬКО ТЕКСТ"
' Сочетания клавиш ^q, ^Q, ^й, ^Й для вызова этой процедуры назначаются при событии Workbook_Open
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlValues
    'Application.CommandBars.FindControl(ID:=370).Execute ' то же самое, но через Control ID - номер стандартной команды
End Sub
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Понедельник, 26.11.2012, 12:45
 
Ответить
СообщениеАндрей, не думаю, что это хорошая идея.
Ведь вставлять ты можешь не только диапазоны, но и картинки, диаграммы, элементы управления, да и ещё дофига всего.
Лучше уж для копирования-вставки ЗНАЧЕНИЙ использовать специальный макрос, подвешенный на хоткеи
Я, например, уже очень много лет и в Word'e и в Excel'e использую для вставки значения макрос, подвешенный на хоткей Ctrl+Q.
Для нашего сабжа - Excel'я это у меня написано так:
[vba]
Code
Private Sub SPPASTE_VAL()   '  "Специальная вставка: ВСТАВИТЬ ТОЛЬКО ТЕКСТ"
' Сочетания клавиш ^q, ^Q, ^й, ^Й для вызова этой процедуры назначаются при событии Workbook_Open
    On Error Resume Next
    Selection.PasteSpecial Paste:=xlValues
    'Application.CommandBars.FindControl(ID:=370).Execute ' то же самое, но через Control ID - номер стандартной команды
End Sub
[/vba]

Автор - Alex_ST
Дата добавления - 26.11.2012 в 12:42
Serge_007 Дата: Понедельник, 26.11.2012, 12:58 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Alex_ST)
Лучше уж для копирования-вставки ЗНАЧЕНИЙ использовать специальный макрос, подвешенный на хоткеи

Лёш, можно и без макроса smile


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Alex_ST)
Лучше уж для копирования-вставки ЗНАЧЕНИЙ использовать специальный макрос, подвешенный на хоткеи

Лёш, можно и без макроса smile

Автор - Serge_007
Дата добавления - 26.11.2012 в 12:58
RAN Дата: Понедельник, 26.11.2012, 13:11 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Леш, для меня это хорошая идея. Все дело в том, что у меня есть готовый шаблон, куда нужно вставлять данные. Данные получаются из различных программ, поэтому даже на лист Excel встают по разному. В процессе обработки я их вставляю на Лист1, обрабатываю (в т.ч. и макросами), а затем копирую в шаблон. Поскольку в одном случае данные попадают в столбец В, а в другом - С, в третьем - Е, установить форматы изначально невозможно (за исключением столбца А). Копировать макросом всю эту кучу будет не проще, чем вручную.
Сейчас собираю все с листа в буфер, затем переключаю лист и вставляю, но для каждой вставки приходится менять параметры.
Чтобы вставлять только текст, нужно для каждой вставки переключать лист.
Дополнительная кнопка или хоткей - попробовать можно, но думаю - не вариант.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЛеш, для меня это хорошая идея. Все дело в том, что у меня есть готовый шаблон, куда нужно вставлять данные. Данные получаются из различных программ, поэтому даже на лист Excel встают по разному. В процессе обработки я их вставляю на Лист1, обрабатываю (в т.ч. и макросами), а затем копирую в шаблон. Поскольку в одном случае данные попадают в столбец В, а в другом - С, в третьем - Е, установить форматы изначально невозможно (за исключением столбца А). Копировать макросом всю эту кучу будет не проще, чем вручную.
Сейчас собираю все с листа в буфер, затем переключаю лист и вставляю, но для каждой вставки приходится менять параметры.
Чтобы вставлять только текст, нужно для каждой вставки переключать лист.
Дополнительная кнопка или хоткей - попробовать можно, но думаю - не вариант.

Автор - RAN
Дата добавления - 26.11.2012 в 13:11
Alex_ST Дата: Понедельник, 26.11.2012, 15:03 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
Quote (Serge_007)
Лёш, можно и без макроса
Не, Серёга, метод по твоей ссылке который не отвечает ТЗ, полученному от Андрея biggrin
Ведь он просил замену стандартного. Правда, не уточнил, каким образом вызван стандартный: по Ctrl+V или по кнопочке на панели.

Есть ещё один гарный способ помочь Андрюхе, но только если он использует Punto Switcher (а сейчас очень многие его юзают и я в числе его больших любителей)
Достаточно в настройках Punto Switcher включить опцию "Общие"-"Дополнительные"-"Следить за буфером обмена" и по Ctrl+Shift+V будет выводиться список ранее скопированных значений. Так оттуда вставка идёт БЕЗ ФОРМАТА

А вообще Punto Switcher мне очень помогает в писанине: мало того, что переключает клавиатуру, так ещё это волшебное Ctrl+Shift+V с возможностью выбора из множества ранее скопированных, и ведение дневника (запись вводимого с клавы), а уж преобразование аббревиатур - это вообще супер для программирования!
У меня, например, там с десяток разных сокращений.
Начиная от простейшей замены двойного дефиса на длинный (правда, при вводе формул это иногда мешает) и трех точек на многоточие и до, к примеру, замены в коде при вводе app-false на With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .Calculation = xlManual: End With



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Понедельник, 26.11.2012, 15:06
 
Ответить
Сообщение
Quote (Serge_007)
Лёш, можно и без макроса
Не, Серёга, метод по твоей ссылке который не отвечает ТЗ, полученному от Андрея biggrin
Ведь он просил замену стандартного. Правда, не уточнил, каким образом вызван стандартный: по Ctrl+V или по кнопочке на панели.

Есть ещё один гарный способ помочь Андрюхе, но только если он использует Punto Switcher (а сейчас очень многие его юзают и я в числе его больших любителей)
Достаточно в настройках Punto Switcher включить опцию "Общие"-"Дополнительные"-"Следить за буфером обмена" и по Ctrl+Shift+V будет выводиться список ранее скопированных значений. Так оттуда вставка идёт БЕЗ ФОРМАТА

А вообще Punto Switcher мне очень помогает в писанине: мало того, что переключает клавиатуру, так ещё это волшебное Ctrl+Shift+V с возможностью выбора из множества ранее скопированных, и ведение дневника (запись вводимого с клавы), а уж преобразование аббревиатур - это вообще супер для программирования!
У меня, например, там с десяток разных сокращений.
Начиная от простейшей замены двойного дефиса на длинный (правда, при вводе формул это иногда мешает) и трех точек на многоточие и до, к примеру, замены в коде при вводе app-false на With Application: .ScreenUpdating = False: .EnableEvents = False: .DisplayAlerts = False: .Calculation = xlManual: End With

Автор - Alex_ST
Дата добавления - 26.11.2012 в 15:03
Serge_007 Дата: Понедельник, 26.11.2012, 15:51 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Alex_ST)
метод по твоей ссылке который не отвечает ТЗ, полученному от Андрея

Я вообще-то отвечал тебе на твое предложение
Quote (Alex_ST)
для копирования-вставки ЗНАЧЕНИЙ


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Alex_ST)
метод по твоей ссылке который не отвечает ТЗ, полученному от Андрея

Я вообще-то отвечал тебе на твое предложение
Quote (Alex_ST)
для копирования-вставки ЗНАЧЕНИЙ

Автор - Serge_007
Дата добавления - 26.11.2012 в 15:51
RAN Дата: Понедельник, 26.11.2012, 17:21 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Попробую Пунто.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПопробую Пунто.

Автор - RAN
Дата добавления - 26.11.2012 в 17:21
Alex_ST Дата: Понедельник, 26.11.2012, 17:24 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
Попробуй. Привыкнешь. Не пожалеешь.
Там столько всяких полезных фич!
Только когда будешь ставить выбирай "Выборочно" и отказывайся от Яндекс-бара и прочей лабуды.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Понедельник, 26.11.2012, 17:25
 
Ответить
СообщениеПопробуй. Привыкнешь. Не пожалеешь.
Там столько всяких полезных фич!
Только когда будешь ставить выбирай "Выборочно" и отказывайся от Яндекс-бара и прочей лабуды.

Автор - Alex_ST
Дата добавления - 26.11.2012 в 17:24
RAN Дата: Понедельник, 26.11.2012, 17:31 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Да у меня он давно стоит. Только контроль буфера отключен. А Яндекс Бар мне нравится. С удовольствием впихнул бы в Яндекс браузер, да не лезет.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДа у меня он давно стоит. Только контроль буфера отключен. А Яндекс Бар мне нравится. С удовольствием впихнул бы в Яндекс браузер, да не лезет.

Автор - RAN
Дата добавления - 26.11.2012 в 17:31
Serge_007 Дата: Понедельник, 26.11.2012, 17:38 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (RAN)
С удовольствием впихнул бы в Яндекс браузер, да не лезет

Друзья, а Вы этот мой пост видели?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (RAN)
С удовольствием впихнул бы в Яндекс браузер, да не лезет

Друзья, а Вы этот мой пост видели?

Автор - Serge_007
Дата добавления - 26.11.2012 в 17:38
RAN Дата: Понедельник, 26.11.2012, 18:21 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А то нет!


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА то нет!

Автор - RAN
Дата добавления - 26.11.2012 в 18:21
Alex_ST Дата: Понедельник, 26.11.2012, 20:44 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение

Автор - Alex_ST
Дата добавления - 26.11.2012 в 20:44
borus Дата: Четверг, 21.02.2013, 09:51 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

2007
Цитата (Alex_ST)
Достаточно в настройках Punto Switcher включить опцию "Общие"-"Дополнительные"-"Следить за буфером обмена" и по Ctrl+Shift+V будет выводиться список ранее скопированных значений. Так оттуда вставка идёт БЕЗ ФОРМАТА

это почему-то не работает у меня. Копирую из Хрома. PuntoSwitcher Версия 3.1.1 Сборка 72
Похоже надо было добавить горячие клавиши для показа буфера обмена smile


желаю вам счастья

Сообщение отредактировал borus - Четверг, 21.02.2013, 10:40
 
Ответить
Сообщение
Цитата (Alex_ST)
Достаточно в настройках Punto Switcher включить опцию "Общие"-"Дополнительные"-"Следить за буфером обмена" и по Ctrl+Shift+V будет выводиться список ранее скопированных значений. Так оттуда вставка идёт БЕЗ ФОРМАТА

это почему-то не работает у меня. Копирую из Хрома. PuntoSwitcher Версия 3.1.1 Сборка 72
Похоже надо было добавить горячие клавиши для показа буфера обмена smile

Автор - borus
Дата добавления - 21.02.2013 в 09:51
borus Дата: Четверг, 21.02.2013, 10:12 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

2007
Цитата (Serge_007)
Лёш, можно и без макроса

попробовал и по этой статье. 3 и 4 способы не работают, комментарии под статьей. Excel 2007


желаю вам счастья
 
Ответить
Сообщение
Цитата (Serge_007)
Лёш, можно и без макроса

попробовал и по этой статье. 3 и 4 способы не работают, комментарии под статьей. Excel 2007

Автор - borus
Дата добавления - 21.02.2013 в 10:12
Serge_007 Дата: Четверг, 21.02.2013, 10:24 | Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Цитата (borus)
3 и 4 способы не работают

Третий Вы использовали не по назначению (копировали не из Excel), четвёртый не работает ТОЛЬКО у Вас (вероятно Вы тоже не из Excel копируете)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (borus)
3 и 4 способы не работают

Третий Вы использовали не по назначению (копировали не из Excel), четвёртый не работает ТОЛЬКО у Вас (вероятно Вы тоже не из Excel копируете)

Автор - Serge_007
Дата добавления - 21.02.2013 в 10:24
Alex_ST Дата: Четверг, 21.02.2013, 11:24 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
А попробуйте-ка вот такой хитрый вариант:[vba]
Код
Sub SPPASTE_PLUS()   '  "Специальная вставка"
     On Error Resume Next
     Selection.PasteSpecial Paste:=xlValues
     If Err Then Err.Clear: ActiveSheet.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
[/vba]
Я немного потестировал "в разных позах". Похоже, все хотелки исполняет.
Даже на картинках не спотыкается и на разных размерах выделенного и скопированного диапазонов.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Четверг, 21.02.2013, 11:36
 
Ответить
СообщениеА попробуйте-ка вот такой хитрый вариант:[vba]
Код
Sub SPPASTE_PLUS()   '  "Специальная вставка"
     On Error Resume Next
     Selection.PasteSpecial Paste:=xlValues
     If Err Then Err.Clear: ActiveSheet.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
[/vba]
Я немного потестировал "в разных позах". Похоже, все хотелки исполняет.
Даже на картинках не спотыкается и на разных размерах выделенного и скопированного диапазонов.

Автор - Alex_ST
Дата добавления - 21.02.2013 в 11:24
borus Дата: Четверг, 21.02.2013, 11:29 | Сообщение № 18
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

2007
Цитата (Alex_ST)
On Error Resume Next
Selection.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:=False
If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf

На строке If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf спотыкается
Разобрался. Когда копировал с форума в тело макроса, русские буквы заменялись на ?????. а это оказалось критично
Благодарю


желаю вам счастья

Сообщение отредактировал borus - Четверг, 21.02.2013, 11:33
 
Ответить
Сообщение
Цитата (Alex_ST)
On Error Resume Next
Selection.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Paste:=xlValues
If Err Then Err.Clear: ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:=False
If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf

На строке If Err Then MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf спотыкается
Разобрался. Когда копировал с форума в тело макроса, русские буквы заменялись на ?????. а это оказалось критично
Благодарю

Автор - borus
Дата добавления - 21.02.2013 в 11:29
Alex_ST Дата: Четверг, 21.02.2013, 11:36 | Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
borus,
эта строка для того и введена ВРЕМЕННО, чтобы можно было понять, на чём спотыкается.
Если Вы не сообщите, что и откуда было в буфер обмена скопировано перед пробой макроса и какое сообщение выводится при ошибке, то исправить ничего не удастся.

P.S.
Я там в MsgBox лишний & vbCrLf в конце не убрал когда копировал... Подправил код в предыдущем посте.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Четверг, 21.02.2013, 11:40
 
Ответить
Сообщениеborus,
эта строка для того и введена ВРЕМЕННО, чтобы можно было понять, на чём спотыкается.
Если Вы не сообщите, что и откуда было в буфер обмена скопировано перед пробой макроса и какое сообщение выводится при ошибке, то исправить ничего не удастся.

P.S.
Я там в MsgBox лишний & vbCrLf в конце не убрал когда копировал... Подправил код в предыдущем посте.

Автор - Alex_ST
Дата добавления - 21.02.2013 в 11:36
borus Дата: Четверг, 21.02.2013, 11:40 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

2007
Цитата (Alex_ST)
эта строка для того и введена ВРЕМЕННО для того, чтобы понять, на чём спотыкается.
Если Вы не сообщите, что и откуда было в буфер обмена скопировано перед пробой макроса и какое сообщение выводится при ошибке, то исправить ничего не удастся.

а как можно сделать так, чтобы макрос вызывался как по CTRL+q, так и по CTRL+й? Не удобно, что макрос запускается только в английской раскладке. CRL+1 не работает


желаю вам счастья

Сообщение отредактировал borus - Четверг, 21.02.2013, 11:42
 
Ответить
Сообщение
Цитата (Alex_ST)
эта строка для того и введена ВРЕМЕННО для того, чтобы понять, на чём спотыкается.
Если Вы не сообщите, что и откуда было в буфер обмена скопировано перед пробой макроса и какое сообщение выводится при ошибке, то исправить ничего не удастся.

а как можно сделать так, чтобы макрос вызывался как по CTRL+q, так и по CTRL+й? Не удобно, что макрос запускается только в английской раскладке. CRL+1 не работает

Автор - borus
Дата добавления - 21.02.2013 в 11:40
Мир MS Excel » Вопросы и решения » Вопросы по Excel » "Вставить". Параметры по умолчанию.
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!