Цикл / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Цикл

22 сообщений из 22, страница 1 из 1

Цикл

#38081654

Maxim12345678

Гость

Dim a As Workbook
Dim i, k As Integer
Set a = ThisWorkbook
k = a.Sheets("111").Range("A1").End(xlDown).Row
For i = 2 To k
a.Sheets("111").Cells(i, 106).Value = CDate("01.12.2012") - a.Sheets("111").Cells(i, 104).Value
Next i

Всем привет. Считаю разность дат в цикле, но цикл не работает. Подскажите, плиз, что не так...

...

Рейтинг:

0 / 0

17.12.2012, 11:57

| Ответить | Цитировать | Написать

Цикл

#38081657

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Maxim12345678Подскажите, плиз, что не так...Терминология в первую очередь.
Что значит "цикл не работает"? итератор не меняется? если нет - учи правильные слова, если да - говори, как определил.

...

Рейтинг:

0 / 0

17.12.2012, 11:59

| Ответить | Цитировать | Написать

Цикл

#38081663

Maxim12345678

Гость

Выдает ошибку "type mismatch". Я так понимаю, что что-то неправильно определено...

...

Рейтинг:

0 / 0

17.12.2012, 12:03

| Ответить | Цитировать | Написать

Цикл

#38081669

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

На какой строке выдает?
Что же все клещами-то надо вытягивать?

...

Рейтинг:

0 / 0

17.12.2012, 12:04

| Ответить | Цитировать | Написать

Цикл

#38081670

Maxim12345678

Гость

Сразу на 2 строке

...

Рейтинг:

0 / 0

17.12.2012, 12:05

| Ответить | Цитировать | Написать

Цикл

#38081676

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Maxim12345678Сразу на 2 строке

Код: vbnet

Dim i, k As Integer

???
тут все правильно, за исключением того,что если i хочется определить как Integer, нужно писать

Код: vbnet

Dim i As Integer, k As Integer

...

Рейтинг:

0 / 0

17.12.2012, 12:08

| Ответить | Цитировать | Написать

Цикл

#38081677

Maxim12345678

Гость

В общем. Я понял, что не дополнил картину :) В столбце с датами стоят еще #Н/Д. Видимо, поэтому и не работает...

...

Рейтинг:

0 / 0

17.12.2012, 12:08

| Ответить | Цитировать | Написать

Цикл

#38081681

Maxim12345678

Гость

И нужно посчитать разность только тех ячеек, в которых стоит дата.

...

Рейтинг:

0 / 0

17.12.2012, 12:10

| Ответить | Цитировать | Написать

Цикл

#38081686

Maxim12345678

Гость

Нашел ошибку... во второй строке стоит #Н/Д, вот он и стопариться сразу.

...

Рейтинг:

0 / 0

17.12.2012, 12:12

| Ответить | Цитировать | Написать

Цикл

#38081687

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

If IsDate(a.Sheets("111").Cells(i, 104).Value) Then

...

Рейтинг:

0 / 0

17.12.2012, 12:12

| Ответить | Цитировать | Написать

Цикл

#38081691

Maxim12345678

Гость

Спасибо большое. Все заработало.

...

Рейтинг:

0 / 0

17.12.2012, 12:15

| Ответить | Цитировать | Написать

Цикл

#38081797

Maxim12345678

Гость

Dim a As Workbook
Set a = ThisWorkbook
k = a.Sheets("111").Range("A1").End(xlDown).Row
For i = 2 To k
If a.Sheets("111").Cells(i, 107).Text Like "*Авто*" And a.Sheets("111").Cells(i, 103) = "Ангарск" Then [B16] = WorksheetFunction.Sum(a.Sheets("111").Cells(i, 19))
Next i
End Sub

Есть еще вопрос :) Этот цикл должен, учитывая 2 условия, записывать сумму в ячейку B16. Но он всегда выдает значение последней ячейки... Как его подправить, чтобы сумма правильно считалась? Спасибо.

...

Рейтинг:

0 / 0

17.12.2012, 13:02

| Ответить | Цитировать | Написать

Цикл

#38081817

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Dim a As Workbook
Set a = ThisWorkbook
k = a.Sheets("111").Range("A1").End(xlDown).Row
For i = 2 To k
If a.Sheets("111").Cells(i, 107).Text Like "*Авто*" And a.Sheets("111").Cells(i, 103) = "Ангарск" Then [B16] = WorksheetFunction.Sum(a.Sheets("111").Cells(i, 19))
Next i
End Sub

Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

