Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA не видит если дата расчитана формулой
 
#1
23.05.2017 15:46:31
Добрый день всем. Помогите понять почему когда дата стоит вручную, то ВБА определяет ячейку методом Рендж, а если дата с помощью формулы расчитана, то селект не срабатывает.  
 
 
 
#2
23.05.2017 16:07:00
Это Find не видит.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
23.05.2017 16:12:32
Измените вашу процедуру на такой вариант и будет Вам счастье
Код
Sub ZapolnitDanie2()
Dim X As String, X1 As Date, X2 As Range, X3 As Integer, X4 As Integer
Dim rngBase As Range, rngIcells As String
'_______________________________ на какую дату делаем заполнение ___________________________________________
X1 = Range("S6").Text 'берем дату для определения заполняемой колонки
Set X2 = Range("A4:G4")
For Each vl In X2.Cells
  If vl.Text = X1 Then vl.Select: Exit For 'выделяем и выходим из цикла
Next
End Sub
 
 
 
#4
23.05.2017 16:13:58
Цитата
JayBhagavan написал:
Это Find не видит.
В окне Locals как раз видно что Find находит дату, а вот дальше ячейка не выделяется. Почему?
 
 
 
#5
23.05.2017 16:16:57
Цитата
TSN написал: For Each vl In X2.Cells  If vl.Text = X1 Then vl.Select: Exit For 'выделяем и выходим из циклаNext
Да через Цикл работает. Все-таки Find виноват???
 
 
 
#6
23.05.2017 16:20:16
Виноват не find. Вы ищете средствами excel (find). У вас в ячейке стоит формула, как таковой искомой даты нет там. Попробуйте через поиск в самом excel найти Вашу дату - не получается.
Код
Sub ZapolnitDanie2a()
    Dim rngBase As Range
    For Each rngBase In Range("A4:G4")
        If rngBase.Value = Range("s6").Value Then
            rngBase.Select
            Exit Sub
        End If
    Next rngBase
End Sub
 
 
 
#7
23.05.2017 16:20:55
Цитата
Виталий Криворучко написал: В окне Locals как раз видно что Find находит дату
Неужели?
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх