Определение типа данных в ячейке (числового в виде символов)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение типа данных в ячейке (числового в виде символов) (Макросы/Sub)

Kokkolar

Дата: Суббота, 02.08.2014, 18:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Есть ячейки с текстом, есть с числами, определяющимися как символьные данные, то есть сравнить их с числами не представляется возможным. Нужно напротив каждой из ячеек вывести ее адекватный формат, то есть если в ячейке 5, то Digital, если "cat", то Char, если "33" Digital. Пытался сделать через анализ ошибки, не получается, выдает ошибку при выполнении.
[vba]

Код

Sub Example_05()
     Cells(1, 1) = "cat"
     Cells(2, 1) = "3"
     Cells(3, 1) = 55
     Cells(4, 1) = "cow"

     For i = 1 To 4
         If Not IsError(Cells(i, 1) + 0) Then
             Cells(i, 2) = "Digital"
         Else
             Cells(i, 2) = "Char"
         End If
     Next i
End Sub

[/vba]

К сообщению приложен файл: example_05.xls (21.5 Kb)

Ответить

RAN

Дата: Суббота, 02.08.2014, 18:28 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

    For i = 1 To 4
          If IsNumeric(Cells(i, 1)) Then
              Cells(i, 2) = "Digital"
          Else
              Cells(i, 2) = "Char"
          End If
      Next i

[/vba]
[p.s.]Только не говорите, что у вас данные не такие, и это не работает[/p.s.]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 02.08.2014, 18:32

Ответить

Kokkolar

Дата: Воскресенье, 03.08.2014, 14:01 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Прям то что надо, спасибо!

Ответить

Страница 1 из 1
1