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

VBA

Войти
Регистрация
Восстановить пароль
 
 
stampidu
0 / 0 / 0
Регистрация: 05.10.2009
Сообщений: 13
#1

Вывести данные из диапазона ячеек на экран - VBA

25.05.2015, 12:40. Просмотров 1046. Ответов 20
Метки нет (Все метки)

Подскажите как с помощью процедуры можно вывести данные из диапазона ячеек на экран?
Есть данные в двух столбцах. Нужно вывести их на экран при выполнении макроса эти данные в msgbox.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 12:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести данные из диапазона ячеек на экран (VBA):

Записать в массив данные из диапазона ячеек - VBA
Всем привет. Не получается разобраться с массивом! Необходимо залить в массив данные из диапазона ячеек (Важно! Без использования...

В одномерный массив записать данные из диапазона ячеек - VBA
В одномерный массив записать данные из диапазона ячеек, заключенных между двумя числами, целая часть которых начинается цифрой 1, а...

Запрос внешних данных через sql использовав данные из диапазона ячеек Excel - VBA
Доброго всем... Не нашёл конкретного решения на форуме, решил создать темку. Ближе к телу...есть файл excel с диапазоном (колонкой)...

Как вывести в label рандомное значение из диапазона ячеек? - VBA
Здравствуйте! Ситуация такая, что на форме есть кнопка которая должна присваивать label рандомное значение из диапазона ячеек, например,...

Вывести значения ячеек из одного диапазона которых нет в другом диапазоне - VBA
Друзья помогите! Есть диапазон №1 из 4-х строк 1 столбца с текстовыми значениями A, B, C, D (разный текст в каждой строке) Есть...

На панели инструментов в TextBox "Сумма" вывести сумму значений диапазона ячеек - VBA
Можно ли при переходе на определенный лист в макросе Worksheet_Activate выполнить 2 следующих события: 1. На панели инструментов в...

20
forof
0 / 0 / 0
Регистрация: 05.06.2015
Сообщений: 7
05.06.2015, 13:53 #16
Приветствую. Набиваю шишки vba с элементарными ошибками. Вопрос похожий, только код без массива(возможно нужен). Есть набор данных в таблице 10 х 10. Нужно в каждой строке найти максимум и итогом вывести этот список в msgbox. Дополнительно сделал, что в конце каждой строки 11 ячейка как раз имеет значение максимума.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub maxval()
    Dim a, x, y As Integer
    x = 1
    y = 1
        For x = 1 To 10
            a = Cells(x, y).Value
                For y = 1 To 10
                    If a < Cells(x, y).Value Then a = Cells(x, y).Value
                    Next y
                    Cells(x, 11).Value = a
        Next x
End Sub
Понимаю, что вопрос, скорее всего, элементарный, но в каком виде прописать строку с msgbox?
Спасибо.
0
Аксима
5727 / 1177 / 185
Регистрация: 12.12.2012
Сообщений: 963
05.06.2015, 14:25 #17
Здравствуйте, forof,
Возможно, так:

Visual Basic
1
MsgBox Join(Application.Transpose(Range("K1:K10")))
Здесь Range("K1:K10") - диапазон, где прописаны максимумы.
Application.Transpose превращает двухмерный массив в одномерный (диапазон листа Excel считается двухмерным массивом).
Join - создает строку из элементов одномерного массива, разделяя их пробелами (можно указать и другой разделитель).

С уважением,
Аксима
1
forof
0 / 0 / 0
Регистрация: 05.06.2015
Сообщений: 7
05.06.2015, 14:27 #18
Спасибо.
0
Vlad999
2652 / 1585 / 461
Регистрация: 02.11.2012
Сообщений: 3,912
05.06.2015, 14:36 #19
forof, 3 и 4 строки в коде лишние. т.к. тоже самое в 5 и 6 строках.
1
forof
0 / 0 / 0
Регистрация: 05.06.2015
Сообщений: 7
05.06.2015, 14:55 #20
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub maxval()
    Dim a, x, y As Integer
        For x = 1 To 10
            a = Cells(x, y).Value
                For y = 1 To 10
                    If a < Cells(x, y).Value Then a = Cells(x, y).Value
                    Next y
                    Cells(x, 11).Value = a
        Next x
        MsgBox Join(Application.Transpose(Range("K1:K10")))
End Sub
run-time error почему то. По началу работало. Смотрю и не вижу.
0
Hugo121
5923 / 2086 / 335
Регистрация: 19.10.2012
Сообщений: 6,230
05.06.2015, 15:08 #21
a желательно оставить variant, а вот для x можно тип указать, хоть byte например, но можно и integer, хотя я всегда пишу long и не парюсь (всё равно оно внутри в лонг превращается, хотя вроде как всёж инткгер работает быстрее как писали, в общем не парюсь )
0
05.06.2015, 15:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2015, 15:08
Привет! Вот еще темы с ответами:

Выбрать данные из разных (конкретных) ячеек листа, произвести замену данных ячеек - VBA
Что нужно от макроса: выбрать данные из разных (конкретных) ячеек листа, произвести замену данных ячеек (согласно условия) и вывести массив...

Заполнение диапазона ячеек - VBA
Еще вопрос. Запросите у пользователя диапазон ячеек и заполните его случайными символами. Программа должна запускаться по нажатии на...

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

Запись диапазона ячеек - VBA
Здравствуйте! На одном из этапов выполнения макроса мне нужно создать именованный диапазон, рекодер выдал такой код: ...


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

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

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