Средства отладки программного кода в Visual Basic

Спасибо!

Благодарю за урок! Узнал новое для себя.

Благодарю Вас, Дмитрий, за урок. Очень полезная информация. Что-то уже было знакомо, что-то новое, на какие-то моменты благодаря Вам стал смотреть по-новому. Спасибо Вам за Ваш труд.

Большое спасибо. Материал для меня полезен, особенно последняя часть.

Дмитрий, я был приятно удивлен принципиально новым подходом к системе отладки программ. Благодарю за то, что именно сейчас Excel в Вашем исполнении звучит высокопрофессионально и так захватывающе...

Дмитрий, спасибо! помогла информация про произвольное управление порядком выполнения программы с помощью F8.

Благодарю за Ваш труд. Все понятно, буду использовать в своих программах.

Спасибо Дмитрий как всегда что то новенькое и очень полезное

Спасибо!

Спасибо! Очень интересно!

Дмитрий, большое спасибо за объяснение работы с окном Expression

Спасибо, хорошо что можно повторить уже частично пройденное и узнать новое

Спасибо.

Давно использую "Пошаговую отладку" и "Точки останова", а вот про "Окно наблюдения" не знал. Мне этот прием понравился, обязательно приму на вооружение.

пять баллов

Я хотел бы попросить у Вас как у Гуру совета.

Для определения диапазона (в Excel)мы используем следующую конструкцию n = ActiveSheet.UsedRange.Rows.Count, или я еще нашел в книге n = Cells (rows, count, 1) .end (xlup) .count

Затем конструкция по суммирования диапазона

For i = 2 To n

If Val (Cells (i, 1)) = Val (Cells (i - 1, 1)) Then

Cells (i, 3) .Value = Cells (i - 1, 2) .Value + Cells (i, 2) .Value

Else

Cells (i, 3) = Cells (i, 2) .Value

End If

Next i

подходит только для отфильтрованного диапазона, хотя конечно, на все это можна использовать СУММЕСЛИ(), но хотелось бы на VBA

В книге описано тип фильтра xlValueEquals, xlsum, свойства Calculation для суммирования значений диапазона с заданным критерием. Есть ли возможность использовать выше упомянутые фильтры, без приминения цыкла For Next

И по Acess. Та же самая ситуация.Макрос не работает для неотфильтрованого диапазона. И проблемы по количеству если использовать запросы вместо таблиц.Можна конечно в запросе испольовать DSUM, но эта функция замедляет работу приложения.

Public Sub SumaS()

Dim su As Integer, no As Integer

Dim db As Database

Set db = CurrentDb

Dim rs As Recordset

Set rs = db.OpenRecordset("Таблица1")

rs.MoveFirst

Do While Not rs.EOF

If (rs.Fields("nom") = no) Then

su = su + rs.Fields("s")

Else

su = rs.Fields("s")

End If

rs.Edit

rs.Fields("suma") = su

rs.Update

no = rs.Fields("nom")

rs.MoveNext

Loop

End Sub

Заранее благодарю

Спасибо за урок!

Спасибо, много интересного, немного сложновато с диагроммой!!! Очень полезнои поучительно.

Спасибо за качественные уроки!

Огромное спасибо за уроки. Не ожидала, что за неделю онлайн-занятий я научусь программированию. Раньше один только вид кода внушал ужас и трепет)

спасибо!

Спасибо огромное за уроки. Было очень интересно и познавательно.

Здравствуйте, Дмитрий. У меня при запуске файла Ексель высвечивается ошибка 1004 и программа переходит в ВБА в режим отладки и в самом конце модуля аж до строки End sub высвечиваются команды жёлтым цветом. В чём может быть проблема? Вот фрагмент модуля, который полностью выделен жёлтым фоном: Application.MacroOptions _ Macro:=FuncName, _ Description:=FuncDesc, _ Category:=Category, _ ArgumentDescriptions:=ArgDesc End sub А курсор стоит на End sub.