RedPromo Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:     Dim Rng As Range, cel As Range     Dim cSheet As Worksheet             Set cSheet = Application.ActiveSheet     Set Rng = cSheet.UsedRange     If (Rng.Rows.Columns.Count < 3) Then         MsgBox "нехватает столбцов до заданного количества"         Return     End If           Set cel = Rng.Cells(Rng.Rows.Count, 3)     Rng.Cells(Rng.Rows.Count + 1, 3).FormulaR1C1 = "=SUM(" & Rng.Columns(3).Address(ReferenceStyle:=xlR1C1) & ")"   Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 17:13 05-05-2008 | Исправлено: RedPromo, 17:15 05-05-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)

ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование