VBA при переходе с Wind7 на Wind10

[tim8579]

В региональных стандартах установлена запятая в качестве разделителя дробной части.

На листе Excel в ячейке А1 введено число 313,5

Далее имеем простой код:

Private Sub UserForm_Initialize()
TextBox1 = Range("A1")
If IsNumeric(TextBox1) Then
Label1 = "Числовой"
Else
Label1 = "Нечисловой"
End If
End Sub

При запуске UserForm в Windows 7 имеем следующий результат:
в ячейке А1- число 313,5; в TextBox подтянулось тоже 313,5; то есть в обоих случаях имеется ЗАПЯТАЯ; соответственно формат определен как числовой.

А вот в Windows 10 (при тех же региональных стандартах) результат совершенно иной:
в ячейке А1- 313,5
в TextBox- 313.5
То есть в TextBox значение подтянулось с ТОЧКОЙ!
Соответственно формат определен как нечисловой


В результате перехода на Windows 10 у нас полетели все экселевские макросы!

Кто-то может подсказать, что с этим делать (чтобы не переписывать программы и не менять в региональных стандартах запятую на точку)?

[Igor1961]

tim8579, а покажите кусочек файла и форму, если не секрет У меня все мои макросы из 2007 и 2003 в десятке работают почему-то...

[tim8579]

pic_2- Wind 10
pic_3- Wind 7

[Igor1961]

Вообще-то про файл Excel разговор был, а не gif или jpeg... Может у Вас что-то в форме в контролах есть, может какой-то еще макрос в файле безобразничает, как догадаться? По фотографии? Может нужно посмотреть в сторону форматов - как ячеек, так и TextBox, или может Clng и т.п... Пока не ясно, где и чего смотреть и искать

[tim8579]

Только в архиве- файл .xlsm не прикрепляется

[Igor1961]

А можете рассказать, в чем именно проблема? Нужно обработать то, что находится в текстбоксе? Или в ячейке? Что во что нужно преобразовать, или что вычислить? Или чтобы IsNumeric(TextBox1) стало=True? Если последнее, то навряд ли смогу Вам помочь. TextBox: ключевое слово - "Text". А потом уже с ним производятся действия.
Или это Вам нужно:

TextBox1.Value = Val(TextBox1.Value)

?

[IgorGO]

Private Sub CommandButton1_Click()
  If IsNumeric(Replace(TextBox1, ".", ",")) Then
    MsgBox "Числовой"
    n = Replace(TextBox1, ".", ",") - 0
    Range("A1") = n
    Else
    MsgBox "Нечисловой"
    Range("A1").ClearComments
  End If
End Sub

Private Sub UserForm_Initialize()
  TextBox1 = Range("A1")
  If IsNumeric(Replace(TextBox1, ".", ",")) Then
   Label1 = "Числовой"
  Else
   Label1 = "Нечисловой"
  End If
End Sub

[tim8579]

Сообщение от Igor1961

А можете рассказать, в чем именно проблема? Нужно обработать то, что находится в текстбоксе? Или в ячейке? Что во что нужно преобразовать, или что вычислить? Или чтобы IsNumeric(TextBox1) стало=True? Если последнее, то навряд ли смогу Вам помочь. TextBox: ключевое слово - "Text". А потом уже с ним производятся действия.
Или это Вам нужно:

TextBox1.Value = Val(TextBox1.Value)

?

На самом деле проблема очень простая. Большое количество наших макросов построено по одному принципу. В старой Винде если в ячейке содержалось значение 313,5 , то и в TextBox подтягивалось 313,5. В десятке же в TextBox подтягивается 313.5. Из-за этого макрос не работает. Я пока нашел 2 решения: 1) частное- внести изменения в код каждого макроса. С учетом того, что макросов сотни- это не лучшая идея 2) установить в региональных стандартах точку вместо запятой. Тогда все работает. Но это придется делать на каждом компьютере в офисе.