Есть простой код:
| Код |
|---|
Private Sub UserForm_Initialize()
TextBox1 = Range("A1")
If IsNumeric(TextBox1) Then
Label1 = "Числовой"
Else
Label1 = "Нечисловой"
End If
End Sub |
Вот как выглядит результат в Windows 7 (в региональных стандартах установлена запятая в качестве разделителя дробной части):
Если не видно, то поясню: в ячейке А1- число 313,5; в TextBox подтянулось тоже 313,5; то есть в обоих случаях имеется ЗАПЯТАЯ; соответственно формат определен как числовой.
А от как выглядит результат в Windows 10 (в региональных стандартах также установлена запятая в качестве разделителя дробной части):
Поясню, поскольку плохо видно:
в ячейке А1- 313,5
в TextBox- 313.5
То есть в TextBox значение подтянулось с ТОЧКОЙ! Соответственно формат определен как нечисловой
В результате перехода на Windows 10 у нас полетели все экселевские макросы!
Кто-то может подсказать, что с этим делать (чтобы не переписывать программы и не менять в региональных стандартах запятую на точку)?
