Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Команда макрос для нескольких ячеек
 
#1
03.06.2024 18:02:54
Добрый день. Подскажите пожалуйста какая команда существует для того чтобы назначить один макрос для нескольких ячеек или для каждой активной ячейки. Заранее благодарюю  
 
 
 
#2
04.06.2024 04:22:57
Здравствуйте. Не совсем понятно, что Вам нужно
Может в ЭТОЙ статье найдете ответы
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
10.06.2024 17:06:00
Здравствуйте еще раз). Пример с макросом прикрепил. Помогите вызвать один и тот же макрос для ячеек B8, B13 и B29 с датой.  Заранее благодарю.  
 
 
 
#4
10.06.2024 17:41:16
В модуль листа Sheet1.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const sRange = "B8 B13 B29"
    
    Dim vRange As Variant
    For Each vRange In Split(sRange, " ")
        If Not Intersect(Target, Range(vRange)) Is Nothing Then
            Calendar1
            Exit For
        End If
    Next
End Sub
 
 
 
#5
10.06.2024 17:46:40
Какой макрос Вам нужно вызвать? По какому событию для этих ячеек?
Макрос ниже вызывает календарь при двойном клике в вышеуказанных ячейках. Так надо было?
Макрос в модуле Листа
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("B8"), Range("B13"), Range("B29"))) Is Nothing Then
  Cancel = True
  Call Calendar1
End If
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
11.06.2024 10:18:33
Нужен тот же макрос-календарь, который используется для ячейки B8, чтобы он так же вызывался для ячеек B13, B29. Измененный Вами макрос теперь вызывает календарь при нажатии ячеек B8, B13, B29 но дата автоматически не выводится в ячейки, если можно так сделать, чтобы вызывался календарь и можно было выбрать из календаря дату для каждой ячейки.  
 
 
 
#7
11.06.2024 10:32:19
Модуль Листа. Открытие Календаря по двойному клику
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("B8"), Range("B13"), Range("B29"))) Is Nothing Then
  Cancel = True
  Str = Target.Row: Stlb = Target.Column
  Call Calendar1(Str, Stlb)
End If
End Sub

Основной модуль
Код
Public Str As Long, Stlb As Long

Sub Calendar1(Str, Stlb)
  Calendar.Show vbModeless
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
11.06.2024 10:43:09
Простите за тупизм, но я совершенно не знаю как код писать, макрос скачал с интернета, если Вам не трудно, можете прикрепить файл с кодом. Старался сделать как Вы написали, но выдает ошибку "Argument not optional". Заранее благодарю.  
 
 
 
#9
11.06.2024 10:44:28
См.файл
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
11.06.2024 10:53:16
Sanja, огромная Вам благодарность. Все работает отлично  :)    
 
 
 
Страницы: 1
Читают тему
Наверх