 |
|
Модераторы: Akina |
 
|
|
Перенос даты с Textboxa в таблицу 
| Йекс |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 17.11.2006 Репутация: нет Всего: нет |
Суть проблемы - если в Textboxе ввожу любую дату (типа 06.12) и переношу её в ячейку таблицы, то он переносится как обычное дробное число (то есть 6,12). Подскажите, как от такого избавиться, чтобы дата перносилась как дата?
|
|||
|
||||
Загрузка ...
| ~FoX~ |
|
|||
 НЕ рыжий!!!  Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 10 Всего: 68 |
Йекс, Код покажи...
А вообще нужный формат ячейки выстави перед тем как туда что то запихивать --------------------  …множественность никогда не следует полагать без необходимости… |
|||
|
||||
| Йекс |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 17.11.2006 Репутация: нет Всего: нет |
~FoX~
Код примерно такой: Private Sub CommandButton1_Click() ThisWorkbook.Sheets(1).Range("A1") = UserForm1.TextBox1.Value End Sub Если в TextBox1 ввести дату 06.12, а в ячейке А1 формат вообще не выставлять, то он перенесёт как 6,12. Если формат в А1 выставить как дд.мм.гггг то он перенесёт как 06.01.1900. |
|||
|
||||
| mihanik |
|
||||
 -=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 11 Всего: 109 |
Попробуй так...
Или так
Это сообщение отредактировал(а) mihanik - 7.12.2006, 13:10 -------------------- Программистами не рождаются, - это родовая травма...   |
||||
|
|||||
| Йекс |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 17.11.2006 Репутация: нет Всего: нет |
Попробовал. И так, и так. В первом случае всё так же, как и было. Во втором случае дата переносится как простой текст, то есть если я начинаю работать с данной ячейкой как с датой, то ничего не получается... Ни формат другой этой ячейке, ни формулы к ней не применить... |
|||
|
||||
| mihanik |
|
|||
|
-=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 11 Всего: 109 |
А вот так...
У меня работает нормально... -------------------- Программистами не рождаются, - это родовая травма... |
|||
|
||||
| Йекс |
|
||||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 17.11.2006 Репутация: нет Всего: нет |
06.12 вставляет как 06.01.00. 06.12.06 вставляет как 06.12.06, но не как дату, а как текст
Если работает нормально, то вот это он должен посчитать: Private Sub CommandButton1_Click() ThisWorkbook.Sheets(1).Range("A1").NumberFormat = "dd/mm/yy;@" ThisWorkbook.Sheets(1).Range("A1").Value = UserForm1.TextBox1.Value ThisWorkbook.Sheets(1).Range("A2").Value = ThisWorkbook.Sheets(1).Range("A1").Value - 1 End Sub Считает? Блин, третий день с такой мелочью парюсь... |
||||
|
|||||
| Йекс |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 17.11.2006 Репутация: нет Всего: нет |
Всем спасибо, разобрался...
|
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0475 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |