Звук при изменении значения в ячейке

Вход

Регистрация

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

= Мир MS Excel/Звук при изменении значения в ячейке - Мир MS Excel

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

Звук при изменении значения в ячейке (Макросы/Sub)

Звук при изменении значения в ячейке

Vetos

Дата: Понедельник, 14.02.2022, 18:54 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

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

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
  If Intersect(Target, Columns(8)) Is Nothing Then
    Exit Sub
  Else
    For Each xCell In Columns(8)
        On Error Resume Next
        If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
          Beep
          Exit For
        End If
     Next
  End If
End If
End Sub

[/vba]
Скажите пожалуйста какой код будет для конкретных двух ячеек, например A1 и B3.

Ответить

_Igor_61

Дата: Понедельник, 14.02.2022, 20:28 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

Пробуйте:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Set Rng = Union(Range("A1"), Range("B3"))
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Rng) Is Nothing Then
Beep
End If
End Sub

[/vba]

Ответить

Vetos

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

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

Ранг: Прохожий

Сообщений: 4

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

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

_Igor_61, Супер, работает, огромное спасибо.

Ответить

Звук при изменении значения в ячейке (Макросы/Sub)

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