Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Чем заменить richtx32.ocx? https://www.cyberforum.ru/vba/thread2010608.html
Используя ActivX-компоненту richtx32.ocx столкнулся с кучей неудобств. Можно ли каким-то другим способом получить RichTextBox в диалоговом окне VBA в MS Word? Например в system32 есть richtx20.dll...
VBA Создание add-in для MS Excel. Использование интернет ресурсов
Доброй ночи, уважаемые форумчане. Идея следующая. Планирую создать при помощи VBA надстройку (add-in) для MS Excel. Для воплощения функционала в жизнь мне необходимо сделать так, чтобы данная...
VBA Ошибка Object variable or With block variable not set
Класс SetOfPoint: Private S As Collection ' Addes point. Public Sub Add(ByRef obj As GPoint) Dim t As Boolean t = False For Each n In S If n = obj Then
VBA Перенос объединенных ячеек Добрый день, есть 2 документа в одном надо взять первые 5 ячеек(не объединенных) и вставить во второй документ. не могу понять как это сделать руками. так как записей больше 1500 и каждый диапазон... https://www.cyberforum.ru/vba/thread2010140.html
VBA Код чтобы нельзя было внести значения которые уже имеются https://www.cyberforum.ru/vba/thread2010035.html
Помогите пожалуйста составить код для VBA ,чтобы нельзя было внести значение которые уже имеются , либо внесение с их заменой
VBA Двухцветный градиент в PowerPoint 2010
Есть задача закрасить фигуру двухцветным градиентом. Должен работать такой код: Sub RR() Set myDocument = ActivePresentation.Slides(1) With myDocument.Shapes.AddShape(msoShapeRectangle, 90,...
Импортирование данных из DTPicker VBA
Приветствую всех) Тема вопроса, от новичка в программировании, такая: Посредством VBA создана форма из которой импортируются данные в документ Excel. В этой форме использовался DTPicker для...
VBA Перенос данных с листа на форму Доброго времени суток! Допустим, есть данные(число) в таблице на определенном листе, как перенести данные с конкретной ячейки на окно формы? https://www.cyberforum.ru/vba/thread2009867.html
VBA Регистрация RichTextBox и работа с его буфером обмена https://www.cyberforum.ru/vba/thread2009821.html
Для раскрашивания текста в диалоговом окне я использую Richtx32.ocx. Накопилось несколько проблем, которые хотелось бы решить: 1) Richtx32.ocx надо регистрировать в системе, а это неприятности с...
VBA Перенести полученные значения Имеется макрос, который считает сумму продаж с каждого сотрудника, он пишет полученные значения в Лист1 (столбец D). Как перенести полученные значения в Лист4 (столбец D)? Sub zxc() Dim... https://www.cyberforum.ru/vba/thread2009797.html
_shark
178 / 177 / 30
Регистрация: 11.10.2016
Сообщений: 566
28.06.2017, 17:24 0

Почему вылетает с ошибкой, а не создает два

28.06.2017, 17:24. Просмотров 1267. Ответов 17
Метки (Все метки)

Лучший ответ Сообщение было отмечено Volobuev Ilya как решение

Решение

оптимальней, наверное было бы:
Visual Basic
1
2
3
4
5
6
Public Sub Add(ByRef obj As GEdge)
   For Each n In S
      If n = obj Then Exit Sub
   Next
   S.Add obj
End Sub
правда, смущает меня эта классовая проверка n = obj...

Вернуться к обсуждению:
Почему вылетает с ошибкой, а не создает два
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2017, 17:24
Готовые ответы и решения:

Почему вылетает с ошибкой NullReferenceException?
Код модуля: unit GraphOptimized; uses GraphABC; const Radius = 5; type ///Location...

Программа вылетает с ошибкой EXC_? (11). Почему?
Комрады, надеюсь на вашу помощь. Решил тряхнуть стариной (лет 13 назад в вузе изучал делфи) и...

Почему вылетает с ошибкой NullReferenceException при закраске пикселя?
uses crt,GraphABC; type Point2D = class X, Y: real; constructor(px, py:...

Eclipse вылетает с ошибкой
Нужно дополнительно устанавливать какие то библиотеки для него? Я просто скачал с сайта Oracle...

17
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.