17.12.2012, 13:14

| Ответить | Цитировать | Написать

Цикл

#38081818

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Пишет то, что ты его попросил.
А что надо писать - непонятно.

...

Рейтинг:

0 / 0

17.12.2012, 13:17

| Ответить | Цитировать | Написать

Цикл

#38081873

Maxim12345678

Гость

Про оформление понял :)

В столбце 19 стоят числа. Он должен брать числа из столбца 19, которые соответствуют 2 условиям и записывать их сумму в ячейку B16. Сейчас же он просто записывает последнюю ячейку, соответствующую этим 2 условиям.

...

Рейтинг:

0 / 0

17.12.2012, 13:53

| Ответить | Цитировать | Написать

Цикл

#38081888

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

так может ты хотел написать:

Код: vbnet

[B16] = [B16] + a.Sheets("111").Cells(i, 19)

...

Рейтинг:

0 / 0

17.12.2012, 14:04

| Ответить | Цитировать | Написать

Цикл

#38081896

Maxim12345678

Гость

Спасибо. Именно так и хотел Недавно просто начал осваивать макросы, иногда бывают затупы в легких местах.

ЗЫ: стыдно в цикле такую ошибку делать

...

Рейтинг:

0 / 0

17.12.2012, 14:10

| Ответить | Цитировать | Написать

Цикл

#38161466

RomanSamara10

Гость

Подскажите пожалуйста как правильно написать скрипт. Ситуация такая: есть перечень номеров (они все время разные) - выбираются селектом из базы по условиям. По каждому номеру отдельно нужно внести изменения в кучу других таблиц
ПРИМЕР: в эти таблицы вносим изменения
(update eo12 set m1 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo12 set m1 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo18 set s8 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo62 set g5 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo17 set h2 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo13 set m5 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo10 set w1 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529)
update eo52 set x2 = ... where nomer = 52529 and d1 = (select d1 from eo53 where nomer = 52529) и т.д.)

выбираю перечень номеров: select nomer from EO55 where d7 = 40, and r5 = 90
результат (52529, 56234, 25148, 10238, 80236, 29105, ........) -их бывает много

Хотелось бы узнать можно ли в один скрипт включить и select и update и полностью автоматизировать скрипт. Что бы при запуске он находил записи по условиям и обрабатывал каждую запись отдельно. Заранее благодарен всем за помощь

...

Рейтинг:

0 / 0

21.02.2013, 21:35

| Ответить | Цитировать | Написать

Цикл

#38161596

скукотища

Гость

RomanSamara10,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.

dim r, r2, d1&, sWHERE$

set r = createobject("adodb.recordset")
set r2 = createobject("adodb.recordset")

r.open "select nomer from EO55 where d7=40 and r5 = 90", {соединение}, {параметры}

' задать connection и др.параметры для r2
' ...

if not r.bof then
do until r.eof
  
  r2.open "select d1 from eo53 where nomer=" &  r("nomer").value
  if not r2.bof then
    d1 = r2("d1").value
    sWHERE =  " where nomer=" & r("nomer").value " and d1=" & d1

    ' выполняем запросы
    ' CNN - подключение к базе
    CNN.execute "update eo12 set m1 = ... " & sWHERE

    CNN.execute "update eo18 set s8 = ... " & sWHERE
    '...
    '...
  end if
  r2.close
  r.movenext
loop
end if

r.close
set r = nothing
set r2 = nothing

...

Рейтинг:

0 / 0

22.02.2013, 00:55

| Ответить | Цитировать | Написать

Цикл

#38161740

RomanSamara10

Гость

забыл написать что нужен скрипт для QA sql2008

...

Рейтинг:

0 / 0

22.02.2013, 09:30

| Ответить | Цитировать | Написать

Цикл

#38161884

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

RomanSamara10 скрипт для QA sql2008Причем тут Microsoft Office?

...

Рейтинг:

0 / 0

22.02.2013, 11:11

| Ответить | Цитировать | Написать

Цикл

#38162544

RomanSamara10

Гость

ошибся форумом. Вопрос снят

...

Рейтинг:

0 / 0

22.02.2013, 16:46

| Ответить | Цитировать | Написать

22 сообщений из 22, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Цикл

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38161466&tid=2174985]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	68ms
get topic data:	11ms
get forum data:	3ms
get page messages:	57ms
get tp. blocked users:	2ms
others:	310ms

total:	485ms