Excel vba if target column - Word и Excel - помощь в работе с программами

Содержание

Событие Worksheet.Change (Excel)
Синтаксис
Параметры
Возвращаемое значение
Замечания
Пример
Поддержка и обратная связь
Excel VBA
Worksheet Change Event, Excel VBA
Excel vba if target columns

Событие Worksheet.Change (Excel)

Происходит при изменении ячеек на листе пользователем или внешней ссылкой.

Синтаксис

expression. Изменение (целевой объект)

Выражение Переменная, представляющая объект Worksheet .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Target (Целевое значение)	Обязательный	Диапазон	Измененный диапазон. Может быть несколько ячеек.

Возвращаемое значение

Nothing

Замечания

Это событие не возникает при изменении ячеек во время пересчета. Используйте событие Calculate для перехвата пересчета листа.

Пример

В следующем примере кода цвет измененных ячеек изменяется на синий.

В следующем примере кода проверяется, что при изменении значения ячейки измененная ячейка находится в столбце A, а также если измененное значение ячейки больше 100. Если значение больше 100, смежная ячейка в столбце B изменяется на красный цвет.

В следующем примере кода значения в диапазоне A1:A10 задаются в верхнем регистре при вводе данных в ячейку.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Excel VBA

Worksheet Change Event, Excel VBA

User Rating: 5 / 5

Worksheet Change Event in VBA and Preventing Event Loops

Related Links:

Contents:

Worksheet_Change Event:

You can auto run a VBA code, when content of a worksheet cell changes, with the Worksheet_Change event. The change event occurs when cells on the worksheet are changed either by the user, or by any VBA application or by an external link, but not when a cell changes due to recalculation as a result from formula or due to format change. For changes made by calculation, use Worksheet_Calculate event.

Worksheet change procedure is installed with the worksheet, ie. it must be placed in the code module of the appropriate Sheet object. To create a worksheet change event: use the Visual Basic Editor -> in the Project Explorer, double click on the appropriate sheet (under ‘Microsoft Excel Objects’ which is under the VBAProject/name of your workbook) -> in the Code window, select «Worksheet» from the left-side «General» drop-down menu and then select «Change» from the right-side «Declarations» drop-down menu. You will get a procedure «shell» in the code window as follows:

Private Sub Worksheet_Change(ByVal Target As Range)

Target is a parameter of data type Range (ie. Target is a Range Object). It refers to the changed Range and can consist of one or multiple cells. If Target is in the defined Range, and its value or content changes, it will trigger the vba procedure. If Target is not in the defined Range, nothing will happen in the worksheet. In this manner, you can limit the events to a particular range for both the Change and SelectionChange events. This can be done in multiple ways:

Using Target Address. Trigger the procedure, if a single cell (A5) value is changed:

If Target.Address = «$A$5» Then MsgBox «Success»

If Target.Address = Range(«$A$5»).Address Then MsgBox «Success»

If Target.Address = Range(«A5»).Address Then MsgBox «Success»

Using Target Address. If cell (A1) or cell (A3) value is changed:

If Target.Address = «$A$1» Or Target.Address = «$A$3» Then MsgBox «Success»

Using Target Address. If any cell(s) value other than that of cell (A1) is changed:

If Target.Address <> «$A$1» Then MsgBox «Success»

The following use of Target.Address is not correct, and the code will not run:

If Target.Address = «$a$5» Then MsgBox «Success»

If Target.Address = «A1» Then MsgBox «Success»

If Target.Address = «$A$1:$A$10» Then MsgBox «Success»

If Target.Address = Range(«$A$1:$A$10») Then MsgBox «Success»

Note : Target.Address should be an absolute reference [unless used as Range(«A5»).Address — see above] and in Caps. Use this to run code when content of a single cell is changed or when any cell(s) other than a specific cell is changed.

Trigger the procedure, if any cell in a column(s) is changed, say for any change in a cell in column B or column C:

If Target.Column = 2 Or Target.Column = 3 Then MsgBox «Success»

Intersect method for a single cell. If Target intersects with the defined Range of A1 ie. if cell (A1) value is changed, the code is triggerred:

If Not Application.Intersect(Target, Range(«A1»)) Is Nothing Then MsgBox «Success»

Trigger the procedure, if at least one cell of Target is A1,B2,C3:

If Not Application.Intersect(Target, Range(«A1,B2,C3»)) Is Nothing Then MsgBox «Success»

At least one cell of Target is within the range C5:D25:

If Not Application.Intersect(Target, Me.Range(«C5:D25»)) Is Nothing Then MsgBox «Success»

If you want the code to run when only a single cell in Range(«C1:C10») is changed and do nothing if multiple cells are changed:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range(«C1:C10»)) Is Nothing Or Target.Cells.Count > 1 Then

End Sub

Preventing Event Loops with Application.EnableEvents = False

Example of a recursive loop code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range(«A1:A10»)) Is Nothing Then

Range(«A5»).Value = Range(«A5»).Value + 1

End Sub

Recursive Event Loop:

If, at each runtime, the worksheet_change event changes the content of a cell which itself is part of the Target Range (ie. which triggers the change event), it will result in reprocessing the change event repeatedly. Recursion is the process of repeating in a similar way viz. when the procedure calls itself. Refer to above example of a recursive loop code, if any cell content in Range(«A1:A10») is changed by the user, the cell A5 value will change and increment by 1; this will again trigger the change event [because of change in value of cell A5 which is in the Target Range(«A1:A10»)] and will in turn change the cell A5 value by incrementing it by 1; and then this change in cell A5 will again trigger the change event and change the cell A5 value by incrementing it by 1; and so on. This will result in a recursive loop which might result in a ‘Out Of Stack Space’ untrappable error, or depending on the Excel setting, the loop might terminate at a threshold limit of say 100. To prevent this, enter the following at the beginning of the code: Application.EnableEvents = False. This means that any change made by the VBA code will not trigger any event and will not enable restarting the worksheet_change event. EnableEvents is not automatically changed back to True, this should be specifically done in your code, by adding the following line at the end of the code: Application.EnableEvents = True. Meanwhile, if during runtime, your code encounters an error, you will need an ErrorHandler (to change EnableEvents back to True) because events have been disabled in the beginning of the code. This can be done as follows.

ErrorHandler, Example 1:

Private Sub Worksheet_Change(ByVal Target As Range)

‘on the occurrence of an error procedure flow is directed to the error-handling routine (ie. ErrHandler) which handles the error
On Error GoTo ErrorHandler

‘to prevent recursion — so that any change made by code will not trigger an event to restart the Worksheet_Change event

‘on changing cell A1 or B1, go to ErrorHandler which reverts EnableEvents to True & then exit sub

If Target.Address = «$A$1» Or Target.Address = «$B$1» Then GoTo ErrorHandler

‘if value of any cell in column 1 or 2 is changed

If Target.Column = 1 Or Target.Column = 2 Then

‘if changed cell value is numeric ie. new value is not text

If IsNumeric(Target) Then

‘increment cell B2 value by 1

Range(«B2»).Value = Range(«B2»).Value + 1

‘EnableEvents is not automatically changed back to True & hence this needs to be done specifically at the end of the code before exit.

‘because an exit statement (ex. Exit Sub) is not placed above, the error-handling routine will also execute when there is no error.

End Sub

ErrorHandler, Example 2:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next ‘skip all run-time errors

If Target.Address = «$A$1» Or Target.Address = «$B$1» Then Exit Sub

If Target.Column = 1 Or Target.Column = 2 Then

If IsNumeric(Target) Then

Range(«B2»).Value = Range(«B2»).Value + 1

On Error GoTo 0 ‘Turn off error trapping and re-allow run time errors

End Sub

On Error Statements explained:

On Error Resume Next: Specifies that when a run-time error occurs, control goes to the statement immediately following the statement where the error occurred, and execution continues from that point.

The On Error GoTo 0 statement turns off error trapping. It disables enabled error handler in the current procedure and resets it to Nothing.

On Error GoTo Line: Enables the error-handling routine that starts at the specified Line. The On Error GoTo statement traps all errors, regardless of the exception class.

Источник

