Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Конвертация типов данных - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация типов данных (Макросы/Sub)
Конвертация типов данных
bokr Дата: Четверг, 11.07.2019, 14:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
При обращении Cells(i,j) к ячейкам одного листа в одном операторе сравнения VBA воспринимает данные в одном случае как double в другом как string, хотя ячейки уже отформатированы как время.

В результате сравнение проходит некорректно. В чем причина? Неужели при каждом обращении к Cells(i,j) нужно использовать явное преобразование типов. Ведь это сильно утяжеляет код, замедляет исполнение.
К сообщению приложен файл: Ind.xlsb(49.8 Kb) · 9319864.png(82.5 Kb)
 
Ответить
СообщениеПри обращении Cells(i,j) к ячейкам одного листа в одном операторе сравнения VBA воспринимает данные в одном случае как double в другом как string, хотя ячейки уже отформатированы как время.

В результате сравнение проходит некорректно. В чем причина? Неужели при каждом обращении к Cells(i,j) нужно использовать явное преобразование типов. Ведь это сильно утяжеляет код, замедляет исполнение.

Автор - bokr
Дата добавления - 11.07.2019 в 14:04
sboy Дата: Четверг, 11.07.2019, 14:34 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 721 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Если в ячейке текст, то не важно какой формат данных Вы поставили


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Если в ячейке текст, то не важно какой формат данных Вы поставили

Автор - sboy
Дата добавления - 11.07.2019 в 14:34
InExSu Дата: Суббота, 13.07.2019, 23:49 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 542
Репутация: 63 ±
Замечаний: 0% ±

Excel 2010
Привет!
Надеюсь не сильно замедлит.
Замените
[vba]
Код
If wsData.Cells(N, i).Value < wsData.Cells(N - 1, 7).Value Then
[/vba]
на
[vba]
Код
If wsData_Cells_Less(wsData, N, i) Then
[/vba]
Добавьте в код
[vba]
Код
Function wsData_Cells_Less( _
        ws As Worksheet, _
        N As Long, _
        i As Long) _
        As Boolean
' Тестом НЕ покрыто
'
    Dim v1 As Variant, v2 As Variant
    
    With ws
        v1 = .Cells(N, i).Value
        v2 = .Cells(N - 1, 7).Value
    End With

    If CDate(v1) < CDate(v2) Then

        wsData_Cells_Less = True

    End If
End Function
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
Надеюсь не сильно замедлит.
Замените
[vba]
Код
If wsData.Cells(N, i).Value < wsData.Cells(N - 1, 7).Value Then
[/vba]
на
[vba]
Код
If wsData_Cells_Less(wsData, N, i) Then
[/vba]
Добавьте в код
[vba]
Код
Function wsData_Cells_Less( _
        ws As Worksheet, _
        N As Long, _
        i As Long) _
        As Boolean
' Тестом НЕ покрыто
'
    Dim v1 As Variant, v2 As Variant
    
    With ws
        v1 = .Cells(N, i).Value
        v2 = .Cells(N - 1, 7).Value
    End With

    If CDate(v1) < CDate(v2) Then

        wsData_Cells_Less = True

    End If
End Function
[/vba]

Автор - InExSu
Дата добавления - 13.07.2019 в 23:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация типов данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!