Forums - Показать сообщение отдельно

ХимоБиоШмалеДоп · 01.05.2009, 17:57

В общем вот приблизительный код макроса, проблема в том, что почему-то у меня формулы не работают вообще

Проверяй

PHP код:


			
Type xz

    Tabel As Integer

    FIO As String

End Type



Dim Len_BD, i As Integer

Dim BD() As xz



Function Search(Tabl As Integer) As String

    Inv_BD

    For i = 1 To Len_BD

        If BD(i).Tabel = Tabl Then Search = BD(i).FIO

    Next

End Function



Sub Inv_BD()

    Worksheets ("pod")

    Len_BD = 1

    While (Cells(Len_BD, 1) <> "")

        BD(Len_BD).Tabel = Cells(Len_BD, 1)

        BD(Len_BD).FIO = Cells(Len_BD, 2)

        Len_BD = Len_BD + 1

    Wend

    ReDim BD(Len_BD)

End Sub

01.05.2009, 17:57	#12
ХимоБиоШмалеДоп Командор Беcпартийный Регистрация: 01.11.2008 Адрес: Москва Сообщений: 1,237 Ник: EVE online	В общем вот приблизительный код макроса, проблема в том, что почему-то у меня формулы не работают вообще Проверяй PHP код: Type xz Tabel As Integer FIO As String End Type Dim Len_BD, i As Integer Dim BD() As xz Function Search(Tabl As Integer) As String Inv_BD For i = 1 To Len_BD If BD(i).Tabel = Tabl Then Search = BD(i).FIO Next End Function Sub Inv_BD() Worksheets ("pod") Len_BD = 1 While (Cells(Len_BD, 1) <> "") BD(Len_BD).Tabel = Cells(Len_BD, 1) BD(Len_BD).FIO = Cells(Len_BD, 2) Len_BD = Len_BD + 1 Wend ReDim BD(Len_BD) End Sub __________________ PHP код: `#!/usr/bin/perl open(A,__FILE__); while(<A>) {print;}` Последний раз редактировалось ХимоБиоШмалеДоп; 01.05.2009 в 18:22..