Всем привет.
Скажу сразу, в VB- я не очень.
Передо мной стоит задача. Есть чекбоксы, которыми мы отмечаем какие листы будем использовать.
Нужно написать цикл который бы проверял наличие листа по заданному названию(критерию). Листы задаются так -
03,10 , где 03-это Март, 10- 2010 год.
(чекбокс 3 в колонке 2010 -см.картинку)
И если листа нет, то
CheckBox(n).enabled = false
Чекбоксы идут с checkbox1 по checkbox24 checkbox25-2009год, checkbox26- 2010год. Можете обзывать как хотите, не принципиально, догадаюсь :)
До чего до чего додумался, может и неверно. :(
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function listExist() As Boolean
Dim strName As String
Dim i, k As Integer
For i = 1 To 12
For k = 9 To 10
strName = "0" + CStr(i) + ";0" + Cstr(k)
On Error Resume Next
listExist = WorkSheets(strName).Index
Next k
Next i
End Function
Спасибо!
