VBNet - Форум - Тест массива

Вопрос: Тест массива Добавлено: 22.05.13 02:16

Автор вопроса: Григорий

Всем доброе время суток.
макрос для примера
выделяет ячейку 4

Sub SelectNegative()
Dim Cell As Range

For Each Cell In Range("A:A")
If Cell.Value = 4 Then
Cell.Select

End If
Next Cell
End Sub

надо выделить массив в Range("A:A")
и выделить ячейку нижней строки массива
далее продолжить работу макроса для выделения
таких же данных.
Попробовал сделать макрос.
не работает

Option Explicit
Sub SelectNegative()
Dim myArray As String
Dim myCount As Integer
myArray = Array("1", "2", "3", "4", "5", "6", "7")
For Each Cell In myArray("A:A")
For myCount = 1 To UBound(myArray)
.Cells(1, myCount).Value = myArray(myCount)
Next myCount
If Cell.Value = myArray Then
Cell.Select

End If
Next Cell
End Sub

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #1	Добавлено: 22.05.13 06:50
	Sub Test() Dim first ' адрес первой ячейки Dim last ' адрес последней ячейки first = "A1" last = Cells(Rows.Count, Range(first).Column).End(xlUp).address(0, 0) Range(first, last).Select ' выбор диапазона Range(last).Activate ' выделение последней ячейки Dim myArray As Variant Dim myCount As Integer Dim last_value ' максимальный размер массива myArray = Array("1", "2", "3", "4", "5", "6", "7") last_value = UBound(myArray) For myCount = 0 To last_value ' индексы массива начинаются с нуля Range(first).Offset(myCount, 0).Value = myArray(myCount) Next myCount Range(first).Offset(myCount, 0).Activate ' Activate при выделенном диапазоне сделает активной ячейку диапазона ' в остальных случаях - выделит ячейку,как Select End Sub Ответить

Страница: 1 |