Казанский,
код не менял ,поэтому предположил, что у меня обычная ошибка новичка (совсем не работаю в Ексель в VBA), где то не там прописал паблик функцию и Ексель просто ее не видит. Подробно:
В раздел "General" прописал
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
'===================================================================================
' Sub : DelRows(TableHeader,ColNum,DelValue)
' TableHeader : Range; table header range
' ColNum : Long; column number with DelValue
' DelValue : Variant; value of rows to be deleted
'-------------+---------------------------------------------------------------------
' VBA call : DelRows ActiveSheet.Range("A1:H1"), 5, 0
'-------------+---------------------------------------------------------------------
' Created : ZVI:2009:12:26 http://www.sql.ru/forum/actualthread.aspx?tid=722758
'-----------------------------------------------------------------------------------
Public Function DelRows(TableHeader As Range, ColNum As Long, DelValue)
Dim Arr(), r&, rs&, cs&, i&, v, ac
With TableHeader.CurrentRegion
rs = .Rows.Count - TableHeader.Row + .Row
cs = .Columns.Count - TableHeader.Column + .Column
End With
With TableHeader.Resize(rs, 1)
Arr() = .Offset(, cs).Value
' Check DelValue
For Each v In .Offset(, ColNum - 1).Value
r = r + 1
If v <> DelValue Then
i = i + 1
Arr(r, 1) = 1
End If
Next
If i < rs Then
' Freeze on
With Application
.ScreenUpdating = False
.EnableEvents = False
ac = .Calculation: .Calculation = xlCalculationManual
End With
' Delete rows with DelValue in ColNum
.Offset(, cs) = Arr
.Resize(, cs + 1).Sort .Cells(1).Offset(, cs), 1, Header:=xlNo
.Resize(, 1).Offset(, cs).ClearContents
.Resize(rs - i, cs).Offset(i).Clear ' или .Resize(rs - i).Offset(i).EntireRow.Delete
' Freeze off
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = ac
End With
End If
End With
End Function
В Макрос, который находится в нужном файле Ексель вставил
1.
2.
3.
4.
Sub Макрос2()
'
DelRows ActiveSheet.Range("P:P"), 5, 0
End Sub
При запуске Макроса 2 выдает сообщение
Microsoft Visual Basic
---------------------------
Compile error:
Sub or Function not defined
---------------------------
ОК Справка
---------------------------
Спасибо.
