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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для закрепления ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для закрепления ячейки (Иное/Other)
Макрос для закрепления ячейки
nikitan95 Дата: Вторник, 24.10.2017, 13:17 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
Здравствуйте!
Вопрос скорее макросоведам. Имеем ячейки А1:А3. В первых двух формулы. В последней вводятся данные (текстовые). Как сделать так, чтобы после ввода в А3, курсор оставался там же? Желательно макросом. Варианты скрыть оставшиеся строки отпадают. Заранее благодарствую!
 
Ответить
СообщениеЗдравствуйте!
Вопрос скорее макросоведам. Имеем ячейки А1:А3. В первых двух формулы. В последней вводятся данные (текстовые). Как сделать так, чтобы после ввода в А3, курсор оставался там же? Желательно макросом. Варианты скрыть оставшиеся строки отпадают. Заранее благодарствую!
Автор - nikitan95
Дата добавления - 24.10.2017 в 13:17
sboy Дата: Вторник, 24.10.2017, 13:28 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
в модуле листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then [a3].Activate
End Sub
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
в модуле листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then [a3].Activate
End Sub
[/vba]
Автор - sboy
Дата добавления - 24.10.2017 в 13:28
_Boroda_ Дата: Вторник, 24.10.2017, 13:31 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Вместо Ентер после ввода жать Контрл Ентер

Или макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then Target.Select
End Sub
[/vba]
К сообщению приложен файл: 71869789.xlsm (11.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВместо Ентер после ввода жать Контрл Ентер

Или макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then Target.Select
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 24.10.2017 в 13:31
nikitan95 Дата: Вторник, 24.10.2017, 14:42 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
Спасибо, Александр! Но я сдвинул потом диапазон на один столбец. Со стольца А на В. Исправил в макросе на b3. Перемещается после ввода на с3. Может там в Adress надо что-то менять? Честно не понял ничего..
 
Ответить
СообщениеСпасибо, Александр! Но я сдвинул потом диапазон на один столбец. Со стольца А на В. Исправил в макросе на b3. Перемещается после ввода на с3. Может там в Adress надо что-то менять? Честно не понял ничего..
Автор - nikitan95
Дата добавления - 24.10.2017 в 14:42
_Boroda_ Дата: Вторник, 24.10.2017, 14:45 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата nikitan95, 24.10.2017 в 14:42, в сообщении № 4 ()
Честно не понял ничего..

Я тоже. Вы ж не показываете в файле что где как поменяли

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата nikitan95, 24.10.2017 в 14:42, в сообщении № 4 ()
Честно не понял ничего..

Я тоже. Вы ж не показываете в файле что где как поменяли
Автор - _Boroda_
Дата добавления - 24.10.2017 в 14:45
nikitan95 Дата: Вторник, 24.10.2017, 15:26 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
Пример приложил.
К сообщению приложен файл: 6748286.xlsm (14.0 Kb)
 
Ответить
СообщениеПример приложил.
Автор - nikitan95
Дата добавления - 24.10.2017 в 15:26
_Boroda_ Дата: Вторник, 24.10.2017, 15:39 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Букву b напишите по-нормальному - B

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеБукву b напишите по-нормальному - B
Автор - _Boroda_
Дата добавления - 24.10.2017 в 15:39
nikitan95 Дата: Вторник, 24.10.2017, 15:40 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
Странно, что с Вашим файлом перенос столбца работает, с моим нет. Может виной первый макрос у меня для скролла? И кстати, спасибо, что без выговора переместили мою тему в VBA)
 
Ответить
СообщениеСтранно, что с Вашим файлом перенос столбца работает, с моим нет. Может виной первый макрос у меня для скролла? И кстати, спасибо, что без выговора переместили мою тему в VBA)
Автор - nikitan95
Дата добавления - 24.10.2017 в 15:40
_Boroda_ Дата: Вторник, 24.10.2017, 15:41 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Это не я пеернес.
А виной не первый макрос, а кнопка Шифт. см. в моем посте выше
Цитата nikitan95, 24.10.2017 в 15:40, в сообщении № 8 ()
Странно, что с Вашим файлом перенос столбца работает

ничего странного :D

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто не я пеернес.
А виной не первый макрос, а кнопка Шифт. см. в моем посте выше
Цитата nikitan95, 24.10.2017 в 15:40, в сообщении № 8 ()
Странно, что с Вашим файлом перенос столбца работает

ничего странного :D
Автор - _Boroda_
Дата добавления - 24.10.2017 в 15:41
nikitan95 Дата: Вторник, 24.10.2017, 15:45 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
Спасибо, не знал, что VBA столь чувствителен к регистру.
 
Ответить
СообщениеСпасибо, не знал, что VBA столь чувствителен к регистру.
Автор - nikitan95
Дата добавления - 24.10.2017 в 15:45
_Boroda_ Дата: Вторник, 24.10.2017, 15:50 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Когда идет прямое сравнение, то А<>а, если первой строкой не написано
Option Compare Text
https://msdn.microsoft.com/ru-ru....atement

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКогда идет прямое сравнение, то А<>а, если первой строкой не написано
Option Compare Text
https://msdn.microsoft.com/ru-ru....atement
Автор - _Boroda_
Дата добавления - 24.10.2017 в 15:50
nikitan95 Дата: Вторник, 24.10.2017, 15:58 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 421
Репутация: 0 ±
Замечаний: 0% ±

2021
_Boroda_, спасибо! Будем грызть по камешкам..
 
Ответить
Сообщение_Boroda_, спасибо! Будем грызть по камешкам..
Автор - nikitan95
Дата добавления - 24.10.2017 в 15:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для закрепления ячейки (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

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