+ Ответить в теме
Показано с 1 по 4 из 4

Тема: Vba: проблема с функцией

  1. #1
    Volond is on a distinguished road
    Регистрация
    12.12.2006
    Возраст
    37
    Сообщений
    1
    Вес репутации
    0

    По умолчанию Vba: проблема с функцией

    Макрос должен по двум заданным значениям найти ячейку и скопировать
    Но во втором цикле перебор не происходит
    Sheets("Лист1").Select
    Range("B1").Activate
    For i = 1 To 100
    If Range("B" & i) = Sheets("Лист2").Range("B2") Then
    Sheets("Лист1").Select
    For j = i To 40
    If Range("J" & j) = "20.11.2006" Then
    Range("J" & j).Copy
    Sheets("CHERNOUS.KRD").Select
    Range("a11").Activate
    ActiveSheet.Paste
    End If
    Next j
    End If
    Next i

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    Игорь Акопян is on a distinguished road Аватар для Игорь Акопян
    Регистрация
    13.10.2004
    Адрес
    СПБ
    Возраст
    44
    Сообщений
    1,419
    Вес репутации
    17

    По умолчанию Re: Vba: проблема с функцией

    а зачем копировать значение "20.11.2006" из ячейки и вставлять его в другую, если можно тупо присвоить это значение?
    Код vb:
    1. sub qwe()
    2.   If ActiveCell.Find(Sheets("Лист1").Range("B2") then _
    3.     Sheets("CHERNOUS.KRD").Range("a11").Value = "20.11.2006"
    4. end sub

  4. #3
    senior developer Genyaa is on a distinguished road
    Регистрация
    11.10.2006
    Адрес
    Moscow
    Возраст
    52
    Сообщений
    307
    Вес репутации
    13

    По умолчанию Re: Vba: проблема с функцией

    если во втором цикле в Range("J" & j) проверяется ячейка не с текстовым форматом, а с датой, определенно не срабатывает вот эта проверка:

    If Range("J" & j) = "20.11.2006" Then

    Попробуйте так:

    If Range("J" & j).Value = DateValue("20/11/2006") Then
    Всякое решение плодит новые проблемы.

  5. #4
    senior developer Sokl is on a distinguished road
    Регистрация
    12.09.2005
    Адрес
    ОМ
    Сообщений
    449
    Вес репутации
    14

    По умолчанию Re: Vba: проблема с функцией

    Цитата Сообщение от Volond
    Макрос должен по двум заданным значениям найти ячейку и скопировать
    Должен, но не делает этого. Макрос "проверяет" есть ли в ячееках B1:B100 листа1 значение, равное значению ячейки B2 листа2, и если есть, то макрос "ищет" значение "20.11.2006" среди значений ячеек J1:J40 листа1, копирует значение "20.11.2006" на лист "CHERNOUS.KRD", а затем ошибочно продолжает поиск на листе "CHERNOUS.KRD". Наверное!

+ Ответить в теме

Похожие темы

  1. Проблема с функцией CountIf (VBA for Excel)!!!
    Проблема с функцией CountIf. Есть таблица с данными: 495 168 168 00623800000042263000 00623800000042263680 00623800000042263680 для подсчета...
    от AleksME в разделе MS Office и VB(A).
  2. VBA: проблема с функцией
    Короче, такая беда. Написал функцию линейного интерполирования Function Agp(xt(), yt(), x, n As Integer) Dim i As Integer, j As Integer, j1...
    от Irbis в разделе MS Office и VB(A).
  3. Проблема с функцией GetOpenFileName
    Функция GetOpenFileName почему то не работает на машинах с Windows XP Professionsonal. Причем на машинах с Windows XP Home Edition эта же функция...
    от Nata в разделе MS Office и VB(A).
  4. Проблема с пользовательской функцией
    Здраствуйте! Работаю в Excel 2003 Требуется: при определенном значении в ячейке 1 записывать в ячейку 2 определённый текст. Среди...
    от BelkaJul в разделе MS Office и VB(A).
  5. Проблема с функцией chomp
    Суть проблемы Из 1 файла достаются построчно значения вид такой 192.168.0.1\n 192.168.0.2\n 192.168.0.3\n и т.д. После чего значение ipшников...
    от Diver mps в разделе Perl, PHP, ASP ...

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения