Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Ole поле Excel внутри VB http://www.cyberforum.ru/visual-basic/thread2349103.html
Добрый день всем! Прошу помочь советом Есть работающий и достаточно сложный макрос внутри Excel. В поле вводятся значения (текстовые по выпадающим спискам и числовые значения) на основе первый...
VB Заполнение массива по правилу
Подскажите как заполнить массив n*n по следующему правилу: 1 2 3 ... n 0 2 3 ... n 0 0 3 ... n ... ... ... ... ... 0 0 0 ... n Я понимаю как сделать первую строку и...
Вывод результата замены минимального элемента массива с последним VB
По заданию надо заменить минимальный по модулю положительный элемент массива последним элементом. Все вроде набросал, но в результате выводит только замененный первый элемент массива. В общем...
VB Как обработать Label-ы внутри Frame-ов? Имеем Frame1 и Frame2, в каждом из которых находится массив Label1. Frame1 имеет Label1(0) Frame2 имеет Label1(1). При выполнении: Private Sub Form_Load() Dim isControl As Control http://www.cyberforum.ru/visual-basic/thread2347579.html
VB Вывод суммы положительных элементов массива http://www.cyberforum.ru/visual-basic/thread2347112.html
Есть программа, содержащая массив. Требуется вывести удвоенную сумму положительных элементов массива. Пока что не выводит ничего. Пытался сделать вывод суммы через цикл, тоже не вышло. Подскажите...
VB DataGridView появление определённых клеток в таблице
Можно ли сделать так,что бы при нажатии на одну из клеток таблицы DataGridView, появлялась именно та самая ячейка( с нужным числовым значением) на которую я нажал ,а не все. Написана логика...
VB Почему смещается фокус с одного списка на другой
Есть прайс с выпадающими списками (приложен). Сделано так, что можно вводить в строку значение и срабатывает автоматический поиск с других (скрытых) листов. Обратите внимание на Диспетчер имен и на...
VB Вычисление суммы ряда Не могу вычислить сумму ряда (картинка с заданием в спойлере). Выдает ошибку на строке 7 кода. Прошу вашей помощи :) ("a" соответствует значению "x" в коде) Function D(k1 As Double) factorial =... http://www.cyberforum.ru/visual-basic/thread2345302.html
VB Не работает макрос, можете посмотреть, где ошибка, заранее спасибо http://www.cyberforum.ru/visual-basic/thread2345238.html
вот макрос : Sub Main Dim Doc As Object Dim Cursor As Object Dim Proceed As Boolean Dim fl As Boolean Doc = StarDesktop.CurrentComponent Cursor = Doc.Text.createTextCursor() ...
VB Найти максимальную цифру числа ЗАДАЧА 1. MAX Дано число A (1..999999999). Найти максимальную цифру числа Формат входных данных: Число А (1>A>999999999). Формат выходных данных: максимальная цифра данного числа. Пример... http://www.cyberforum.ru/visual-basic/thread2344359.html
Lomil
0 / 0 / 4
Регистрация: 03.05.2015
Сообщений: 33
0

Ошибка при присвоении значения Range к переменной

11.11.2018, 21:06. Просмотров 278. Ответов 1
Метки (Все метки)

Пытаюсь создать массив в котором будут размещены все непустые строки из диапазона А2:102.
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
Sub Price()
Dim price_for_Bill As Double
Dim zcc_price As Double
Dim articul_price As String
Dim articul_bill As String
Dim counter As Integer
Dim array_articles(100) As String
Dim array_unsorted
Set array_unsorted_ = Range("A2:A101") ' в дебагере выдает "array_unsorted = empty", т.е присвоение не получилось?
counter = 0
For Each Cell In array_unsorted  ' на эту строчку указывает дебагер
    If IsEmpty(Cell) = True Then
    Else
        array_articles(counter) = Cell.Value
        counter = counter + 1
    End If
    Next Cell
'ReDim Preserve array_articles(counter) 
MsgBox (array_articles)
End Sub
        counter = counter + 1
    End If
    Next Cell
'ReDim Preserve array_articles(counter) 
MsgBox (array_articles)
End Sub
При запуске выводит ошибку Run-time error'13: Type mismatch - т.е недопустимый тип данных. В столбце А размещены данные такого вида: DNEG150412NGFYBG105 (скрин и сам .xls файл прикладываю). Пробовал менять Range("A2:A101") на Cells(2, 101), указывать точный адрес для Range, вплоть до Workbook-а, не помогло.

Вернуться к обсуждению:
Ошибка при присвоении значения Range к переменной
0
Миниатюры
Ошибка при присвоении значения Range к переменной  
Вложения
Тип файла: xlsx test_bill.xlsx (8.9 Кб, 1 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2018, 21:06
Готовые ответы и решения:

Range.Find - ошибка при открытии книги Excel
Ошибка в самом конце кода. использую функцию .find для нахождения ячеек по их значению. Поиск...

Range check error. Ошибка при присвоении символа переменной типа Char
Расскажите пожалуйста как так происходит, что когда я присваиваю символ в переменную Chr, он мне...

Ошибка при присвоении переменной значения ячейки массива
Ошибку error C2106: '=' : left operand must be l-value выдает на строчке: if (mas!=-1 && mas!=-1...

Синтаксис команды SET при присвоении переменной значения
Пишу вот так: set /p name = Project5.exe del name ren check.download name start nameТо есть в...

При присвоении переменной textBox - ошибка
К примеру private: System::Void textBox1_TextChanged_1(System::Object^ sender, System::EventArgs^...

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