Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
slon2
0 / 0 / 0
Регистрация: 22.03.2011
Сообщений: 13
#1

Как вывести готовую сумму? - VBA

27.03.2011, 13:08. Просмотров 516. Ответов 1
Метки нет (Все метки)

Я тут вот что нагородил:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
ActiveCell.Offset(0, 0) = 1
For x = 1 To 100
a = a + 1
b = b + 1
c = c + 1
d = c - 1
 
If ActiveCell.Offset(d, -1) = 'Итого' _
And ActiveCell.Offset(c, 1) = '' Then
ActiveCell.Offset(c, -1) = 'Всего'
 
Exit Sub
 
ElseIf ActiveCell.Offset(c, 1) <> '' Then
ActiveCell.Offset(b, 0) = a + 1
 
ElseIf ActiveCell.Offset(c, 1) = '' Then
ActiveCell.Offset(c, -1) = 'Итого'
ActiveCell.Offset(c, 0) = ActiveCell.Offset(d, 0)
a = -1
 
End If
Next x
А вот как итоговую сумму вывести не знаю.
http://www.cyberforum.ru/vba/thread495239.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2011, 13:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как вывести готовую сумму? (VBA):

Напишите функцию метода деления пополам или найдите готовую
Так называемый метод дихотомии. Функция принимает параметры в виде начала и...

Из указанной БД Access брать уже готовую форму и записывать её в файл Word
Всем привет,необходим код на кнопку (Private Sub CommandButton1_Click())...

Вывести на экран сумму делителей числа N
Дано натуральное число N. Вывести на экран сумму его делителей. Число 1...

Найти сумму элементов массива и вывести на печать
Прошу помочь с программой :) У меня почему-то все элементы массива k=1 и с...

Вывести на экран график функций (переделать готовую программу)
Разработать программу вывода на экран в графическом режиме графиков двух...

1
PMSSpy
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 223
27.03.2011, 14:00 #2
Код
Dim i1 as String
Dim i2 as string
i1=ltrim(str(i+1))
i2=ltrim(str(i))
Range('A' + i1).FormulaLocal = '=сумм(A1:A' + i2 + ')'
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2011, 14:00
Привет! Вот еще темы с решениями:

Определить количество слов в тексте; вывести на экран десятое слово. Объяснить готовую программу
Добрый день, уважаемые форумчане. Дана задача: С помощью текстового...

Как собрать готовую программу?
Допустим я уже создал программу. А как мне её собрать в exe?

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

Как использовать готовую функцию в JS
Всем привет! Хочу написать авторизацию для сайта, но столкнулся с проблемой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru