Помогите!! Ошибка в VBA / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите!! Ошибка в VBA

4 сообщений из 4, страница 1 из 1

Помогите!! Ошибка в VBA

#34990584

renaton

Участник

Сообщения: 753

Рейтинг: 0 / 0

здраствуйте уважаемые форумчане.....надо тут помочь......)
в MS Excel при закрытии хочу сделать сортировку листов по возрастанию. Все листы в Книге имеют такие названия "0 ч." "1 ч." ......... "23 ч."
Пытаюсь это сделать вот таким макросом
If Sheets.Count > 1 Then
For i = 0 To Sheets.Count - 1
S = Str(i) + " " + "ч."
Sheets(S).Select
'тут код который осуществляет перестановку.....
Next i
End If

Но выходит такая ошибка 'Runtime error 9' Subscript out of range
Что делать???
Помогите плиз......

...

Рейтинг:

0 / 0

06.12.2007, 12:07:59

| Ответить | Цитировать | Написать

Помогите!! Ошибка в VBA

#34990599

renaton

Участник

Сообщения: 753

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.

If Sheets.Count >  1  Then
For i =  0  To Sheets.Count -  1 
S = Str(i) + " " + "ч."
Sheets(S).Select
'тут код который осуществляет перестановку.....
Next i
End If

Кстате ошибка вылезает в строчке

Код: plaintext

Sheets(S).Select

...

Рейтинг:

0 / 0

06.12.2007, 12:11:24

| Ответить | Цитировать | Написать

Помогите!! Ошибка в VBA

#34990666

mari_karo

Гость

Читайте хелп. :)
When numbers are converted to strings, a leading space is always reserved for the sign of number. If number is positive, the returned string contains a leading space and the plus sign is implied.

Use the Format function to convert numeric values you want formatted as dates, times, or currency or in other user-defined formats. Unlike Str, the Format function doesn't include a leading space for the sign of number.

То бишь, у вас S после

Код: plaintext

 S = Str( 1 ) + " " + "ч."

равняется

Код: plaintext

" 1 ч."

с этим должно все работать.

Код: plaintext

S = Format(i) + " " + "ч."

...

Рейтинг:

0 / 0

06.12.2007, 12:28:12

| Ответить | Цитировать | Написать

Помогите!! Ошибка в VBA

#34991197

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

может все-таки листы нумеруются с 1, а ен с 0?

Код: plaintext

For i =  1  To Sheets.Count

I Have Nine Lives You Have One Only
THINK!

...

Рейтинг:

0 / 0

06.12.2007, 14:20:35

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите!! Ошибка в VBA

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=34990666&tid=2181770]:	0ms
get settings:	5ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	20ms
get topic data:	7ms
get forum data:	1ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	197ms

total:	273ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы