powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуста разобраца в VB
3 сообщений из 3, страница 1 из 1
Помогите пожалуста разобраца в VB
    #34439793
Pita
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Workbooks("04_Zag_zvit.xls").Worksheets("01").Cells(33, 3).Value = Workbooks("01.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("02.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("03.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("04.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("05.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("06.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("07.xls").Worksheets("01").Cells(4, 1).Value + Workbooks("08.xls").Worksheets("01").Cells(4, 1).Value
Нужно как та єто упрастить, слишком уж много листинга. Я не очень в VB Зарание спосибо!
...
Рейтинг: 0 / 0
Помогите пожалуста разобраца в VB
    #34440096
Igogo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
summa = 0
for i =1 to 8
z ="0" & cstr(i) & ".xls"
summa = summa + Workbooks(z).Worksheets("01").Cells(4, 1).Value
next i
Workbooks("04_Zag_zvit.xls").Worksheets("01").Cells(33, 3).Value = summa
...
Рейтинг: 0 / 0
Помогите пожалуста разобраца в VB
    #34440251
Pita
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!!!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуста разобраца в VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]