Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуста разобраца в VB / 3 сообщений из 3, страница 1 из 1
05.04.2007, 11:35
    #34439793
Pita
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуста разобраца в VB
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
05.04.2007, 12:41
    #34440096
Igogo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуста разобраца в VB
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
05.04.2007, 13:20
    #34440251
Pita
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуста разобраца в VB
Спасибо!!!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуста разобраца в VB / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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