Строчка для макроса - Microsoft Office Excel

Sharrik · 30.04.2010, 15:23

Привет! Нужна строчка для макроса, которую из-за незнания не могу написать:
Если в столбце A проставлена цифра 2, то в столбце B переименовать X на Y.
Пример в приложении. Надеюсь на помощь.

IgorGO · 30.04.2010, 15:30

Код:

Sub XY()
  r = 1
  Do
    If Cells(r, 1) = 2 Then Cells(r, 2) = "Y"
    r = r + 1
  Loop Until Cells(r, 1) = ""
End Sub

Sharrik · 30.04.2010, 16:23

Благодарю! проверил-подогнал, все работает.

30.04.2010, 15:30	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub XY() r = 1 Do If Cells(r, 1) = 2 Then Cells(r, 2) = "Y" r = r + 1 Loop Until Cells(r, 1) = "" End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Условие для макроса	Sidorow2001	Microsoft Office Access	0	25.01.2010 15:10
код для макроса	oboevrulon	Microsoft Office Excel	7	10.06.2009 10:39
Условие для макроса	sergiksergik	Microsoft Office Excel	8	23.05.2009 20:54
Создание SetUp для макроса	Romuald	Microsoft Office Excel	3	06.06.2008 12:23

30.04.2010, 16:23	#3
Sharrik Пользователь Регистрация: 25.02.2009 Сообщений: 19	Благодарю! проверил-подогнал, все работает.