Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать в массив только ячейки содержащие числа? / 6 сообщений из 6, страница 1 из 1
11.09.2015, 16:44
    #39049439
kos20
kos20
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
Всем привет! есть табличка, из которой нужно выбрать ячейки содержащие только цифры (ячейки с цифрами и текстом расположены в перемешку).
Пытаюсь все засунуть в такой код, но почемуто массив наполянется и нудевыми ячейками и ячейками, которые содержат "-" или пробел. Как испровить, подскажите пож-ста

Сам код здесь:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
 If Sheets("Лист1").Cells(i, j) = "Код" Then
      End If
       If dd = 1 And IsNumeric(Sheets("Лист1").Cells(i, j)) = True _
                 And IsEmpty(Sheets("Лист1").Cells(i, j)) = False _
                 And IsNull(Sheets("Лист1").Cells(i, j)) = False _
                 Then
          arr(i, j) = Sheets("Лист1").Cells(i, j)
.......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2015, 16:48
    #39049444
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
Цифры? Или числа? Или ячейки, имеющие числовой тип?

Тестовый файл приложите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2015, 17:03
    #39049467
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
kos20,
если по F5 - выделить - константы, числа - выбирается то, что нужно, то запишите это действие макрорекордером и потом перебирайте ячейки полученного диапазона циклом For Each.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2015, 07:48
    #39061809
i45
i45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
kos20,

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Sub JustDigits()
   Dim oCell As Range

    For Each oCell In Range("A1:B10")
        If Not oCell.Text Like String(Len(oCell.Text), "#") Then MsgBox "Bingo: " & oCell.Address
    Next oCell
End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2015, 17:18
    #39062000
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
i45, а как же отрицательные числа, дробные числа?
И Not по логике не нужен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2015, 12:22
    #39062317
i45
i45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать в массив только ячейки содержащие числа?
Казанскийi45, а как же отрицательные числа, дробные числа?
И Not по логике не нужен.

Отсуствие и присутствие NOT есть суть одной ипостаси.
Точки-запятые, минусы-плюсы цифрами не бывают.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать в массив только ячейки содержащие числа? / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 501ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155787]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 91ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 318ms
total:  501ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]