Как узнать, поменялась ли колонна

Вход

Регистрация

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

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

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

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

Как узнать, поменялась ли колонна (Формулы/Formulas)

Как узнать, поменялась ли колонна

Tavlar

Дата: Вторник, 25.08.2020, 09:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

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

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

Excel 2019

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

Ответить

Tavlar

Дата: Вторник, 25.08.2020, 13:12 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 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]
разобрался, может кому интересно будет

Ответить

Как узнать, поменялась ли колонна (Формулы/Formulas)

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