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

Вход

Регистрация

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

 

= Мир MS Excel/Теряеется значение константы при выходе из цикла в макросе. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Теряеется значение константы при выходе из цикла в макросе.
ваф Дата: Вторник, 08.11.2022, 13:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Не могу понять почему теряеется значение кнстанты Aumz при переходе ко второму циклу . В моем случае Aumz=КолЗаплыв=12 . При переходе ко второму циклу мне необходимо начать отсчет с 12 (ShI.Cells(rws, 2) = Aumz + Заплыв) . Однако отсчет начинается с 0. Коллеги как исправить ?
"[vba]
Код
If Юноши = "Девушки" And dist = 1 Then
ShI.Cells(rws, 2) = Заплыв
Aumz = КолЗаплыв
ShI.Cells(rws, 5) = Aumz
End If
If Юноши = "Юноши" And dist = 1 Then
ShI.Cells(rws, 2) = Aumz + Заплыв
Numz1 = КолЗаплыв
ShI.Cells(rws, 5) = Numz1
End If
[/vba]"


Сообщение отредактировал ваф - Вторник, 08.11.2022, 14:39
 
Ответить
СообщениеНе могу понять почему теряеется значение кнстанты Aumz при переходе ко второму циклу . В моем случае Aumz=КолЗаплыв=12 . При переходе ко второму циклу мне необходимо начать отсчет с 12 (ShI.Cells(rws, 2) = Aumz + Заплыв) . Однако отсчет начинается с 0. Коллеги как исправить ?
"[vba]
Код
If Юноши = "Девушки" And dist = 1 Then
ShI.Cells(rws, 2) = Заплыв
Aumz = КолЗаплыв
ShI.Cells(rws, 5) = Aumz
End If
If Юноши = "Юноши" And dist = 1 Then
ShI.Cells(rws, 2) = Aumz + Заплыв
Numz1 = КолЗаплыв
ShI.Cells(rws, 5) = Numz1
End If
[/vba]"

Автор - ваф
Дата добавления - 08.11.2022 в 13:54
китин Дата: Вторник, 08.11.2022, 14:09 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7028
Репутация: 1077 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ваф, оформите ваш пост, согласно Правил форума(касается оформления кода тэгами)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеваф, оформите ваш пост, согласно Правил форума(касается оформления кода тэгами)

Автор - китин
Дата добавления - 08.11.2022 в 14:09
andreimurysev Дата: Вторник, 08.11.2022, 14:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 5 ±
Замечаний: 0% ±

ваф, думаю вывести
Код
Aumz = КолЗаплыв
за пределы if
 
Ответить
Сообщениеваф, думаю вывести
Код
Aumz = КолЗаплыв
за пределы if

Автор - andreimurysev
Дата добавления - 08.11.2022 в 14:18
ваф Дата: Вторник, 08.11.2022, 14:30 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

andreimurysev, не вышло. в этом случае Aumz становится равным 38 - значению КолЗаплыв во втором цикле и отсчет втрого цикла начинается с 38 , а мне нужно с 12. Aumz все время принимает значение КолЗаплыв в данном цикле . А мне нужно изменить точку отсчета , чтобы с номера предидущего цикла начинался отсчет . Поэтому и пытаюсь перенести константой значение из одного цикла в другой. Но константа , в моем случае Aumz изменяется. Как ее зафиксировать ?


Сообщение отредактировал ваф - Вторник, 08.11.2022, 14:34
 
Ответить
Сообщениеandreimurysev, не вышло. в этом случае Aumz становится равным 38 - значению КолЗаплыв во втором цикле и отсчет втрого цикла начинается с 38 , а мне нужно с 12. Aumz все время принимает значение КолЗаплыв в данном цикле . А мне нужно изменить точку отсчета , чтобы с номера предидущего цикла начинался отсчет . Поэтому и пытаюсь перенести константой значение из одного цикла в другой. Но константа , в моем случае Aumz изменяется. Как ее зафиксировать ?

Автор - ваф
Дата добавления - 08.11.2022 в 14:30
andreimurysev Дата: Вторник, 08.11.2022, 14:41 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 5 ±
Замечаний: 0% ±

ваф, загрузите файл
 
Ответить
Сообщениеваф, загрузите файл

Автор - andreimurysev
Дата добавления - 08.11.2022 в 14:41
ваф Дата: Вторник, 08.11.2022, 14:55 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Основной файл Дети... При нажатии на пуск в это файле нужно выбрать ТестфайлДетский
К сообщению приложен файл: Test_V1_M_V1-2-.xlsm (68.1 Kb) · 4571263.xlsx (37.6 Kb)


Сообщение отредактировал ваф - Вторник, 08.11.2022, 14:56
 
Ответить
СообщениеОсновной файл Дети... При нажатии на пуск в это файле нужно выбрать ТестфайлДетский

Автор - ваф
Дата добавления - 08.11.2022 в 14:55
ваф Дата: Вторник, 08.11.2022, 15:00 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

файл Дети....
К сообщению приложен файл: 5147121.xlsm (68.1 Kb)
 
Ответить
Сообщениефайл Дети....

Автор - ваф
Дата добавления - 08.11.2022 в 15:00
ваф Дата: Вторник, 08.11.2022, 16:02 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Кажется нашел решение . В подразделе Sub обьявил Static Aumz As Integer Заработало как надо.
 
Ответить
СообщениеКажется нашел решение . В подразделе Sub обьявил Static Aumz As Integer Заработало как надо.

Автор - ваф
Дата добавления - 08.11.2022 в 16:02
andreimurysev Дата: Вторник, 08.11.2022, 17:12 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 5 ±
Замечаний: 0% ±

ваф, как я понял Вам необходимо сохранять порядок нумерации в столбце B каждого нового листа т.е. при создании нового листа первое значение будет последний заплыв в предыдущем листе + 1. Прикрепил Ваш файл с немного подправленным "кодом".
К сообщению приложен файл: 7295188.xlsm (65.5 Kb)
 
Ответить
Сообщениеваф, как я понял Вам необходимо сохранять порядок нумерации в столбце B каждого нового листа т.е. при создании нового листа первое значение будет последний заплыв в предыдущем листе + 1. Прикрепил Ваш файл с немного подправленным "кодом".

Автор - andreimurysev
Дата добавления - 08.11.2022 в 17:12
ваф Дата: Вторник, 08.11.2022, 17:33 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Благодарю.
 
Ответить
СообщениеБлагодарю.

Автор - ваф
Дата добавления - 08.11.2022 в 17:33
  • Страница 1 из 1
  • 1
Поиск:

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