ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ввод текста в ячейку
7 сообщений из 7, страница 1 из 1
Ввод текста в ячейку
    #38973355
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
Всем привет!

Столкнулся с неприятным моментом, при вводе в ячейки листа текста из массива, типа "2070/1/1", введенный текст превращается в дату: 01.01.2070. На самом деле запись "2070/1/1" это номер счета, номер отдела и номер изделия.
Книга, куда вводится текст, создается программно.
Мне требуется оставить запись как есть: "2070/1/1"
Ввод данных в ячейки стандартный:
Код: vbnet
1.
2.
3.
Dim MasA() As String           'динамический массив
.....
PageWok.Cells(L, 2) = MasA(I)  'Счет/отд/изд


Временно победил эту проблему путем ручного форматирования столбца с указанными строками в "Текстовый". Но хотелось бы решить проблему программно. Офис 2003.
Подскажите пожалуйста, как проще эту проблему решить?
...
Рейтинг: 0 / 0
01.06.2015, 14:44
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973374
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
вводить предваряющий апостроф
Код: vbnet
1.
'2070/1/1
...
Рейтинг: 0 / 0
01.06.2015, 14:52
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973416
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Alex37Временно победил эту проблему путем ручного форматирования столбца с указанными строками в "Текстовый". Но хотелось бы решить проблему программно.Почему бы не установить программно формат "Текстовый"?
Код: vbnet
1.
2.
Columns(1).NumberFormat = "@"
Cells(1, 1) = "2070/1/1"
...
Рейтинг: 0 / 0
01.06.2015, 15:31
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973544
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
КазанскийAlex37Временно победил эту проблему путем ручного форматирования столбца с указанными строками в "Текстовый". Но хотелось бы решить проблему программно.Почему бы не установить программно формат "Текстовый"?
Код: vbnet
1.
2.
Columns(1).NumberFormat = "@"
Cells(1, 1) = "2070/1/1"


Я примерно такое же решение применил, но у Вас короче:
Код: vbnet
1.
2.
3.
    Columns("B:B").Select
    Range("B2").Activate
    Selection.NumberFormat = "@"


Но думал, что короче можно. Что-то типа прямо в операторе присваивания, используя свойство .Text , но не получилось. А примеров подходящий сразу не нашел:
Код: vbnet
1.
PageWok.Cells(L, 2).Text = MasA(I)  'Счет/отд/изд
...
Рейтинг: 0 / 0
01.06.2015, 16:57
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973562
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
Shocker.Proвводить предваряющий апостроф
Код: vbnet
1.
'2070/1/1


Ого! Про такое не знал. Действительно, работает! Ж8( )

Спасибо всем за советы!!!
...
Рейтинг: 0 / 0
01.06.2015, 17:04
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973620
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Alex37
Код: vbnet
1.
2.
    Columns("B:B").Select
    Range("B2").Activate

http://www.sql.ru/faq/faq_topic.aspx?fid=4344
...
Рейтинг: 0 / 0
01.06.2015, 17:35
| Ответить | Цитировать | Написать  
Ввод текста в ячейку
    #38973656
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
Shocker.ProAlex37
Код: vbnet
1.
2.
    Columns("B:B").Select
    Range("B2").Activate

http://www.sql.ru/faq/faq_topic.aspx?fid=4344
Спасибо! Полезная информация.
...
Рейтинг: 0 / 0
01.06.2015, 18:02
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ввод текста в ячейку
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38973355&tid=2173483]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 282ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


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