Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Программа по пересчету нумерации 
:(
    Опции темы
only888
  Дата 25.11.2010, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.11.2010

Репутация: нет
Всего: нет



Добрый день!

Помогите, спасите, я пропадаю!

Нужна программка по пересчету диапазонов нумерации в индексный вид
Например:

Диапазон: 7335690-7338791
Индексы:   733569  
                  73357
                  73358
                  73359
                  7336
                  7337
                  733871
                  733872
                  733873
                  733874
                  733875
                  733876
                  733877
                  733878
                  7338790
                  7338791

Может и не индексами это называется..
Я ничегошеньки не понимаю в программировании, и плохо представляю как такое можно сделать в excel или еще где((((
У меня раньше программка такая была, в MS Access, а потом у нас установили седьмой офис - и трагедия! она перестала работать!!!

Помогите пожалуйста!
PM MAIL   Вверх
Voldemar2004
  Дата 25.11.2010, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: нет
Всего: 23



only888, а почему индексы у тебя начинаются не с 7335690 ?

Добавлено @ 12:04
И по идее они должны увеличиваться на 1, так ?  У тебя они то уменьшаются, то увеличиваются...

Добавлено @ 12:12
Открой Excel, в ячейку А1 помести число 7335690, а в ячейку B1 помести число 7335790.

Вставь код:

Код

Option Explicit

Private Sub Workbook_Open()

Dim i As Long

For i = 2 To Val(Cells(1, 2)) - Val(Cells(1, 1)) + 1

    Cells(i, 1) = Cells(1, 1) + i - 1

Next i

End Sub


Сохрани макрос и перезапусти Excel. 

Это тебе требовалось ?

Добавлено @ 12:14
Цитата(only888 @  25.11.2010,  12:21 Найти цитируемый пост)
У меня раньше программка такая была, в MS Access, а потом у нас установили седьмой офис - и трагедия! она перестала работать!!!


Найди файл *.mdb, из которого запускалась твоя программа, скорее всего вы при переустановке Office все перезатерли ?

Это сообщение отредактировал(а) Voldemar2004 - 25.11.2010, 12:15


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
only888
Дата 25.11.2010, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.11.2010

Репутация: нет
Всего: нет



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

т.е. например диапазон 7035560-7035569 включает полностью 10 номеров, следовательно его мы сможем сократить до 703556х, 

а другой диапазон из 10 номеров 7035562-7035571 мы сократить уже не можем, т.к. туда входят номера из двух разных десятков, поэтому каждый номер этого диапазона будет прописан в отдельной строке.

В примере что я привела подразумевается следующее:

Диапазон: 7335690-7338791
Индексы:   733569   (это сокращенный диапазон 10 номеров от 7335690-7335699)
                  73357     (это сокращенный диапазон 100 номеров от 7335700-7335799)
                  73358     
                  73359
                  7336       (это сокращенный диапазон 1000 номеров от 7336000-7336999)
                  7337
                  733871
                  733872
                  733873
                  733874
                  733875
                  733876
                  733877
                  733878
                  7338790 (это 1 номер, т.к. десяток заканчивающийся на 90 не полный)
                  7338791

не знаю насколько понятно объяснила.

файл *.mdb у меня есть, а что такое перезатерли я не понимаю. 

Это сообщение отредактировал(а) only888 - 25.11.2010, 12:39
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0439 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.