Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Засада с форматом в форме и ячейках таблиц / 3 сообщений из 3, страница 1 из 1
05.03.2007, 12:20:44
    #34370943
V_Milto
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Засада с форматом в форме и ячейках таблиц
В локализации разделитель точка.
В форме поле привязано к ячейке таблицы. Формат ячейки "основной".
При вводе числа (с точкой) в ячейку таблицы все нормально, но при вводе числа с точкой в форме оно преобразуется в дату. Если вводить число через запятую, то OK.
Дело в том что у нас все работают через точку.

Как избавиться от этого?
...
Рейтинг: 0 / 0
05.03.2007, 16:43:28
    #34371983
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Засада с форматом в форме и ячейках таблиц
авторPrivate Sub CommandButton1_Click()
Range("A1") = TextBox1.Text
End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = Format(TextBox, "#,##0")
End Sub
...
Рейтинг: 0 / 0
05.03.2007, 22:25:18
    #34372726
V_Milto
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Засада с форматом в форме и ячейках таблиц
Перевести в строки это хорошо, но есть некая засада - есть стобцы, в которые пользователь помещает данные (числа или строки, на свой вкус),
были поля условий в которые пользователь вводил критерии (формат основной, вводил соответственно число или строки).
Программе было без разницы что сравнивать 1.2 = 1.2 1.2 < 1
или "qwe" = "qwe", "qwe" <> "qwe". Поэтому я не задавал фиксированный формат (число или символы).
Форма ввела свои коррективы и , если поле критерия задать как текст, то придется в логике определять с чем я сравниваю (число или текст) и делать преобразовнаия.
Я написал код. Может можно попроще

Sub www()
Dim s As String, v As Single, Err
s = 1.234
If TestVal(s) Then Debug.Print "число"
s = "1W34GT"
If Not TestVal(s) Then Debug.Print "строка"
End Sub

Function TestVal(str As String) As Boolean
Dim v As Single
On Error GoTo m1

v = str
TestVal = True
On Error GoTo 0
Exit Function
m1:
TestVal = False
On Error GoTo 0
End Function
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Засада с форматом в форме и ячейках таблиц / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]