Определение текущей даты и кол-во записе в листе

Программирование на Visual Basic for Applications
Pashido
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 06.05.2004 (Чт) 17:27

Определение текущей даты и кол-во записе в листе

Сообщение Pashido » 04.09.2004 (Сб) 12:04

Всю жизнь и на любых конфигурациях ПО чтобы вычислить текущую дату и сколько записей в рабочем листе пользовалься следующими методами соответственно:

Dim RowRng as Object, Dat1, j as Long
.....
Dat1 = Format(Date, "DD.MM.YYYY")
.....
Set RowRng = Cells(1, 1).CurrentRegion
j = RowRng.Rows.Count
.....

Столкнулся с тем что установив прогу на конкретный комп с конкретным ПО (WinXP Eng, MS Office XP стандарт rus) VBA сообщает, что объекты Date и RowRng не определены. Что бывает такое или это глюк ПО и его надо переинсталить?

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 04.09.2004 (Сб) 12:11

Не знаю как RowRng, но Date действительно не описанно, тем более что это зарезервированное имя типа. Возможно RowRng используется буква кирилицы в объявлении переменной,либо в использаваниии переменной ниже.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 04.09.2004 (Сб) 12:46

Попробуй вместо Date написать Now
Изображение

Pashido
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 06.05.2004 (Чт) 17:27

Сообщение Pashido » 04.09.2004 (Сб) 12:50

Синтаксичекая ошибка исключена. Один и тоже код работает дома на работе на всех компах, а у клиента затыкается.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 04.09.2004 (Сб) 12:55

Да это стандартный глюк, чаще всего он бывает с функциями модуля String. Создать пустой проект и скопировать туда содержимое.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 04.09.2004 (Сб) 13:02

GSerg писал(а):Да это стандартный глюк, чаще всего он бывает с функциями модуля String. Создать пустой проект и скопировать туда содержимое.

Если это то, о чем говорит GSerg, то это конфликт библиотек, его иначе можно решить, войдя в меню VBA сервис-ссылки и отключить конфликтующие библиотеки в проекте.

Евген
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 66
Зарегистрирован: 01.07.2003 (Вт) 14:13
Откуда: СПб

Сообщение Евген » 06.09.2004 (Пн) 13:36

Date = DateValue(Now)
Ёж птица гордая, пока не пнешь - не полетит!

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 06.09.2004 (Пн) 13:58

Date=Fix(Now)
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList