При изменении значения в ячейке excel

Обычно в Excel мы можем нажать клавишу F5 или кнопку «Выполнить», чтобы выполнить код VBA. Но пробовали ли вы когда-нибудь запустить конкретный код макроса при изменении значения ячейки? В этой статье я расскажу о некоторых быстрых приемах, которые помогут справиться с этой задачей в Excel.

Запуск или вызов макроса при изменении значения определенной ячейки с кодом VBA

Запуск или вызов макроса при изменении любого значения ячейки в диапазоне с кодом VBA

Запуск или вызов макроса при изменении значения определенной ячейки с кодом VBA

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

1. Щелкните правой кнопкой мыши вкладку листа, на которой вы хотите выполнить макрос, если значение ячейки изменится, а затем выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:

Код VBA: запускать макрос при изменении значения ячейки:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call Mymacro
    End If
End Sub

Внимание: В приведенном выше коде A1 это конкретная ячейка, на основе которой вы хотите запустить код, Mymacro это имя макроса, который вы хотите запустить. Пожалуйста, измените их по своему усмотрению.

2. А затем сохраните и закройте окно кода, теперь, когда вы вводите или изменяете значение в ячейке A1, определенный код будет запускаться сразу.

Запуск или вызов макроса при изменении любого значения ячейки в диапазоне с кодом VBA

Если вы хотите запускать или запускать макрос, когда значение какой-либо ячейки изменяется в диапазоне ячеек, следующий код может вам помочь.

1. Щелкните правой кнопкой мыши вкладку листа, на которой вы хотите выполнить макрос, если значение ячейки изменится, а затем выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:

Код VBA: запускать макрос при изменении любого значения ячейки в диапазоне:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub

Внимание: В приведенном выше коде A1: B100 это конкретные ячейки, на основе которых вы хотите запустить код, Mymacro это имя макроса, который вы хотите запустить. Пожалуйста, измените их по своему усмотрению.

2. А затем сохраните и закройте окно кода, теперь, когда вы вводите или изменяете значение в любой ячейке A1: B100, конкретный код будет выполнен сразу.

Статьи по теме:

Как запустить макрос автоматически перед печатью в Excel?

Как запустить макрос на основе значения ячейки в Excel?

Как запустить макрос на основе значения, выбранного из раскрывающегося списка в Excel?

Как запустить макрос, щелкнув гиперссылки в Excel?

Как запустить макрос, когда лист выбран из книги?

Было три ComboBox, в первых двух выводились значения начала и окончания производства партии, в третьем при выборе времени окончания появлялись характеристики производства партии. Все значения забирались из базы данных. Так вот нужно сделать то же самое, но время начала и окончания должны быть записаны вручную в ячейки и после этого на основе этих данных формируется список в третьем ComboBox.
Код на комбобоксы выглядел так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

Private Sub Workbook_Open()
    Dim cnt As ADODB.Connection, NewLine As Variant
    Dim rcs As ADODB.Recordset
    Set cnt = CreateObject("ADODB.Connection")
        cnt.ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False; Data Source = '" + ActiveSheet.Range("B4").Value + "'; User ID = '" + ActiveSheet.Range("B6").Value + "'; Password = '" + ActiveSheet.Range("B7").Value + "'; Initial Catalog = '" + ActiveSheet.Range("B5").Value + "'"
        cnt.Open
    Set rcs = cnt.Execute("SELECT Start_Time FROM Batch_Information")
    Do Until rcs.EOF = True
        ActiveSheet.ComboBox1.AddItem Format(rcs.Fields.Item(0).Value, "YYYY.MM.DD hh:mm:ss")
        rcs.MoveNext
    Loop
        rcs.Close: cnt.Close
    Set cnt = Nothing
End Sub
 
Private Sub ComboBox1_Change()
    ActiveSheet.ComboBox2.Clear
    ActiveSheet.ComboBox3.Clear
    Dim cnt As ADODB.Connection, NewLine As Variant
    Dim rcs As ADODB.Recordset
    Set cnt = CreateObject("ADODB.Connection")
        cnt.ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False; Data Source = '" + ActiveSheet.Range("B4").Value + "'; User ID = '" + ActiveSheet.Range("B6").Value + "'; Password = '" + ActiveSheet.Range("B7").Value + "'; Initial Catalog = '" + ActiveSheet.Range("B5").Value + "'"
        cnt.Open
    Set rcs = cnt.Execute("SELECT End_Time FROM Batch_Information")
    Do Until rcs.EOF = True
        Me.ComboBox2.AddItem Format(rcs.Fields.Item(0).Value, "YYYY.MM.DD hh:mm:ss")
        rcs.MoveNext
    Loop
        rcs.Close: cnt.Close
    Set cnt = Nothing
End Sub
 
Private Sub ComboBox2_Change()
    ActiveSheet.ComboBox3.Clear
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim a As Variant
    Dim b As String, c As String
        a = TextBox1.Value
        b = Format(CDate(ComboBox1.Value), "YYYY-MM-DD hh:mm:ss")
        c = Format(CDate(ComboBox2.Value), "YYYY-MM-DD hh:mm:ss")
    Set cnt = CreateObject("ADODB.Connection")
        cnt.ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False; Data Source = '" + ActiveSheet.Range("B4").Value + "'; User ID = '" + ActiveSheet.Range("B6").Value + "'; Password = '" + ActiveSheet.Range("B7").Value + "'; Initial Catalog = '" + ActiveSheet.Range("B5").Value + "'"
        cnt.Open
    Set rst = cnt.Execute("DECLARE @Start_Time datetime = convert(smalldatetime,'" + b + "',120), @End_Time   datetime = convert(smalldatetime,'" + c + "',120) SELECT DISTINCT Features FROM Features f JOIN Process_Information pi ON f.Features_id = pi.Features_id JOIN Batch_Information bi ON pi.Batch_id = bi.Batch_id WHERE pi.Value > '" + a + "' AND bi.Start_Time >= @Start_Time AND bi.End_Time <= @End_Time")
    Do Until rst.EOF = True
        Worksheets(1).ComboBox3.AddItem rst.Fields.Item(0).Value
        rst.MoveNext
    Loop
        rst.Close: cnt.Close
    Set cnt = Nothing
End Sub

Добавлено через 35 минут
Сделал проще:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> [F7].Address Then Exit Sub
    ActiveSheet.ComboBox3.Clear
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim a As Variant
    Dim b As String, c As String
        a = ActiveSheet.TextBox1.Value
        b = Format(CDate(ActiveSheet.Range("F5").Value), "YYYY-MM-DD hh:mm:ss")
        c = Format(CDate(ActiveSheet.Range("F7").Value), "YYYY-MM-DD hh:mm:ss")
    Set cnt = CreateObject("ADODB.Connection")
        cnt.ConnectionString = "Provider = SQLOLEDB.1; Persist Security Info = False; Data Source = '" + ActiveSheet.Range("B4").Value + "'; User ID = '" + ActiveSheet.Range("B6").Value + "'; Password = '" + ActiveSheet.Range("B7").Value + "'; Initial Catalog = '" + ActiveSheet.Range("B5").Value + "'"
        cnt.Open
    Set rst = cnt.Execute("SELECT DISTINCT Features FROM Features")
    Do Until rst.EOF = True
        Worksheets(1).ComboBox3.AddItem rst.Fields.Item(0).Value
        rst.MoveNext
    Loop
        rst.Close: cnt.Close
    Set cnt = Nothing
End Sub

При изменении ячейки F7 происходит заполнение третьего комбобокса, теперь мне нужно тоже сделать и при изменении ячейки F5. Пробовал условие писать через OR — не получается.

В Excel множество функций, но некоторые возможности не видны на первый взгляд. Неудивительно, ведь неизвестно, что может пригодиться пользователю, поэтому нет смысла выносить все на основную панель. Часто нужно выполнить какое-то действие при определенном условии, решаемое формулой. Но что, если вам необходимо выполнять действие/макрос при изменении ячейки листа Excel. Это тоже можно сделать при помощи макроса VBA. А как запустить макрос при изменении ячейки?

Чтобы запустить макрос (действие) при изменении данных в ячейке, существует несколько возможностей. Мне больше всего нравится эта конструкция:

Макрос, выполняемый при изменении ячейки

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
   If Target = 0 Then
     MsgBox "Запустите Ваше действие"
   End If
 End If
End Sub

Вставьте вместо MsgBox «Запустите Ваше действие» ваш код. Полезные макросы можно посмотреть в этой статье. Для этого макроса если, ячейка А1 становится нулевой, то появляется сообщение (MsgBox) «Запустите Ваше действие».

Как запустить макрос при изменении ячейки?

Сперва включите вкладку Разработчик. Затем пройдите в меню Visual Basic, первый значок слева на картинке (или нажмите Alt+f11):

Важно! Чтобы запустить код типа Worksheet_Change, необходимо записать код не в модуль макроса, а в саму книгу! Подробнее здесь:

Выберите нужную книгу и нужный лист (в примере Лист1), кликнув два раза по листу и в правом окне вставьте код, указанный выше. Если вам нужно, чтобы ваше действие выполнялось, когда ячейка изменяет значение на заполненную, то нужно изменить текст Target = 0 на Target <> 0.

Лично я рекомендую добавить больше условий, при каких действиях будет выполняться ваше действие, чтобы макрос не запускался при любом изменении. Вообще надо быть аккуратным с этой функцией. Бывает и такое — вы забываете, что есть макрос с условиями, а информация изменяется, можно даже не заметить этого