|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2017, 15:43 | #1 |
Новичок
Джуниор
Регистрация: 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 |
17.01.2017, 15:58 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Ругаться не должен, как, в принципе, и делать
Записал в переменную А значения диапазона С3:Ж77, вот и вся его работа
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
18.01.2017, 11:23 | #3 |
Новичок
Джуниор
Регистрация: 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 Последний раз редактировалось Андрей858585; 18.01.2017 в 12:36. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос данных из одного листа на другой | 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 |