Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/цикл по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » цикл по условию (Макросы/Sub)
цикл по условию
85Muslim85 Дата: Суббота, 02.05.2015, 15:40 | Сообщение № 1
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
доброго всем дня, помогите плиз почему выдает ошибку при нажатии на командбуттон??

[vba]
Код
Range("B50").Select
i = 1
For i = 1 To 14
If ActiveCell.Value = "" Then ActiveCell.Value = 1
Else: ActiveCell.Offset(1, 0).Select

Next i
End If
[/vba]
 
Ответить
Сообщениедоброго всем дня, помогите плиз почему выдает ошибку при нажатии на командбуттон??

[vba]
Код
Range("B50").Select
i = 1
For i = 1 To 14
If ActiveCell.Value = "" Then ActiveCell.Value = 1
Else: ActiveCell.Offset(1, 0).Select

Next i
End If
[/vba]
Автор - 85Muslim85
Дата добавления - 02.05.2015 в 15:40
85Muslim85 Дата: Суббота, 02.05.2015, 15:59 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
мне надо чтобы каждый раз выводил одну ячейку цифру 1 если ячейка пустая в диапазоне
К сообщению приложен файл: 6179362.xlsm (16.2 Kb)
 
Ответить
Сообщениемне надо чтобы каждый раз выводил одну ячейку цифру 1 если ячейка пустая в диапазоне
Автор - 85Muslim85
Дата добавления - 02.05.2015 в 15:59
krosav4ig Дата: Суббота, 02.05.2015, 16:57 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
85Muslim85, вы цикл не в той строке закрыли
[vba]
Код
For i = 1 To 14
      If ActiveCell.Value = "" Then
          ActiveCell.Value = 1
      Else: ActiveCell.Offset(1, 0).Select
      End If
Next i
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 02.05.2015, 16:58
 
Ответить
Сообщение85Muslim85, вы цикл не в той строке закрыли
[vba]
Код
For i = 1 To 14
      If ActiveCell.Value = "" Then
          ActiveCell.Value = 1
      Else: ActiveCell.Offset(1, 0).Select
      End If
Next i
[/vba]
Автор - krosav4ig
Дата добавления - 02.05.2015 в 16:57
85Muslim85 Дата: Суббота, 02.05.2015, 17:07 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
мне надо чтобы по одной ячейке по очередности вставлялось значение а не сразу в 14 строк


Сообщение отредактировал 85Muslim85 - Суббота, 02.05.2015, 17:12
 
Ответить
Сообщениемне надо чтобы по одной ячейке по очередности вставлялось значение а не сразу в 14 строк
Автор - 85Muslim85
Дата добавления - 02.05.2015 в 17:07
85Muslim85 Дата: Суббота, 02.05.2015, 17:22 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
[vba]
Код
For i = 1 To 14
     If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select
Next i
ActiveCell.Value = 1
[/vba]
наконец то разобрался
 
Ответить
Сообщение[vba]
Код
For i = 1 To 14
     If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select
Next i
ActiveCell.Value = 1
[/vba]
наконец то разобрался
Автор - 85Muslim85
Дата добавления - 02.05.2015 в 17:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » цикл по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!