Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.14;
Скачать: CL | DM;

Вниз

Макросы в Excel   Найти похожие ветки 

 
EkZot   (2006-12-20 10:35) [0]

Помогите написать простой макрос для экселя.
Числа записаны в столбик. Нужно упорядочить их по убыванию.


 
Prohodil Mimo ©   (2006-12-20 10:37) [1]

Record New Macro, делай дело, останавливай запись, смотри что получилось.


 
EkZot   (2006-12-20 11:03) [2]

Я конечно понимаю что это наглость. Но всётаки хоттелось у видеть хоть примерный код по этой задачи.


 
Сергей М. ©   (2006-12-20 11:07) [3]


> EkZot   (20.12.06 11:03) [2]



> Помогите написать простой макрос для экселя


Сам Excel тебе разве отказывает в помощи в этом ?


 
boriskb ©   (2006-12-20 11:08) [4]

EkZot   (20.12.06 11:03) [2]
Я конечно понимаю что это наглость.


До такой степени не уметь работать с Exсel программисту должно быть стыдно.
Набери в Help-е екселя "запись макроса"


 
EkZot   (2006-12-20 11:15) [5]

ладно как на бейсике будет выглядеть
for i:=1 to n do
if i>1 then

и как обьявлять переменные.


 
EvS ©   (2006-12-20 11:31) [6]


> ладно как на бейсике будет выглядеть
> for i:=1 to n do
> if i>1 then
>
> и как обьявлять переменные.


Dim i as integer

for i=1 to n
if i>1 then...

next i


 
Сергей М. ©   (2006-12-20 11:33) [7]


> как на бейсике будет выглядеть
> for i:=1 to n do
> if i>1 then
>


почти так же и будет выглядеть:

for i=1 to n
if i>1 then
..
end for


> как обьявлять переменные.


Их можно вообще не объявлять, если VB-модуль не начинается с директивы Option Explicit.

В противном случае

dim n as integer

i м.б. любым, в зависимости от контекста: integer, double, variant ...


 
sergey888   (2006-12-20 12:57) [8]

Числа записаны в столбик. Нужно упорядочить их по убыванию.

1.начать запись нового макроса (есть такая нопка)
2.Проделать все операции по сортировке
3.Остановить запись макроса (есть такая кнопка)
4.Открыть макрос и посмотреть полученный код.



Страницы: 1 вся ветка

Текущий архив: 2007.01.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.052 c
2-1166921681
Fist
2006-12-24 03:54
2007.01.14
if FindFirst( *.* , faDirectory, srDir) = 0 then - находит все фа


2-1167142246
KyRo
2006-12-26 17:10
2007.01.14
Вопрос по Firebird


2-1167045529
Slimer
2006-12-25 14:18
2007.01.14
Фильтр БД sting&integer


3-1161793929
rar
2006-10-25 20:32
2007.01.14
отключить пользователя от сервера


2-1167038716
mfender
2006-12-25 12:25
2007.01.14
Перехватить уничтожение контрола при закрытии приложения