Скачать: CL | DM;

Что я не так делаю с этим VB ???   Найти похожие ветки 

← →
VID ©   (2004-05-25 16:20) [0]

вот смотрите, код модуля-1:


public X as WorkSheet
......

Sub AddLine()
 Set X = ActiveSheet  
 "вариант 1
 IF IsSheetExists(X) then
   exit sub
 end if
 "При попытке выполнения этой процедуры (IsSheetExists), возникает ошибка "ByRef argument type mismatch" (и выделяется аргумент X), однако если сделать так
 "вариант 2
 If IsSheetExists(ActiveSheet) then
   exit sub
 end if
 " и соотв. закоментить вариант 1, то ошибки не возникает, и всё работает как положено
 " в чём дело ?
end sub


а вот код модуля-2:

Function IsSheetExists(Sheet As Worksheet) As Boolean
 Dim I As Integer
 IsSheetExists = False
 For I = 1 To Sheets.Count
   On Error GoTo ErrorHandler
     If Sheets(I).Index = Sheet.Index Then
       IsSheetExists = True
       Exit Function
     End If
   On Error GoTo 0
 Next I
 Exit Function
ErrorHandler:
 Exit Function
End Function


---

← →
VID ©   (2004-05-25 16:46) [1]

отбой.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c