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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод в ячейку номера цикла при условии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод в ячейку номера цикла при условии (Макросы/Sub)
Вывод в ячейку номера цикла при условии
djon2012 Дата: Понедельник, 19.01.2015, 01:24 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 106
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте !
Подскажите пожалуйста как сделать чтобы в цикле 1 - 50000, через каждую 1000 циклов в ячейке A1 выводился номер цикла (1000 2000 3000)

Sub Макрос1()
For i = 1 To 50000

Next i
End Sub

Спасибо!
 
Ответить
СообщениеЗдравствуйте !
Подскажите пожалуйста как сделать чтобы в цикле 1 - 50000, через каждую 1000 циклов в ячейке A1 выводился номер цикла (1000 2000 3000)

Sub Макрос1()
For i = 1 To 50000

Next i
End Sub

Спасибо!
Автор - djon2012
Дата добавления - 19.01.2015 в 01:24
krosav4ig Дата: Понедельник, 19.01.2015, 02:33 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вариант 1
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1000 To 50000 Step 1000
           [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 2
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1 To 50000
           If i Mod 1000 = 0 Then [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 3 без цикла
[vba]
Код
Sub Макрос1()
      [A1] = Join(Evaluate("transpose(ROW(1:" & 50000 \ 1000 & "))*1000"), " ")
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Понедельник, 19.01.2015, 02:52
 
Ответить
Сообщениевариант 1
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1000 To 50000 Step 1000
           [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 2
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1 To 50000
           If i Mod 1000 = 0 Then [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 3 без цикла
[vba]
Код
Sub Макрос1()
      [A1] = Join(Evaluate("transpose(ROW(1:" & 50000 \ 1000 & "))*1000"), " ")
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 19.01.2015 в 02:33
RAN Дата: Понедельник, 19.01.2015, 02:34 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
If i Mod 1000 Then Else Cells(1, 1) = i
[/vba]

Нихренаськи, прогрессбар. :D

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
If i Mod 1000 Then Else Cells(1, 1) = i
[/vba]

Нихренаськи, прогрессбар. :D
Автор - RAN
Дата добавления - 19.01.2015 в 02:34
djon2012 Дата: Понедельник, 19.01.2015, 08:30 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 106
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Большое СПАСИБО за ответы.
 
Ответить
СообщениеБольшое СПАСИБО за ответы.
Автор - djon2012
Дата добавления - 19.01.2015 в 08:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод в ячейку номера цикла при условии (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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