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

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

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

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

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

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

Тут возможны варианты - я не знаю, какие методики вы проходили. Можно, к примеру, создать коллекцию, которая не даст создать уникальные ключи, а потом записать ее в файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2010, 15:14
    #36582682
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка по Excel
Подсказка 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:16
    #36582689
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка по Excel
Есть ещё
Код: plaintext
1.
2.
Debug.Print cc.Row
Debug.Print cc.Column
Я такие задачи не решал, так что может это и неверный путь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2010, 15:21
    #36582707
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка по Excel
Насчёт коллекции - здесь где-то пробегал
Код: 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:23
    #36582711
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка по Excel
А, я пропустил слово "убывание"
Ну можно тогда перегрузить данные в массив, отсортировать любым методом сортировки (хоть пузырьковым) и писать в файл, пропуская повторяющиеся значения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2010, 15:30
    #36582730
denishka
denishka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка по Excel
Shocker.Pro, Hugo121, спасибо за помощь, буду разбиратся.
непонятно: делаете нужные действия, разбиваете ячейки?

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

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

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

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

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

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

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


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