Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос для exel / 4 сообщений из 4, страница 1 из 1
03.07.2006, 15:52:47
    #33827949
Алекс26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос для exel
Заранее извиняюсь за вопрос..не работал с макросами..есть два столбца с данными нужно сформировать третий столбец на основе отношения двух предыдущих..количество данных постоянно разное..Как это реализовать?
...
Рейтинг: 0 / 0
03.07.2006, 16:06:46
    #33828017
архивариус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос для exel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sub ИмяПроцедуры()
nRow= 1  'Начало диапазона замены
   while [Условие прекращения цикла]
      Sheets("Имя листа").cells(nRow,[номер столбца с решением])=Sheets("Имя листа").cells(nRow,[номер столбца  2 ]) +-/... Sheets("Имя листа").cells(nRow,[номер столбца  2 ])
      nRow=nRow+ 1 
   wend
End sub
В общих словах...
...
Рейтинг: 0 / 0
03.07.2006, 16:13:27
    #33828042
Алекс26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос для exel
спасибо большое..
...
Рейтинг: 0 / 0
03.07.2006, 16:17:31
    #33828054
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос для exel
Архивариус
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sub ИмяПроцедуры()
nRow= 1  'Начало диапазона замены
   while [Условие прекращения цикла]
      Sheets("Имя листа").cells(nRow,[номер столбца с решением])=Sheets("Имя листа").cells(nRow,[номер столбца  2 ]) +-/... Sheets("Имя листа").cells(nRow,[номер столбца  2 ])
      nRow=nRow+ 1 
   wend
End sub
В общих словах...

Код: plaintext
[Условие прекращения цикла]
заменить, например, на
Код: plaintext
Sheets("Имя листа").cells(nRow,[номер столбца  2 ])<>""
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос для exel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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