Страницы: 1
RSS
Команда макрос для нескольких ячеек
 
Добрый день. Подскажите пожалуйста какая команда существует для того чтобы назначить один макрос для нескольких ячеек или для каждой активной ячейки. Заранее благодарюю  
 
Здравствуйте. Не совсем понятно, что Вам нужно
Может в ЭТОЙ статье найдете ответы
Согласие есть продукт при полном непротивлении сторон
 
Здравствуйте еще раз). Пример с макросом прикрепил. Помогите вызвать один и тот же макрос для ячеек B8, B13 и B29 с датой.  Заранее благодарю.  
 
В модуль листа 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
 
Какой макрос Вам нужно вызвать? По какому событию для этих ячеек?
Макрос ниже вызывает календарь при двойном клике в вышеуказанных ячейках. Так надо было?
Макрос в модуле Листа
Код
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
Согласие есть продукт при полном непротивлении сторон
 
Нужен тот же макрос-календарь, который используется для ячейки B8, чтобы он так же вызывался для ячеек B13, B29. Измененный Вами макрос теперь вызывает календарь при нажатии ячеек B8, B13, B29 но дата автоматически не выводится в ячейки, если можно так сделать, чтобы вызывался календарь и можно было выбрать из календаря дату для каждой ячейки.  
 
Модуль Листа. Открытие Календаря по двойному клику
Код
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
Согласие есть продукт при полном непротивлении сторон
 
Простите за тупизм, но я совершенно не знаю как код писать, макрос скачал с интернета, если Вам не трудно, можете прикрепить файл с кодом. Старался сделать как Вы написали, но выдает ошибку "Argument not optional". Заранее благодарю.  
 
См.файл
Согласие есть продукт при полном непротивлении сторон
 
Sanja, огромная Вам благодарность. Все работает отлично  :)    
Страницы: 1
Наверх