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

Вход

Регистрация

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

 

= Мир MS Excel/Конечное расположение маркера на экране монитора - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конечное расположение маркера на экране монитора (Макросы/Sub)
Конечное расположение маркера на экране монитора
IgMaxx Дата: Вторник, 23.05.2017, 09:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Друзья, подскажите пожалуйста есть ли команда VBA, которая бы после запуска различных макросов и перемещений маркера регулировала как будет располагаться маркер на экране, как варианты:

- нахождение маркера по центру экрана;
- нахождение маркера в левой (верхней) части экрана.

А то после запуска макросов маркер оказывается каждый раз где угодно.

Заранее благодарю!
 
Ответить
СообщениеДрузья, подскажите пожалуйста есть ли команда VBA, которая бы после запуска различных макросов и перемещений маркера регулировала как будет располагаться маркер на экране, как варианты:

- нахождение маркера по центру экрана;
- нахождение маркера в левой (верхней) части экрана.

А то после запуска макросов маркер оказывается каждый раз где угодно.

Заранее благодарю!
Автор - IgMaxx
Дата добавления - 23.05.2017 в 09:38
and_evg Дата: Вторник, 23.05.2017, 09:40 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 496
Репутация: 100 ±
Замечаний: 0% ±

Excel 2007
IgMaxx, Что подразумевается под "маркером"?
 
Ответить
СообщениеIgMaxx, Что подразумевается под "маркером"?
Автор - and_evg
Дата добавления - 23.05.2017 в 09:40
Karataev Дата: Вторник, 23.05.2017, 09:41 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1342
Репутация: 535 ±
Замечаний: 0% ±

Excel
Цитата IgMaxx, 23.05.2017 в 09:38, в сообщении № 1 ()
- нахождение маркера в левой (верхней) части экрана.

[vba]
Код
Sub Перемещение_маркера()
    Range("A1").Select
End Sub
[/vba]
 
Ответить
Сообщение
Цитата IgMaxx, 23.05.2017 в 09:38, в сообщении № 1 ()
- нахождение маркера в левой (верхней) части экрана.

[vba]
Код
Sub Перемещение_маркера()
    Range("A1").Select
End Sub
[/vba]
Автор - Karataev
Дата добавления - 23.05.2017 в 09:41
IgMaxx Дата: Вторник, 23.05.2017, 09:54 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Я имею ввиду, чтобы, например, текущая ячейка после окончания запуска макросов всегда была в центре экрана,

переход к первой ячейке A1 это не то
 
Ответить
СообщениеЯ имею ввиду, чтобы, например, текущая ячейка после окончания запуска макросов всегда была в центре экрана,

переход к первой ячейке A1 это не то
Автор - IgMaxx
Дата добавления - 23.05.2017 в 09:54
Karataev Дата: Вторник, 23.05.2017, 09:59 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1342
Репутация: 535 ±
Замечаний: 0% ±

Excel
Может быть Вы делали макрос помощью макрорекордера и в макросе есть прокрутка монитора? Если так, то просто удалите из кода все строки, связанные с прокруткой. В этих строках есть слово "Scroll". Например:
[vba]
Код
ActiveWindow.SmallScroll Down:=3
[/vba]


Сообщение отредактировал Karataev - Вторник, 23.05.2017, 10:00
 
Ответить
СообщениеМожет быть Вы делали макрос помощью макрорекордера и в макросе есть прокрутка монитора? Если так, то просто удалите из кода все строки, связанные с прокруткой. В этих строках есть слово "Scroll". Например:
[vba]
Код
ActiveWindow.SmallScroll Down:=3
[/vba]
Автор - Karataev
Дата добавления - 23.05.2017 в 09:59
and_evg Дата: Вторник, 23.05.2017, 10:01 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 496
Репутация: 100 ±
Замечаний: 0% ±

Excel 2007
Может так?
[vba]
Код
Activecell.Show
[/vba]
 
Ответить
СообщениеМожет так?
[vba]
Код
Activecell.Show
[/vba]
Автор - and_evg
Дата добавления - 23.05.2017 в 10:01
Karataev Дата: Вторник, 23.05.2017, 10:06 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1342
Репутация: 535 ±
Замечаний: 0% ±

Excel
Еще вариант прокрутки для "нахождение маркера в левой (верхней) части экрана":
[vba]
Код
Sub Прокрутка()
    ActiveWindow.ScrollColumn = ActiveCell.Column
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
[/vba]
 
