Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Форматирование ввода данных.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ВоВаНС ВоВаНС вне форума
-= Во.Ва.НС. =-
 
Аватар для ВоВаНС
 
Сообщений: 1,550
Сказал(а) спасибо: 120
Поблагодарили 133 раз(а) в 133 сообщениях
Регистрация: 25.01.2012
Адрес: Место прописки: http://www.hardforum.ru/users/61769/
Question Форматирование ввода данных. - 04.03.2015, 12:33

При вводе в ячейку нужно вводимые данные преобразовывать в реальном времени из X,YX,YX,Y (где X,Y - целая/десятичная) - в X,Y три пробела X,Y три пробела X,Y.


-= Единственным критерием истины является опыт! =-
"Спасибо", конечно, в сокет не вставишь, но всё таки приятно...
Ответить с цитированием
  (#2 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 04.03.2015, 19:36

Если не особо париться с проверками, то можно использовать соответствующее событие листа (разумеется сам код должОн находиться строго в модуле нужного листа)

VB Код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target(1) Like "#,##,##,#" Then
       Application.EnableEvents = False
       Target = RTrim(Application.Rept(Mid(Target(1), 4, 3) & Space(3), 3))
       Application.EnableEvents = True
    End If
End Sub
 
'Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'    If Target.Count > 1 Then Exit Sub
'
'    Dim iText$: iText = CStr(Target)
'
'    If iText Like "#,##,##,#" Then
'       Application.EnableEvents = False
'       iText = Left(iText, 3)
'       iText = iText & Space(3) & iText & Space(3) & iText
'       Application.EnableEvents = True
'    End If
'End Sub
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объявление символьного массива для ввода данных на С++ Squirrel Вопросы начинающих программистов 0 26.02.2011 16:16
Составить программу для форматированного ввода и вывода данных на С++ Анютка :) Вопросы начинающих программистов 4 29.01.2011 00:38
Проверка правильности ввода данных Yulush С/С++ 3 23.10.2010 20:34
Как сделать пример ввода данных в файл на С++ marisha26 Вопросы начинающих программистов 1 29.10.2009 17:58
Как создать окно, сделать поля ввода данных яхе Assembler 1 07.12.2008 22:16
Перенаправление ввода-вывода для получения данных от консольного приложения MarlboroMan C++ Builder 14 13.10.2007 00:36
Диалоговое окно для ввода данных исходник Vitala Visual C++ 0 20.11.2005 23:30
Как для ввода данных каждого участника использовать редактор текста OSH Вопросы начинающих программистов 14 04.06.2005 16:23
InterBase Console - проблема ввода данных в приложение Leon C++ Builder 1 29.03.2005 17:41
Есть созданный процессом дочерний CUI процесс как узнать требует ли он ввода данных Fess exe Visual C++ 1 17.10.2004 19:58
Создание большой формы для ввода данных на нее hedin Visual C++ 1 20.03.2004 15:26
Нужна помощь в программном ввода данных Anonymous DHTML, JavaScript, VBScript 3 14.08.2003 14:58



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов