Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Серый Кардинал
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 17
#1

Переполнение счетчика - VBA

13.06.2017, 13:27. Просмотров 169. Ответов 5
Метки нет (Все метки)

Добрый день!

В данном макросе при выполнении программы по всем открытым книгам, счетчик qwer показывает переполнение и я не могу понять почему?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub poisk2()
 
Dim asd As Integer, qwer As Integer, Client As String
Dim v As Workbook, asdf As Integer
asdf = Workbooks.Count
Client = UCase(InputBox("Введите название компании", "Название компании"))
    
Range("A10:C10").Select
Selection.UnMerge
     
     
For i = 1 To asdf
Workbooks(i).Activate
    
    With Range("A10")
             qwer = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
            For asd = 1 To qwer
                If Left(.Offset(asd, 0), 2) = 62 Then
                    Exit For
                ElseIf Client = "" Then
                    Exit For
                Else
                qwertyu = .Offset(asd, 2)
                    If UCase(.Offset(asd, 2)) Like "*" & Client & "*" Then
                        .Offset(asd, 2).Interior.ColorIndex = 7
                    End If
                End If
            Next
    End With
   Next
End Sub
Добавлено через 6 минут
Причем, если тип переменной qwer задать на Лонг, то вообще все зависает
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2017, 13:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переполнение счетчика (VBA):

Создание несбрасываемого счетчика - VBA
У меня макрос создает определенные бланки, каждый день. Они должны быть пронумерованы и номер должен быть уникальный... Вот сожу, думаю -...

Создание счетчика строк - VBA
Помогите пожалуйста, есть пример кода для записи из листа2 на лист3 данных, r1.Cells(1).Value и т.д до r1.Cells(11).Value ячейки в...

Введение счетчика проходов цикла - VBA
Доброго времени суток! Помогите пожалуйста решить поставленную задачу! Есть написанная программа: Sub telor() Dim x As Double ...

Запись значения счетчика принудительно - VBA
Нужно в запросе ввести дополнительно счетчик, нашла в инете модуль: Public curNumber As Long Public Function startNumber() As...

MSXML.DOM Циклы и реализация счетчика - VBA
xml_path = "/1/2/3" j = xmlDoc.documentElement.selectNodes(xml_path).length - 1 rs.AddNew xml_path =...

Как осуществить связь текста и счетчика? - VBA
Всем привет! Такая проблема: есть SpinButton1 и TextBox1, они связаны: Private Sub SpinButton1_Change() TextBox1.Text =...

5
nodirstein
25 / 25 / 8
Регистрация: 12.04.2015
Сообщений: 75
13.06.2017, 15:48 #2
А пример есть?

Добавлено через 5 минут
Или у вас какой-то "кривоватый" код, или у вас какая-то специфическая задача.
Рекомендую скинуть файл и разъяснить что вы вообще пытаетесь сделать?
0
shanemac51
Модератор
Эксперт MS Access
7625 / 2846 / 402
Регистрация: 07.08.2010
Сообщений: 7,755
Записей в блоге: 1
13.06.2017, 21:05 #3
Цитата Сообщение от Серый Кардинал Посмотреть сообщение
qwer As Integer
это всего лишь 16000 с мелочью , далее переполнение
0
Hugo121
6082 / 2231 / 371
Регистрация: 19.10.2012
Сообщений: 6,691
13.06.2017, 21:12 #4
Цитата Сообщение от shanemac51 Посмотреть сообщение
это всего лишь 16000
Не, чуть больше, раза в два:
 
Тип данных
Резервируется байт
Наименьшее значение
Наибольшее значение
Byte
1
0
255
Boolean
2
False (Ложь)
True (Истина)
Integer
2
-32768
32767
Long
4
-2147483648
2147483647
0
nodirstein
25 / 25 / 8
Регистрация: 12.04.2015
Сообщений: 75
14.06.2017, 08:30 #5
Ну то что он тип переменной задает не правильно это понятно, но тут по моему дело не в этом. Просто конца краю не может найти vba. Раз зависает при выставлении типа qwer как long, то может у вас какой-то бесконечный цикл получается?
Как я уже говорил:

Цитата Сообщение от nodirstein Посмотреть сообщение
Рекомендую скинуть файл и разъяснить что вы вообще пытаетесь сделать?
0
Hugo121
6082 / 2231 / 371
Регистрация: 19.10.2012
Сообщений: 6,691
14.06.2017, 08:52 #6
В коде нигде не прописано с каким именно листом нужно работать - юзер может в книгу добавить лишний лист, или просто перейти на другой лист - и код накосячит.
А вообще конечно без примера файла с ошибкой вникать в код некорректно, а сочинять файл вычитывая код - кому это нужно? Тот пусть и сочиняет
0
14.06.2017, 08:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2017, 08:52
Привет! Вот еще темы с ответами:

Печать документов word с добавлением счетчика - VBA
Всем привет. Я сам работаю веб программистом. Начальник попросил, если получится разобраться и написать скрипт для печати. Задача стоит...

Нужно переменной присвоить значение счетчика записей. - VBA
Человеки, есть следующая проблема. У меня в Аксесе есть форма, ну и в ней стандартно есть счетчик записей, так вот мне нужно переменной...

Непонятное переполнение overflow - VBA
Привет. Не въезжаю, где тут ошибка. Все кейсы, кроме первого (6,3) выполняются, а на первом при всех умножениях вылезает overflow ...

Переполнение буфера в макросе - VBA
Здравствуйте, у меня есть Excel-макрос, который делает скриншоты, а потом распознает в них текст. Проблема в том, что при длительной работе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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