ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка по Excel
16 сообщений из 16, страница 1 из 1
Задачка по Excel
    #36582497
denishka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
denishka
Гость
Всем привет, дали задачку по Excel, подскажите пожалуйста как ее можно решить.
пример задачи http://slil.ru/28967391
Суть задачки:
1. Пользователь через Ctrl выделяет группу не диапазонов на листе(возможный вариант выделен желтым). В ячейках - только числа.
2. Нажимает кнопку.
3. Все смежные ячейки разбиваются.
4. Все ячейки входящие в смежные заполняются значением этой ячейки.
5. Записать все значения в текстовый файл в порядке убывания. В одной строке, через запятую и только уникальные.
...
Рейтинг: 0 / 0
16.04.2010, 14:12
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582553
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А разве задачки даются не для самостоятельного решения?
...
Рейтинг: 0 / 0
16.04.2010, 14:28
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582613
denishka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
denishka
Гость
Shocker.Pro,
А разве форум служит не для помощи?
...
Рейтинг: 0 / 0
16.04.2010, 14:49
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582615
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Для помощи.
Спрашивайте, что конкретно вызвало проблему - ответим.
...
Рейтинг: 0 / 0
16.04.2010, 14:50
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582653
denishka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
denishka
Гость
Shocker.Pro,
не очень знаком c екселем(с программной точки зрения)
сложность вызывают эти три пункта:
3. Все смежные ячейки разбиваются.
4. Все ячейки входящие в смежные заполняются значением этой ячейки.
5. Записать все значения в текстовый файл в порядке убывания. В одной строке, через запятую и только уникальные
...
Рейтинг: 0 / 0
16.04.2010, 15:02
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582675
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
denishka,

Т.е. как нажать Ctrl и кнопку Вы знаете
...
Рейтинг: 0 / 0
16.04.2010, 15:12
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582680
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
denishka3. Все смежные ячейки разбиваются.

а) Сервис - Макрос - Начать запись
б) Делаете нужные действия (разбиваете ячейки)
в) Жмете "Стоп"
г) анализируете получившийся код на VBA

denishka4. Все ячейки входящие в смежные заполняются значением этой ячейки.

Запомнить значение, а после разбивки присвоить его получившемуся Range

denishka5. Записать все значения в текстовый файл в порядке убывания. В одной строке, через запятую и только уникальные

Тут возможны варианты - я не знаю, какие методики вы проходили. Можно, к примеру, создать коллекцию, которая не даст создать уникальные ключи, а потом записать ее в файл
...
Рейтинг: 0 / 0
16.04.2010, 15:13
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582682
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Подсказка 1:

Код: plaintext
1.
2.
3.
4.
5.
Sub tt()
For Each cc In Selection
Debug.Print cc.Address
Next
End Sub
...
Рейтинг: 0 / 0
16.04.2010, 15:14
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582689
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Есть ещё
Код: plaintext
1.
2.
Debug.Print cc.Row
Debug.Print cc.Column
Я такие задачи не решал, так что может это и неверный путь...
...
Рейтинг: 0 / 0
16.04.2010, 15:16
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582707
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Насчёт коллекции - здесь где-то пробегал
Код: plaintext
1.
2.
3.
4.
5.
6.
          If s Like Mask Then
            ' Оригинальный достаточно быстрый вариант добавления значения в коллекцию с сортировкой (from PGC01)
            For i =  1  To .Count
              If s < .Item(i) Then Exit For
            Next
            If i > .Count Then .Add s, s Else .Add s, s, Before:=i
          End If
так вот это хорошо сортирует текстовые значения, а числа у меня сортировал так: 1,10,2,20... может конечно можно что-то подкрутить.
...
Рейтинг: 0 / 0
16.04.2010, 15:21
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582711
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А, я пропустил слово "убывание"
Ну можно тогда перегрузить данные в массив, отсортировать любым методом сортировки (хоть пузырьковым) и писать в файл, пропуская повторяющиеся значения.
...
Рейтинг: 0 / 0
16.04.2010, 15:23
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582730
denishka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
denishka
Гость
Shocker.Pro, Hugo121, спасибо за помощь, буду разбиратся.
непонятно: делаете нужные действия, разбиваете ячейки?

По этому можно примерчик кода:
Shocker.ProНу можно тогда перегрузить данные в массив, отсортировать любым методом сортировки (хоть пузырьковым) и писать в файл, пропуская повторяющиеся значения.
...
Рейтинг: 0 / 0
16.04.2010, 15:30
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582737
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
denishkaнепонятно: делаете нужные действия, разбиваете ячейки?

мышка в руки, меню Формат, ячейки....

denishkaПо этому можно примерчик кода:
Shocker.ProНу можно тогда перегрузить данные в массив, отсортировать любым методом сортировки (хоть пузырьковым) и писать в файл, пропуская повторяющиеся значения.

поиск
...
Рейтинг: 0 / 0
16.04.2010, 15:33
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36582754
denishka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
denishka
Гость
Благодарю, а если ексель 2007, ненашел
Shocker.Prodenishkaнепонятно: делаете нужные действия, разбиваете ячейки?

мышка в руки, меню Формат, ячейки....

denishkaПо этому можно примерчик кода:
Shocker.ProНу можно тогда перегрузить данные в массив, отсортировать любым методом сортировки (хоть пузырьковым) и писать в файл, пропуская повторяющиеся значения.
поиск
...
Рейтинг: 0 / 0
16.04.2010, 15:40
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36583049
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Объект Range обладает методом Sort, так что для простоты решения сбросить на лист и:
Код: plaintext
r.sort key1:=r.columns( 1 ), order1:=xlDescending
Потом забрать обратно.
...
Рейтинг: 0 / 0
16.04.2010, 17:56
| Ответить | Цитировать | Написать  
Задачка по Excel
    #36583078
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
zchvvОбъект Range обладает методом Sort

Верно, не подумал об этом. Так действительно проще
...
Рейтинг: 0 / 0
16.04.2010, 18:05
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка по Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]