Автоматический перевод текстового формата в числовой

[and150382]

Добрый вечер!

При вводе чисел через форму, в таблице они преобразуются как текст. От этого у меня не работают формулы.
Написал макрос

Sub Conv()
With ActiveSheet.UsedRange
arr = .Value
.NumberFormat = "General"
.Value = arr
End With
End Sub
При выполнении макроса все преобразуется в числа.( то что нужно)

Подскажите, как сделать чтобы он работал постоянно?

Тоесть чтобы ненужно было каждый раз вызывать макрос, а чтобы числа вводимые через форму- в таблице сами преобразовывались из текстового формата в числовой.

[Hugo121]

В форме числа вводите в текстбоксы - поэтому при занесении на лист нужно из текста преобразовывать в числа.
Если не ставить проверку на разделитель (т.е. юзер обещал не косячить ) - достаточно --
Т.е. cells(1,1)=--Textbox1.value

[Скрипт]

and150382, в текст преобразуются дробные числа?

Это связано с тем, что в различных странах дробные числа пишутся по-разному. Например, в России дробные числа пишутся с запятой, а в США - с точкой.

Если вы вводите в текстовое поле дробное число с запятой, то Excel воспринимает дробное число не как число, а как текст.

Поэтому у вас два варианта при работе с Excel через VBA-форму:

1. вводить на форме дробные числа с точкой;
2. вводить на форме дробные числа с запятой, но перед вставкой на Excel-лист заменять VBA-инструментами запятую на точку.

Примечание

Вводить данные на Excel-лист с помощью самой программы Excel и с помощью VBA - это разные вещи.

Если вы работаете в программе Excel и вводите дробные числа с запятой, то прежде, чем число окажется в ячейке, Excel запускает какой-то механизм, который анализирует вводимые данные.

Если же число вводится из VBA, то Excel такой механизм не запускает и принимает данные в таком виде, в каком они есть.

[and150382]

Вот тут я ввожу в текстбоксы числа , а они в таблице преобразуются в текстовой формат

[Скрипт]

and150382, не знаю с чем связано, но используйте вот такой код для помещения данных из элементов управления в Excel:

Range("B1").Value = Me.TextBox1.Value

Примечание

Если вот так сделать:

Range("B1").Value = Me.TextBox1

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

[Hugo121]

Можно и так:

        .Cells(iLastRow, 2) = --Me.myColumn2
        .Cells(iLastRow, 3) = --Me.myColumn3

Но так нужно обеспечить, чтоб всюду в этих элементах были числа.

Или такой вариант:

    Dim t&
    With Sheets(iBazaSht.Name)
        iLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        t = Me.myColumn2
        .Cells(iLastRow, 2) = t
        t = Me.myColumn3
        .Cells(iLastRow, 3) = t
...
...

[Скрипт]

Hugo121, вообще в VBA есть инструменты для перевода текста в числа:
CDbl и Val.

А вот про два минуса где почитать? Я уже встречался с двумя минусами.

[Казанский]

А вот про два минуса где почитать?
F1 - "- Operator", syntax 2, а также "Operator Precedence"

[Hugo121]

Два минуса в 3 раза короче, чем CDbl(), и в более чем 2 раз короче, чем Val()
Ну и набрать проще.

[Скрипт]

Казанский: - - Operator

такого нет в VBA-справке.
Вот такое есть: - Operator

Казанский, не могу найти в справке про два минуса. Скопируйте, пожалуйста, из справки цитату, связанную с двумя минусами, и вставьте сюда.

Hugo121: Два минуса в 3 раза короче

Но что эти два минуса означают - не известно же.
И в чём выражается, что два минуса в 3 раза короче? В количестве символов?