Вставка строки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставка строки (Вставка строки)

Вставка строки

row

Дата: Понедельник, 01.10.2012, 14:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 136

Репутация: 0 ±

Замечаний: 0% ±

Уважаемые форумчане. Есть база данных, в листе "Ввод" делаю поиск и двумя кликами мыши отправляю в лист "Таблица". Нельзя ли в коде поменять и вместо двух кликов мыши- поменять на горячию клавишу (например на CTR+V)

К сообщению приложен файл: __12-08-2012.xls (60.0 Kb)

Ответить

Gustav

Дата: Понедельник, 01.10.2012, 18:05 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Добавьте в книгу Модуль1 такого содержания:

[vba]

Code

Option Explicit

Sub setCtrlVOn() 'ВКЛ - запустить один раз перед массовым использованием
     Application.OnKey "^v", "newProc"
End Sub

Sub newProc() 'сюда перенесена функциональность Worksheet_BeforeDoubleClick из модуля листа "ввод"
     With ThisWorkbook.Worksheets("ввод")
         .Range(.Cells(ActiveCell.Row, 2), .Cells(ActiveCell.Row, 7)).Copy _
             Sheets("таблица").[b65536].End(xlUp).Offset(1)
     End With
End Sub

Sub setCtrlVOff() 'ВЫКЛ - запустить один раз ПОСЛЕ массового использования
     Application.OnKey "^v"
End Sub

[/vba]

К сообщению приложен файл: _12-08-2012_03.xls (52.5 Kb)

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Понедельник, 01.10.2012, 18:13

Ответить

row

Дата: Понедельник, 01.10.2012, 19:05 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 136

Репутация: 0 ±

Замечаний: 0% ±

Что-то не получается.Модуль вставил,вставил код

Ответить

Gustav

Дата: Понедельник, 01.10.2012, 19:15 | Сообщение № 4

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (row)

Модуль вставил,вставил код

хорошо, теперь выполните процедуру setCtrlVOn

Чтобы быть уверенным, что вставили в нужное место, можете проверить по моему файлу. Можете в нем же и запустить setCtrlVOn.

Также нужно понимать, что Ctrl+V теперь в привычном смысле Вы использовать не сможете. До тех пор, пока не запустите setCtrlVOff, которая вернет комбинацию к традиционному использованию (а именно, вставке). Или придумайте иную, менее общепринятую комбинацию клавиш.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Понедельник, 01.10.2012, 19:20

Ответить

row

Дата: Понедельник, 01.10.2012, 19:21 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 136

Репутация: 0 ±

Замечаний: 0% ±

Gustav.Я всё сделал.Вставил модуль и Ctrl+V нажал.Ваш файл при скачивании показывает ошибку.Но я скопировал код

Ответить

Gustav

Дата: Понедельник, 01.10.2012, 19:26 | Сообщение № 6

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Перед тем, как нажимать Ctrl+V, надо запустить процедуру setCtrlVOn. Т.е. надо включить новый смысл этой комбинации.

МОИ: Ник, Tip box: 41001663842605

Ответить

ABC

Дата: Понедельник, 01.10.2012, 19:31 | Сообщение № 7

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

стандартным путем:
в модуль код
[vba]

Code

Sub www()
If ActiveSheet.Name <> "ввод" Then Exit Sub
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).Copy _
Sheets("Таблица").[b65536].End(xlUp).Offset(1)
End Sub

[/vba]
Alt+F8 нажимаете, выделяете www, параметры, и Ctrl+[выбираете любую букву (например: q)]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

row

Дата: Понедельник, 01.10.2012, 19:34 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 136

Репутация: 0 ±

Замечаний: 0% ±

Gustav.Всё получилось забыл включить мокрос.Спасибо кто откликнулся.

Ответить

Вставка строки (Вставка строки)

Страница 1 из 1
1