Самый легкий в мире вопрос...

Тема в разделе "Visual Basic", создана пользователем Tequilla, 23 авг 2007.

  1. Tequilla

    Tequilla Гость

    здрасте :blink: !!

    есть xxx.xls в нем 2 листа. На первом("ВСЕ") инфа о всех предприятиях города. на втором("КУРИМ") те с которыми курим. НУЖНО перебрать все записи так что бы во ВСЕ напротив предприятия которое присутсвует в КУРИМ ставился "+" (в идеале индекс строки из курим).

    написал примерно такое
    Dim i, y As Integer
    Dim s As String

    For i = 2 To 350 '3105'
    s = Worksheets("КУРИМ").Cells(i, 3)
    For y = 2 To 787
    If s = Worksheets("ВСЕ").Cells(y, 1) Then
    Worksheets("ВСЕ").Cells(y, 15) = i
    End If
    Next y
    Next i

    работает!!! но это класический случай 8)

    ПРОБЛЕМА: "специалисты" отдела забили на все заголовки, и в поле "название" вместе с названием вбивали всякую пОебе...нь. т.е вo ВСЕ в столбик с названиями писали чисто название, а в КУРИМ название + кавычки+ООО, ОАО.... + гендиректоров.... и мне нужно проверять вхождение название(ВСЕ) в название(КУРИМ)...
    блин вроде ясно написал...
    помогите !!! это же супеер легко !!!!
     
  2. Over

    Over Well-Known Member

    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    Используй функцию InStr. Хелп найдёшь в редакторе VBA.
     
  3. Tequilla

    Tequilla Гость

    Для: Over
    офигеть !!!! спасибо :blink:
     
Загрузка...

Поделиться этой страницей