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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Звук при изменении значения в ячейке (Макросы/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.
 
Ответить
СообщениеЗдравствуйте, есть код при изменения значения в ячейки определенной колонки воспроизводится системный звук

[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.

Автор - Vetos
Дата добавления - 14.02.2022 в 18:54
_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]
 
Ответить
СообщениеПробуйте:
[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]

Автор - _Igor_61
Дата добавления - 14.02.2022 в 20:28
Vetos Дата: Вторник, 15.02.2022, 01:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Vetos
Дата добавления - 15.02.2022 в 01:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Звук при изменении значения в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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