Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
помогите в файле найти макрос
 
#1
17.09.2012 21:24:30
Доброго времени суток. Ситуация парадоксальная. Более полгода назад делал этот файл, использовал макрос проверки заполнености ячейки (столбец J дата должен быть заполнен до заполнения ОПЛАТА и т.П.). Вопрос: где найти код макроса, хоть убейте не помню, куда он вставлялся, чтобы отрабатывал событие.
 
 
 
#2
17.09.2012 21:27:41
Alt+F11, модуль Лист11(123)  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
     
  If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Columns("K:K")) Is Nothing Then  
           Application.EnableEvents = False  
       If IsEmpty(Target.Offset(0, -1)) Then  
           Target.Offset(0, -1).Select  
           MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
           Application.EnableEvents = True  
   End If  
 
 If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Columns("M:M")) Is Nothing Then  
           Application.EnableEvents = False  
       If IsEmpty(Target.Offset(0, -3)) Then  
           Target.Offset(0, -3).Select  
           MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
           Application.EnableEvents = True  
   End If  
 
 If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Columns("P:P")) Is Nothing Then  
           Application.EnableEvents = False  
       If IsEmpty(Target.Offset(0, -6)) Then  
           Target.Offset(0, -6).Select  
           MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
           Application.EnableEvents = True  
   End If  
 
 If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Columns("O:O")) Is Nothing Then  
           Application.EnableEvents = False  
       If IsEmpty(Target.Offset(0, -5)) Then  
           Target.Offset(0, -5).Select  
           MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
           Application.EnableEvents = True  
   End If  
 
End Sub
 
 
 
#3
17.09.2012 21:29:15
.
 
 
 
#4
17.09.2012 21:34:06
Что-то я сомневаюсь, что это "делал" ТС... написано очень хорошо... чтобы так писать, надо не один месяц нажимать Alt+F11 )) Поверьте мне, автор этого кода, никогда не забыл бы, как зайти в редактор VBE )  
 
P.S. это я так... к слову )
 
 
 
#5
17.09.2012 21:35:11
Другой путь :-) Правый клик по ярлычку листа - Исходный текст.
 
 
 
#6
17.09.2012 21:39:20
{quote}{login=}{date=17.09.2012 09:34}{thema=}{post}Что-то я сомневаюсь, что это "делал" ТС... написано очень хорошо... чтобы так писать, надо не один месяц нажимать Alt+F11 )) Поверьте мне, автор этого кода, никогда не забыл бы, как зайти в редактор VBE ){/post}{/quote}ТС честно написал:  
<<< ...ИСПОЛЬЗОВАЛ макрос проверки заполнености ячейки...>>>  
ИМХО "Использовал" и "написал" - далеко не одно и тоже :-)
 
 
 
#7
17.09.2012 21:40:57
Проверка If Target.Cells.Count > 1 Then Exit Sub выполняется 4 раза - зачем? Оставьте только одну строку (самую первую). И я бы исправил "С начало" на "Сначала" :-)
 
 
 
#8
17.09.2012 21:42:06
To: Serge 007  
 
ааа, точно )
 
 
 
#9
17.09.2012 22:59:47
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
 
   Select Case Target.Column  
       Case 11, 13, 15, 16  
           Dim rngDate As Range  
           Set rngDate = Range("J" & Target.Row)  
 
           If IsEmpty(rngDate.Value) Then  
               Application.EnableEvents = False  
               rngDate.Select  
               Application.EnableEvents = True  
               MsgBox "С начало вводим дату!", 48, "Ошибка"  
           End If  
   End Select  
End Sub
 
 
 
Страницы: 1
Читают тему
Loading...