VBA. Нужно прокрутить цикл для нескольких листов книги - Microsoft Office Excel - Страница 2

Julit · 29.12.2010, 16:47

Если я правильно поняла, что надо делать, то я написала макрос, который называется proverka_ovd55. Посмотрите его, пожалуйста, что-то ругается на вторую функцию. Я сделала только для 3 раздела по Вашему примеру. Если я Вас правильно поняла, то подобным образом надо переделать для всех разделов???

shanemac51 · 29.12.2010, 17:05

исправьте
For str2 = 2 To 9
If zc(1, kol) < zc(str2, kol) Then
fpech "Ошибка в " & Str(kol) & " столбце " & Str(raz) & " раздела. Значение в строке " & Str(str2) & " должно быть >= Значению в строке " & Str(str2)

замените модуль 4

Julit · 29.12.2010, 17:05

Чувствую себя полной блондик0 ((((

shanemac51 · 29.12.2010, 17:06

Код:

Public diffKol, diffStr, errStr
Public i, ilist, raz, kol, str2, summ, c
 Function zc(zstr, zkol)
Dim ss
ss = Cells(zstr + diffStr, zkol + diffKol).Value
If ss = "" Then ss = 0
End Function
Function fpech(n1z)
 errStr = errStr + 1
Worksheets(51).Cells(errStr, 1) = Worksheets(ilist).Name
Worksheets(51).Cells(errStr, 2).Value =n1z
End Function
Sub proverka_ovd55()
errStr = 1 'номер строки ошибки
For ilist = 3 To 48

Worksheets(ilist).Activate
  fpech "----------------------"
Call Module3.proverka1 'выполняем проверку для каждого из листов с 3 по 48
  
 Next
' proverka_ovd Макрос
' Макрос записан 20.12.2010 (adm)
'
' Сочетание клавиш: Ctrl+Shift+Y
Worksheets(51).Activate
End Sub

Цитата:

Сообщение от Julit

Чувствую себя полной блондик0 ((((

зря , идея со смещением очень не плохая

Julit · 29.12.2010, 17:19

Спасибо огромное за помощь... Сейчас пойду экспериментировать и проверять ошибки по листам. Если что - позже выйду снова...

29.12.2010, 17:05	#12
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,079	исправьте For str2 = 2 To 9 If zc(1, kol) < zc(str2, kol) Then fpech "Ошибка в " & Str(kol) & " столбце " & Str(raz) & " раздела. Значение в строке " & Str(str2) & " должно быть >= Значению в строке " & Str(str2) замените модуль 4 Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Какие есть книги по VBA для access 2007	A.F.	Microsoft Office Access	2	17.01.2011 09:16
Как создать кнопку для всех листов книги?	kipish_lp	Microsoft Office Excel	5	06.05.2010 17:43
перенос данных из нескольких листов в 1	Екатрина	Microsoft Office Excel	5	17.12.2009 18:28
Список листов книги	Scolopendra	Microsoft Office Excel	3	12.12.2009 21:58
печать нескольких листов	checkbox	Microsoft Office Excel	2	16.01.2008 00:50

29.12.2010, 17:05	#13
Julit Новичок Джуниор Регистрация: 29.12.2010 Сообщений: 8	Чувствую себя полной блондик0 ((((

29.12.2010, 17:19	#15
Julit Новичок Джуниор Регистрация: 29.12.2010 Сообщений: 8	Спасибо огромное за помощь... Сейчас пойду экспериментировать и проверять ошибки по листам. Если что - позже выйду снова...