Excel vba if target columns

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как определить, что была вставлена строка? (или несколько) (Макросы/Sub)

Как определить, что была вставлена строка? (или несколько)

Michael_S

Дата: Вторник, 12.04.2016, 14:49 | Сообщение № 1

RAN

Дата: Вторник, 12.04.2016, 15:08 | Сообщение № 2

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit

Private Sub Worksheet_Activate()
n = Me.UsedRange.Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.UsedRange.Rows.Count <> n Then MsgBox «Мяу!»
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Me.UsedRange.Rows.Count
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit

Private Sub Worksheet_Activate()
n = Me.UsedRange.Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.UsedRange.Rows.Count <> n Then MsgBox «Мяу!»
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Me.UsedRange.Rows.Count
End Sub

Быть или не быть, вот в чем загвоздка!

Ответить

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit

Private Sub Worksheet_Activate()
n = Me.UsedRange.Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.UsedRange.Rows.Count <> n Then MsgBox «Мяу!»
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Me.UsedRange.Rows.Count
End Sub

Michael_S

Дата: Вторник, 12.04.2016, 15:17 | Сообщение № 3

RAN

Дата: Вторник, 12.04.2016, 15:29 | Сообщение № 4

	Быть или не быть, вот в чем загвоздка!

Ответить

_Boroda_

Дата: Вторник, 12.04.2016, 15:32 | Сообщение № 5

RAN, Андрей, так реагирует еще и на просто вставку значения ниже ЮзедРенжа. И не реагирует на вставку строки ниже него (правда, смысла на него реагировать я не вижу). Это я про первый твой код.

Michael_S, Михаил, предлагаю сравнивать кол-во ячеек Тэджета и кол-ва ячеек в одной строке. Тоже может быть совпадение, но довольно маловероятно.
[vba]

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

Ответить

Сообщение RAN, Андрей, так реагирует еще и на просто вставку значения ниже ЮзедРенжа. И не реагирует на вставку строки ниже него (правда, смысла на него реагировать я не вижу). Это я про первый твой код.

SLAVICK

Дата: Вторник, 12.04.2016, 16:00 | Сообщение № 6

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Dim n&

Private Sub Worksheet_Activate()
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.CountLarge Mod Me.Columns.Count = 0 And Me.Cells(1, 1).SpecialCells(xlLastCell).Row > n Then MsgBox «Мяу! + d:)»
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Сначала думал тоже к UsedRange привязатся, но если он начинается, к примеру, с 4-й строки а вставка пустой строки происходит до него — то к-во его строк не изменяется.

Добавил:
Если нужно отследить именно вставку пустой строки — поменять процедуру Worksheet_Change на (2-й файл) :
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Dim n&

Private Sub Worksheet_Activate()
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Добавил:
Если нужно отследить именно вставку пустой строки — поменять процедуру Worksheet_Change на (2-й файл) :
[vba]

Иногда все проще чем кажется с первого взгляда.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Option Explicit
Dim n&

Private Sub Worksheet_Activate()
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
n = Me.Cells(1, 1).SpecialCells(xlLastCell).Row
Application.EnableEvents = True
End Sub

Добавил:
Если нужно отследить именно вставку пустой строки — поменять процедуру Worksheet_Change на (2-й файл) :
[vba]

leonrom

Дата: Четверг, 21.09.2017, 17:37 | Сообщение № 7

Private oldR As Integer
Private oldC As Integer
Private nExp As Integer

Private Sub Worksheet_Activate()
Dim ur As Range
Set ur = Me.UsedRange
oldR = ur.Row + ur.rows.Count
oldC = ur.Column + ur.Columns.Count
nExp = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxR As Integer, maxC As Integer, r As Integer, c As Integer, ur As Range

Set ur = Worksheets(«Лист1»).UsedRange
maxR = ur.Row + ur.rows.Count
maxC = ur.Column + ur.Columns.Count
r = Target.Row
c = Target.Column

nExp = nExp + 1
If maxR > oldR Then Debug.Print nExp, «+ R » & (maxR — oldR) & » from » & r
If maxR oldC Then Debug.Print nExp, «+ C » & (maxC — oldC) & » from » & c
If maxC