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

Вход

Регистрация

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

 

= Мир MS Excel/Как узнать, поменялась ли колонна - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как узнать, поменялась ли колонна (Формулы/Formulas)
Как узнать, поменялась ли колонна
Tavlar Дата: Вторник, 25.08.2020, 09:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Можно ли с помощью макроса реализовать данную задачу?
Данные из ячеек перемещаются перетаскиванием, т.е. нажимается на ячейку и мышкой эта ячейка перетаскивается на другую ячейку. Как можно сделать так, чтобы если при перетаскивании значения из одной колонны в другую выскакивало сообщение, что не в ту колонну скопировали. Надо перетаскивать только вниз вверх
 
Ответить
СообщениеЗдравствуйте.
Можно ли с помощью макроса реализовать данную задачу?
Данные из ячеек перемещаются перетаскиванием, т.е. нажимается на ячейку и мышкой эта ячейка перетаскивается на другую ячейку. Как можно сделать так, чтобы если при перетаскивании значения из одной колонны в другую выскакивало сообщение, что не в ту колонну скопировали. Надо перетаскивать только вниз вверх

Автор - Tavlar
Дата добавления - 25.08.2020 в 09:16
Tavlar Дата: Вторник, 25.08.2020, 13:12 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Option Explicit
Public sValue As String, z As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
Dim y As Long
                  y = Target.Column

If y <> z Then
MsgBox "Îøèáêà"
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
z = Target.Column
    
End Sub
[/vba]
разобрался, может кому интересно будет
 
Ответить
Сообщение[vba]
Код
Option Explicit
Public sValue As String, z As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "LOG" Then Exit Sub
Dim y As Long
                  y = Target.Column

If y <> z Then
MsgBox "Îøèáêà"
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
z = Target.Column
    
End Sub
[/vba]
разобрался, может кому интересно будет

Автор - Tavlar
Дата добавления - 25.08.2020 в 13:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как узнать, поменялась ли колонна (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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