Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Використання офісного програмування в розробці Електрон освітніх ресурсов

Реферат Використання офісного програмування в розробці Електрон освітніх ресурсов





К», 2008. - 256с.


ДОДАТОК

Перевірка_збігів ()

Dim page As Worksheet

Dim col As Object, arr,

Dim outcol As New Collection

arr=Split ( DEGHJKMNP Q )

arr1=Split ( FILO R )

On Error Resume Next i=9 To 57 Step 2

Set col=New Collection

For Each page In Each el In arr

t=page.Range (el amp; i).

If Len (t) Then col.Add t,

If Err Then

outcol.Add page.Name amp; - Raquo; amp; el amp; i amp; - Raquo; amp; t amp; laquo ;. Дивись рядок: amp; i: Err.Clear 'вівідення ПОВІДОМЛЕННЯ

End If

Next el

Next page

Next ii=8 To 56 Step 2

Set col=New Collection

For Each page In Worksheets

For Each el In arr1

t=page.Range (el amp; i) .Value

If t lt; gt; СК And t lt; gt; каф And t lt; gt; КАФ And t lt; gt; ск Then

If Len (t) Then

For Each t In Split (t, /)

col.Add t, CStr (t)

If Err Then outcol.Add page.Name amp; - Raquo; amp; el amp; i amp; - Аудит. amp; t amp; laquo ;. Дивись рядок: amp; i: Err.Clear 'вівідення ПОВІДОМЛЕННЯ

Next t

End If

End If

Next el

Next page

Next iSheets ( збігі ). Cells.Clear Withoutcol.Count gt; 0 Then

i=0

With Sheets ( збігі )

For Each el In outcol

i=i + 1

. Cells (i, A )=el

Next el

End With

End IfSub


Назад | сторінка 9 з 9





Схожі реферати:

  • Реферат на тему: Проектування і розробка сайту засобами Web Page Maker
  • Реферат на тему: Особливості создания поліграфічної продукції та нюанси роботи Із програмою ...
  • Реферат на тему: Створення друкованне видання Засоба програми Page Maker на тему "Музеї ...
  • Реферат на тему: The collection of French art in the Hermitage
  • Реферат на тему: Маркетингові дослідження і розробка плану маркетингу "Clean and Clear& ...