Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.05.2008, 08:00   #1
rustam_colpal
 
Регистрация: 21.05.2008
Сообщений: 8
По умолчанию Заменить значение на 1 если >5

Народ помогите Заменить число в колонке на 1 если в ней число >5

Заранее пасиб!
rustam_colpal вне форума
Старый 21.05.2008, 08:10   #2
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

А в чём проблема-то? Синтаксис оператора If нужно объяснить, или что?
дмидми вне форума
Старый 21.05.2008, 08:29   #3
rustam_colpal
 
Регистрация: 21.05.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от дмидми Посмотреть сообщение
А в чём проблема-то? Синтаксис оператора If нужно объяснить, или что?

Да пожалуйста
rustam_colpal вне форума
Старый 21.05.2008, 08:37   #4
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Макрос вот такой.

Код:
Sub rustam_colpal()

Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") > 5 Then Cells(i, "A") = 1
Next
Пояснение нужно?
Jungo must die!!! (C) Bill Gates.
jungo вне форума
Старый 21.05.2008, 08:57   #5
rustam_colpal
 
Регистрация: 21.05.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от jungo Посмотреть сообщение
Макрос вот такой.

Код:
Sub rustam_colpal()

Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") > 5 Then Cells(i, "A") = 1
Next
Пояснение нужно?

желательно с примером формы
rustam_colpal вне форума
Старый 21.05.2008, 09:02   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
желательно с примером формы
с примером формы чего?
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 21.05.2008, 09:09   #7
rustam_colpal
 
Регистрация: 21.05.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
с примером формы чего?

Я про Excel

мне необходимо заменить значения в колонках которое меньше 5 заменить на 1
rustam_colpal вне форума
Старый 21.05.2008, 09:26   #8
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Прикрепил файл с двумя листами один с заголовком второй без.
Нужно запустить макрос в соответствии с названием листа
Вложения
Тип файла: rar ReplaceIf.rar (6.5 Кб, 10 просмотров)
Jungo must die!!! (C) Bill Gates.

Последний раз редактировалось jungo; 21.05.2008 в 09:40.
jungo вне форума
Старый 21.05.2008, 09:38   #9
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Я бы проверял два условия:
Код:
If IsNumeric(Cells(i, "A")) And Cells(i, "A") > 5 Then...
Вот только жаль, что автор так и не может определиться:
Цитата:
Народ помогите Заменить число в колонке на 1 если в ней число >5
Цитата:
мне необходимо заменить значения в колонках которое меньше 5 заменить на 1
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 21.05.2008, 09:43   #10
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

А я только что заменил условие и поменял файл в своём посте.
Ну ошибся человек, с кем не бывает...

SAS888
Да! Я за! Поменял и прикрепил!
Вложения
Тип файла: rar ReplaceIf_SAS888.rar (6.9 Кб, 15 просмотров)
Jungo must die!!! (C) Bill Gates.

Последний раз редактировалось jungo; 21.05.2008 в 09:54.
jungo вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
если в 1 ячейку поставить х то в третью запишеться значение второй Medyankin Microsoft Office Excel 7 29.07.2008 14:16
Если функция ЕСЛИ не подходит Katherina_Koval Microsoft Office Excel 1 25.07.2008 19:09
cтранная запись формулы ЕСЛИ: "=+ЕСЛИ(..." icore2008 Microsoft Office Excel 4 10.04.2008 21:32
как перейдти на заклаку и заменить ее Tiolic Microsoft Office Word 2 09.10.2007 12:51
условие если значение = empty zetrix Microsoft Office Excel 0 30.10.2006 18:58