| Вопрос: TextBox и время(дата) | Добавлено: 19.09.04 17:02 |
Автор вопроса:  Anry Deriabine
|
|
Есть у меня TextBox и кучка кнопочек.Эти кнопочки ежедневно нажимаются и каждое нажатие фиксируется в TextBox(нажал - +1).А сделать надо следующее:
Проходит месяц и цифра из TextBox'а перемещается в какую-нибудь ячейку, а в самом TextBox'е снова ноль и первого числа начинается новый отсчет. Вот такая вот задачка. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 19.09.04 22:12 |
|
Private Sub Workbook_Open()
Dim i As Long If Лист1.Cells(Month(Date), xxx) = vbNullString Then Лист1.Cells(Month(Date), xxx) = TextBox.Text i = Month(Date) + 1 If i = 13 Then i = 1 Лист1.Cells(i, xxx) = vbNullString TextBox.Text = vbNullString End If End Sub Уточни сам полное имя TextBox, заместо ххх подставь № столбца. Процедура запускается при открытии книги и должна быть в блоке ЭтаКнига. Дмитрий |
||
|
Номер ответа: 2 Автор ответа:  Anry Deriabine Вопросов: 14 Ответов: 29 |
Профиль | | #2 | Добавлено: 23.09.04 20:41 |
|
Спасибо за подсказку.Я немного переделал, получилось:
Dim s As Long s = Month(Date) Dim g As Long g = Day(Date) Sheets("Показания"  .Cells(s, g) = Sheets("Показания".Cells(s, g) + (TextBox1.Text)
Sheets("Показания" .Cells(s, g + 2) = Now
Sheets("Показания" .Cells(s, g + 2).NumberFormat = "[$-419]mmmm;@"
TextBox1.Text = "1" s = Month(Date) + 1 If s = 13 Then s = 1 Sheets("Показания" .Cells(s, a) = vbNullString
TextBox1.Text = "1" End If Excel ругается на слово Date, пишет: Can't find project or library В чем сложность? |
||
|
Номер ответа: 3 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 24.09.04 13:57 |
| Пиши вместо Date функцию Now() | ||
|
Номер ответа: 4 Автор ответа: Anry DeriabineВопросов: 14 Ответов: 29 |
Профиль | | #4 | Добавлено: 25.09.04 19:35 |
| Спасибо. Вместе мы сила! | ||
Страница: 1 |