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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Excel, VBA] массивы 
V
    Опции темы
Metalex
Дата 16.3.2010, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Доброго всем времени суток!!
Задачка такова: Задан массив A(n), элементы которого не повторяются. Заменить местами наибольший и последний элементы.
В VBA не очень силен, поэтому прошу вашей помощи. Во-первых, я не знаю, как с листа экселя перенести элементы в массив. Ну а заменить при уже готовом массиве, думаю, смогу.
Благодарю за участие.

Добавлено через 1 минуту и 16 секунд
Если у кого есть возможность, напишите, пожалуйста, пошаговое решение задачи.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Akina
Дата 16.3.2010, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(Metalex @  16.3.2010,  16:54 Найти цитируемый пост)
 Заменить местами 

Потрясающее выражение!

Цитата(Metalex @  16.3.2010,  16:54 Найти цитируемый пост)
В VBA не очень силен, поэтому прошу вашей помощи

Ну так и проси её в разделе "Центр помощи"...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Metalex
Дата 16.3.2010, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Цитата(Akina @  16.3.2010,  16:38 Найти цитируемый пост)
Потрясающее выражение!

ну не элементы, а их значения.... чего к словам придиратся   smile 


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Akina
Дата 16.3.2010, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Да просто выражение забавное.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Metalex
Дата 16.3.2010, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Akina, эх, лучше бы ты мне помог.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Staruha
Дата 17.3.2010, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Ой,Акина опять скандалит.Никак не могу найти грань,где он считает что нужно помочь а где нет.

Metalex 
ты тоже хорош,есть поиск введи слоыво Массив ,найдешь кучу интересного.
Код

Private Sub CommandButton1_Click()
Dim spisok(1 To 5, 1 To 5) 'Обьявляем массив 5строк два столбца
Dim i As Integer
Dim r As Integer
ComboBox1.Clear
For i = 1 To 5
 For r = 1 To 2
      
      spisok(i, r) = Cells(i, (r )) 'присваиваем значение  столбцов массиву
    
Next r
Next i

End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
Akina
Дата 17.3.2010, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(Staruha @  17.3.2010,  10:38 Найти цитируемый пост)
Никак не могу найти грань,где он считает что нужно помочь а где нет.

В данном случае - чистой воды домашнее задание. От того, кто перепишет решение и забудет его навсегда, не вынеся себе ничего полезного. Какой поиск по справке? он даже раздел правильно подобрать не в состоянии! 
Такие вопросы имхо следует вышвыривать из тематических форумов без всякого сожаления.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Metalex
Дата 17.3.2010, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Staruha, спасибо. 

Akina, ну так удаляй, чего же ждешь.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
mihanik
Дата 17.3.2010, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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



Цитата(Metalex @  17.3.2010,  16:44 Найти цитируемый пост)
Akina, ну так удаляй, чего же ждешь. 

Как скажешь!



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
alex77755
Дата 18.3.2010, 08:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Задан массив A(n)
как-то не вяжется с 
spisok(i, r)
PM MAIL   Вверх
Akina
Дата 18.3.2010, 08:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(Metalex @  16.3.2010,  16:54 Найти цитируемый пост)
я не знаю, как с листа экселя перенести элементы в массив

Например
Код

Dim x() as variant ' кто знает что там в ячейках
x = range("A1:A10").Cells.Value ' Результат - двумерный массив значений

Цитата(Metalex @  16.3.2010,  16:54 Найти цитируемый пост)
заменить при уже готовом массиве, думаю, смогу

Код

Sub Swap(ByRef Val1,ByRef Val2)
Dim Tmp
Tmp=Val1
Val1=Val2
Val2=Tmp
End sub
'...
Swap x(5), x(10)
'...



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 18.3.2010, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



alex77755 
Там пример на два столбца на один будет
spisok(i) 



--------------------
Возмездие настигнет
PM MAIL   Вверх
Metalex
Дата 21.3.2010, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Код

Swap x(5), x(10)

Здесь возникает ошибка.. Пишет, что выходит за пределы, хотя ничего не выходит..
Я прикреплю файл, может кто глянет..

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  3_16_.rar 6,49 Kb


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Metalex
Дата 22.3.2010, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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



Akina, помоги, пожалуйста, почему там ошибка?


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Akina
Дата 22.3.2010, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Цитата(Metalex @  22.3.2010,  13:18 Найти цитируемый пост)
почему там ошибка? 

Потому что кто-то внимательно читать не умеет.

Цитата(Akina @  18.3.2010,  09:47 Найти цитируемый пост)
Результат - двумерный массив значений




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

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

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


 




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


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

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