Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2017, 15:43   #1
Андрей858585
Новичок
Джуниор
 
Регистрация: 17.01.2017
Сообщений: 2
По умолчанию Перенос данных с листа Excel в Массив

Добрый день! Не пойму на что ругается

Private Sub CommandButton1_Click()
x = 0
y = 0
x = InputBox("Введите количество строк")
y = InputBox("Введите количество столбцов")
i = 1
j = 1
Z = 0
r = 2
v = 0
Dim A()
A = Range("C3:G77").Value
'For i = 1 To x
' For j = 1 To y
' If A(i, j) Mod 5 = 0 Then Z = Z + 1 Else v = v + 1
' Next j
' Range("J" & r + 1) = Z
' If v > 0 Then Range("K" & r + 1) = "да"
'Next i
End Sub

Прога по клику кнопки должна перенести в двумерный массив данные из диапазона ячеек а затем согласно условиям вывести значения в ячейки на листе Excel
Андрей858585 вне форума Ответить с цитированием
Старый 17.01.2017, 15:58   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Ругаться не должен, как, в принципе, и делать
Записал в переменную А значения диапазона С3:Ж77, вот и вся его работа
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.01.2017, 11:23   #3
Андрей858585
Новичок
Джуниор
 
Регистрация: 17.01.2017
Сообщений: 2
По умолчанию

счетчик r не работает, пришлось переделать
Private Sub CommandButton1_Click()
x = 0
y = 0
x = InputBox("Введите количество строк")
y = InputBox("Введите количество столбцов")
i = 1
j = 1
Dim A()
A = Range("C3:G77").Value
r = 2
For i = 1 To x
Z = 0
v = 0
r = r + 1
For j = 1 To y
If A(i, j) Mod 5 = 0 Then Z = Z + 1 Else v = v + 1
Next j
Range("J" & r) = Z
If v = 5 Then Range("K" & r) = "нет" Else Range("K" & r) = "есть"
Next i
End Sub
Изображения
Тип файла: jpg до.jpg (94.5 Кб, 121 просмотров)
Тип файла: jpg после.jpg (107.2 Кб, 122 просмотров)

Последний раз редактировалось Андрей858585; 18.01.2017 в 12:36.
Андрей858585 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из одного листа на другой a.alexandr05 Microsoft Office Excel 6 19.01.2013 21:51
перенос данных из одного листа в другой Enkoff Microsoft Office Excel 2 10.06.2011 13:32
Перенос данных из одного листа в другой golovasas Microsoft Office Excel 2 09.06.2011 18:09
Перенос данных из одного листа в другой Светланка85 Microsoft Office Excel 2 07.09.2009 09:18
Перенос данных с одного листа на другой knahrn Microsoft Office Excel 4 12.08.2009 08:42