Ответить
СообщениеЕще вариант прокрутки для "нахождение маркера в левой (верхней) части экрана":
[vba]
Код
Sub Прокрутка()
    ActiveWindow.ScrollColumn = ActiveCell.Column
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
[/vba]
Автор - Karataev
Дата добавления - 23.05.2017 в 10:06
IgMaxx Дата: Вторник, 23.05.2017, 10:14 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да, делал макрос как вручную так и и частично с помощью макрорекордера, он выглядит так:

[vba]
Код
Sub SameReturn()
'
' SameReturn Макрос
'

'
ActiveCell.Offset(0, -6).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-6]+(RC[-2]-RC[-5])/365"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-3]),MONTH(RC[-3])+4,DAY(RC[-3]))"
ActiveCell.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0

ActiveCell.Offset(0, -2).Range("A1").Select
Application.CutCopyMode = False
Selection.ClearComments

End With
End Sub
[/vba]

как видно из первой строки макрос должен запускаться как минимум из 7-й колонки (G)


Сообщение отредактировал IgMaxx - Вторник, 23.05.2017, 10:45
 
Ответить
СообщениеДа, делал макрос как вручную так и и частично с помощью макрорекордера, он выглядит так:

[vba]
Код
Sub SameReturn()
'
' SameReturn Макрос
'

'
ActiveCell.Offset(0, -6).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-6]+(RC[-2]-RC[-5])/365"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-3]),MONTH(RC[-3])+4,DAY(RC[-3]))"
ActiveCell.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0

ActiveCell.Offset(0, -2).Range("A1").Select
Application.CutCopyMode = False
Selection.ClearComments

End With
End Sub
[/vba]

как видно из первой строки макрос должен запускаться как минимум из 7-й колонки (G)
Автор - IgMaxx
Дата добавления - 23.05.2017 в 10:14
and_evg Дата: Вторник, 23.05.2017, 10:15 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 496
Репутация: 100 ±
Замечаний: 0% ±

Excel 2007
IgMaxx, оформите код тегом #
 
Ответить
СообщениеIgMaxx, оформите код тегом #
Автор - and_evg
Дата добавления - 23.05.2017 в 10:15
IgMaxx Дата: Вторник, 23.05.2017, 10:32 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
and_evg

Я сильно извиняюсь, но просьба:

оформите код тегом #

???? для меня это тёмный лес, я очень начинающий в этом деле, что надо сделать?
 
Ответить
Сообщениеand_evg

Я сильно извиняюсь, но просьба:

оформите код тегом #

???? для меня это тёмный лес, я очень начинающий в этом деле, что надо сделать?
Автор - IgMaxx
Дата добавления - 23.05.2017 в 10:32
Pelena Дата: Вторник, 23.05.2017, 10:40 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Под своим постом нажмите кнопку Правка, выделите код и нажмите кнопку # на панели инструментов. Сохраните изменения

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПод своим постом нажмите кнопку Правка, выделите код и нажмите кнопку # на панели инструментов. Сохраните изменения
Автор - Pelena
Дата добавления - 23.05.2017 в 10:40
IgMaxx Дата: Вторник, 23.05.2017, 10:45 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, понял, сделал
 
Ответить
СообщениеСпасибо, понял, сделал
Автор - IgMaxx
Дата добавления - 23.05.2017 в 10:45
Pelena Дата: Вторник, 23.05.2017, 10:56 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата IgMaxx, 23.05.2017 в 09:54, в сообщении № 4 ()
текущая ячейка после окончания запуска макросов всегда была в центре экрана

Посмотрите здесь похожая тема

А если просто выделить ячейку в центре экрана, то можно так
[vba]
Код
Sub OnCenter()
    Dim rng As Range
    Set rng = ActiveWindow.VisibleRange
    ActiveSheet.Cells(Int(rng.Row + rng.Rows.Count / 2), Int(rng.Column + rng.Columns.Count / 2)).Select
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата IgMaxx, 23.05.2017 в 09:54, в сообщении № 4 ()
текущая ячейка после окончания запуска макросов всегда была в центре экрана

Посмотрите здесь похожая тема

А если просто выделить ячейку в центре экрана, то можно так
[vba]
Код
Sub OnCenter()
    Dim rng As Range
    Set rng = ActiveWindow.VisibleRange
    ActiveSheet.Cells(Int(rng.Row + rng.Rows.Count / 2), Int(rng.Column + rng.Columns.Count / 2)).Select
End Sub
[/vba]
Автор - Pelena
Дата добавления - 23.05.2017 в 10:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конечное расположение маркера на экране монитора (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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